Excel VBA質問箱 IV

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

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


15555 / 76734 ←次へ | 前へ→

【66655】複数のセルアドレス取得について
質問  ギン  - 10/9/22(水) 1:36 -

引用なし
パスワード
   いつもお世話になります。
VEAでは努力しているのですが未だに壁に当たっています。

今回の質問は複数のセルアドレスの取得についてです。
マウスでセルをいくつか選択したときに
アドレスを取得する事は可能でしょうか?
例えば Range("A2:A6,C2:C6,E2:E6").Selectした時に
"A2:A6,C2:C6,E2:E6" のアドレスのみを取得したいのです。

実はこの選択したセルに
Sub test()
  Dim mycell As Range
  Dim a As Variant
  a = Range("A2:A6,C2:C6,E2:E6").Address
  Worksheets(1).Activate
  For Each mycell In Range(a)
    If mycell.Value = 10 Then
      mycell.Font.Bold = True
    End If
  Next
End Sub
の様な処理をしたいのです。

どなたかご教授お願い致します。

3 hits

【66655】複数のセルアドレス取得について ギン 10/9/22(水) 1:36 質問
【66656】Re:複数のセルアドレス取得について ichinose@久々投稿 10/9/22(水) 6:07 発言
【66657】Re:複数のセルアドレス取得について ギン 10/9/22(水) 8:18 お礼
【66661】Re:複数のセルアドレス取得について ichinose@久々投稿 10/9/22(水) 18:17 発言
【66663】Re:複数のセルアドレス取得について ギン 10/9/23(木) 2:08 お礼
【66659】Re:複数のセルアドレス取得について sasa 10/9/22(水) 10:59 回答
【66660】Re:複数のセルアドレス取得について ギン 10/9/22(水) 12:11 お礼

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