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

lin3197131264 · 发表于 2022-3-2 14:46

哪里有系统的视频教学吗，看到好多版本，小菜鸟表示有点晕

李波001 · 发表于 2022-3-19 11:16

谢谢，看完了，值得深入学习

jhzlh · 发表于 2022-3-27 10:53

非常感谢无私奉献

ibmchenyao · 发表于 2022-3-31 21:49

谢谢啦，正在学习中

gerogeedward · 发表于 2022-4-4 21:14

可以
可以
可以
可以
可以
可以
可以

yonchi · 发表于 2022-4-5 17:02

好贴！收藏了以后慢慢学习。

东木a · 发表于 2022-4-6 23:21

ggsmart 发表于 2009-8-16 14:40
用户窗体
-----------------------
　　用户窗体(UserForm对象)是VBA的另一类对象。它表现出来是一个窗口 ...

回到窗体，双击按钮，切换到代码模式，在左面“对象列表”中选择对象“确定”，右面事件列表中选择事件“Click”，将Sub与End Sub之间输入代码MsgBox "文字框里输入的内容是：" & 内容.Value。回到设计模式下，按F5键，再次运行窗体，在文字框里输入内容，单击“完成”。
为什么我左边的窗体没有“确定”选项啊？？

熊文来 · 发表于 2022-4-11 19:56

trustwxq 发表于 2009-10-1 09:25
无限循环的问题，和多个单元格内容添加、删除的问题已经解决，特别是添加时将一列代码向I列复制后，乡镇名 ...

看不懂。太深了。

熊文来 · 发表于 2022-4-11 19:57

trustwxq 发表于 2009-10-1 09:46
当单元格内输入非单个字母，非空的内容是，他不变，应该在
ElseIf str1 = "" Then
rng1.Off ...

这一段代码加在哪里呢？可否把最终的文件重新上传一份学习使用

zkhnzxj · 发表于 2022-4-18 21:52

本帖最后由 zkhnzxj 于 2022-4-19 21:06 编辑

ggsmart 发表于 2009-8-25 12:21
[试一试]对花名册进行分类

Sub °′Å￥14_Click()
For i = 2 To 8
      Sheets(i).Range("a3:L107").ClearContents
Next

Dim maxrow As Long
For xh = 3 To [h65536].End(xlUp).Row
      If Range("h" & xh) = "ÇåÕò" Then
         u = Range("i" & xh)
         max_k = Sheets(u).[a65536].End(xlUp).Row + 1
         Cells(xh, 1).Resize(1, 12).Copy Sheets(u).Cells(max_k, 1)
      Else
         u = "ÇåÕòêDía"
         max_k = Sheets("ÇåÕòêDía").[a65536].End(xlUp).Row + 1
         Cells(xh, 1).Resize(1, 12).Copy Sheets(u).Cells(max_k, 1)
      End If
Next
End Sub

刚接触VBA，比照教程做了一个练习，功能正常实现，但是其中有一点不明白，望各位大神指教。（代码中红色部分）

如果我把"u"替代进入表达式，结果就提示错误，不明白，明明是一样的，为什么非要用一个变量（U）过渡一下呢？（如下句）
max_k = Sheets(Range("i" & xh)).[a65536].End(xlUp).Row + 1

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

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

已经自己解决！