Chẳng là tình hình như vầy: mình có 1 file excel có nhiều sheet quá, khi thao tác cần chuyển từ sheet này qua sheet kia cứ phải dùng thanh cuộn để tìm các sheet cần thao tác. Vậy các bác cao thủ cho mình hỏi có cách nào thu nhỏ tên sheet để có thể thấy cùng lúc nhiều sheet trên màn hình hoặc cho tên sheet hiện lên thành 2 dòng thay vì chì có 1 dòng như mặc định (mình dùng excel 2016).
Chẳng là tình hình như vầy: mình có 1 file excel có nhiều sheet quá, khi thao tác cần chuyển từ sheet này qua sheet kia cứ phải dùng thanh cuộn để tìm các sheet cần thao tác. Vậy các bác cao thủ cho mình hỏi có cách nào thu nhỏ tên sheet để có thể thấy cùng lúc nhiều sheet trên màn hình hoặc cho tên sheet hiện lên thành 2 dòng thay vì chì có 1 dòng như mặc định (mình dùng excel 2016).
Chẳng là tình hình như vầy: mình có 1 file excel có nhiều sheet quá, khi thao tác cần chuyển từ sheet này qua sheet kia cứ phải dùng thanh cuộn để tìm các sheet cần thao tác. Vậy các bác cao thủ cho mình hỏi có cách nào thu nhỏ tên sheet để có thể thấy cùng lúc nhiều sheet trên màn hình hoặc cho tên sheet hiện lên thành 2 dòng thay vì chì có 1 dòng như mặc định (mình dùng excel 2016).
Trong thời gian nghiên cứu cái control gallery của Ribbon mình thấy nó có thể áp dụng để di chuyển nhanh đến các sheet (Cái này chỉ hữu ích khi số lượng các sheet trong file nhiều). Mình chia sẻ cho ai thấy cần thì dùng hoặc phát triển thêm trong công việc. Add-ins chủ yếu là di chuyển nhanh đến...
Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function SetKeyboardState Lib "user32.dll" (ByRef lppbKeyState As Byte) As Long
#Else
Private Declare Function SetKeyboardState Lib "user32.dll" (ByRef lppbKeyState As Byte) As Long
#End If
Sub hien_danhsach()
Dim kbs(0 To 255) As Byte
SetKeyboardState kbs(0)
Dim MySheets As CommandBar
Set MySheets = CommandBars("Workbook Tabs")
With MySheets
Select Case Sheets.Count
Case Is > 16: .Controls(16).Execute
Case Else: .ShowPopup
End Select
End With
Set MySheets = Nothing
End Sub
Trong thời gian nghiên cứu cái control gallery của Ribbon mình thấy nó có thể áp dụng để di chuyển nhanh đến các sheet (Cái này chỉ hữu ích khi số lượng các sheet trong file nhiều). Mình chia sẻ cho ai thấy cần thì dùng hoặc phát triển thêm trong công việc. Add-ins chủ yếu là di chuyển nhanh đến...
Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function SetKeyboardState Lib "user32.dll" (ByRef lppbKeyState As Byte) As Long
#Else
Private Declare Function SetKeyboardState Lib "user32.dll" (ByRef lppbKeyState As Byte) As Long
#End If
Sub hien_danhsach()
Dim kbs(0 To 255) As Byte
SetKeyboardState kbs(0)
Dim MySheets As CommandBar
Set MySheets = CommandBars("Workbook Tabs")
With MySheets
Select Case Sheets.Count
Case Is > 16: .Controls(16).Execute
Case Else: .ShowPopup
End Select
End With
Set MySheets = Nothing
End Sub