返回列表 上一主題 發帖

Excel下拉式選單選擇特定格

cubela

帖子
26 
主題
8 
精華
0 
積分
61 
點名
0  
作業系統
WINDOWS7 
軟體版本
OFFICE2010 
閱讀權限
20 
性別
男 
註冊時間
2013-6-10 
最後登錄
2017-12-12 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-9-6 16:17 | 只看該作者

Excel下拉式選單選擇特定格

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

cubela

帖子
26 
主題
8 
精華
0 
積分
61 
點名
0  
作業系統
WINDOWS7 
軟體版本
OFFICE2010 
閱讀權限
20 
性別
男 
註冊時間
2013-6-10 
最後登錄
2017-12-12 
9#
發表於 2014-9-14 06:12 | 只看該作者
回復  cubela
Hsieh 發表於 2014-9-13 22:06



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

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
8#
發表於 2014-9-13 22:06 | 只看該作者
回復 7# cubela

play.gif
學海無涯_不恥下問

TOP

cubela

帖子
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

cubela

帖子
26 
主題
8 
精華
0 
積分
61 
點名
0  
作業系統
WINDOWS7 
軟體版本
OFFICE2010 
閱讀權限
20 
性別
男 
註冊時間
2013-6-10 
最後登錄
2017-12-12 
6#
發表於 2014-9-13 02:05 | 只看該作者
感謝樓上兩位大大的解說
但目前還不能下載附件
我先研究研究，謝謝

TOP

Hsieh

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

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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
13  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-10-25 
4#
發表於 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

cubela

帖子
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

ML089

帖子
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

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題