本帖最后由 hessen 于 2015-3-12 18:27 编辑
xuhao.zip
(922 Bytes, 下载次数: 7)
xuhaomuban.zip
(8.76 KB, 下载次数: 6)
上面是模板与VBA,将上面两文件导入快表VBA编辑器即可测试调整。
- Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
- '按钮/标签点击事件
- AW.WorkbookSet.GetLock()
- Dim I,t,Stn as integer
- If e.shape.name="Button 3" Then
- AW.WorkSheets("Sheet2").Range("A2:E2").Value = AW.WorkSheets("Sheet1").Range("B8:F8").Value
- t = AW.WorkSheets("Sheet2").Range("E2").Value
- Stn = AW.WorkSheets("Sheet2").Range("C2").Value
- AW.WorkSheets("Sheet2").Range("A4:A1000").ClearContents
- For i = 1 to t
- AW.WorkSheets("Sheet2").Cells(i+2,0).Value = Stn
- Stn = Stn + 1
- Next i
- End if
- AW.WorkSheets("Sheet2").Select
- AW.WorkbookSet.ReleaseLock()
- End Sub
复制代码
|
|
hessen