[發問] 資料搜尋問題

帖子: 31
主題: 10
精華: 0
積分: 45
點名: 0
作業系統: WinXP
軟體版本: OFFICE2007
閱讀權限: 10
性別: 女
註冊時間: 2013-8-2
最後登錄: 2016-12-9

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2013-8-3 11:32 | 只看該作者

回復 2# luhpro

謝謝大大熱心協助.因人在外面我回到家後測試,再回報結果~感謝

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^#

發表於 2013-8-4 17:22 | 只看該作者

回復 3# ayubbs

如圖拉長它就沒有錯誤了(為何會如此我也不知道)

或修改程式碼

rivate Sub cbDel_Click()
Dim i As Integer
'Application.EnableEvents = False '這對控制項沒有作用
With lbName
i = .ListIndex
If i = -1 Then Exit Sub
Selection.Delete
If .ListIndex + 1 = .ListCount Then .Value = .ListIndex - 1
If .ListCount >= 1 Then .RemoveItem (i)
End With
'Application.EnableEvents = True
' Call lbName_Change
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 31
主題: 10
精華: 0
積分: 45
點名: 0
作業系統: WinXP
軟體版本: OFFICE2007
閱讀權限: 10
性別: 女
註冊時間: 2013-8-2
最後登錄: 2016-12-9

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2013-8-5 11:27 | 只看該作者

回復 4# GBKEE
不好意思那麼晚才回覆~工作較忙碌到現在才回覆
謝謝luhpro大~跟GBKEE版大的協助回覆，不過真的很不好意思。
可能是我表達的方式不正確，造成luhpro的誤解方向不對，很抱歉，我想要的尋找資料方式我重新說明一下，因工作中經常
需核對資料，該資料為資料庫輸出的xls檔案，其中以有套板的格式，很多的欄位，列數依查詢比較的區間可能會有數百數千資料
區間要再大些可能會有上萬筆，但此資料他有一些部份資料有類似流水號的欄位，但輸出時卻無法指定流水號區間調出資料，只
能以週或月的方式輸出資料。

因查詢頻度太高，經常花了很多時間一直做重覆的動作，想簡化程序，想用一個含有設定好的獨立vba檔案去執行排序去除不需要
的列數，有構想使用txtbox輸入指定的流水號，以直接到方便直接選擇到該列將該列以下不需要的資料全數刪除因抬頭還有項目需
看所以無法向上刪除只能向下刪除，但我的vba實在很差....無法達成，是否可再向大大版請教是否可有方式可解決

流程約如下設置一個檔案aa.xls於Sheet1建一CommandButton用於開啟UserForm1，UserForm1製作一表單 TextBox 輸入流水號
→使用CommandButton1引用TextBox內數據查尋到bb.xsl檔內該筆資料所在列將其該列含以下列自動全數
刪除不需詢問，另其它動作一些篩選比對動作也於此CommandButton作時機一併作動。
但先找到該工作列為最先開始的程序。

各位老師們能否順便指導一般使用 txtbox 內數值，要何寫的方式才可引用他做為一參考數據其參數運用的方式。

真的感到很不好意思又再次麻煩大家了，真的要多努力了，一些語法只會做很簡式的單獨使用，湊在一起就卡死了，要再多努力了。
謝謝

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兔年全勤獎章

6^#

發表於 2013-8-5 15:12 | 只看該作者

回復 5# ayubbs
引用TextBox內數據查尋到bb.xls檔內該筆資料所在列將其該列含以下列自動全數
該筆資料在哪一欄 (A欄或B欄或...)
請上傳 bb.xls 的範本,好了解之.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 31
主題: 10
精華: 0
積分: 45
點名: 0
作業系統: WinXP
軟體版本: OFFICE2007
閱讀權限: 10
性別: 女
註冊時間: 2013-8-2
最後登錄: 2016-12-9

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2013-8-5 23:26 | 只看該作者

本帖最後由 ayubbs 於 2013-8-5 23:28 編輯

回復 6# GBKEE

版大如附件,需分析欄位為C欄再麻煩你了,C欄項目內並非一定會依流水號排㡰多數時候都需要自己排序

BB.rar (44.81 KB)

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^#

發表於 2013-8-6 17:29 | 只看該作者

回復 7# ayubbs
Sheet1建一CommandButton

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

複製代碼

Option Explicit
Dim WB As Workbook, Rng As Range
Private Sub CommandButton1_Click()
If Not Rng Is Nothing Then
With Rng.Parent
Set Rng = .Range(Rng.Offset(1), Rng.Offset(1).End(xlDown))
Rng.EntireRow.Delete
End With
End If
CommandButton1.Enabled = False
End Sub
Private Sub TextBox1_Change()
CommandButton1.Enabled = False
Set Rng = WB.Sheets("明細表").Range("C:C").Find(TextBox1, LookAt:=xlWhole)
If Not Rng Is Nothing Then CommandButton1.Enabled = True
End Sub
Private Sub UserForm_Initialize()
CommandButton1.Enabled = False
' Set WB = Workbooks.Open("D:\你的目錄資料夾\BB.XLS") '如 BB.XLS 沒開啟用此程式碼開啟
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
' WB.Close True 如 BB.XLS 不是用程式碼開啟的不要用此程序
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 31
主題: 10
精華: 0
積分: 45
點名: 0
作業系統: WinXP
軟體版本: OFFICE2007
閱讀權限: 10
性別: 女
註冊時間: 2013-8-2
最後登錄: 2016-12-9

論壇榮譽勳章論壇贊助勳章

9^#

發表於 2013-8-6 18:04 | 只看該作者

回復 8# GBKEE

謝謝版大指導，初步測試~可以正常使用，真的是太感謝了，稍晚些我再把剩餘動作整理~合併看是否還有其它問題因為手邊現在
還缺檔案可以整併測試，沒辦法確定後續動作 ^^

帖子: 31
主題: 10
精華: 0
積分: 45
點名: 0
作業系統: WinXP
軟體版本: OFFICE2007
閱讀權限: 10
性別: 女
註冊時間: 2013-8-2
最後登錄: 2016-12-9

論壇榮譽勳章論壇贊助勳章

10^#

發表於 2013-8-7 11:32 | 只看該作者

回復 8# GBKEE

版主大大~有另一些問題想請教指導，因刪除時並未有資料排序因流水號產時輸出時並不一定全數有排列，可否先讓資料排序
後再行刪除指定號(含)該列位及其它不需要的列，另抬頭列要刪除該在何處加入語法又該如何實行，想讓表列明細較為乾淨整齊
些，再如尚有已錄製好巨集該用何方式插入可以在刪除動作完成後，繼續執行而不停擺完成動作~

>"< 抱歉在努力k書惡補中~但日常工作還在持續一直進行~先能運用再一一了解原理~ 非常感謝