資料搜尋問題 - Excel程式區 - 麻辣家族討論版版

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

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

1^# 跳轉到 »

發表於 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元的贊助,人人有能力.

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

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

2^#

發表於 2013-8-5 15:12 | 顯示全部帖子

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

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

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

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

3^#

發表於 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元的贊助,人人有能力.

帖子: 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-7 17:25 | 顯示全部帖子

回復 10# ayubbs
資料的排序:可錄製後,套到
Private Sub UserForm_Initialize()
'錄製 ....
End Sub

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