麻辣家族討論版版 - Powered by Discuz! Board

標題: Excel下拉式選單選擇特定格 [打印本頁]

作者: cubela 時間: 2014-9-6 16:17 標題: Excel下拉式選單選擇特定格

各位前輩好
小弟想做一個下拉選單
請問如何將下拉選單內容指定一些特定格呢?

作者: ML089 時間: 2014-9-6 17:11

回復 1# cubela

問題說明太簡略，無法了解需求

作者: cubela 時間: 2014-9-7 02:02

ML大大

我做一個大概的範例，請看附件，謝謝
[attach]19108[/attach]

作者: luhpro 時間: 2014-9-7 08:47

本帖最後由 luhpro 於 2014-9-7 08:57 編輯

ML大大

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

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

ThisWorkBook :

Private Sub Workbook_Open()
Dim lSRows&, lSRow&
Dim rTar As Range
bNInt = False
Set vD = CreateObject("Scripting.Dictionary")
lSRows = Sheets("工作表1").Cells(Rows.Count, 4).End(xlUp).Row
With Sheets("工作表2")
.Activate
With .ComboBox1
.Clear
For lSRow = 2 To lSRows
Set rTar = Sheets("工作表1").Cells(lSRow, 4)
If rTar.Interior.ColorIndex = 6 Then
.AddItem rTar
vD(rTar.Text) = lSRow
End If
Next
End With
End With
bNInt = True
End Sub

複製代碼

Module1 :

Public vD, bNInt As Boolean

複製代碼

Sheet2 :

Private Sub ComboBox1_Change()
If bNInt Then
Sheets("工作表1").Cells(vD(ComboBox1.Text), 5).Copy [C5]
Sheets("工作表1").Cells(vD(ComboBox1.Text), 6).Copy [D5]
End If
End Sub

複製代碼

[attach]19110[/attach]

作者: Hsieh 時間: 2014-9-9 09:18

回復 3# cubela
驗證清單無法使用不連續儲存格
用輔助欄位取得這些不連續資料做為驗證清單來源
以工作表2的A欄作輔助欄位
以1000筆資料做為預設
選取工作表2!A1:A1000
輸入=IF(ROW()>COUNTA(工作表1!$A:$A),"",INDIRECT("工作表1!D"&SMALL(IF(工作表1!$A$1:$A$1000<>"",ROW($1:$1000),""),ROW($1:1000))))
按CTRL+SHIFT+ENTER完成陣列公式輸入
修改聯絡人名稱的公式
=OFFSET(工作表2!$A$1,1,,COUNTA(工作表1!$A:$A)-1,)
如此下拉清單就能取得這些資料
要C，D欄自動取得資料
C5=VLOOKUP($B5,工作表1!$D:$G,COLUMN(B$1),0)
向右向下複製

作者: cubela 時間: 2014-9-13 02:05

感謝樓上兩位大大的解說
但目前還不能下載附件
我先研究研究，謝謝

作者: cubela 時間: 2014-9-13 02:15

回復 cubela
驗證清單無法使用不連續儲存格
用輔助欄位取得這些不連續資料做為驗證清單來源
以工作表2 ...
Hsieh 發表於 2014-9-9 09:18

不好意思，還是不懂@@

作者: Hsieh 時間: 2014-9-13 22:06

回復 7# cubela

[attach]19148[/attach]

作者: cubela 時間: 2014-9-14 06:12

回復 cubela
Hsieh 發表於 2014-9-13 22:06

感謝超版!!!
我會了:victory:
不過想再請教，像這類的公式是要用Key的還是可以用選項選出來呢?

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