|
久しぶりに質問いたします。
下はから別シートの列毎に番号を入れるとsheet1にある数値に変換する
VBAです。以前、ここでご教示いただきました。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
Dim rng As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
With Worksheets("sheet1")
For Each rng In Target
If Val(rng.Value) > 0 Then
str = .Cells(CLng(rng.Value), rng.Column).Value
rng.Value = str
End If
Next rng
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
これは別シート全部に及ぶコードなのですが、これを
G列からのみ、働くようにしたいのですが(もちろん、sheet1から)
できますでしょうか?
何分、初心者なので、よろしくご教示くださればありがたいです。
|
|