|
久しぶりに質問いたします。
下はから別シートの列毎に番号を入れるとsheet1にある数値に変換する
VBAです。以前、ここでご教示いただきました。
下のコードを説明させていただきますと、
例えばSheet1のF1に"小泉"が入力されているとすると、
別のSheet2のF列に1を入力すれば"小泉"と入力されると
いう仕組みです。
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
これは別シート全部に及ぶコードなのですが、これを
A〜F列を除いた列で、働くようにしたいのですが、できますでしょうか?
何分、初心者なので、よろしくご教示くださればありがたいです
|
|