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

av8d

關於自訂表單TextBox輸入關鍵字出現資料(範例如下)
http://forum.twbts.com/viewthrea ... hlight=%C3%F6%C1%E4

在自訂表單製作一個TextBox3
若C1=100  C2=15
當TextBox3輸入"1"這個字~則會出現以上兩個選項可以點選

在自訂表單製作一個TextBox4
若D1=大房豆干  D2=大眾房屋
當TextBox4輸入"大"這個字~則會出現以上兩個選項可以點選

以此類推~謝謝各位大大的用心觀看

謝謝G大正向逆推思考的邏輯方式~超感激的!!謝謝你!!

GBKEE

回復 1# av8d
試試看


    關鍵字輸入範例..rar (10.25 KB)

下載次數: 29

2012-6-26 13:42

av8d

回復 2# GBKEE


    大大的回覆真的是超級快@@ 由衷感謝~

想詢問一下~如果我希望當ComboBox選到想要的選項後TextBox自動填入該資料
我測試了很多次好像都不可以~

Sub ComboBox1_Click()
TextBox1=ComboBox1
End Sub

我好像想得太簡單了@@

GBKEE

回復 3# av8d
那在改一下了

關鍵字輸入範例..rar (11.42 KB)

下載次數: 25

2012-6-26 20:51

av8d

回復 4# GBKEE


    謝謝大大~最後一次麻煩大大
請問ComboBox內的值若是重複~是否可以只顯示一筆?

register313

回復 5# av8d

1. Private Sub UserForm_Initialize()
   
2.     Dim d As Object, A
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With ActiveSheet
   
5.         For Each A In .Range("b2", .[b2].End(xlDown))
   
6.           d(A.Value) = ""
   
7.         Next A
   
8.         ComboBox1.List = Application.Transpose(d.keys)
   
9.         d.RemoveAll
   
10.         For Each A In .Range("c2", .[c2].End(xlDown))
    
11.           d(A.Value) = ""
    
12.         Next A
    
13.         ComboBox2.List = Application.Transpose(d.keys)
    
14.     End With
    
15. End Sub

複製代碼

dechiuan999

回復 2# GBKEE


    版主大大您好：

  在關鍵字輸入範例裡，
小弟對於下列語法
的應用不是很了解，
煩請版主大大能明示。

一、
.Replace "*" & TextBox1 & "*", "=what this", xlPart

為何用"=what this"，小弟有在工作表上的輸入值地方有看到
顯示為=what this不知其用意為何？

二、
.SpecialCells(xlCellTypeFormulas, xlErrors).Name = "xxx"
此語法小弟一直不懂得如何去應用及驗證呢？
在TEXTBOX1輸入查詢時，在B欄儲存格會出現#NAME?

三、
With ComboBox1
     For Each E In [XXX]
       .AddItem E.Value
     Next
.Value = .List(0)
    End With
為何區域變數看不到
有此物件變數[XXX]，
又此物件變數由何而來呢？

謝謝版主大大。

GBKEE

回復 7# dechiuan999
Replace "*" & TextBox1 & "*", "=what this", xlPart
為何用"=what this"，小弟有在工作表上的輸入值地方有看到  
就是沒有啊  會產生一個 #NAME?錯誤值
.SpecialCells(xlCellTypeFormulas, xlErrors).Name = "xxx"
此語法小弟一直不懂得如何去應用及驗證呢？
為何區域變數看不到
有此物件變數[XXX]，
又此物件變數由何而來呢？

試試看 [A1:D10].NAME="dechiuan999"
到工作表 查看定義名稱 看看    [ 物件或函數 不可以為變數 ]

回復 5# av8d

1. Private Sub UserForm_Initialize()
   
2. With ActiveSheet
   
3. .Range("b:b").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
   
4. 'AdvancedFilter 進階篩選: 不重複資料, 資料複製到其他位置
   
5. ComboBox1.List = .Cells(1, .Columns.Count).CurrentRegion.Offset(1).Value '
   
6. .Cells(1, .Columns.Count).EntireColumn = ""
   
7. .Range("c:c").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
   
8. ComboBox2.List = .Cells(1, .Columns.Count).CurrentRegion.Offset(1).Value '
   
9. .Cells(1, .Columns.Count).EntireColumn = ""
   
10. End With
    
11. End Sub

複製代碼

av8d

回復 6# register313


    大大您好~如果我套用到我目前有寫了很多其他的裡面~
會出現錯誤'424'
此處需要物件

下載 (6.16 KB)

2012-6-27 10:00

GBKEE

回復 9# av8d
沒有物件 那須先檢查  UserForm1 中有沒有TextBox1 看看