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

av8d

帖子: 700
主題: 275
精華: 0
積分: 1001
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-4-10

29^#

發表於 2012-7-10 15:18 | 只看該作者

本帖最後由 av8d 於 2012-7-11 12:09 編輯

回復 28# GBKEE

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

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

28^#

發表於 2012-7-5 14:30 | 只看該作者

回復 27# av8d
即可完成~不知這樣是否可行!?
你試了嗎? 有達到你的效果就可以阿.

av8d

帖子: 700
主題: 275
精華: 0
積分: 1001
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-4-10

27^#

發表於 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
即可完成~不知這樣是否可行!?

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

26^#

發表於 2012-7-4 16:36 | 只看該作者

回復 25# av8d

ption Explicit
Dim d As Object
Private Sub UserForm_Initialize()
Dim A As Range, W As String
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet
For Each A In .Range("d2", .[d2].End(xlDown))
If d(A.Value) = "" Then
d(A.Value) = A.Offset(, 1).Value
Else
W = "," & d(A.Value) & "," '字典物件內容前後加上 ,
If InStr(W, "," & A.Offset(, 1) & ",") = 0 Then d(A.Value) = d(A.Value) & "," & A.Offset(, 1)
'InStr(w, "," & A.Offset(, 1) & ",") = 0 比對字典物件內容有無A.Offset(, 1)的字串
End If
Next
ComboBox1.List = d.KEYS
End With
End Sub

複製代碼

av8d

帖子: 700
主題: 275
精華: 0
積分: 1001
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-4-10

25^#

發表於 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重複~只顯示一筆~該如何結合呢?

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

24^#

發表於 2012-6-29 06:58 | 只看該作者

回復 21# av8d
由於我無法使用Option Explicit因為我大多數內容都沒+Option Explicit 導致變數我沒有一個一個去設定~一直出錯~
這是不好的習慣,要立即改掉
如圖會在新模組中自動在頂端加入 Option Explicit

av8d

帖子: 700
主題: 275
精華: 0
積分: 1001
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-4-10

23^#

發表於 2012-6-28 22:53 | 只看該作者

回復 22# Hsieh

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

Hsieh

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

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

22^#

發表於 2012-6-28 22:49 | 只看該作者

回復 21# av8d

一般模組內呼叫表單物件，必須指明物件
例如：UserForm1.ComboBox1

學海無涯_不恥下問