Question

我正在尝试根据第H列中的值自动更新第I列中的单元格值。 - 我希望每当用户在H列中输入任何值时，就应该在相应的第I列中复制前五个字符。

如果我在H栏输入123456789，那么12345应立即在第I栏自动更新

****面临的问题**

当在列H中输入值时，列i中的值不会自动填充。假设在列H中输入了5行，只有在用户输入第I列中的任何值后才会更新或填充值

如果我更改了Target.Range（“B”和“i”），在For循环的下面代码中，当我点击Column时，C列中的值会更新，而不是B中的值。我理解提到的预期目标范围是第I列，但是当我在for循环中输入B列时，为什么C列会更新**

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("I1:I20")) Is Nothing Then Exit Sub
   Application.EnableEvents = False
   'Set the values to be uppercase
      Dim i As Long
      'With Sheets("Sheet1")
       For i = 1 To 20
           Target.Range("A" & i).Value = Mid(Range("H" & i), 1, 5)

       Next i
      'End With
  Application.EnableEvents = True
End Sub

Answer 1

你真的不需要循环 - 要立即获得结果，只需执行此操作

std::cout

Mid Function返回一个字符串，其中包含字符串中指定数量的字符。

WorkSheet_Change事件不会自动更新

1 个答案: