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

---

作者: zz0660    時間: 2024-6-13 23:07     標題: {請益} 下拉式選單有內容資料，如何用VBA或其他方式呈現數據在特定顏色表格內?

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

附檔案，請大大協助，謝謝~!
[attach]37787[/attach]

---

作者: xyz66217    時間: 2024-6-14 04:49

不知道是不是你要的??　　
如果只是填入數值，用這個。   如果要連顏色都變，就改成 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

---

作者: zz0660    時間: 2024-6-14 07:55

回復 2# xyz66217

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

---

作者: xyz66217    時間: 2024-6-14 09:36

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

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

---

作者: 准提部林    時間: 2024-6-22 14:27

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

---

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