故事的开头是这样的，工作中每一个项目文件夹基本 都需要一些相同名称的文件夹，每一次都去新建或者修改比较麻烦，于是就想着能不能批量创建呢，技术有限，只想到了批处理和excel vba，下面就是vba的使用过程：

Sub makedir()
Dim i&, p1$, p2$
On Error Resume Next
If MsgBox("请确认项目号和文件存储路劲都已填写？", vbYesNo, "请确认") = vbYes Then
If Range("b1") = "" Then MsgBox "项目号不能为空": End
If Range("b2") = "" Then MsgBox "文件存储路径不能为空": End
p1 = Cells(2, 2) & "" & Cells(1, 2) & Cells(1, "d")
'f1 = Dir(p1, vbDirectory)
'If f1 Is Nothing Then
MkDir p1
For i = 3 To Range("b1").End(xlDown).Row
p2 = Cells(2, 2) & "" & Cells(1, 2) & Cells(1, "d") & "" & Cells(i, 2)
MkDir p2
Next
MsgBox "文件夹已生成"
End If
Exit Sub
End Sub

[bdbtn]https://i.wstary.com/files/shares/excel/vba%E5%B7%A5%E5%85%B7_%E6%89%B9%E9%87%8F%E5%88%9B%E5%BB%BA%E6%96%87%E4%BB%B6%E5%A4%B9.xlsm[/bdbtn]

vba之前看过两天书，现在早就还回去了，全靠搜索引擎：

1. 怎样用msgbox()函数输出变量又同时输出文本？

   MsgBox ("你已点击了" & n & "次鼠标")注意空格,两个&的前后都要加空格/度娘

2. Dim i% Dim i& 表示什么意思？

   整型（Integer，表示-32768至32767之间的整数）长整型（Long，表示-2,147,483,648至2,147,483,647之间的整数）整型可以用“%”代替 长整型可以用“&”代替所以可以定义成Dim i& 或者定义成Dim i% 其他隐式说明% integer 整型& long 长整型$ string 字符串! single 单精度浮点..

3. 当前路径下自动建立文件夹

   参见：excelhome

4. 系统弹出对话框确认需要怎么写

   ' 这是点击自定义的“退出”按钮实现的例子，原文：excelhome
   Private Sub cmdExit_Click()
   If MsgBox("是否保存?", vbYesNo, "请选择") = vbYes Then
   ··········
   End If
   End Sub

   </li>

    <li>
   关于Xldown和Xlup的用法
   
   
   
   
   搜索引擎，可参见<a href="https://www.yuanzifan.com/4665.html">此文</a>
   </li>
    <li>
   单元格区域引用方式的小结
   
   
   
   
   <a href="https://www.cnblogs.com/huhewei/p/9039140.html">参考此文</a>
   </li>
    <li>
   vb中如何用msgbox输出变量呢？
   
   
   
   
   i=2

   msgbox i
   把引号去掉,否则就是输出 i ,这个字符而不是 i所代表的变量值