返回列表 上一主題 發帖

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

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

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


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

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

TOP

回復 2# xyz66217

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

TOP

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

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

TOP

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

TOP

        靜思自在 : 稻穗結得越飽滿,越會往下垂,一個人越有成就,就要越有謙沖的胸襟。
返回列表 上一主題