|
先程は、失礼しました。確認してなかったです。
センスないけど、作ってみました。今度はどうです?。
Sub TEST()
Dim 範囲 As String
Dim セル As Range
Dim 行 As Long
Dim 列 As Integer
Dim 行確認 As Boolean
Dim 列確認 As Boolean
範囲 = Selection.Formula
範囲 = Mid$(範囲, 6)
範囲 = Mid$(範囲, 1, Len(範囲) - 1)
For Each セル In Range(範囲)
If (行 <> 0) And (行 <> セル.Row) Then
行確認 = 1
End If
If (列 <> 0) And (列 <> セル.Column) Then
列確認 = 1
End If
行 = セル.Row
列 = セル.Column
Next
If (行確認 = True) And (列確認 = False) Then
MsgBox "縦"
ElseIf (行確認 = False) And (列確認 = True) Then
MsgBox "横"
Else
MsgBox "良くわかんない。"
End If
End Sub
|
|