隨著手機(jī)功能的不斷豐富，我們的生活變得更加便利。那么，在電腦上，怎樣使用VBA用組合框打造增強(qiáng)型數(shù)據(jù)有效性呢？ 步驟一：打開VBA編輯器 首先，在Excel中打開開發(fā)工具，然后點(diǎn)擊“Visual

隨著手機(jī)功能的不斷豐富，我們的生活變得更加便利。那么，在電腦上，怎樣使用VBA用組合框打造增強(qiáng)型數(shù)據(jù)有效性呢？

步驟一：打開VBA編輯器

首先，在Excel中打開開發(fā)工具，然后點(diǎn)擊“Visual Basic”按鈕，打開VBA編輯器。

步驟二：輸入示例內(nèi)容

在Excel的單元格區(qū)域中輸入一些內(nèi)容作為例子，以便我們后續(xù)操作時(shí)可以進(jìn)行測(cè)試。

步驟三：插入模塊并編寫代碼

在VBA編輯器中插入一個(gè)新的模塊，然后在該模塊中輸入以下代碼：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    With 
        If  > 1 Then
            .Visible  False
            Exit Sub
        End If
        If  < 4 Then
            .Visible  True
            .Left  Target.Left
            .Width  Target.Width
            .Top  
            .ListFillRange  "E2:G13"
            .LinkedCell  
            .BoundColumn  
            .ListIndex  0
            .Width  100
            .ColumnWidths  "30;30;30"
        Else
            .Visible  False
        End If
    End With
End Sub

步驟四：測(cè)試組合框的功能

保存并運(yùn)行代碼后，點(diǎn)擊組合框的下拉箭頭，可以看到組合框彈出了一個(gè)列表，該列表的數(shù)據(jù)與引用區(qū)域中的數(shù)據(jù)相同。

現(xiàn)在，你已經(jīng)成功使用VBA代碼創(chuàng)建了一個(gè)增強(qiáng)型的數(shù)據(jù)有效性組合框。這個(gè)組合框可以根據(jù)所選單元格的列數(shù)動(dòng)態(tài)顯示和隱藏，并根據(jù)所選單元格的不同列，顯示不同的數(shù)據(jù)列表。