Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


44788 / 76732 ←次へ | 前へ→

【36955】Re:繰り返しについて
回答  HiroHiro  - 06/4/19(水) 7:41 -

引用なし
パスワード
   ▼ゆうき さん:
>あるシートの一列の
>各セルに、おんなじ処理をしていくためには
>どのようにすれば良いでしょうか?

A列でA,B,C,D.A.R…などいれて
例えばAという文字があればの繰り返し処理です
Sub test()

Dim R As Range
Dim MyR As Range
Set MyR = Range("A1", Range("A65536").End(xlUp))
For Each R In MyR
If R = "A" Then
  MsgBox "Aがありました"
End If
Next R
End Sub


>
>ちなみに、選んだセルの値も使用したいので
>そこらへんもどうにか出来ませんか?
選んだ値は「A」です。Msgboxに出しています。
>

>恐れ入りますが、教えていただければ
>幸いです!

3 hits

【36954】繰り返しについて ゆうき 06/4/18(火) 23:45 質問
【36955】Re:繰り返しについて HiroHiro 06/4/19(水) 7:41 回答
【36957】Re:繰り返しについて Statis 06/4/19(水) 8:37 発言

44788 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free