Excel VBA質問箱 IV

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

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


75569 / 76732 ←次へ | 前へ→

【5599】Re:選択したセル(結合あり)の数を調べるには?
回答  りん E-MAIL  - 03/5/21(水) 18:58 -

引用なし
パスワード
   ▼七味 さん:
>こんにちは。
>選択したセルの数を調べたいのですが、結合したセルや、単一のセルなどが、
>混在している場合、それらを1つと見なした個数を調べるにはどうすれば
>よいでしょうか?

各セルの番地と、そのセルを含む結合範囲の左上のセルの番地が一致したらカウントします。結合していない(1個しかない)場合もちゃんとカウントします。

Sub test()
  Dim c As Range, NN As Long
  If TypeName(Selection) = "Range" Then
   For Each c In Selection
     If c.Address = c.MergeArea.Cells(1).Address Then
      NN = NN + 1
     End If
   Next
   MsgBox NN & "個でした", vbInformation
  Else
   MsgBox TypeName(Selection), vbExclamation, "セルを選択してね"
  End If
End Sub

こんな感じです。
1 hits

【5596】選択したセル(結合あり)の数を調べるには? 七味 03/5/21(水) 15:38 質問
【5599】Re:選択したセル(結合あり)の数を調べるに... りん 03/5/21(水) 18:58 回答
【5615】Re:選択したセル(結合あり)の数を調べるに... 七味 03/5/22(木) 10:30 お礼

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