返回列表 上一主題 發帖

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

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

本帖最後由 av8d 於 2012-7-4 19:58 編輯

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

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

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

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

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

回復 1# av8d
試試看


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

TOP

回復 2# GBKEE


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

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

Sub ComboBox1_Click()
TextBox1=ComboBox1
End Sub

我好像想得太簡單了@@

TOP

回復 3# av8d
那在改一下了

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

TOP

本帖最後由 av8d 於 2012-6-26 22:37 編輯

回復 4# GBKEE


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

TOP

回復 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
複製代碼

TOP

回復 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],
又此物件變數由何而來呢?

謝謝版主大大。

TOP

本帖最後由 GBKEE 於 2012-6-27 10:36 編輯

回復 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
複製代碼

TOP

回復 6# register313


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

未命名.png
2012-6-27 10:00

TOP

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

TOP

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題