Excel VBA質問箱 IV

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

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


43382 / 76732 ←次へ | 前へ→

【38399】Re:同一名で始まるシートをすべて選択するには?
質問  ToshiyoriB  - 06/6/1(木) 21:59 -

引用なし
パスワード
   ▼Kein さん:

非常に丁寧な説明ありがとうございました。
知識不足で、まだ"Flg"の活用の理解が進みません。

サンプルを作って学習しましたが、上手く行きません。
ご指摘とアドヴァイスをお願いします。
「同一名で始まるシートを全て選択する」のテーマと同等のものと理解しましたが
間違っているでしょうか。

A7のセルから順次、数字の「123*」をピックアップさせ
尚且つ、ピックアップさせたセルを全て「アクティブ」の
状態に保持させたい場合・・・、

Flgを使いましたが、
Select Trueでエラーが発生します。
Trueをコメント表示にしますとアクティブセルが移動します。

選択セルを複数設定したまま、数字「123*」ピックアップする
方法を教えてください。

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

2 hits

【38282】同一名で始まるシートをすべて選択するには? Cuore=Tane 06/5/30(火) 22:24 質問
【38284】Re:同一名で始まるシートをすべて選択する... MARBIN 06/5/30(火) 22:32 発言
【38300】Re:同一名で始まるシートをすべて選択する... Kein 06/5/31(水) 3:24 回答
【38359】Re:同一名で始まるシートをすべて選択する... ToshiyoriB 06/5/31(水) 21:58 質問
【38364】Re:同一名で始まるシートをすべて選択する... Kein 06/5/31(水) 22:20 回答
【38399】Re:同一名で始まるシートをすべて選択する... ToshiyoriB 06/6/1(木) 21:59 質問
【38400】Re:同一名で始まるシートをすべて選択する... Kein 06/6/1(木) 22:19 回答
【38477】Re:同一名で始まるシートをすべて選択する... Cuore=Tane 06/6/3(土) 21:28 お礼

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