Excel VBA質問箱 IV

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

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


7764 / 13644 ツリー ←次へ | 前へ→

【37031】結合したセルについて だいすけ 06/4/20(木) 1:34 質問[未読]
【37035】Re:結合したセルについて Hiroko 06/4/20(木) 7:51 回答[未読]

【37031】結合したセルについて
質問  だいすけ  - 06/4/20(木) 1:34 -

引用なし
パスワード
   条件文で

あるセルが結合されているせるなら
      ↓
そのセルの一つしたのセルに移動する

といったようなマクロは
どうすればよいのでしょうか??
よろしくお願いいたします。

【37035】Re:結合したセルについて
回答  Hiroko  - 06/4/20(木) 7:51 -

引用なし
パスワード
   ▼だいすけ さん:
>条件文で
>
>あるセルが結合されているせるなら
>      ↓
>そのセルの一つしたのセルに移動する
>
>といったようなマクロは
>どうすればよいのでしょうか??
>よろしくお願いいたします。

Dim i As Integer
For i = 6 To Cells(65536, 1).End(xlUp).Row
If Cells(i, 1).MergeCells Then
'
Cells(i, 1).Offset(1).Activate
Else: Cells(i, 1).Activate
MsgBox Cells(i, 1).Value
End If
Next

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