12
返回列表 上一主題 發帖

[發問] (謝謝恩師們，7/4完成) 關於自訂表單TextBox輸入關鍵字出現資料(附範例)

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
11# 跳轉到 »
發表於 2012-6-28 22:53 | 顯示全部帖子
回復 22# Hsieh


    謝謝大大~
我後來刪除Option Explicit~就可以了~
因為先前我沒有把每個變數都加上Dim宣告的動作~
因為宣告種類我還不熟悉~所以就沒去宣告@@

TOP

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
12#
發表於 2012-7-4 14:10 | 顯示全部帖子
本帖最後由 av8d 於 2012-7-4 15:19 編輯

回復 18# GBKEE

原答案最後結果是當選到D欄CB的早餐~E欄CB只顯示豬肉牛肉
但是現在D欄的的CB的早餐內E欄CB的豬肉有兩筆希望只顯示一筆~如下
   
若D1=早餐  D2=午餐  D3=早餐  D4=早餐
若E1=豬肉  E2=雞肉  E3=牛肉  E4=豬肉

E1和E4重複~只顯示一筆~該如何結合呢?

TOP

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
13#
發表於 2012-7-5 09:09 | 顯示全部帖子
本帖最後由 av8d 於 2012-7-5 13:55 編輯

回復 26# GBKEE


    遇到另一個問題~請教大大

如果我想對A欄做相同範例
但是我只想取年Year()重複則只顯示一筆

例如:
A1=2012/06/25 A2=2012/10/10 A3=2013/8/8
所以只取年則是A1=2012 A2=2012 A3=2013
重複則只顯示一筆所以ComboBox1則會出現2012和2013的選項可以選擇

我修改了一下6樓大大的程式如下
    Dim d As Object, A
    Set d = CreateObject("Scripting.Dictionary")
    With ActiveSheet
        For Each A In .Range("a2", .[a2].End(xlDown))
          d(Year(A.Value)) = ""
        Next A
        ComboBox1.List = Application.Transpose(d.KEYS)
    End With
即可完成~不知這樣是否可行!?

TOP

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
14#
發表於 2012-7-10 15:18 | 顯示全部帖子
本帖最後由 av8d 於 2012-7-11 12:09 編輯

回復 28# GBKEE


    G大~謝謝你~您寫的都可以使用~

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
12
返回列表 上一主題