當前位置:編程學習大全網 - 編程語言 - 如何通過Excel vba代碼快速得到想要的數據表?

如何通過Excel vba代碼快速得到想要的數據表?

在使用Excel的過程中,我們可能會遇到這個問題。壹個工作簿有幾十個工作表,因此,這些工作表的順序不符合要求。我們想快速對這些工作表進行排序。妳有什麽好方法解決這個問題嗎?

復雜的問題還是要用vba代碼解決。alt+f 11-雙擊本書-打開工作簿的代碼編輯框。

復制以下代碼。

子毫升()

Dim sht作為工作表,k & amp

[答:答] = " "

清除a列數據。

[a1] = "目錄"

k = 1

對於工作表中的每個sht

遍歷工作簿中的每個工作表。

k = k + 1

累積k值

Cells(k,1) = sht。名字

將工作表名稱依次放入表格的A列。

然後

末端接頭

在開發人員選項中插入壹個按鈕。什麽!為什麽妳的軟件沒有這個標簽頁?看到我的下壹次經歷,妳就會知道如何讓它出現。

繪制按鈕框後,軟件會讓您為其指定宏代碼。當然,您選擇生成壹個目錄。

點擊獲取目錄(我改名了,或者給我留言),目錄就神奇的產生了。

對目錄進行篩選和排序,或者手動排序。

然後在代碼編輯框中輸入這些代碼。

子排序表()

Dim sht作為工作表,shtname$,i & amp

Set sht = ActiveSheet

將變量sht設置為當前活動的工作表,即目錄。

對於i = 2到sht。單元格(行。計數,1)。結束(3)。排

遍歷工作表A列中的數據,A1除外。

shtname = sht。單元格(I,1)

將a列的值賦給字符串變量shtname。

工作表(shtname)。移動到:=張(i - 1)

依次移動工作表。

然後

噓。使活動

重新激活目錄。

末端接頭

然後繪制壹個按鈕來指定sortsheet。

這是更改按鈕名稱後發生的情況。按下按鈕。

神奇的事情發生了,工作表實際上改變了順序。

  • 上一篇:計算機病毒的傳播途徑有哪些
  • 下一篇:2022年的電腦主機
  • copyright 2024編程學習大全網