エクセルVBAで

Question

A1～A10までの範囲A1としてを結合させているのですが
A1の中にあるセルをカウントさせたいのですが
どうすればいいのでしょうか？

1050YEN · Accepted Answer

>＞それと、今後「最初の質問内容以外の質問」をするときは、
>＞一度締め切ってから別のスレッドでお願いします。
>了解です！
↑この発言に高感度UPｗ

大概、マナーに関してこういう指摘をすると、質問者さんは逆切れします。

実際のところ、
・アドバイスに対し、レスポンスが全く無い
・締め切りもしない
・質問者がアドバイスを見ているかどうかがわからない
・突っ込みが入ると放置スレッドになる
・etc...
そういう人だとわかったら、答えようとする気が失せます。。。

この考えは私だけでは無いと思います。

その点あなたは「了解です」しかも「！(感嘆符)付き」
素直な人だと感じました^^
是非解決に向かいましょう。

さてさて前置きはこれぐらいにしてと。。。

-----------------------------------------------
>ですが実行してみたのですがエラーとなりました。
んんんんん？
これだけではわかりません。。。

エラーが出たときには、
・走らせたプログラム抜粋の記載
・エラー発生行位置
・エラー内容「エラー番号」「エラー文字列」
を載せましょう。

それを見た人は
・単純エラーなのか
・前後の値の関係性によるエラーなのか
・構文エラーなのか
を推測し、さらに「質問者のやることの方向性」も考え、参考URLまで載せる場合もあります。

-----------------------------------------------
それでも「やりたい事」の詳細がよく書いてあったので、内容はわかりました
下にサンプルを張っておきます。

Option Explicit

Sub 結合セル数の出力()
　　'このマクロブックのシート1を対照とする
　　Dim l_xlsSheet　As Worksheet
　　Set l_xlsSheet = ThisWorkbook.Worksheets("Sheet1")
　　
　　'チェックするA列の行番号
　　Dim l_lngRow　　　　As Long
　　l_lngRow = 1
　　
　　'行番号がシート最大行数を超えるまで続ける
　　Do Until (l_lngRow > l_xlsSheet.Cells.Rows.Count)
　　　　
　　　　'対象セルを取得
　　　　Dim l_rngA　As Range
　　　　Set l_rngA = l_xlsSheet.Cells(l_lngRow, 1)
　　　　
　　　　'結合セル数の取得
　　　　Dim l_lngMargeCount As Long
　　　　l_lngMargeCount = l_rngA.MergeArea.Cells.Count
　　　　
　　　　'セルが2セル以上であれば結合セルとなる
　　　　If (l_rngA.MergeArea.Cells.Count > 1) Then
　　　　　　'隣のセルに、結合セル数を出力する
　　　　　　l_rngA.Offset(, 1).Value = l_lngMargeCount
　　　　End If
　　　　
　　　　'次の行番号を用意
　　　　l_lngRow = l_lngRow + l_lngMargeCount
　　Loop
　　
　　MsgBox "終了"
End Sub

ここのVBカテにはVBAの質問もいっぱい上がっているので、暇なとき別の人の質問を最初から最後まで読むと、結構いいスキルが付くと思いますよ。

1050YEN · Answer

>ひとつ質問させて頂きたいのですが、
はい

>結合セル数の取得で
>l_lngMargeCount = l_rngA.MergeArea.Cells.Count
>として変数l_lngMargeCountに結合セルをカウントさせた数を代入されていますが、
はい

>そうなると次のIF文で
>If l_lngMargeCount > 1　Then　としても同じことになるのでしょうか？
んんんんんんん？

この前の発言のサンプルで
l_lngMargeCount = l_rngA.MergeArea.Cells.Count
の後に、
If (l_rngA.MergeArea.Cells.Count > 1) Then
をやっていますが、、、

どのようなパターンを想定されているのかがわかりません。
まるっきり質問されていることを、サンプルはやっているように思います。

文章だけでの質問は、想像がしづらいので、
「文章」　+　「そちらで改造してみたコードの抜粋」
を載せるとわかりやすいです。

読解力が無くて、すいません。。。

1050YEN · Answer

補足されていたのですね。。。
（お礼はなく補足で返されると、私のところにメールが飛ばないので、気づきづらいのです。。。）

それと、今後「最初の質問内容以外の質問」をするときは、一度締め切ってから別のスレッドでお願いします。
------------------------------

すいませんが、補足の内容を全く理解できません。
ここの掲示板は画面をUPできるので、画面イメージを載せてもらえませんか？

そして、どのような出力が行われたらよいかも載せてください。

仮に、現在組んでいるプログラムがあるのであれば、それも抜粋して載せてください。

あと。。。
>’おまけのFor～Nextを使用すればいいのでしょうか
実行してみましたか？

「出力結果が何を取得しているか」が、わかりますか？

1050YEN · Answer

Dim l_rngA1   As Range

'A1を取得
Set l_rngA1 = Range("A1")
'結合セルのカウント
MsgBox l_rngA1.MergeArea.Cells.Count

'おまけ
'結合セルのアドレス値をデバッグ
Dim l_rngWk As Range
For Each l_rngWk In l_rngA1.MergeArea.Cells
　　Debug.Print l_rngWk.Address(False, False)
Next

エクセルVBAで

>＞それと、今後「最初の質問内容以外の質問」をするときは、

>ひとつ質問させて頂きたいのですが、

補足されていたのですね。

Dim l_rngA1 As Range

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング