VBA点按钮依次顺序往下方单元格填入值

点击一个按钮，从指定的单元格开始填入一个值，再次点击按钮，往下一行的单元格填入一个值，再点击顺序往下填入值：

效果示例：






写法示例：

1.         Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs) Implements Interfaces.IExcelWorkBook.ButtunClick
   
2.             If e.Shape.Name = "Button 1" Then
   
3.                 Dim i As Integer
   
4.                 i = ActiveWorkbook.ActiveWorksheet.Range("B2").Value
   
5.                 ActiveWorkbook.Worksheets("Sheet1").Cells(i, 2).Value = i
   
6.                 ActiveWorkbook.ActiveWorksheet.Range("B2").Value = i + 1
   
7.             End If
   
8.         End Sub '按钮/标签点击事件

复制代码

VBA点按钮依次顺序往下方单元格填入值

点击一个按钮，从指定的单元格开始填入一个值，再次点击按钮，往下一行的单元格填入一个值，再点击顺序往下填入值：

效果示例：






写法示例：

1.         Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs) Implements Interfaces.IExcelWorkBook.ButtunClick
   
2.             If e.Shape.Name = "Button 1" Then
   
3.                 Dim i As Integer
   
4.                 i = ActiveWorkbook.ActiveWorksheet.Range("B2").Value
   
5.                 ActiveWorkbook.Worksheets("Sheet1").Cells(i, 2).Value = i
   
6.                 ActiveWorkbook.ActiveWorksheet.Range("B2").Value = i + 1
   
7.             End If
   
8.         End Sub '按钮/标签点击事件

复制代码