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

kevindy · 发表于 2009-9-14 17:05

谢谢老师和formatd解答，我明白了。
如果我定义了数组就会出现这个问题，不定义直接用老师的代码就能成功。

zznjcs · 发表于 2009-9-14 18:52

快速浏览完毕,回头去学习数组了
LZ放慢脚步, 先回答一下大家的问题.

zznjcs · 发表于 2009-9-14 19:07

原帖由 草根糖 于 2009-9-14 09:40 发表

为了了解for each 的用法，我特意在moon的基础上修改成用for each。
在修改的过程中，我不得不佩服moon的确很厉害！这种思路是我目前看到的最简捷的。从moon那也学到了不少，顺便谢谢moon！
583802

For Each sh In Worksheets
   If sh.Name <> "外在本就读花名册" Then
      bb = Sheets("外在本就读花名册").[b65536].End(xlUp).Row + 1
      aa = Sheets(sh.Name).[b65536].End(xlUp).Row
      Sheets(sh.Name).Range("b3:b" & aa).Copy    这句是复制B3到B至aa行的区域
      Sheets("外在本就读花名册").Cells(bb, 2).PasteSpecial (xlPasteValues) 粘贴到这个工作表的第一个为空的第2列,Pastespecial(xlPasteValues) 是不是就是只粘贴的是内空,这样就不会把底色抹去? 我当时是抹去的又重新上色,真是笨呀.    End If
Next

moon2778 · 发表于 2009-9-14 19:10

原帖由 zznjcs 于 2009-9-14 19:07 发表

For Each sh In Worksheets
   If sh.Name  "外在本就读花名册" Then
      bb = Sheets("外在本就读花名册")..End(xlUp).Row + 1
      aa = Sheets(sh.Name)..End(xlUp).Row
      Sheets(sh.Name ...

其实就是这个道理

zyh196712 · 发表于 2009-9-14 19:16

“'撰写:38度:老朽
'日期:2009-7-1 上午 11:40:59
Sub 求1到10000之间奇数和2()
Dim I&, J&
For I = 10000 To 1 Step -2
J = J + I”
对于以上的定义变量，虽然我看了贴子，还是不明白，能否讲解下，谢谢！
问题：Dim I&, J&，&是文体连接符，为什么这样用，是什么意思？

zyh196712 · 发表于 2009-9-14 19:32

楼主一定好忙吧！
弱弱地问下：
第一个问题：[除法计算]错误代码！的代码哪里出错了，能用Select Case语句吗？
第二个问题：“[我的工程]信息录入！”我想在录入完信息，按确定后光标直接返回到姓名框中，不知如何写代码。
第三个问题：“[我的工程]信息录入！”中，我希望在录入数据后，单元格的边框线会自动随着数据的增加而增加，无须设置。唉，我曾经用函数和条件格式设置过，但现在忘了怎么做，试了很久都不成功！失败呀！

除法计算zyh196712.rar (7.98 KB, 下载次数: 168)

我的工程--zyh196712.rar (15.85 KB, 下载次数: 138)

zznjcs · 发表于 2009-9-14 20:17

untitled.zip (34.25 KB, 下载次数: 86)
为什么我想在窗体中加入图片的时候总是加不进去,
提示文件太大,我把文件缩到3KB还是不可以,
请问文件最大允许多少?

jiminyanyan · 发表于 2009-9-14 23:13

原帖由 zyh196712 于 2009-9-14 19:16 发表
“'撰写:38度:老朽
'日期:2009-7-1 上午 11:40:59
Sub 求1到10000之间奇数和2()
Dim I&, J&
For I = 10000 To 1 Step -2
J = J + I”
对于以上的定义变量，虽然我看了贴子，还是不明白 ...

Dim i&, j&, max&, maxi&, maxj&
用类型说明符声明变量的方式
&是Long的类型说明符
是dim ...as ...的简化写法
常用类型说明符
% integer
& long
! single
# Double
$ string
@ currency

美人计 · 发表于 2009-9-14 23:38

大家都好专业哦
GGSMART好厉害,说的很通俗了
不过，我的进度还是有限，作个记号:第八页了

我的目标是,了解和基本能使用这些基础的控制过程语句.最终目标是能看懂别人写的代码.
我的习惯是把别人写的代码自己需要常用的存起来.(汗!我这不求上进的家伙!!!)

zyh196712 · 发表于 2009-9-14 23:48

原来是这样啊！谢谢！收藏了。

		自动登录	找回密码
密码			免费注册

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

这个问题纠缠不清

帮我看看代码，哪出错了

评分

回复 508楼 jiminyanyan 的帖子

浏览过的版块