cubela

帖子: 26
主題: 8
精華: 0
積分: 61
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2013-6-10
最後登錄: 2017-12-12

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-9-6 16:17 | 只看該作者

Excel下拉式選單選擇特定格

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

樓主熱帖

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2014-9-6 17:11 | 只看該作者

回復 1# cubela

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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

cubela

中學生 Rank: 2

帖子: 26
主題: 8
精華: 0
積分: 61
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2013-6-10
最後登錄: 2017-12-12

3^#

發表於 2014-9-7 02:02 | 只看該作者

ML大大

我做一個大概的範例，請看附件，謝謝

下拉選單特定欄位.zip (5.27 KB)

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

4^#

發表於 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

複製代碼

下拉選單特定欄位-a.zip (16.16 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 91
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 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)
向右向下複製

學海無涯_不恥下問

TOP

cubela

中學生 Rank: 2

帖子: 26
主題: 8
精華: 0
積分: 61
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2013-6-10
最後登錄: 2017-12-12

6^#

發表於 2014-9-13 02:05 | 只看該作者

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

TOP

cubela

中學生 Rank: 2

帖子: 26
主題: 8
精華: 0
積分: 61
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2013-6-10
最後登錄: 2017-12-12

7^#

發表於 2014-9-13 02:15 | 只看該作者

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

不好意思，還是不懂@@

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 91
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2014-9-13 22:06 | 只看該作者