Excel VBA質問箱 IV

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

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


7194 / 13646 ツリー ←次へ | 前へ→

【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)
>            
>'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

途中半端なコードUpでなくすべてUpして下さい。

【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

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