L
Xin chào các Bạn,
Xin tham gia với các bạn về VBA với hàm tự tạo thứ nhất nhé. Sau đây là mã nguồn. Để nạp mã nguồn này vào Excel, các Bạn làm như sau:
1. Mở Excel với 1 WorkBook trắng
2. Từ menu Tools chọn Macros làm hiện menu thứ cấp, chọn tiếp Visual Basic Editor (VBE)
3. Trong VBE, chọn menu Insert \ Module
4. Paste đọan mã sau vào đó.
5. Lưu lại
6. Sử dụng:
+ Nếu Bạn muốn tạo ra 1 Add-In có cái hàm này và sẽ còn những hàm khác nữa tùy bạn, từ menu File của Excel chọn Save As, trong hộp thọai Save As chọn "Save As Type" là "Microsoft Excel Add-In". Vậy là đã có Add-In (có tên là .XLA) sẵn sàng nạp để sử dụng rồi.
+ Nạp Add-In: từ menu Tools chọn Add-Ins, trong hộp thọai Add-Ins bấm nút Browse và chỉ vào file XLA vừa tạo ở trên.
+ kể từ đó trở đi, các hàm do bạn tạo ra trong Add-In này được gọi sử dụng giống như các hàm mặc định của Excel.
Và đây là mã nguồn của hàm tự tạo thứ nhất:
'========================================
Function CutLoR2(St As String, Char As String, N As Boolean)
'
'Cat lay chuoi con tu ben trai hay ben phai chuoi me den ky tu xac dinh
'Char: ky tu xac dinh
'n=true => cat ben trai, n=false => cat ben phai
'
Dim Sb As String, stChk As String
Dim i As Integer
If Len(St) = 0 Then Exit Function
St = Trim(St)
For i = 0 To Len(St)
If N = True Then 'Cat trai
stChk = Mid(St, i + 1, 1)
Else
stChk = Mid(St, Len(St) - i, 1)
End If
If stChk <> Char Then
If N = True Then
Sb = Sb & stChk
Else
Sb = stChk & Sb
End If
Else
Exit For
End If
Next i
CutLoR2 = Sb
End Function
'====================================================
Xin tham gia với các bạn về VBA với hàm tự tạo thứ nhất nhé. Sau đây là mã nguồn. Để nạp mã nguồn này vào Excel, các Bạn làm như sau:
1. Mở Excel với 1 WorkBook trắng
2. Từ menu Tools chọn Macros làm hiện menu thứ cấp, chọn tiếp Visual Basic Editor (VBE)
3. Trong VBE, chọn menu Insert \ Module
4. Paste đọan mã sau vào đó.
5. Lưu lại
6. Sử dụng:
+ Nếu Bạn muốn tạo ra 1 Add-In có cái hàm này và sẽ còn những hàm khác nữa tùy bạn, từ menu File của Excel chọn Save As, trong hộp thọai Save As chọn "Save As Type" là "Microsoft Excel Add-In". Vậy là đã có Add-In (có tên là .XLA) sẵn sàng nạp để sử dụng rồi.
+ Nạp Add-In: từ menu Tools chọn Add-Ins, trong hộp thọai Add-Ins bấm nút Browse và chỉ vào file XLA vừa tạo ở trên.
+ kể từ đó trở đi, các hàm do bạn tạo ra trong Add-In này được gọi sử dụng giống như các hàm mặc định của Excel.
Và đây là mã nguồn của hàm tự tạo thứ nhất:
'========================================
Function CutLoR2(St As String, Char As String, N As Boolean)
'
'Cat lay chuoi con tu ben trai hay ben phai chuoi me den ky tu xac dinh
'Char: ky tu xac dinh
'n=true => cat ben trai, n=false => cat ben phai
'
Dim Sb As String, stChk As String
Dim i As Integer
If Len(St) = 0 Then Exit Function
St = Trim(St)
For i = 0 To Len(St)
If N = True Then 'Cat trai
stChk = Mid(St, i + 1, 1)
Else
stChk = Mid(St, Len(St) - i, 1)
End If
If stChk <> Char Then
If N = True Then
Sb = Sb & stChk
Else
Sb = stChk & Sb
End If
Else
Exit For
End If
Next i
CutLoR2 = Sb
End Function
'====================================================