| |
▼Kein さん：
非常に丁寧な説明ありがとうございました。
知識不足で、まだ"Flg"の活用の理解が進みません。
サンプルを作って学習しましたが、上手く行きません。
ご指摘とアドヴァイスをお願いします。
「同一名で始まるシートを全て選択する」のテーマと同等のものと理解しましたが
間違っているでしょうか。
A7のセルから順次、数字の「１２３*」をピックアップさせ
尚且つ、ピックアップさせたセルを全て「アクティブ」の
状態に保持させたい場合・・・、
Flgを使いましたが、
Select Trueでエラーが発生します。
Trueをコメント表示にしますとアクティブセルが移動します。
選択セルを複数設定したまま、数字「１２３*」ピックアップする
方法を教えてください。
Sub Range_Select()
Dim MyR As Range
Dim R As Range
Set MyR = Range(Cells(7, 1), Cells(65536, 1).End(xlUp))
For Each R In MyR
With R
If .Text Like "123*" Then
If Flg = False Then
.Activate: Flg = True
Else
.Select 'True
End If
.Offset(, 1).Value = "該当です"
End If
End With
Next
End Sub
|
|
ToshiyoriB
- 06/6/1(木) 21:59 -
