摘要: Dim MyVar Private Sub CommandButton1_Click()Sub CommandButton1_Click() Dim cgVar, jhVar, xgNumber, xNo, yNo For xNo = 3 To 60 cgVar = ActiveWorkbook.Worksheets("采购").Range("E" & CStr(xNo)).V... 阅读全文
posted @ 2007-08-29 20:03 wj-conquer 阅读(702) 评论(0) 推荐(0) 编辑
摘要: 如何查看宏命令? 视图--->>工具栏---->>在Visual Basic工具图标上--->>运行按钮--->>选所要查看的宏。--->>编辑 一. 在立即窗口中执行 视图---->> 立即窗口 1. 工作薄 WorkBooks.add '添加工作薄 ?ActiveWorkbook.Name '显示当前活动工作薄的名字。 Book3 '上条命令显示的结果 Act... 阅读全文
posted @ 2007-08-29 20:02 wj-conquer 阅读(848) 评论(0) 推荐(0) 编辑
摘要: Private Sub CommandButton1_Click()Sub CommandButton1_Click() Call Macro1 End Sub Private Sub CommandButton2_Click()Sub CommandButton2_Click() ''根据项目名称 获取部门名 'A8 显示在B8中 c3--c40 Dim xDis As ... 阅读全文
posted @ 2007-08-29 19:57 wj-conquer 阅读(8515) 评论(0) 推荐(0) 编辑