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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-6-26 11:32 | 只看該作者

[發問] (謝謝恩師們，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大正向逆推思考的邏輯方式~超感激的!!謝謝你!!

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2012-6-26 13:43 | 只看該作者

回復 1# av8d
試試看

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

TOP

av8d

大學生 Rank: 4

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

3^#

發表於 2012-6-26 18:48 | 只看該作者

回復 2# GBKEE

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

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

Sub ComboBox1_Click()
TextBox1=ComboBox1
End Sub

我好像想得太簡單了@@

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2012-6-26 20:51 | 只看該作者

回復 3# av8d
那在改一下了

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

TOP

av8d

大學生 Rank: 4

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

5^#

發表於 2012-6-26 21:42 | 只看該作者

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

回復 4# GBKEE

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

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

6^#

發表於 2012-6-26 23:46 | 只看該作者

回復 5# av8d

Private Sub UserForm_Initialize()
Dim d As Object, A
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet
For Each A In .Range("b2", .[b2].End(xlDown))
d(A.Value) = ""
Next A
ComboBox1.List = Application.Transpose(d.keys)
d.RemoveAll
For Each A In .Range("c2", .[c2].End(xlDown))
d(A.Value) = ""
Next A
ComboBox2.List = Application.Transpose(d.keys)
End With
End Sub

複製代碼

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

7^#

發表於 2012-6-27 08:04 | 只看該作者

回復 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

超級版主 Rank: 8 Rank: 8

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

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

8^#

發表於 2012-6-27 08:37 | 只看該作者

本帖最後由 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