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

hg908 · 发表于 2009-9-4 21:32

楼主辛苦了，留个脚印学学！

samcruise · 发表于 2009-9-4 21:43

呵呵，正在找啊，谢谢分享

垂拱平章 · 发表于 2009-9-5 05:48

好！好东东。我看了几本书，都没有这里易懂。

alex1437 · 发表于 2009-9-5 15:21

我与了一个循环来求和，但不知错在哪，请老师指点。谢谢！

ggsmart · 发表于 2009-9-5 17:44

原帖由 alex1437 于 2009-9-5 15:21 发表
我与了一个循环来求和，但不知错在哪，请老师指点。谢谢！

按你的思路修改了一下：

Private Sub CommandButton1_Click()
x = 2
For y = 1 To 3
m = 0
For i = 2 To Sheets.Count
m = m + Sheets(i).Cells(1, y)
Next
Cells(x, 2) = m
x = x + 1
Next
End Sub

复制代码

一分之一 · 发表于 2009-9-5 20:59

太谢谢你了

一分之一 · 发表于 2009-9-5 20:59

真的讲述的非常好，你可以出书了，谢谢你啊

alex1437 · 发表于 2009-9-5 22:06

谢谢老师的指点。这是我的原始数据，能否帮我把7个FOR循环语句合成一个呀？？
成分感谢！！

飞云楼主 · 发表于 2009-9-6 12:45

循循善诱，不错，谢谢老师的传授。

wungg · 发表于 2009-9-6 13:40

谢谢楼主的分享,受益匪浅。
请问楼主下列代码的意思，谢谢！！！
  Set vMaster = vMasters.Item(sMasterName)
      Set vShape = pagobj.Drop(vMaster, mm2inch(xpos + breite / 40), mm2inch(ypos))
      vShape.Cells("Prop.Nummer").Formula = Chr(34) & No & Chr(34)
      vShape.Cells("Prop.Name").Formula = Chr(34) & Name & Chr(34)
      xpos = xpos + breite / 20
      z = z + 1

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

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

请老师帮忙

回复 6楼 ggsmart 的帖子