菜鸟谈VBA最最基础入门《原创》

ggsmart

原帖由 zyh196712 于 2009-9-8 22:29 发表
请让我先谢谢楼主的分享！让我对VBA有了初步的认识，平时做点VBA都是对着书做的，根本不理解，而且VBA真的好枯燥，不同的是，它被你润的让人愿意看下去了。
    我试着输入8楼的代码，弹出如下提示框，也试了一些其 ...

关于8楼的代码，本身在定义类型的时候就是错误的，我只是给大家举个例，说明定义变量类型的重要性。
源代码是这样的：

1. 
   
2. Sub mysub()
   
3.          Dim a As Integer
   
4.          a = "我在学习VBA变量"
   
5.          MsgBox a
   
6. End Sub
   

复制代码

因为在定义变量类型时，我们将变量a定义成长整型（integer），而在赋给它的值却是一个字符串“我在学习VBA变量”。类型不匹配，所以会出现错误。要想程序正常，那在定义类型时把a定义成文本型就可以了，即：string型，语句为：

1. 
   
2. Dim a As string
   

复制代码

flyweight

谢谢分享啊

zndnst

EXCELHOME是个温馨愉悦家园，这里大师无数，无私奉献，令我流连忘返，总觉无以为报！

gdy2008_2001

　楼主，首先感谢你的风趣用易懂的讲解，让我学到很多！在我学习的时侯发现有一个链接差了一点：
  20、处理单元格数据(复制、剪切、删除)———————(171楼)
   这个在170楼的。

zznjcs

原帖由 ggsmart 于 2009-9-9 09:44 发表


其实moon是对我影响很深的一个人，她的很多地方值得我去学习，希望你也去认识她，保证你会有很大的收获。

你对resize的理解方式我同意。我总觉得resize可以看成工作表中只使用后两个参数的offset函数，类似！

那我也可以说楼主是对我在学习VBA上影响相当深的人, 因为这是我第一次学习VBA, 感觉还不错. 希望今后多交流.

随便再问一个问题, (在做汇总表时)
   row1 = Sheet2.[b65536].End(xlUp).Row    :给第二个SHEET的行付值．
   Worksheets(2).Range(Cells(3, 2), Cells(row1, 3)).Copy　 Worksheets(1).Cells(3, 2)  这句总是出错,: 定义不正确.
　这句我是想复制ＳＨＥＥＴ２里面的区域，拷贝到ＳＨＥＥＴ１相应的区域中 　

zznjcs

前面我已经定义过row1 as long

moon2778

原帖由 gdy2008_2001 于 2009-9-9 13:45 发表
　楼主，首先感谢你的风趣用易懂的讲解，让我学到很多！在我学习的时侯发现有一个链接差了一点：
  20、处理单元格数据(复制、剪切、删除)———————(171楼)
   这个在170楼的。

中间有人删贴造成的，不管他。

moon2778

原帖由 zznjcs 于 2009-9-9 14:52 发表
前面我已经定义过row1 as long

螳螂上文件。

winona535

看了楼主的笔记，明白了不少，语言浅显易懂，受教了！！

ggsmart

改成这样试一试：

1. 
   
2. row1 = Sheet2.[b65536].End(xlUp).Row
   
3.   Worksheets(2).Range("B3:C" & row1).Copy Worksheets(1).Cells(3, 2)
   

复制代码