Em nhảy vào chắc ế nguyên tập quá!Chời ơi! topic đang "ế" có anh kiệt nhảy vào ra tay tương trợ, bạn đành lòng ngăn cản để "ế" tiếp à.
Cảm ơn Thầy đã giúp.
Dim TabTracker As New TabBack_Class
Sub TabBack_Run()
'PURPOSE: Initiate Tab tracking and shortcut key trigger
‘SOURCE: www.TheSpreadsheetGuru.com
'Enable TabTracker class
Set TabTracker.AppEvent = Application
'Call ToggleBack macro when user keys alt + `
Application.OnKey “%`”, “ToggleBack”
End Sub
Sub ToggleBack()
'PURPOSE: Go Back to Previous Worksheet
‘SOURCE: www.TheSpreadsheetGuru.com
With TabTracker
On Error Resume Next
Workbooks(.WorkbookReference).Worksheets(.SheetReference).Activate
On Error GoTo 0
End With
End SubLúc thấy "nó báo lỗi dòng" thì chịu khó lấy giấy bút ra chép lại rằng "nó" báo lỗi gì (hoặc clip lại cũng được)?
Public WithEvents AppEvent As Application
Public SheetReference As String
Public WorkbookReference As String
Private Sub AppEvent_SheetDeactivate(ByVal Sh As Object)
'PURPOSE: Store active worksheet information before leaving it
'SOURCE: www.TheSpreadsheetGuru.comWorkbookReference = Sh.Parent.Name
SheetReference = Sh.Name
End Sub
Private Sub AppEvent_WorkbookDeactivate(ByVal Wb As Workbook)
'PURPOSE: Store active worksheet information before closing workbook
'SOURCE: www.TheSpreadsheetGuru.com
WorkbookReference = Wb.Name
SheetReference = Wb.ActiveSheet.Name
End Sub
Cho xin 500 bức hình để được thỏa con mắt về cái lỗi lầm kia.
1. Nhìn ký tự trước PURPOSE và trước SOURCE (ở mọi nơi) thì mắt thường thấy khác nhau. Nếu trước PURPOSE là dấu nháy đơn thì trước SOURCE không thể là dấu nháy đơn mà chỉ "nhìn giống" dấu nháy đơn. Sửa lại.
1. Em không hiểu ý này lắm nên em không biết trả lời thế nào.
Có gì mà không hiểu?
Ở Sub ShowSearch, thêm dòng sau vào sau dòng AssemblyArr = ...
ReDim Preserve AssemblyArr(1 To UBound(AssemblyArr, 1), 1 To 2)Thanks bác, mất một ngày tìm ko ra mà bác chỉ mất 30s đã ok.
Vì gán như cũ thì listbox kết quả chỉ có 1 cột, mà sau đó bạn muốn dùng 2 cột
Không phải khai báo lại thành mảng hai chiều mà là mở rộng mảng hai chiều. Mảng ban đầu của bạn cũng là mảng hai chiều nhưng kích thước chiều thứ hai là 1. Câu lệnh trên là mở rộng kích thước chiều thứ hai thành 2.
Thay đổi được, nếu bạn gán lại list() với mảng mớiTại e tưởng sau khi clear listbox rồi thì muốn gán mấy chiều vào cũng được, listbox sẽ nhận số chiều theo lệnh .list(...)
như vậy là listbox sẽ nhận số chiều của mảng gán lúc đầu, không thay đổi được à các bác?
Nếu bạn gán một mảng cho thuộc tính .List thì số cột là kích thước chiều thứ hai của mảng được gán. Nếu bạn dùng phương thức .Additem ngay từ đầu thì số cột là giá trị thuộc tính .ColumnCount.Tại e tưởng sau khi clear listbox rồi thì muốn gán mấy chiều vào cũng được, listbox sẽ nhận số chiều theo lệnh .list(...)
như vậy là listbox sẽ nhận kích thước của mảng gán lúc đầu, không thay đổi được à các bác?
Hay quá bác ndu96081631 ơi, không cần phải vòng lặp nào cả, Bác làm như nào vậy hả bác?
