返回列表 上一主題 發帖

Excel下拉式選單選擇特定格

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2014-9-7 08:47 | 顯示全部帖子
本帖最後由 luhpro 於 2014-9-7 08:57 編輯
ML大大

我做一個大概的範例，請看附件，謝謝
cubela 發表於 2014-9-7 02:02

因為在 Excel 預設函數庫中,我並沒有找到 抓取儲存格底色的函數, 所以我用 Excel VBA 來實現.

ThisWorkBook :
  1. Private Sub Workbook_Open()
  2.   Dim lSRows&, lSRow&
  3.   Dim rTar As Range
  4.   
  5.   bNInt = False
  6.   Set vD = CreateObject("Scripting.Dictionary")
  7.   lSRows = Sheets("工作表1").Cells(Rows.Count, 4).End(xlUp).Row
  8.   
  9.   With Sheets("工作表2")
  10.     .Activate
  11.     With .ComboBox1
  12.       .Clear
  13.       For lSRow = 2 To lSRows
  14.         Set rTar = Sheets("工作表1").Cells(lSRow, 4)
  15.         If rTar.Interior.ColorIndex = 6 Then
  16.           .AddItem rTar
  17.           vD(rTar.Text) = lSRow
  18.         End If
  19.       Next
  20.     End With
  21.   End With
  22.   bNInt = True
  23. End Sub
複製代碼
Module1 :
  1. Public vD, bNInt As Boolean
複製代碼
Sheet2 :
  1. Private Sub ComboBox1_Change()
  2.   If bNInt Then
  3.     Sheets("工作表1").Cells(vD(ComboBox1.Text), 5).Copy [C5]
  4.     Sheets("工作表1").Cells(vD(ComboBox1.Text), 6).Copy [D5]
  5.   End If
  6. End Sub
複製代碼
下拉選單特定欄位-a.zip (16.16 KB)

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題