可自定表單全文檢索? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 可自定表單全文檢索?

123 4 下一頁

返回列表下一主題上一主題發帖

[發問] 可自定表單全文檢索?

超級版主 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兔年全勤獎章

11^# 跳轉到 »

發表於 2012-1-5 14:52 | 只看該作者

回復 12# dafa
你不做個範例上傳,真的不知要如何回答.

中學生 Rank: 2

帖子: 49
主題: 6
精華: 0
積分: 97
點名: 0
作業系統: xp
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-8-24
最後登錄: 2023-12-24

12^#

發表於 2012-1-5 15:28 | 只看該作者

全文檢索1.zip (674.17 KB) 回復 13# GBKEE

如附件
請問G大
可否連同B.C.D欄內資料一同顯示在ListBox1與Label2內
感謝你

超級版主 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兔年全勤獎章

13^#

發表於 2012-1-5 16:12 | 只看該作者

回復 14# dafa

Private Sub UserForm_Initialize()
With ListBox1
.Visible = False
.ColumnCount = 4 '指定下拉式清單方塊或清單方塊的顯示行數。
.ColumnWidths = "370,40,40,40" '指定多行下拉式清單方塊或清單方塊中的各行寬度。
End With
End Sub
Private Sub ListBox1_Change()
AA = Application.Index(ListBox1.List, ListBox1.ListIndex + 1) '陣列中抽出指定的元素陣列(這裡是一維陣列)
Label2.Caption = "[" & Join(AA, "] ; [") & "]" 'Join 結合一維陣列的文字
End Sub
Private Sub TextBox1_Change()
Dim Ar(), E As Range
If TextBox1 <> "" Then
ReDim Ar(0)
For Each E In Sheet1.UsedRange.Columns(1).Cells
If E Like "*" & TextBox1 & "*" Then
Ar(UBound(Ar)) = E.Resize(, 4).Value
ReDim Preserve Ar(UBound(Ar) + 1)
End If
Next
If UBound(Ar) > 0 Then
ReDim Preserve Ar(UBound(Ar) - 1)
Ar = Application.Transpose(Application.Transpose(Ar))
ListBox1.List = Ar
ListBox1.Visible = True
Else
Label2.Caption = ""
ListBox1.Visible = False
End If
Else
Label2.Caption = ""
ListBox1.Visible = False
End If
End Sub

複製代碼

中學生 Rank: 2

帖子: 49
主題: 6
精華: 0
積分: 97
點名: 0
作業系統: xp
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-8-24
最後登錄: 2023-12-24

14^#

發表於 2012-1-5 16:37 | 只看該作者

回復 15# GBKEE

很感謝G大那麼不厭其煩的回覆
還附註那麼清楚
趕快去研究消化一下
感恩喔

中學生 Rank: 2

帖子: 49
主題: 6
精華: 0
積分: 97
點名: 0
作業系統: xp
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-8-24
最後登錄: 2023-12-24

15^#

發表於 2012-5-29 10:04 | 只看該作者

回復 15# GBKEE

Private Sub UserForm_Initialize()
With ListBox1
.Visible = False
.ColumnCount = 4 '指定下拉式清單方塊或清單方塊的顯示行數。
.ColumnWidths = "370,40,40,40" '指定多行下拉式清單方塊或清單方塊中的各行寬度。
End With
End Sub
Private Sub ListBox1_Change()
AA = Application.Index(ListBox1.List, ListBox1.ListIndex + 1) '陣列中抽出指定的元素陣列(這裡是一維陣列)
Label2.Caption = "[" & Join(AA, "] ; [") & "]" 'Join 結合一維陣列的文字
End Sub
Private Sub TextBox1_Change()
Dim Ar(), E As Range
If TextBox1 <> "" Then
ReDim Ar(0)
For Each E In Sheet1.UsedRange.Columns(1).Cells
If E Like "*" & TextBox1 & "*" Then
Ar(UBound(Ar)) = E.Resize(, 4).Value
ReDim Preserve Ar(UBound(Ar) + 1)
End If
Next
If UBound(Ar) > 0 Then
ReDim Preserve Ar(UBound(Ar) - 1)
Ar = Application.Transpose(Application.Transpose(Ar)) '可以麻煩G大幫我解釋這句為何要轉置再轉置感謝
ListBox1.List = Ar
ListBox1.Visible = True
Else
Label2.Caption = ""
ListBox1.Visible = False
End If
Else
Label2.Caption = ""
ListBox1.Visible = False
End If
End Sub

複製代碼

超級版主 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兔年全勤獎章

16^#

發表於 2012-5-29 17:27 | 只看該作者

回復 17# dafa

If E Like "*" & TextBox1 & "*" Then
Ar(UBound(Ar)) = E.Resize(, 4).Value '***一維陣列Ar 加入子元素 -> E.Resize(, 4).Value ※此子元素是為( 1, 4 )二維陣列 ReDim Preserve Ar(UBound(Ar) + 1)

複製代碼

If UBound(Ar) > 0 Then
ReDim Preserve Ar(UBound(Ar) - 1)
'Ar = Application.Transpose(Application.Transpose(Ar))
Ar = Application.Transpose(Ar) '第一次轉置得到的是整欄資料
Ar = Application.Transpose(Ar) '第二次轉置得到的是整列資料

複製代碼

中學生 Rank: 2

帖子: 49
主題: 6
精華: 0
積分: 97
點名: 0
作業系統: xp
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-8-24
最後登錄: 2023-12-24

17^#

發表於 2012-5-30 16:02 | 只看該作者

回復 18# GBKEE

感謝G大的解釋
如本範例
在請問G大如果我ListBox1屬性設定可複選
但我要如何將ListBox1所有挑選的資料放到Label2呢

中學生 Rank: 2

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

18^#

發表於 2012-5-31 19:23 | 只看該作者

版主大大您好：

請問如何能讓全文檢索表單的
Listbox也能具有左右捲動功能呢？

感謝您！

中學生 Rank: 2

帖子: 49
主題: 6
精華: 0
積分: 97
點名: 0
作業系統: xp
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-8-24
最後登錄: 2023-12-24

19^#

發表於 2012-6-1 10:18 | 只看該作者

回復 20# dechiuan999

只要你的 ListBox屬性Width<ColumnWidths就應該會自己出現了

中學生 Rank: 2

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

20^#

發表於 2012-6-1 13:11 | 只看該作者

dafa 大大您好：

謝謝您的說明。
感恩！

靜思自在 : 盡多少本份，就得多少本事。

123 4 下一頁

返回列表下一主題上一主題