精彩点评
-
有人推荐
通俗易懂，但内容太多，感觉还需要再读第二遍、第三遍……才能消化好。 全都是地基式的内容，非常适合初学者！
-
chenyu推荐
读了个开头和前几篇，感觉估计情节偏多，更多时候我们其实是有目的性的找东西[流汗][流汗][流汗] 给努力写故事的小编赞一个
-
富贵推荐
对新手特别适用，讲的都是最基本的知识。为以后的深入学习VBA打下了坚实的基础。
-
MaybeAlive推荐
通俗易懂的小书，VBA基础知识，后续更多还是要靠在线帮助文档~推荐
-
欧拉推荐
整体来说，比较适合 VBA 新手入门，但一些细节还需要仔细校验
-
周进哲推荐
好书，适合有一定excel函数基础的vba初段学员。我想一方面是学它本身的方法，用于实际工作以提高效率，但更重要的是学习编程的思维方式，以灵活运用这种思维方式。
-
^(oo)^推荐
算是一本初中级的教材，没有特别高深技巧，平平淡淡讲VBA讲给我们，能窥探VBA世界，不错不错。还是想要一本提升版书籍。
-
江边鸟(廖琴洪)推荐
一本值得经常接触excel并想提高工作效率的人士收藏和学习的好书！
-
Cyfer推荐
这个按钮相当于是快捷键，跟excel所所用的超链接应该是一个原理
-
光推荐
换了八百个姿势终于把书撸完一遍 到达入门阶段 学习痛苦又很爽，边学边在想要写一个快问快达的表格发给我妹，证明老妈最爱的是我
-
llc推荐
适合VBA入门，举的例子很生活化，简单易懂，但function和userform介绍得不够全面。
-
李东bbsky推荐
对于还没有学习VBA，以及不急着用VBA的朋友来说，VBA这门语言已经可以放弃了，去学Python吧。
-
欢乐马推荐
本人数据处理环境主要是linux+python。 听说excel考虑支持python作为官方语言。 特地来看看VBA能干什么。 结论是：VBA在操控excel图形交互上还是很有优势的。等官方支持python, VBA应该就逐渐式微了。
-
-_^推荐
实现效果：1.生成固定格式 2.无购买记录的不显示 3.根据单号判断快递公司 4.收件人不显示详细地址 5.利用拆分提取收件人名字 6.固定区域生成word文档并打开 Sub 格式() Dim i As Byte, c As Byte 'i是记录正在处理第几行 i = 2 'j是记录sheet2写到第几行了 j = 1 Do While Worksheets(1).Cells(i, "A") <> "" Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" j = j + 1 Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "u") j = j + 1 Dim str1 As String, str2 As String, str3 As String str1 = Worksheets(1).Cells(i, "D").Value str2 = Mid(str1, 1, 6) str3 = Split(str1, "，")(1) Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & str2 & " " & str3 j = j + 1 If Worksheets(1).Cells(i, "E") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "E") j = j + 1 End If If Worksheets(1).Cells(i, "F") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "F") j = j + 1 End If If Worksheets(1).Cells(i, "G") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "G") j = j + 1 End If If Worksheets(1).Cells(i, "H") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "H") j = j + 1 End If If Worksheets(1).Cells(i, "I") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "I") j = j + 1 End If If Worksheets(1).Cells(i, "J") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "J") j = j + 1 End If If Worksheets(1).Cells(i, "K") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "K") j = j + 1 End If If Worksheets(1).Cells(i, "L") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "L") j = j + 1 End If If Worksheets(1).Cells(i, "M") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "M") j = j + 1 End If If Worksheets(1).Cells(i, "N") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "N") j = j + 1 End If If Worksheets(1).Cells(i, "O") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "O") j = j + 1 End If If Worksheets(1).Cells(i, "P") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "P") j = j + 1 End If If Worksheets(1).Cells(i, "Q") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "Q") j = j + 1 End If If Worksheets(1).Cells(i, "R") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "R") j = j + 1 End If If Worksheets(1).Cells(i, "S") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "S") j = j + 1 End If If Worksheets(1).Cells(i, "T") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "T") j = j + 1 End If If Worksheets(1).Cells(i, "v") <> "" Then Dim str4 As String str4 = Worksheets(1).Cells(i, "V") If Mid(str4, 1, 2) = "30" Then Worksheets(2).Cells(j, "A").Value = "单号:" & str4 & "（安能）" ElseIf Mid(str2, 1, 2) = "31" Then Worksheets(2).Cells(j, "A").Value = "单号：" & str4 & "（韵达）" Else Worksheets(2).Cells(j, "A").Value = "单号：" & str4 & "（未知）" End If j = j + 1 End If If Worksheets(1).Cells(i, "C") <> "" Then Worksheets(2).Cells(j, "A").Value = "巴拉巴拉" & Worksheets(1).Cells(i, "C") j = j + 1 End If j = j + 1 i = i + 1 Loop Dim wdApp As Object, Docx As Object Worksheets(2).Range("A1:A2018").Copy fi = [c1] Set wdApp = CreateObject("Word.Application") wdApp.Visible = False Set Docx = wdApp.Documents.Add Docx.Content.Paste Docx.SaveAs "D:\巴拉巴拉.docx" Docx.Close wdApp.Quit Set wdApp = Nothing: Set Docx = Nothing Set wdApp = CreateObject("word.application") wdApp.Documents.Open ("D:\巴拉巴拉.docx") wdApp.Visible = True End Sub
-
蒋子文推荐
我哥有本实体书，我借来翻了几遍。但是书有时候不在身边、收藏下这个电子书。温故知新、常练常看。