|
▼うどん さん:
こんにちは
コード全体が正しいかどうかはわかりませんが、アップされたコードでやっておられる(と、思われる)ことを
少し整理してみました。ご参考まで。
なお、
Target.Offset(, hinmei_input_gyou).Value = .Cells(find_kensaku_gyou + 1, "I").Value
勝手に、I列から転記しています。
オリジナルコードを尊重すれば
Target.Offset(, hinmei_input_gyou).Value = .Cells(find_kensaku_gyou + 1, find_kensaku_list_gy).Value
こうなるところですが。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim barcord_gyou As Long
Dim case_count As Long
Dim hinmei_input_gyou As Long
Dim find_kensaku_list_gyou
Dim active_cell_now As Variant
Dim find_kensaku_gyou As Variant
barcord_gyou = 1
case_count = 2
hinmei_input_gyou = 3
find_kensaku_list_gyou = 10
If Target.Column <> 1 Or Target.Count <> 1 Then Exit Sub
Application.EnableEvents = False
Target.Offset(, case_count).Value = WorksheetFunction.CountIf(Columns("B"), _
Target.Offset(, barcord_gyou).Value)
active_cell_now = Target.Offset(, 1).Value
With Worksheets("1")
find_kensaku_gyou = Application.Match(active_cell_now, .Range("I2:I300"), 0)
If IsNumeric(find_kensaku_gyou) Then _
Target.Offset(, hinmei_input_gyou).Value = .Cells(find_kensaku_gyou + 1, "I").Value
End With
Application.EnableEvents = False
End Sub
|
|