vba 判断进行下次循环_VBA代码中Msgbox函数的美观排版效果及利用INPUTBOX函数实现人机对话的过程...

分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。NO.157-NO.158内容是：

NO.157：如何对MsgBox对话框的内容进行排版，达到美观的效果

NO.158：使用InputBox函数显示一个对话框供用户在对话框中输入数据

VBA过程代码157：如何对MsgBox对话框的内容进行排版，达到美观的效果

Sub mynz ()

Sheets("38").Select

Dim myMsg As String

Dim iRow As Integer

Dim iCom As Integer

For iRow = 1 To 11

For iCom = 1 To 5

myMsg = myMsg & Cells(iRow, iCom) & Chr(9)

Next

myMsg = myMsg & Chr(10)

Next

MsgBox myMsg

End Sub

代码的解析说明：mynz过程使用两层循环读取当前工作表中A1到E11单元格的内容，并用消息框显示出来。iCom循环中在把逐列读取的单元格内容赋给变量mysMsg时插入一个制表符（Chr(9)），对列进行分隔。iRow循环中在读取下一行单元格内容赋给变量myMsg时插入一个换行符（Chr(10)），对行进行换行。

VBA过程代码158：使用InputBox函数显示一个对话框供用户在对话框中输入数据

Sub mynz ()

Dim sInt As String

Dim r As Integer

r = Sheets("40").Range("A65536").End(xlUp).Row

sInt = InputBox("请输入添加人员的姓名：")

If Len(Trim(sInt)) > 0 Then

Sheets("40").Cells(r + 1, 1) = sInt

Else

MsgBox "您没有输入内容!"

End If

End Sub

代码的解析说明：mynz过程使用InputBox函数显示一个对话框供用户在对话框中输入数据，

使用InputBox函数显示一个提示用户输入邮政编码的对话框，其中“请输入添加人员的姓名：”是必需的 prompt参数，其他参数使用缺省值。使用Len函数和Trim函数判断返回的去除空格后的字符串长度。如果字符串长度大于零，说明用户单击了对话框的“确定”按钮，则将用户输入的数据写到工作表的A列单元格。如果返回的是长度为零的字符串，说明用户单击了对话框的“取消”按钮，则显示一条提示消息。

因为当用户单击对话框的“确定”按钮后，InputBox函数返回包含文本框内容的字符串，如果用户单击对话框的“取消”按钮则返回一个长度为零的字符串（""），通过返回的字符串长度可以判断用户做出的选择。

VBA实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA教程，这些是我多年编程经验的记录，也是我“积木编程”思想的体现。每一讲都是较大块的“积木”，可以独立的完成某些或者某类的过程，有需要的朋友可以联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。其一：“VBA代码解决方案”PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；其二“VBA数据库解决方案”PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。其三“VBA数组与字典解决方案”PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。其四“VBA代码解决方案”视频教程。目前正在录制，“每天20分钟，半年精进VBA”，越早参与，回馈越多。现在录制到第二册的90讲。