60

view

b10_meimeiさん

A列の車両のみの入れ替えですネ。。
マクロ案です。
下記のコードを指定された要領で張り付けて、、
最初のセルは普通どおりクリックして、
2回目のセル選択は「Ctrl」を押下したままクリックすると、
下図のように「入れ替えますか?」のメッセージボックスが出ますので、
「はい」をクリックすると入れ替えます。
「いいえ」をクリックするとキャンセルされます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static myWd1 As String, myAdr1 As String
Dim myWd2 As String, myAdr2 As String
If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
If Target.Count = 1 Then
myWd1 = Target
myAdr1 = Target.Address
ElseIf Target.Count = 2 Then
myWd2 = ActiveCell
myAdr2 = ActiveCell.Address
If MsgBox(myWd1 & "←→" & myWd2 & vbCrLf & "入れ替えますか？", vbYesNo) = vbYes Then
Range(myAdr2) = myWd1
Range(myAdr1) = myWd2
End If
End If
End Sub

************＜＜シートモジュール＞＞*****************
＜マクロの張り付け方＞
上記のコードをコピーして、、
そのシートの「シートタブ内」で右クリックして、「コードの表示」を選択すると、
VBE画面になりますので、右の大きな窓のカーソルのところにコードを貼り付けます。
もう、この画面はいらないので右上の「×」をクリックすると、元のシートに戻ります。