第一次EXCEL编程,双击SHEET2 中的单元格 数据自动填充到 SHEET1 中去

来源:互联网 发布:c语言编写的小游戏代码 编辑:程序博客网 时间:2024/05/21 17:26

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim i As Integer
   
    Sheet_Input.Activate
   
    i = Sheet_Input.UsedRange.CurrentRegion.Rows.Count
   
  
    Sheet_Input.Cells(i + 1, 1).Value = Target.Value

End Sub

 

原创粉丝点击