返回列表 上一主題 發帖

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

zz0660

帖子
50 
主題
15 
精華
0 
積分
75 
點名
1  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2021-7-21 
最後登錄
2024-6-14 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 5 天前 23:07 | 只看該作者

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

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


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

xyz66217

帖子
4 
主題
0 
精華
0 
積分
52 
點名
6  
作業系統
win7 
軟體版本
excel 
閱讀權限
20 
註冊時間
2016-8-24 
最後登錄
2024-6-17 
2#
發表於 4 天前 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

TOP

zz0660

帖子
50 
主題
15 
精華
0 
積分
75 
點名
1  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2021-7-21 
最後登錄
2024-6-14 
3#
發表於 4 天前 07:55 | 只看該作者
回復 2# xyz66217

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

TOP

xyz66217

帖子
4 
主題
0 
精華
0 
積分
52 
點名
6  
作業系統
win7 
軟體版本
excel 
閱讀權限
20 
註冊時間
2016-8-24 
最後登錄
2024-6-17 
4#
發表於 4 天前 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

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題