|
▼超初心者 さん:
マクロの記録でセルの結合を試してみると以下のコードが出来ましたので
MergeCells = True のセル個数を数える方法で作ってみました。
但しこの方法では2個、2個の2組の結合があっても4個とカウントしてしまいます。
その辺りが必要ならば再度質問なされば識者の方の回答があると思います。
Sub Macro2()
' Macro2 Macro
' マクロ記録日 : 2009/10/26 ユーザー名 :
Range("E1").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True <=====
End With
End Sub
Sub test()
Dim Myrng As Range
Dim s As Range
Dim i As Integer
Dim RA As String
Set Myrng = Range("A1:J1")
For Each s In Myrng
If s.MergeCells = True Then
i = i + 1
If RA = "" Then
RA = s.Address
Else
RA = RA & " , " & s.Address
End If
End If
Next
Set Myrng = Nothing
MsgBox RA & " の " & Chr(10) & i & " 個が結合セルです。"
End Sub
>超初心者です。
>A1:J1のセルの範囲で結合されたセルの数を値を求めたいと思っています。
>例えば、A1:C1のセルが結合されていれば、「3」という値を得たいと思っています。
>よろしくお願いいたします。
|
|