Ｐａｇｅ 3 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼CurrentRegionの各セルの処理をwithで haru 02/8/28(水) 16:51 ┣Re:CurrentRegionの各セルの処理をwithで コロスケ 02/8/28(水) 17:18 ┗Re:CurrentRegionの各セルの処理をwithで りん 02/8/28(水) 17:20 ┗Re:CurrentRegionの各セルの処理をwithで haru 02/8/28(水) 17:41 ─────────────────────────────────────── ■題名 ： CurrentRegionの各セルの処理をwithで ■名前 ： haru ■日付 ： 02/8/28(水) 16:51 -------------------------------------------------------------------------
| CurrentRegionの各セル全部について、ある処理をしたいのですが、 withを使ってできませんか？ 今は、cells(y,x)のx,yを変数にして回しています。 よろしくお願いします。 |
| ▼haru さん： > CurrentRegionの各セル全部について、ある処理をしたいのですが、 >withを使ってできませんか？ こんにちは。 Withステートメントで括るだけなら、 With [a1].CurrentRegion .Clear 'クリア .Value = 1 '値を入れる End With とか......。ですが、やはりわからないので質問させていただきます。 ある処理の内容によって大きく変ってきますが、なにをされたいんでしょうか？ withを使っての意図がよく掴めていません。 どのような処理をお望みですか？ |
| ▼haru さん： > CurrentRegionの各セル全部について、ある処理をしたいのですが、 >withを使ってできませんか？ > 今は、cells(y,x)のx,yを変数にして回しています。 > よろしくお願いします。 Sub test() For Each r1 In ActiveCell.CurrentRegion If r1.Value = 1 Then _ r1.Interior.ColorIndex = 38 Next End Sub でループでまわせます。 でも、CurrentRegion全体を同じ色や値にするときは、 Sub test() ActiveCell.CurrentRegion.Interior.ColorIndex = 38 End Sub でいいです。 |
| ▼りん さん、コロスケさん、 こんにちは。 >Sub test() > For Each r1 In ActiveCell.CurrentRegion > If r1.Value = 1 Then _ > r1.Interior.ColorIndex = 38 > Next >End Sub >でループでまわせます。 ありがとうございます。うまくいきました。 こういう方法で計算もできるんですね。 >でも、CurrentRegion全体を同じ色や値にするときは、 >Sub test() > ActiveCell.CurrentRegion.Interior.ColorIndex = 38 >End Sub >でいいです。 参考に致します。 |