Giúp chỉnh sửa Macro: Go2Sheet trong file Excel

[donghoangedu]

Trường hợp File quá nhiều Sheet, nên khi hiện hộp thoại chọn Sheet, không thấy các Sheet ở đầu, còn lại các Sheet sau và khung nhập giá trị cho Sheet không hiển thị cho người dùng thấy (mà bị khuất dưới màn hình). Giúp chỉnh sữa lại để những tên Sheet khi bố trí trên hộp thoại dạng hàng nhiểu cột và mỗi cột khoảng 20-->30 Sheet.Xin hướng dẫn dùm, tôi xin cám ơn

Đoạn mã của Macro: Go2Sheet như sau:

Sub Go2sheet()
myShts = ActiveWorkbook.Sheets.Count
For i = 1 To myShts
myList = myList & i & " - " & ActiveWorkbook.Sheets(i).Name & " " & vbCr
Next i
Dim mySht As Single
mySht = InputBox("* Select sheet to go to..." & vbCr & vbCr & myList)
Sheets(mySht).Select
End Sub

 

[nvson]

Bạn tham khảo đoạn code sau:

Option Explicit
Sub Go2sheet()
On Error Resume Next
Dim myList, myShts, mySht
Dim i, j, n
myShts = ActiveWorkbook.Sheets.Count
n = 20 'La so dong ma ban can the hien tren mot cot. Thay doi neu can...
For i = 1 To n
    For j = i To myShts Step n
        myList = myList & j & " - " & ActiveWorkbook.Sheets(j).Name & " " & vbTab
    Next j
    myList = myList & vbCr
Next i
mySht = InputBox("* Select sheet to go to..." & vbCr & vbCr & myList)
Sheets(mySht).Select
End Sub

 

[donghoangedu]

Bạn tham khảo đoạn code sau:

Option Explicit
Sub Go2sheet()
On Error Resume Next
Dim myList, myShts, mySht
Dim i, j, n
myShts = ActiveWorkbook.Sheets.Count
n = 20 'La so dong ma ban can the hien tren mot cot. Thay doi neu can...
For i = 1 To n
    For j = i To myShts Step n
        myList = myList & j & " - " & ActiveWorkbook.Sheets(j).Name & " " & vbTab
    Next j
    myList = myList & vbCr
Next i
mySht = InputBox("* Select sheet to go to..." & vbCr & vbCr & myList)
Sheets(mySht).Select
End Sub

Đoạn Mã Trên Khi Nhập Tên Số Thứ Tự Sheet Thì Excel Không Chuyển Đến Sheet Cần Tìm Giúp Đỡ Tôi Lần Nữa Cám ơn Nhiều

 

[tedaynui]

Đoạn Mã Trên Khi Nhập Tên Số Thứ Tự Sheet Thì Excel Không Chuyển Đến Sheet Cần Tìm Giúp Đỡ Tôi Lần Nữa Cám ơn Nhiều

Với code này thì bạn phải nhập tên sheet mới đúng.

TDN

 

[anhtuan1066]

Với riêng trường hợp này mà xài macro thì quả thật là rách việc... Right click lên ngay mũi tên ngang gần Sheet Tab, chọn More Sheet là xong

 

[tedaynui]

Đoạn Mã Trên Khi Nhập Tên Số Thứ Tự Sheet Thì Excel Không Chuyển Đến Sheet Cần Tìm Giúp Đỡ Tôi Lần Nữa Cám ơn Nhiều

Nếu muốn nhập số thứ tự Sheet thì bạn thay dòng lệnh Sheets(mySht).Select
bằng dòng lệnh Sheets.Item(Val(mySht)).Select

Tuy nhiên với code này sẽ không chọn được những Sheet có thuộc tính Hidden/VeryHidden. Nếu muốn chọn được mọi sheet thì thêm dòng lệnh sau
Sheets.Item(Val(mySht)).Visible = xlSheetVisible
Sheets.Item(Val(mySht)).Select

TDN