|
みなさん、こんばんは。
bykinさんのコードをパクッて隣り合った2つのセルを
選択した場合のコードを書いてみました。
ちょっと回りくどい方法ですが・・・。
Sub test2()
Dim TempValue As Variant
Dim sa As String
Dim sb As String
If TypeName(Selection) = "Range" Then
With Selection
If .Areas.Count = 2 Then
If .Areas(1).Cells.Count + .Areas(2).Cells.Count = 2 Then
TempValue = .Areas(1).Value
.Areas(1).Value = .Areas(2).Value
.Areas(2).Value = TempValue
End If
Else
sa = Range(Split(Selection.Cells.Address, ":")(0)).Value
sb = Range(Split(Selection.Cells.Address, ":")(1)).Value
Range(Split(Selection.Cells.Address, ":")(0)).Value = sb
Range(Split(Selection.Cells.Address, ":")(1)).Value = sa
End If
End With
End If
End Sub
|
|