|
こんばんは。 この辺に「返信」があるはず →
お礼は、新規の投稿ではなく前のツリーに続けてしましょう。
前の文に返信の形ですればよいです。
>セルの背景の色が移動してくれなかったのが
以下コードで出来てますが、初心者ですから、検証が十分ではありません。
上級者からの回答も参考にされてください。
Sub test()
Dim myAD As String
Dim myStr As Variant
Dim myVal As Variant
Dim myval2 As Variant
myAD = Selection.Address(0, 0)
myStr = Split(myAD, ",")
If UBound(myStr) <> 1 Then
MsgBox "セルをちゃんと二つ選んでください"
Exit Sub
End If
Range(myStr(0)).Copy Cells(1, 255).Resize(1, 2)
Range(myStr(1)).Copy Range(myStr(0))
Cells(1, 255).Resize(1, 2).Copy Range(myStr(1))
End Sub
|
|