標題: [發問] Excel VBA 請益 [打印本頁]

---

作者: zz0660    時間: 2021-8-5 00:14     標題: Excel VBA 請益

本帖最後由 zz0660 於 2021-8-5 00:15 編輯

[attach]33838[/attach]
[attach]33839[/attach]

有兩個工作表，一個AA，另一個ZZ，AA工作表的M1為下拉選單(1~10)的數字，當AA 工作表的儲存格O10或P10或Q10或R10(四個格子只有其中一個會有值)，有值時當M1下拉選單=1時，就將值傳到ZZ的K4&K5的儲存格。

當M1下拉選單=2時，就將值傳到ZZ的K6&K7的儲存格，如下圖所示。
[attach]33835[/attach]
[attach]33836[/attach]

當M1下拉選單=3時，就將值傳到ZZ的K8&K9的儲存格。

附檔案 [attach]33837[/attach]

---

作者: singo1232001    時間: 2021-8-5 15:13

[attach]33841[/attach]回復 1# zz0660

---

作者: singo1232001    時間: 2021-8-6 05:55

回復 1# zz0660


    昨天少加了一個 過濾
重傳檔案一次[attach]33843[/attach]

---

作者: ML089    時間: 2021-8-6 11:01

ALT-F11 開啟VB編輯
選擇 工作表1(AA) 貼上下列程式

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "M1" Then
        For Each xV In Range("O10:R10")
            If xV > 0 Then
                [ZZ!K4:K99] = ""
                [ZZ!K4].Offset((Target.Value - 1) * 2).Resize(2) = xV
            End If
        Next
    End If
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)