返回列表 上一主題 發帖

[發問] Excel VBA 請益

[發問] Excel VBA 請益

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

1.JPG
2021-8-5 00:15

2.JPG
2021-8-5 00:15


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

當M1下拉選單=2時,就將值傳到ZZ的K6&K7的儲存格,如下圖所示。
5.JPG
2021-8-5 00:13

6.JPG
2021-8-5 00:13


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

附檔案 QQA.rar (10.97 KB)

QQA.zip (20.71 KB) 回復 1# zz0660

TOP

回復 1# zz0660


    昨天少加了一個 過濾
重傳檔案一次 QQA v1.zip (17.58 KB)

TOP

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
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 能幹不幹,不如苦幹實幹。
返回列表 上一主題