Function BoDau(ByVal noiDung As String) As String
Dim i As Long
Dim iMa As Long
Dim sChar As String
Dim nChuyen As String
BoDau = AscW(noiDung)
For i = 1..
20
07
2020
Function UNItoVBA(ByVal MyStr As String) As String
'Chuyen chuoi tu UNICODE sang Code VBA
Dim Str As String, i As Integer, CStart As Integer,..
02
06
2020
Sub ReplaceInFolder()
Dim strPath As String
Dim strFile As String
Dim wbk As Workbook
Dim wsh As Worksheet
Dim strFind As..
02
06
2020
Sub WorksheetLoop()
Dim WS_Count As Long
Dim I As Long
' Set WS_Count equal to the number of worksheets in the active
' workbook.
WS_Count =..
08
02
2020
Tạo 1 file excel mới, đặt password cho VBA (VD: đặt pass là 1234) rồi save lại.
Đổi phần đuôi của file excel vừa tạo (xls,..
19
07
2020
Sub PasswordBreaker()
'Breaks worksheet password protection.
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As..
08
02
2020
Sub UnhideSheets()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ActiveWorkbook.Sheets
sh.Visible =..
08
02
2020
Sub PrintDoubleSided()
Dim TotalPages As Long
Dim Pg As Long
Dim oddoreven As Integer
On Error GoTo enditt
TotalPages =..
08
02
2020
Function Reverse(Text As String) As String
Dim i As Integer
Dim StrNew As String
Dim strOld As String
strOld = Trim(Text)
For i = 1..
08
02
2020