Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7765 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7765 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free