最近仕事の事務作業を軽減させるためVBAの勉強を始めました。
現在VBAにて機能実現においてつまずいております。
ご教授いただけると幸いです。
実現したい機能といたしましては、Ctrlとクリックで選択された位置の離れている複数のセルに対し、
リストから参照した値を、選択されているセルの内容に追加したいと考えております。
現在最初に選択したセルの内容が、以降選択したセルに反映されてしまう形になってしまっています。
それぞれのセルに最初に選択したセルの内容を反映させず、リストから選んだ内容を追加しようとすればどのような方法があるでしょうか？
ご回答の方、どうぞよろしくお願いいたします。
以下は現在のソースと、実現したい画面イメージになります。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As String
'1,3のセルの内容が変更されたら開始
If Target.Address = "$C$1" Then
Application.EnableEvents = False
'セル1,3の内容をkに代入
k = Cells(1, 3).Value
'選択されているセルにkの内容を追加
Selection.Value = Selection.Value & k
Application.EnableEvents = True
End If
End Sub
↧