Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7213 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【40619】セル結合したセル数のカウント hirohiro123 06/7/19(水) 11:20 質問[未読]
【40622】Re:セル結合したセル数のカウント Statis 06/7/19(水) 11:32 発言[未読]
【40623】Re:セル結合したセル数のカウント Jaka 06/7/19(水) 11:39 回答[未読]
【40619】セル結合したセル数のカウント
質問  hirohiro123  - 06/7/19(水) 11:20 -
引用なし
パスワード
   お世話になります。
下記のようにセル結合したセル範囲をカウントさせるべくマクロを組みましたが
最初はそのセル結合した分をカウントしてくれたのですが、最終セル行から
「CellCnt=CellCnt＋1」と次の行へ移動させると自動的にさらに次のセルへ
（ひとつ飛び越えて）移動してカウントされてしまいます｡
よって正確な結合セル数のカウントが出来ません｡
どのような解決策がありますでしょうか?
よろしくお願いします｡

'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Set ToiawaseName = Cells(CntCell, 4).MergeArea
　　　　　　
KubunHani = ToiawaseName.AddressRowAbsolute:=False,ColumnAbsolute:=False)
　　　　　　　　　　　　
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
【40622】Re:セル結合したセル数のカウント
発言  Statis  - 06/7/19(水) 11:32 -
引用なし
パスワード
   ▼hirohiro123 さん：
こんにちは
>お世話になります。
>下記のようにセル結合したセル範囲をカウントさせるべくマクロを組みましたが
>最初はそのセル結合した分をカウントしてくれたのですが、最終セル行から
>「CellCnt=CellCnt＋1」と次の行へ移動させると自動的にさらに次のセルへ
>（ひとつ飛び越えて）移動してカウントされてしまいます｡
>よって正確な結合セル数のカウントが出来ません｡
>どのような解決策がありますでしょうか?
>よろしくお願いします｡
>
>'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
> Set ToiawaseName = Cells(CntCell, 4).MergeArea
>　　　　　　
> KubunHani = ToiawaseName.AddressRowAbsolute:=False,ColumnAbsolute:=False)
>　　　　　　　　　　　　
>'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

途中半端なコードＵｐでなくすべてＵｐして下さい。
【40623】Re:セル結合したセル数のカウント
回答  Jaka  - 06/7/19(水) 11:39 -
引用なし
パスワード
   前に作ったやつで、ちゃんと動いていたのか覚えてないけど...。

Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
　　If Cel.MergeCells Then
　　　 If Cel.Address = Cel.MergeArea.Cells(1).Address Then
　　　　　cnt = cnt + 1
　　　　　'Cel.Value = cnt
　　　 End If
　　End If
Next
MsgBox "結合セルの個数　" & cnt
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7213 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free