VBA常用技巧代码解析

bird_497 · 发表于 2009-4-23 11:42

谢谢lz咯，初学菜鸟，先留着~~~~~

news30 · 发表于 2009-4-23 14:02

帮了很大的忙啊o(∩_∩)o...谢谢了

rtian · 发表于 2009-4-23 14:46

下载链接呢?

jszx009 · 发表于 2009-4-23 16:21

好，帮助太大了！！！！！！！！

w0d1eh · 发表于 2009-4-23 18:10

谢谢分享!学习！学习！

xuyingying · 发表于 2009-4-23 19:27

IF($A4=0,0,IF($A4="合计",SUM(H$3:H3),SUMPRODUCT(($A4=bh)*(MONTH(rq)=$K$1)*rs)))
请老师看看这条是什么意思

w0d1eh · 发表于 2009-4-23 19:59

学习让人进步，分享使人快乐！

radishy · 发表于 2009-4-23 21:04

内容相当丰富，能做成一本书就好了!~

gz46527532 · 发表于 2009-4-24 09:10

Private Sub CommandButton1_Click()
Dim x As Integer
x = Sheets("提货单格式").Range("f65536").End(xlUp).Row + 3 '取得第一个空行的位置
With Sheets("提货单格式")
      .Cells(8, 7) = TextBox1.Text  '
      .Cells(11, 4) = TextBox2.Text
      .Cells(11, 15) = TextBox3.Text

End With

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""

MsgBox "输入完毕！"

End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub Label1_Click()

End Sub

此代码为什么出现运行错误呢

gz46527532 · 发表于 2009-4-24 09:14

出现运行错误,如何调试呢

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