msgbox(msgbox代码)

前沿拓展：

msgbox

D其函数的结求措状云西环工征格式为： MsgBox(Prompt[，buttons][，title][，helpfile，context])函数的第二个参数是数值表达式，不仅仅确定按钮的数目，还指定按钮的类型及图标的样式，所以选项D)为正确**。

平时工作中经常要用到EXCEL表格拆分数据,拆分数据可以有好多方法,这里我说一下用VBA来实现,比如下图是基础数据:

这份表的数据有可能有几万行或者更多,当然我们可以手工筛选,**,粘贴之类的,可是要拆分的类别非常多的情况下,要点到手痛.比如按订单拆分.话不多说,上代码吧.下面的代面可以实现按任意字段列拆分,比如按订单编号拆分就输入:1,按系列分就输入:7.

Sub 拆分数据()

Dim sht As Worksheet
Dim k, i, j As Integer
Dim irow As Integer
Dim l As Integer
Dim str As String

str = ActiveSheet.Name

l = InputBox("请输入你要按哪列分")

'删除无意义的表
Application.DisplayAlerts = False
If Sheets.Count > 1 Then
For Each sht1 In Sheets
If sht1.Name <> str Then
sht1.Delete
End If
Next
End If
Application.DisplayAlerts = True

irow = Sheets(str).Range("a65536").End(xlUp).Row
'拆分表
For i = 2 To irow
k = 0
For Each sht In Sheets
If sht.Name = Sheets(str).Cells(i, l) Then
k = 1
End If
Next

If k = 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets(str).Cells(i, l)
End If

Next
'拷贝数据

For j = 2 To Sheets.Count
Sheets(str).Range("a1:z" & irow).AutoFilter Field:=l, Criteria1:=Sheets(j).Name
Sheets(str).Range("a1:z" & irow).Copy Sheets(j).Range("a1")
Next

Sheets(str).Range("a1:z" & irow).AutoFilter

Sheets(str).Select

MsgBox "处理完毕!"

End Sub

我们按系列来拆分,点"拆分数据"按钮,输入7.就会自动按系列拆分并建立对应分表.效果如下:

拓展知识：

msgbox

错。

MsgBox不能输入用户信息。

“通过Msgbox函数可以设置信息框中图标和按钮的类型 ”好像应该是“Msgbox函数通过设置函数参数设定对话框中图标和按钮的类型 ”。

在对话框中作为消息显示的字符串表达式。 Prompt的最大长度大约为 1024 个字符，具体取决于使用的字符的宽度。如果提示是由多行组成的可以单独的行使用一个回车符 (Chr (13))，一个换行符 (Chr (10))，或回车换行符的字符组合 (Chr (13) & Chr (10)) 每行之间。

在提供了Helpfile与Context参数的时候，用户可以按F1来查看由Context参数指定的帮助主题。像Microsoft Excel这样的一些主机应用程序就会在对话框中自动添加一个帮助按钮。

如果对话框显示“取消”按钮，则按下Esc键与单击“取消”按钮的效果相同。如果对话框中有帮助按钮，则对话框中提供与上下文相关的帮助。但是，直到其它按钮中有一个被单击之前，都不会返回任何值。

参考资料来源：百度百科-msgbox

原创文章，作者：九贤生活小编，如若转载，请注明出处：http://www.wangguangwei.com/41783.html