求助各位大师，想用VBA给表格赋值，谢谢

JusticH

ykcbf1100 发表于 2023-1-30 16:54
你要把数据传到哪个表？个人汇总表？

请问高手 能否帮我实现

shiruiqiang

姓名、部门和费用做字典，如果空的话，赋值

JusticH

shiruiqiang 发表于 2023-1-30 17:28
姓名、部门和费用做字典，如果空的话，赋值

那个200是手动敲的 想把数值对应录入到汇总表

gwjkkkkk

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ar, i&, iPosRow, iPosCol&
   
    If Target.Address = "$G$10" Then
       ar = Sheets("汇总表").UsedRange
       For i = 3 To UBound(ar, 2)
          If ar(1, i) = "" Then ar(1, i) = ar(1, i - 1)
          If ar(1, i) = [E10] And ar(2, i) = [F10] Then
             iPosCol = i
             Exit For
          End If
       Next i
       If iPosCol = 0 Then MsgBox "没找到对应项": Exit Sub
       For i = 3 To UBound(ar)
          If ar(i, 2) = [d10] Then
             iPosRow = i
             Exit For
          End If
       Next i
       If iPosRow = 0 Then MsgBox "没找到对应项": Exit Sub
       With Sheets("汇总表")
           .Cells(iPosRow, iPosCol) = [G10]
           Application.Goto .Cells(iPosRow, iPosCol)
       End With
    End If
End Sub

gwjkkkkk

利用Worksheet_Change事件，请楼主参考

shiruiqiang

JusticH 发表于 2023-1-30 17:30
那个200是手动敲的 想把数值对应录入到汇总表

字典处理，个人喜欢手动录入，否则一有变动就录入了。其次，是否需要判断的是万一有金额，需要覆盖吗？

JusticH

gwjkkkkk 发表于 2023-1-30 18:13
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ar, i&, iPosRow, iPosCol&
   

谢谢 虽然我看不懂

JusticH

gwjkkkkk 发表于 2023-1-30 18:18
利用Worksheet_Change事件，请楼主参考

谢谢 正在使用中

JusticH

shiruiqiang 发表于 2023-1-30 19:24
字典处理，个人喜欢手动录入，否则一有变动就录入了。其次，是否需要判断的是万一有金额，需要覆盖吗？

谢谢 正在使用中

JusticH

gwjkkkkk 发表于 2023-1-30 18:13
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ar, i&, iPosRow, iPosCol&
   

请问 能不能在社工站那一列设置累加