前沿拓展：
msgbox
D其函數(shù)的結(jié)求措狀云西環(huán)工征格式為： MsgBox(Prompt[，buttons][，title][，helpfile，context])函數(shù)的第二個參數(shù)是數(shù)值表達式，不僅僅確定按鈕的數(shù)目，還指定按鈕的類型及圖標(biāo)的樣式，所以選項D)為正確**。
平時工作中經(jīng)常要用到EXCEL表格拆分?jǐn)?shù)據(jù),拆分?jǐn)?shù)據(jù)可以有好多方法,這里我說一下用VBA來實現(xiàn),比如下圖是基礎(chǔ)數(shù)據(jù):
這份表的數(shù)據(jù)有可能有幾萬行或者更多,當(dāng)然我們可以手工篩選,**,粘貼之類的,可是要拆分的類別非常多的情況下,要點到手痛.比如按訂單拆分.話不多說,上代碼吧.下面的代面可以實現(xiàn)按任意字段列拆分,比如按訂單編號拆分就輸入:1,按系列分就輸入:7.
Sub 拆分?jǐn)?shù)據(jù)()
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
'拷貝數(shù)據(jù)
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
我們按系列來拆分,點"拆分?jǐn)?shù)據(jù)"按鈕,輸入7.就會自動按系列拆分并建立對應(yīng)分表.效果如下:
拓展知識：
msgbox
錯。
MsgBox不能輸入用戶信息。
“通過Msgbox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類型 ”好像應(yīng)該是“Msgbox函數(shù)通過設(shè)置函數(shù)參數(shù)設(shè)定對話框中圖標(biāo)和按鈕的類型 ”。
在對話框中作為消息顯示的字符串表達式。 Prompt的最大長度大約為 1024 個字符，具體取決于使用的字符的寬度。如果提示是由多行組成的可以單獨的行使用一個回車符 (Chr (13))，一個換行符 (Chr (10))，或回車換行符的字符組合 (Chr (13) & Chr (10)) 每行之間。
在提供了Helpfile與Context參數(shù)的時候，用戶可以按F1來查看由Context參數(shù)指定的幫助主題。像Microsoft Excel這樣的一些主機應(yīng)用程序就會在對話框中自動添加一個幫助按鈕。
如果對話框顯示“取消”按鈕，則按下Esc鍵與單擊“取消”按鈕的效果相同。如果對話框中有幫助按鈕，則對話框中提供與上下文相關(guān)的幫助。但是，直到其它按鈕中有一個被單擊之前，都不會返回任何值。
參考資料來源：百度百科-msgbox
原創(chuàng)文章，作者：九賢生活小編，如若轉(zhuǎn)載，請注明出處：http://xiesong.cn/41783.html
相關(guān)推薦
-
i2769v怎么樣，i2769v使用評測
i2769v的分辨率是多少？ i2769v的分辨率為1920×1080，屏幕大小為27英寸。 i2769v的響應(yīng)時間是多少？ i2769v的響應(yīng)時間為4ms。 i2769v能不能旋…
-
2014主機配置單(2000元電腦主機配置單)
2014年主機配置單 2014年，計算機科技已經(jīng)在一個全新的高度發(fā)展著，各類電子產(chǎn)品都在日新月異地升級著，而主機配置的水平也在不斷提升。在這個時期，一臺能夠滿足日常需求和工作需要的…
-
h81m-ds2主板(H81M-DS2主板bios掃描硬盤)
h81m-ds2主板(H81M-DS2主板bios掃描硬盤) 老鐵們好啊，今天小編給大家分享下我們在使用電腦過程中會遇到的一些問題故障該如何處理，熱門電腦游戲需求配置，電腦使用的一…
-
聯(lián)想m73：聯(lián)想m730Q主機參數(shù)
其實聯(lián)想m73：聯(lián)想m730Q主機參數(shù)的問題并不復(fù)雜，但是又很多的朋友都不太了解聯(lián)想m73：聯(lián)想m730Q主機參數(shù)，因此呢，今天小編就來為大家分享聯(lián)想m73：聯(lián)想m730Q主機參數(shù)的一些知識，希望可以幫助到大家，下面我們一起來看看這個問題的分析吧！有哪些反復(fù)看幾遍都不會膩的小說？韓劇的話，最近的《梨泰院class》不錯，男主看起來憨憨的，還有點傻白甜的感覺，不過在最新一集中，男
-
舊筆記本電腦怎么處理(十年前的舊筆記本電腦怎么處理)
筆記本電腦以舊換新方法？ 筆記本舊了，想換新。但是舊電腦又沒什么毛病，放著無價值，扔了可惜。這個時候可以選擇在網(wǎng)上提出申請，把舊電腦賣了再用賣掉的錢換新的！ 1.下載京東APP 2…
-
2000以下電腦主機配置(2000塊電腦主機配置)
背景介紹 隨著科技的不斷發(fā)展，電腦的性能得到了極大的提升。然而，隨著人們生活水平的提高，普通消費者除了要求性能高外，還要求價格盡可能的低廉。因此，2000元以下電腦主機的需求逐漸增…
-
amdx4860k需要什么主板，選擇適合amdx4860k的主板
能支持amdx4860k的主板需要滿足什么條件？ amdx4860k需要配備LGA1150接口，所以選購主板時需要注意支持LGA1150的主板，同時需要看清主板的芯片組，推薦使用支…
-
沒用的win10(沒用的東西)
前沿拓展： 沒用的win10 第一，電腦和手機安裝向日葵遠(yuǎn)程控制（客戶端），就可以用手機控制族樂守稱電腦。（手提電腦就不殺布許般做預(yù)菜拉哥紅用**作這個）。卸載掉感嘆號的U**驅(qū)動…
-
2015游戲筆記本電腦主流配置(現(xiàn)在筆記本電腦的主流配置是什么)
2015游戲筆記本電腦主流配置(現(xiàn)在筆記本電腦的主流配置是什么) 老鐵們好啊，今天小編給大家分享下我們在使用電腦過程中會遇到的一些問題故障該如何處理，熱門電腦游戲需求配置，電腦使用…
-
1000元電腦主機配置推薦(1000多的電腦主機配置)
選擇適宜的電腦主機 在目前的電腦市場上，除了筆記本電腦外，最常用的應(yīng)該就是臺式機了。臺式機是一種相對于筆記本電腦和平板電腦固定在桌面上的電腦形式，它有一個與顯示器分離的主機和一個可…