[發問] {請益} 下拉式選單有內容資料，如何用VBA或其他方式呈現數據在特定顏色表格內?

zz0660

Excel內的 i3位置有下拉式選單內容為: 1~5
分別對應 B9~N9的表格顏色
假設在i3的下拉式選單選擇1，則對應到B9的位置，依照顏色填入數據?
如下圖↓

下載 (284.68 KB)

2024-6-13 23:06

附檔案，請大大協助，謝謝~!
ppp.rar (21.85 KB)

下載次數: 6

2024-6-13 23:07

准提部林

Sub Test_a1()
Dim xA As Range
Set xA = Cells(9, [i3] * 3 - 1)
xA(3, 2).Resize(4) = [j3:j6].Value
xA(10) = [L3].Value '
xA(11, 3) = [L5].Value
End Sub

xyz66217

這種有規律的，再稍微推敲一下，可以得到公式

Sub test()
    input_button = Cells(3, 9)
    a = 2
    a = input_button + (input_button * a)
    c = 11
    For b = 3 To 6
        Cells(c, a) = Cells(b, 10)
        Cells(18, a - 1) = Cells(3, 12)
        Cells(19, a + 1) = Cells(5, 12)
        c = c + 1
    Next b
End Sub

zz0660

回復 2# xyz66217

感謝大大回答，您提供的程式沒有問題，只是跟我要的是相反的，所以我把Cells(b, 10) = Cells(c, a)  改成  Cells(c, a) = Cells(b, 10)，就變成我要的樣子。
不過還缺少L3跟L5，這兩個數值。

xyz66217

不知道是不是你要的??　　
如果只是填入數值，用這個。   如果要連顏色都變，就改成 copy & paste

Sub test()
    input_button = Cells(3, 9)
    a = 2
    a = input_button + (input_button * a)
    c = 11
    For b = 3 To 6
        Cells(b, 10) = Cells(c, a)
        c = c + 1
    Next b
End Sub