<pre id="b4e94"><label id="b4e94"><menu id="b4e94"></menu></label></pre><pre id="b4e94"><label id="b4e94"><xmp id="b4e94"></xmp></label></pre>
<acronym id="b4e94"><label id="b4e94"></label></acronym>
<p id="b4e94"><del id="b4e94"><xmp id="b4e94"></xmp></del></p>
<acronym id="b4e94"></acronym>
  • <table id="b4e94"></table> <p id="b4e94"></p>

    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

    工程機械租賃哪家最好

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

    后入大龄熟妇呻吟高潮迭起

    <pre id="b4e94"><label id="b4e94"><menu id="b4e94"></menu></label></pre><pre id="b4e94"><label id="b4e94"><xmp id="b4e94"></xmp></label></pre>
    <acronym id="b4e94"><label id="b4e94"></label></acronym>
    <p id="b4e94"><del id="b4e94"><xmp id="b4e94"></xmp></del></p>
    <acronym id="b4e94"></acronym>
  • <table id="b4e94"></table> <p id="b4e94"></p>