按钮改为事件触发

zhangv712

   A列变更单元格内容触发
  可爱的老师们  还请指点一二！！！{:9_315:}

砂海

每次只处理1个单元格的话 , 见附件
re修改o.rar (17.21 KB, 下载次数: 2)

2019-10-23 20:14 上传

点击文件名下载附件

或者直接调用你的程序
Private Sub Worksheet_SelectionChange(ByVal Target As Range)   '
    if target.column=1 then Call 按钮1_Click
End Sub

zhangv712

砂海 发表于 2019-10-23 20:07
每次只处理1个单元格的话 , 见附件

两种方案均完美运行！{:9_305:}  厉害了  

zhangv712

砂海 发表于 2019-10-23 20:07
每次只处理1个单元格的话 , 见附件

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  '  If Target.Column = 1 Then Call 按钮1_Click

    Range(Cells(3, 3), Cells([a100000].End(3).Row, 4)).ClearContents
Dim arr
Dim arr1

For i = 3 To [a100000].End(3).Row
    arr = Split(Trim(Cells(i, 1)))
    arr1 = Split(Trim(Cells(i, 2)))
    If UBound(arr1) = 0 Then
       If arr(0) = "收" Then
          If arr1(0) = "现金" Then
             Cells(i, 3) = arr(2)
          Else
             Cells(i, 4) = arr(2)
          End If
       End If
       If arr(0) = "付" Then
          If arr1(0) = "现金" Then
             Cells(i, 4) = arr(2)
          Else
             Cells(i, 4) = arr(2)
          End If
       End If
    End If


Next i


End Sub
老师， 这个代码劳烦您在加一个判断 如果录入错误 弹窗口提示！！     

zhangv712

砂海 发表于 2019-10-23 20:07
每次只处理1个单元格的话 , 见附件

老师  如果我放在  ThisWorkbook 里 用  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 事件   直接闪退  是怎么回事{:9_320:}