mẹo vặt Excel hữu ích, hay dùng

Bạn Copy đoạn code sau rồi chép vào Module trong MicroSoft Visua Basic trong Ecel, Trong Sheet VBA Danh sach Sheet bạn tạo Shape sau đó gán Macro TaoDanhSachSheetExcel vào Shape vừa tạo để cập nhật danh sách Sheet Excel của mình, giúp bạn dễ dàng di chuyển nhanh chóng đến Sheet trong bảng tính.
Sub TaoDanhSachSheetExcel ()
Dim wsSheet As Worksheet
Dim ws As Worksheet
Dim Counter As Long
On Error Resume Next
Set wsSheet = Sheets("VBA Danh sach Sheet")
'Kiểm tra sự tồn tại của Sheet - VBA Danh sach Sheet
On Error GoTo 0
If wsSheet Is Nothing Then
'Nếu chưa có sheet "VBA Danh sach Sheet" thì tạo mới Sheet "VBA Danh sach Sheet" chèn vào vị trí đầu tiên của bảng tính Workbook
Set wsSheet = ActiveWorkbook.Sheets.Add(Before:=Worksheets(1))
wsSheet.Name = "VBA Danh sach Sheet"
End If
'Tạo tiêu đề
With wsSheet
.Cells(9, 1) = "DANH SÁCH CÁC SHEET"
.Cells(9, 1).Name = "Index"
.Cells(11, 1).Value = "STT"
.Cells(11, 2).Value = "Tên Sheet"
End With
'Merge Cell
With Range("A9:B9")
.Merge
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
'Set ColumnWidth
With Columns("A:A")
.ColumnWidth = 8
.HorizontalAlignment = xlCenter
End With
With Range("A11")
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
Columns("B:B").ColumnWidth = 30
With Range("B11")
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
Counter = 1
For Each ws In Worksheets
If ws.Name <> wsSheet.Name Then
'Gan gia tri cot thu tu
wsSheet.Cells(Counter + 11, 1).Value = Counter
'Tao lien ket
wsSheet.Hyperlinks.Add Anchor:=wsSheet.Cells(Counter + 11, 2), _
Address:="", _
SubAddress:=ws.Name & "!A1", _
ScreenTip:=ws.Name, _
TextToDisplay:=ws.Name
'Them nut Quay ve Sheet Muc luc tai moi Sheet
With ws
.Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="Index", TextToDisplay:="Quay ve"
End With
Counter = Counter + 1
End If
Next ws
Set xlSheet = Nothing
End Sub
Nhận xét Code VBA này khá hữu ích trong trường hợp bảng tính của bạn có nhiều Sheet, Danh sách Sheet sẽ giúp bạn quản lý hiệu quả từng trang bảng tính.

Public Function f_doikytu(chuoikytu1 As String, kytucu1 As String, kytumoi1 As String)
solanxuathien = 0
If UCase(kytucu1) = UCase(kytumoi1) Then
GoTo thoat
End If
dodaikytucu1 = Len(kytucu1)
dodaikytumoi1 = Len(kytumoi1)
dodaichuoi1 = Len(chuoikytu1)
If dodaichuoi1 = 0 Or dodaikytucu1 = 0 Then
GoTo thoat
End If
For i = 1 To dodaichuoi1
For m = i To dodaichuoi1
kytucat1 = Mid(chuoikytu1, m, dodaikytucu1)
If UCase(kytucat1) = UCase(kytucu1) Then
solanxuathien = solanxuathien + 1
End If
Next m
Next i
For i = 1 To solanxuathien
dongtext = f_laplai_chuoi(chuoikytu1, kytucu1, kytumoi1)
chuoikytu1 = dongtext
Next
If solanxuathien = 0 Then
dongtext = chuoikytu1
End If
f_doikytu = dongtext
thoat:
End Function
Public Function f_laplai_chuoi(chuoikytu As String, kytucu As String, kytumoi As String)
If UCase(kytucu) = UCase(kytumoi) Then
GoTo thoat
End If
Dim chuoikytumoi As String
dodaikytucu = Len(kytucu)
dodaikytumoi = Len(kytumoi)
dodaichuoi = Len(chuoikytu)
chuoikytumoi = ""
If dodaichuoi = 0 Or dodaikytucu = 0 Then
GoTo thoat
Else
stt = 0
For i = 1 To dodaichuoi
kytucat = Mid(chuoikytu, i, dodaikytucu)
If UCase(kytucat) = UCase(kytucu) Then
stt = stt + 1
If i = 1 Then
chuoikytumoi = kytumoi & Right(chuoikytu, dodaichuoi - dodaikytucu)
GoTo thoat
End If
If i = dodaichuoi Then
chuoikytumoi = Left(chuoikytu, dodaichuoi - dodaikytucu) & kytumoi
GoTo thoat
End If
chuoikytumoi = Left(chuoikytu, i - 1) & kytumoi & Right(chuoikytu, dodaichuoi - dodaikytucu - (i - 1))
End If
Next
End If
If stt = 0 Then
chuoikytumoi = chuoikytu
End If
thoat:
f_laplai_chuoi = chuoikytumoi
End Function
Ứng dụng hàm tự tạo giúp bạn tự động thay thế ký tự trong chuỗi văn bản, được ứng dụng trong việc xử lý mã hàng hóa, mã khách,.... đáp ứng nhu cầu dành cho các bạn làm nghề kế toán dịch vụ.