带你入门VBA系列之：不懂的代码快点贴过来

yuhongpu

IsNull是什么意思‘ ************************以下为解释内容**************** IsNull指出表达式是否不包含任何有效数据 IsNull 函数示例 本示例使用 IsNull 函数检查变量值是否为 Null。 Dim MyVar, MyCheck MyCheck = IsNull(MyVar) ' 返回 False。 MyVar = "" MyCheck = IsNull(MyVar) ' 返回 False。 MyVar = Null MyCheck = IsNull(MyVar) ' 返回 True。

[此贴子已经被兰色幻想于2006-6-8 15:21:25编辑过]

爱歌学习

以下是引用[I]兰色幻想[/I]在2006-6-8 12:03:48的发言：[BR] 在学习VBA的过程中，最大的障碍之一就是理解代码和一串串陌生的单词和语句。为了方便会员学习，所以才专门开辟此贴。当你在看到书上或他人编写的代码不明白时，就贴到本贴中。在这里会尽量会让你得到满意的解释。 注： 1、可以贴生词，也可以贴整句的代码。 2、此贴专为VBA新手开辟。请不要贴海量的代码。尽量何持在10句之内。 3、因为这是一个学习贴，所以尽量不要贴解决问题的贴，可以另外单独发贴提问。 希望有更多的新手提问，有更多的高手参与回答。

这帖该置顶！保证每天进来跟着学[em44]

shewoyu

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True........'把SelectedSheets改为 Sheets("B") 这是一个“默认打印”按钮的VBA，且是打印当前页的VBA 但我想要一个可“选择打印”按钮的VBA，并却是在A表打印B表的VBA'“选择打印没明白。是指提供窗体+ComboBox控件来选择的意思？”...... 请老师指教！谢谢！ (修改）“选择打印没明白。是指提供窗体+ComboBox控件来选择的意思？”就是我们的工具栏里有两个打印机按钮，一个为“默认打印机”按钮，另一个为“可选择打印机”的那个按钮！我就是想要“可选择打印机”的那个按钮。 自定义菜单，把那个打印按钮放在工具栏上。。。不是这个意思！谢谢！ 请看附件！

[此贴子已经被作者于2006-6-8 16:48:58编辑过]

win002

r1=range("b1").end(xldown).row
set rng=range("h1:h"& r1)
这里什磨区域 ************说明*************************** r1=range("b1").end(xldown).row：‘是B列最后一个空单元格（数据区域中不含空行） Range("区域左上角单元格，区域右下角单元格") 来表示一个连续的区域。 range("h1:h"& r1）中把右下角的单元格行数作为一个变量。range("h1:h"& r1）即表增B列现有的数据区域。且随着B列数据的添加而自动扩展。

[此贴子已经被兰色幻想于2006-6-8 16:09:32编辑过]

shewoyu

选择打印没明白。是指提供窗体+ComboBox控件来选择的意思？”......
就如老师所说的。

shewoyu

AXabqzMo.rar (57.36 KB, 下载次数: 111)

2006-6-8 16:50 上传

点击文件名下载附件
带你入门VBA系列之：不懂的代码快点贴过来

试试：这句代码 dlgAnswer = Application.Dialogs(8).Show 加上去会打开“可选择打印机”，可是依然是“打印当前页面”。谢谢！

[此贴子已经被作者于2006-6-9 8:13:18编辑过]

chensha

请问在定义变量时出错该怎么定义？

dim myaccess as access.application

需先在工程中引用MicorSort Access 10.0 Object Library 库(XP) 或MicorSort Access 11.0 Object Library 库(2003)

[此贴子已经被清风_ll于2006-6-8 22:51:36编辑过]

烟雨任平生

支持此貼置頂！

保持每天學習 ！

auteet

arr1(k) = Split(a(j), "/")(0) '(0)? arr2(k) = (a(j), "/")(1) '(1)? VBA帮助中：Split(expression[, delimiter[, limit[, compare]]]) Split（）括号外的上述写法，还是不明白，是不是指执行比较类型？ 括号指引用返回数组的第n个元素,参考以下两个过程,结果是一样的,如果只需取得返回数组的某一个确定位置元素的话可用这种方法. Sub a() Dim s As Variant s = "C:\Windows\System32\xxx.dll" Debug.Print Split(s, "\")(0) Debug.Print Split(s, "\")(1) Debug.Print Split(s, "\")(2) Debug.Print Split(s, "\")(3) End Sub Sub b() Dim s As Variant s = "C:\Windows\System32\xxx.dll" s = Split(s, "\") For i = 0 To UBound(s) Debug.Print s(i) Next End Sub

[此贴子已经被清风_ll于2006-6-8 19:27:26编辑过]

yfxpzq

都是问的,怎么无人回答呀!!1[em06][em06]