|
Kein さん
>Sub Data交換()
> Dim MyV1, MyV2
>
> If TypeName(Selection) <> "Range" Then Exit Sub
> With Selection
> If .Areas.Count <> 2 Then Exit Sub
’Areas = '選択範囲に複数の領域がある場合は、その選択範囲をクリアします。
> If .Areas(1).Count <> .Areas(2).Count Then Exit Sub
> If .Areas(1).Columns.Count <> _
> .Areas(2).Columns.Count Then Exit Sub
> If .Areas(1).Rows.Count <> _
> .Areas(2).Rows.Count Then Exit Sub
これより上がかなり???
> MyV1 = .Areas(1).Value
> MyV2 = .Areas(2).Value
> .Areas(1).Value = MyV2
> .Areas(2).Value = MyV1
> End With
>End Sub
ありがとうございます。これからヘルプで調べてみます。
喜んで使わせて頂きます。
|
|