EXCEL VBA 查詢

假設你的組合框控件名稱為ComboBox1 。
可以在組合框控件ComboBox1的更新事件中寫如下代碼（把代碼放在vba的“發票錄入”下）：
Private Sub ComboBox1_Change()
' 把組合框ComboBox1選定值的前兩位加上00賦值給變量a
' 變量a就是組合框ComboBox1選定值對應的二級分類的前四位
a = Left(Me.ComboBox1.Value, 2) & 00
' 循環表“分類號”的每個數據行
For i = 1 To Sheets(分類號).UsedRange.Rows.Count
' 如果表“分類號”中第二列（【分類號】所在的列）單元格值的前四位等于變量a
If Left(Sheets(分類號).Cells(i, 2), 4) = a Then
' 表“發票錄入”的F2單元格等于表“分類號”中第二列、第 i 行的值
' 你可以自己修改 Cells(2, 6) 單元格地址，以便結果顯示在“發票錄入”的合適位置
Cells(2, 6) = Sheets(分類號).Cells(i, 2)
End If
Next i
End Sub

工程機械租賃哪家最好

工程機械租賃，還是上海潤石工程機械好。龐大的專家團隊，先進的技術設備。實惠的價格。讓你的租賃無憂無慮。。。