快表软件

标题: vba [打印本页]

作者: 乖乖☆小虎 时间: 2017-12-29 11:22
标题: vba
本帖最后由乖乖☆小虎于 2017-12-29 11:26 编辑

演示里的明细表标签打印
’Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Co**ols.ShapeActionEventArgs)
Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
Implements Interfaces.IExcelWorkBook.ButtunClick
ActiveWorkbook.WorkbookSet.GetLock()

用第一行错误应为应为逗号或“)”。
2行语句在命名空间中无效。

作者: hessen 时间: 2017-12-29 11:22
本帖最后由 hessen 于 2017-12-29 15:17 编辑

复制的代码中出现的ActiveWorkbook都改为AW

作者: hessen 时间: 2017-12-29 13:44
从ActiveWorkbook.WorkbookSet.GetLock() 这一行开始复制，复制后粘贴到快表VBA编辑器中的ButtonClick事件中。

作者: 乖乖☆小虎 时间: 2017-12-29 14:37
26行未声明名称“ActiveWorkbook”。

作者: 乖乖☆小虎 时间: 2017-12-29 15:57
32 dr = (Int(ActiveWorkbook.Worksheets("固定资产盘点表").Range("T_454").RowCount / 3) + 1) * 9 + 11
32行 Option Strict On 不允许从“Double”到“Integer”的隐式转换。

作者: 乖乖☆小虎 时间: 2017-12-29 15:58
int改为Cint解决编译完成

欢迎光临快表软件 (http://bbs.kuaibiao.cn/)