Excel VBA質問箱 IV

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

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


15558 / 76738 ←次へ | 前へ→

【66656】Re:複数のセルアドレス取得について
発言  ichinose@久々投稿  - 10/9/22(水) 6:07 -

引用なし
パスワード
   ▼ギン さん:
おはようございます。

Sub test()
  Dim mycell As Range
  Dim selrng As Range
  On Error Resume Next
  Set selrng = Application.Union(Selection, Selection)
  If Err.Number = 0 Then
    For Each mycell In selrng
     If mycell.Value = 10 Then
      mycell.Font.Bold = True
     End If
    Next
  End If
  On Error GoTo 0
End Sub

適当なセル範囲を選択した状態で、上記のtestを実行してみてください。
0 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 お礼

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