ZXL工作室

选择-插入- 模块然后加入如下代码： 保存Function hcf(m, n)If m t = m: m = n: n = tEnd Ifr = m Mod nDo While r > 0m = nn = rr = m Mod nLoophcf = nEnd Function 在C1栏中定位光标 然后输入公式 =hcf（A1，B1）

excel模式为：sheet1：sheet2：然后选择 工具—宏—vb编译器:加入模块 写入代码：Sub zxl_input_phone() Set sh2 = Worksheets("Sheet2") '将sheet2工作表用对象变量表示 r2 = sh2.Range("A65536").End(xlUp).Row '求sheet2工作表A列数据最

建立模块：Sub zxl_download() Set h = CreateObject("Microsoft.XMLHTTP") fp = "http://web.zxl.net/zzz/xxx/lll/hello.zip" h.Open "GET", fp, False h.send Set s = CreateObject("ADODB.Strea

加入模块：Sub zxl_input_year() y = InputBox("input year :") Range("1:1,4:11,14:21,24:31,34:41").ClearContents '清除原有内容 Cells(1, 1) = y & "年历" '设置标题 Dim dm As Variant '存放每个月的天数到数组dm（

将excel中的数据按表格形式保存到word中：（在“工具”菜单中选中"引用"项 ）选择： MicroSoft Word 11.0 Object Libarary代码：Public Sub ExportWord() Dim WordApp As Word.Application Set WordApp = CreateObject("Word.A

excel2003vba操作应用快捷键Alt+F11Alt+F8 code：Sub Hello_World() MsgBox ("hello vba")End Sub

选择题： 1.判断zxl是不是程序员：(        B  )A. 是 B.不是 C.可能 D.也许2.判断zxl是不是程序员：(  C           )A. 是 B.不是 C.可能 D.也许3.判断zxl是不是程序员：(  a  )A. 是 B.不是 C.可能 D.也许4.判断zxl是不是程序员：( D  )A. 是 B.不是 C.可能 D.也许