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

草根糖

谢谢老师，经过您修改后，更完美了~！
之前的不能实现是因为少了s=s+……
我真是苯的可以，不知道变通，呵呵~

lanjian2036_cn

学习到用户窗体了

qjcyj

我是一个老菜鸟，我也学学VBA

zznjcs

原帖由 ggsmart 于 2009-9-16 13:26 发表

你是指Picture属性吗？貌似直接修改就可以了啊。不过我可能没明白！
585271

真是不好意思,我前面用的方法不正确,现在对了,在picture后面点一下再选就OK了.
多谢.

zznjcs

唉呀,真不容易呀,我也用数组做了一个汇总.
不过是模仿楼主做的.
我发现楼主的代码有的地方没看懂.
s1 = [b65536].End(xlUp).Row      "这句后面没有用到"
  '************
   For Each sh In Worksheets
    If sh.Name <> ActiveSheet.Name Then s = s + sh.[b65536].End(xlUp).Row - 2
  Next              这个循环中的IF语句怎么没有end if , 但我做的没有就不行.
  '*************

故事

请教一下叶枫，在登录窗体中，我觉得
Private Sub 用户名_Change()
      If 用户名.Text = Sheets("系统").Range("b2") And 密码.Text = Sheets("系统").Range("c2") Then
            CommandButton1.Enabled = 1
            CommandButton2.Enabled = 2
      End If
End Sub
这一段代码用了没什么意义，省去了效果也是一样？能解释一下为什么要使用这段代码吗？

zznjcs

原帖由 故事 于 2009-9-17 07:46 发表
请教一下叶枫，在登录窗体中，我觉得
Private Sub 用户名_Change()
      If 用户名.Text = Sheets("系统").Range("b2") And 密码.Text = Sheets("系统").Range("c2") Then
            CommandButton1.Enabled = ...

我也跟一个问题,"系统"这个工作表怎么看不到? 是隐藏了吗?

故事

是隐藏了，取消隐藏就行了。

草根糖

s1 = [b65536].End(xlUp).Row      "这句后面没有用到"
  '************
   For Each sh In Worksheets
    If sh.Name <> ActiveSheet.Name Then s = s + sh.[b65536].End(xlUp).Row - 2
  Next              这个循环中的IF语句怎么没有end if , 但我做的没有就不行.
  '*************

s1=…… 这句是多余的，可以删除。
if …… then……后面的语句在一行的话，可以不用end if；而回车换行后就需要end if。这是测试的结果，什么道理我也不是很明白，呵呵。

zznjcs

还是要多试呀,明白了.