更改Excel中最後4個Excel工作表的選項卡顏色（VBA）

我從一個Perl腳本創建一個Excel電子表格，該腳本讀入多個文本文件以填充電子表格中的工作表。可以有不同數量的文本文件，因此可以創建不同數量的工作表。我想自動更改每個電子表格中LAST 4工作表的標籤顏色（如果有8個工作表創建，我想更改工作表5,6,7和8的標籤顏色。如果有9個工作表創建，我想要工作表6,7,8和9的更改選項卡顏色，等等）。先謝謝你。更改Excel中最後4個Excel工作表的選項卡顏色（VBA）

來源

2017-06-16 Billy J

問題是什麼？你遇到了一些具體問題嗎？如果您需要語法方面的幫助，那麼首先在Excel中錄製一個宏，同時更改標籤顏色，然後修改生成的代碼。 –

謝謝蒂姆。全部排序。 –

將下面的代碼在子......去年4張張

Dim numSheets As Long 
numSheets = ThisWorkbook.Sheets.Count

河套

獲取數。使用max以確保您訪問的有效圖紙編號（大於0）

Dim i As Long 
For i = Application.Worksheetfunction.Max(1, numSheets-3) To numSheets 
    ' change tab colour, use any RGB triplet 
    ActiveWorkbook.Sheets(i).Tab.color = RGB(230,255,100) 
Next i

來源

2017-06-16 23:02:01 Wolfie

非常感謝Wolfie。這正是我想要做的。請注意，我不得不將ThisWorkbook.Sheets.Count更改爲Application.Sheets.Count，因爲ThisWorkbook.Sheets.Count只給我1，這隻改變了第一張工作表的顏色。再次感謝！ –

更改Excel中最後4個Excel工作表的選項卡顏色（VBA）

回答

相關問題