|
Jaka さん、こんにちは(^o^)ノ
レスありがとうございました。
早速試してみました。
OK!でした・・・ただし、セルが連続してるときは・・・
ちょっち手を加えました。
Sub mmm()
Dim aa As String
aa = Range("b4").Formula
aa = Mid(aa, 6, Len(aa) - 6) ’このへんの変更は私の趣味というか・・・
If (Range(aa).Columns.Count > 1) And (Range(aa).Rows.Count = 1) Then
MsgBox "横"
ElseIf (Range(aa).Rows.Count > 1) And (Range(aa).Columns.Count = 1) Then
MsgBox "縦"
Else
MsgBox "良くわかんない。"
End If
End Sub
これで、セルが連続している場合「=SUM(A1:A3)」とか「=SUM(A1:E1)」とか
「=SUM(A1:B3)」とかはOKでした。
でも、「=SUM(A8:A9,B4)」の形になるとダメみたいです。
最初の「A8:A9」だけ判断して、この場合「縦」になってしまいます。
この場合は、B列の数字も入ってくるから「良くわかんない」になって欲しいんだけど。
「,」で区切られた引数を一つ一つ調べていくしかないかなー?
|
|