MR10| Macro hay trong Excel
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
Chat ngay
Hotline02516544809
Chat ngay