21.突出顯示所選數(shù)據(jù)集中的空白單元格雖然可以使用條件格式或“轉(zhuǎn)到特殊”對話框突出顯示空白單元格，但如果必須經(jīng)常這樣做，最好使用宏。 創(chuàng)建后，你可以將代碼保存在個人宏工作簿中。 Sub HighlightBlankCells() Dim Dataset As Range Set Dataset = Selection Dataset.SpecialCells(xlCellTypeBlanks).Interior.Color = vbRed End Sub 在這個代碼中，指定了紅色單元格中要突出顯示的空白單元格。 22.按單列對數(shù)據(jù)排序可以使用下面的代碼按指定列對數(shù)據(jù)排序。 Sub SortDataHeader() Range('DataRange').Sort Key1:=Range('A1'), Order1:=xlAscending, Header:=xlYes End Sub請注意，我創(chuàng)建了一個名為“datarange”的命名范圍，并使用它來代替單元格引用。 這里還使用了三個關(guān)鍵參數(shù)：參照之前的文章 23.按多列對數(shù)據(jù)排序下面是將根據(jù)多個列對數(shù)據(jù)排序的代碼（A列先排序，在進行B列排序）。 Sub SortMultipleColumns() With ActiveSheet.Sort .SortFields.Add Key:=Range('A1'), Order:=xlAscending .SortFields.Add Key:=Range('B1'), Order:=xlAscending .SetRange Range('A1:C13') .Header = xlYes .ApplyEnd With End Sub 注意，這個代碼指定了首先根據(jù)A列排序，然后根據(jù)B列排序 24.如何只從字符串中獲取數(shù)字部分如果只從字符串中提取數(shù)字部分或文本部分，則可以在VBA中創(chuàng)建自定義函數(shù). 然后，您可以在工作表中使用這個vba函數(shù)（就像普通的Excel函數(shù)一樣），它將只從字符串中提取數(shù)字或文本部分. 下面是將創(chuàng)建函數(shù)從字符串中提取數(shù)字部分的VBA代碼: Function GetNumeric(CellRef As String) Dim StringLength As Integer StringLength = Len(CellRef) For i = 1 To StringLength If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1) End If Next i GetNumeric = Result End Function 您需要將代碼放入模塊中，然后可以在工作表中使用函數(shù)'=GetNumeric'. 此函數(shù)只接受一個參數(shù)，即要從中獲取數(shù)值部分的單元格的單元格引用。 25.總是在激活特定選項卡的情況下打開工作簿如果要打開一個工作簿，該工作簿總是在特定工作表的情況下打開，則可以使用以下代碼。 當您希望在工作簿打開時激活指定工作表時，這將非常有用。 Private Sub Workbook_Open() Sheets(“Sheet1”).Select End Sub 請注意，此代碼需要放在ThisWorkbook對象的“代碼”窗口中 這意味著當您在VB編輯器中時，需要雙擊此工作簿對象并復(fù)制粘貼其中的代碼。 |
|
|
