返回列表 上一主題 發帖

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

zz0660

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

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

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


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

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-12-27 
5#
發表於 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

TOP

xyz66217

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

TOP

zz0660

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

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

TOP

xyz66217

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

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題