Hỗ trợ viết Sub đơn lẻ thành Sub chung cho Code thay thế ký tự từ Excel sang Word

Liên hệ QC
quyenpv

quyenpv

Thu nhặt kiến thức
Tham gia
5/1/13
Bài viết
719
Được thích
97
Giới tính
Nam
Nghề nghiệp
Decode cuộc đời!
Em chào anh chị
Trước em có nhờ các anh chị giúp đỡ Code và được anh ThangCuAnh giúp đỡ tại Topic này. Code chạy rất tốt tuy nhiên muốn sử dụng nhiều em lại làm thêm 1 Sub tương tự như thế chỉ điều chỉnh 2 biến là thư mục lưu file và tên file
Mong muốn nhờ các anh viết giúp em 1 Sub chung cho phép lấy tên biến khai báo khi cần chạy Code thôi chung
Mã: 
Sub Gop()
Dim sRootFolder As String, sFileName as String
sRootFolder ="ABC"
sFileName="Ten File"
Call Sub_PLy
msgbox "Hoàn thành"
End Sub

Mã: 
Option Private Module
'Option Explicit
Public wdApp As Object
Sub Export_HSPly()
On Error Resume Next
    Dim wDoc As Object, xlWB As Workbook, shtDanhMuc As Worksheet
    Dim strFind As String, strReplace As String, strPath As String
    Dim myArr As Variant
    Dim LastRow As Long, i As Integer
Set xlWB = Workbooks(ActiveWorkbook.Name)
'Set shtDanhMuc = xlWB.Sheets("XHH")
Set shtDanhMuc = xlWB.ActiveSheet
shtDanhMuc.Activate
'only allow the user to select one file
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
'Remove all other filters
Call Application.FileDialog(msoFileDialogOpen).Filters.Clear
'Add a custom filter
Call Application.FileDialog(msoFileDialogOpen).Filters.Add("Word Files Only", "*.doc;*.docx")
'make the file dialog visible to the user
i = Application.FileDialog(msoFileDialogOpen).Show
If 0 = i Then Exit Sub
'determine what choice the user made
'get the file path selected by the user
strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
'print the file path to sheet 1
shtDanhMuc.[D4] = strPath
LastRow = shtDanhMuc.Cells(rows.count, "C").End(xlUp).Row ' Last row cua cot C
If (LastRow <= 2) Then Exit Sub                          ' Không có data
myArr = shtDanhMuc.Range("C5:D" & LastRow).value         ' copy range values tu C6:D &lastRow to myArr
' Open word file for data merge
Set wdApp = CreateObject("Word.Application")
wdApp.visible = True
Set wDoc = wdApp.Documents.Open(strPath, ReadOnly:=True)
wDoc.Activate
For i = 1 To UBound(myArr)
    strFind = myArr(i, 1)                                                       'Tu khoa
    If myArr(i, 2) <> "" Then
        strReplace = myArr(i, 2)                                                    'Noi dung thay the
    Else
        strReplace = "............."
    End If
    FindAndReplace "{-" & Trim(strFind) & "-}", strReplace
Next i
'''''Luu thanh file Bao cao voi ten File tai D5
wDoc.Content.Font.Color = wdColorAutomatic                                   'Chuyen tat ca noi dung chu ve mau den
wDoc.SaveAs FileName:=ThisWorkbook.Path & "\1. HDong Export\" & Range("D5") & ".doc"         'Luu ten file
wdApp.Documents(ThisWorkbook.Path & "\1. HDong Export\" & Range("D5") & ".doc").Close (True) 'Chay code xong dong file Word
wdApp.Quit
End Sub


Sub Run_Export_TTrQD()
    On Error Resume Next
    Dim wDoc As Object, xlWB As Workbook, shtDanhMuc As Worksheet
    Dim strFind As String, strReplace As String, strPath As String
    Dim myArr       As Variant
    Dim LastRow As Long, i As Integer
    Set xlWB = Workbooks(ActiveWorkbook.Name)
    'Set shtDanhMuc = xlWB.Sheets("XHH")
    Set shtDanhMuc = xlWB.ActiveSheet
    shtDanhMuc.Activate
    'only allow the user to select one file
    Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
    'Remove all other filters
    Call Application.FileDialog(msoFileDialogOpen).Filters.Clear
    'Add a custom filter
    Call Application.FileDialog(msoFileDialogOpen).Filters.Add("Word Files Only", "*.doc;*.docx")
    'make the file dialog visible to the user
    i = Application.FileDialog(msoFileDialogOpen).Show
    If 0 = i Then Exit Sub
    'determine what choice the user made
    'get the file path selected by the user
    strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    'print the file path to sheet 1
    shtDanhMuc.[D4] = strPath
    LastRow = shtDanhMuc.Cells(rows.count, "C").End(xlUp).Row    ' Last row cua cot C
    If (LastRow <= 2) Then Exit Sub    ' Không có data
    myArr = shtDanhMuc.Range("C5:D" & LastRow).value    ' copy range values tu C6:D &lastRow to myArr
    ' Open word file for data merge
    Set wdApp = CreateObject("Word.Application")
    wdApp.visible = True
    Set wDoc = wdApp.Documents.Open(strPath, ReadOnly:=True)
    wDoc.Activate
    For i = 1 To UBound(myArr)
        strFind = myArr(i, 1)    'Tu khoa
        If myArr(i, 2) <> "" Then
            strReplace = myArr(i, 2)    'Noi dung thay the
        Else
            strReplace = "............."
        End If
        FindAndReplace "{-" & Trim(strFind) & "-}", strReplace
    Next i
    '''''Luu thanh file Bao cao voi ten File tai D5
    wDoc.Content.Font.Color = wdColorAutomatic    'Chuyen tat ca noi dung chu ve mau den
    sRootFolder = ActiveWorkbook.Path
    wDoc.SaveAs FileName:=sRootFolder & "\TTr_QD_" & Range("D27") & ".doc"    'Luu ten file
    wdApp.Documents(sRootFolder & "\TTr_QD_" & Range("D27") & ".doc").Close (True)    'Chay code xong dong file Word
    wdApp.Quit
End Sub

Sub Export_HSPly_BTS()
    On Error Resume Next
    Dim wDoc As Object, xlWB As Workbook, shtDanhMuc As Worksheet
    Dim strFind As String, strReplace As String, strPath As String
    Dim myArr       As Variant
    Dim LastRow As Long, i As Integer
    Set xlWB = Workbooks(ActiveWorkbook.Name)
    'Set shtDanhMuc = xlWB.Sheets("XHH")
    Set shtDanhMuc = xlWB.ActiveSheet
    shtDanhMuc.Activate
    'only allow the user to select one file
    Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
    'Remove all other filters
    Call Application.FileDialog(msoFileDialogOpen).Filters.Clear
    'Add a custom filter
    Call Application.FileDialog(msoFileDialogOpen).Filters.Add("Word Files Only", "*.doc;*.docx")
    'make the file dialog visible to the user
    i = Application.FileDialog(msoFileDialogOpen).Show
    If 0 = i Then Exit Sub
    'determine what choice the user made
    'get the file path selected by the user
    strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    'print the file path to sheet 1
    shtDanhMuc.[D4] = strPath
    LastRow = shtDanhMuc.Cells(rows.count, "C").End(xlUp).Row    ' Last row cua cot C
    If (LastRow <= 2) Then Exit Sub    ' Không có data
    myArr = shtDanhMuc.Range("C5:D" & LastRow).value    ' copy range values tu C6:D &lastRow to myArr
    ' Open word file for data merge
    Set wdApp = CreateObject("Word.Application")
    wdApp.visible = True
    Set wDoc = wdApp.Documents.Open(strPath, ReadOnly:=True)
    wDoc.Activate
    For i = 1 To UBound(myArr)
        strFind = myArr(i, 1)    'Tu khoa
        If myArr(i, 2) <> "" Then
            strReplace = myArr(i, 2)    'Noi dung thay the
        Else
            strReplace = "............."
        End If
        FindAndReplace "{-" & Trim(strFind) & "-}", strReplace
    Next i
    '''''Luu thanh file Bao cao voi ten File tai D5
    wDoc.Content.Font.Color = wdColorAutomatic    'Chuyen tat ca noi dung chu ve mau den
    sRootFolder = "E:\DL QUYENPV\THIET KE 2021\18. To trinh XHH, tang gia cac thang\1. HDong Export"
    wDoc.SaveAs FileName:=sRootFolder & "\" & Range("D5") & ".doc"    'Luu ten file
    wdApp.Documents(sRootFolder & "\" & Range("D5") & ".doc").Close (True)    'Chay code xong dong file Word
    wdApp.Quit
End Sub

Public Sub FindAndReplace(ByVal strFind As String, ByVal strReplace As String)
    Dim dataObj As MSForms.DataObject
    Set dataObj = New MSForms.DataObject
    'Dim dataObj As New MSForms.DataObject
    dataObj.SetText strReplace
    dataObj.PutInClipboard
    wdApp.Selection.GoTo what:=wdGoToSection, which:=wdGoToFirst ' Go to the start of the document
    With wdApp.Selection.Find
        .ClearFormatting
        .MatchCase = True
        .MatchWholeWord = True
        .Text = strFind
        .Replacement.ClearFormatting
        .Replacement.Text = "^c"
        .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
    End With
    Set dataObj = Nothing
End Sub
 

File đính kèm

  • Help Gop SUb.xlsm
    222.4 KB · Đọc: 14
Sắp xếp theo thời gian sắp xếp theo bầu chọn
quyenpv đã viết:
Code chạy rất tốt tuy nhiên muốn sử dụng nhiều em lại làm thêm 1 Sub tương tự như thế chỉ điều chỉnh 2 biến là thư mục lưu file và tên file
Mong muốn nhờ các anh viết giúp em 1 Sub chung cho phép lấy tên biến khai báo khi cần chạy Code thôi chung
Nhấp chuột vào đây để mở rộng...
Bạn thêm dấu phẩy vào đi. Đọc xong não xoắn quẩy luôn.

Tham khảo bài này.

www.giaiphapexcel.com

Bài 9. Function and Sub

Bài 9. Function and Sub (Danh sách các bài viết về VBA xem ở đây Index - Các bài viết về VBA) 1. Cấu trúc [Public | Private | Static] Function / Sub Line(s) code End Function / Sub Function/ End Function: Bắt đầu/ kết thúc một hàm. Sub/ End Sub: Bắt đầu/ kết thúc một thủ tục. Các từ khóa...
www.giaiphapexcel.com www.giaiphapexcel.com
 
Upvote 0
Tác giả là một người viết code rất giỏi.
Rất tiếc là loại code này rất khó chỉnh sửa.
Xài được thì xài. Không thì chỉ có tác giả mới sửa được.
 
Upvote 0
Theo như em đọc nếu truyền 2 biến vào bắt buộc phải viết dạng Function ạ
 
Upvote 0
quyenpv đã viết:
Em chào anh chị
Trước em có nhờ các anh chị giúp đỡ Code và được anh ThangCuAnh giúp đỡ tại Topic này. Code chạy rất tốt tuy nhiên muốn sử dụng nhiều em lại làm thêm 1 Sub tương tự như thế chỉ điều chỉnh 2 biến là thư mục lưu file và tên file
Mong muốn nhờ các anh viết giúp em 1 Sub chung cho phép lấy tên biến khai báo khi cần chạy Code thôi chung
Mã: 
Sub Gop()
Dim sRootFolder As String, sFileName as String
sRootFolder ="ABC"
sFileName="Ten File"
Call Sub_PLy
msgbox "Hoàn thành"
End Sub

Mã: 
Option Private Module
'Option Explicit
Public wdApp As Object
Sub Export_HSPly()
On Error Resume Next
    Dim wDoc As Object, xlWB As Workbook, shtDanhMuc As Worksheet
    Dim strFind As String, strReplace As String, strPath As String
    Dim myArr As Variant
    Dim LastRow As Long, i As Integer
Set xlWB = Workbooks(ActiveWorkbook.Name)
'Set shtDanhMuc = xlWB.Sheets("XHH")
Set shtDanhMuc = xlWB.ActiveSheet
shtDanhMuc.Activate
'only allow the user to select one file
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
'Remove all other filters
Call Application.FileDialog(msoFileDialogOpen).Filters.Clear
'Add a custom filter
Call Application.FileDialog(msoFileDialogOpen).Filters.Add("Word Files Only", "*.doc;*.docx")
'make the file dialog visible to the user
i = Application.FileDialog(msoFileDialogOpen).Show
If 0 = i Then Exit Sub
'determine what choice the user made
'get the file path selected by the user
strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
'print the file path to sheet 1
shtDanhMuc.[D4] = strPath
LastRow = shtDanhMuc.Cells(rows.count, "C").End(xlUp).Row ' Last row cua cot C
If (LastRow <= 2) Then Exit Sub                          ' Không có data
myArr = shtDanhMuc.Range("C5:D" & LastRow).value         ' copy range values tu C6:D &lastRow to myArr
' Open word file for data merge
Set wdApp = CreateObject("Word.Application")
wdApp.visible = True
Set wDoc = wdApp.Documents.Open(strPath, ReadOnly:=True)
wDoc.Activate
For i = 1 To UBound(myArr)
    strFind = myArr(i, 1)                                                       'Tu khoa
    If myArr(i, 2) <> "" Then
        strReplace = myArr(i, 2)                                                    'Noi dung thay the
    Else
        strReplace = "............."
    End If
    FindAndReplace "{-" & Trim(strFind) & "-}", strReplace
Next i
'''''Luu thanh file Bao cao voi ten File tai D5
wDoc.Content.Font.Color = wdColorAutomatic                                   'Chuyen tat ca noi dung chu ve mau den
wDoc.SaveAs FileName:=ThisWorkbook.Path & "\1. HDong Export\" & Range("D5") & ".doc"         'Luu ten file
wdApp.Documents(ThisWorkbook.Path & "\1. HDong Export\" & Range("D5") & ".doc").Close (True) 'Chay code xong dong file Word
wdApp.Quit
End Sub


Sub Run_Export_TTrQD()
    On Error Resume Next
    Dim wDoc As Object, xlWB As Workbook, shtDanhMuc As Worksheet
    Dim strFind As String, strReplace As String, strPath As String
    Dim myArr       As Variant
    Dim LastRow As Long, i As Integer
    Set xlWB = Workbooks(ActiveWorkbook.Name)
    'Set shtDanhMuc = xlWB.Sheets("XHH")
    Set shtDanhMuc = xlWB.ActiveSheet
    shtDanhMuc.Activate
    'only allow the user to select one file
    Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
    'Remove all other filters
    Call Application.FileDialog(msoFileDialogOpen).Filters.Clear
    'Add a custom filter
    Call Application.FileDialog(msoFileDialogOpen).Filters.Add("Word Files Only", "*.doc;*.docx")
    'make the file dialog visible to the user
    i = Application.FileDialog(msoFileDialogOpen).Show
    If 0 = i Then Exit Sub
    'determine what choice the user made
    'get the file path selected by the user
    strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    'print the file path to sheet 1
    shtDanhMuc.[D4] = strPath
    LastRow = shtDanhMuc.Cells(rows.count, "C").End(xlUp).Row    ' Last row cua cot C
    If (LastRow <= 2) Then Exit Sub    ' Không có data
    myArr = shtDanhMuc.Range("C5:D" & LastRow).value    ' copy range values tu C6:D &lastRow to myArr
    ' Open word file for data merge
    Set wdApp = CreateObject("Word.Application")
    wdApp.visible = True
    Set wDoc = wdApp.Documents.Open(strPath, ReadOnly:=True)
    wDoc.Activate
    For i = 1 To UBound(myArr)
        strFind = myArr(i, 1)    'Tu khoa
        If myArr(i, 2) <> "" Then
            strReplace = myArr(i, 2)    'Noi dung thay the
        Else
            strReplace = "............."
        End If
        FindAndReplace "{-" & Trim(strFind) & "-}", strReplace
    Next i
    '''''Luu thanh file Bao cao voi ten File tai D5
    wDoc.Content.Font.Color = wdColorAutomatic    'Chuyen tat ca noi dung chu ve mau den
    sRootFolder = ActiveWorkbook.Path
    wDoc.SaveAs FileName:=sRootFolder & "\TTr_QD_" & Range("D27") & ".doc"    'Luu ten file
    wdApp.Documents(sRootFolder & "\TTr_QD_" & Range("D27") & ".doc").Close (True)    'Chay code xong dong file Word
    wdApp.Quit
End Sub

Sub Export_HSPly_BTS()
    On Error Resume Next
    Dim wDoc As Object, xlWB As Workbook, shtDanhMuc As Worksheet
    Dim strFind As String, strReplace As String, strPath As String
    Dim myArr       As Variant
    Dim LastRow As Long, i As Integer
    Set xlWB = Workbooks(ActiveWorkbook.Name)
    'Set shtDanhMuc = xlWB.Sheets("XHH")
    Set shtDanhMuc = xlWB.ActiveSheet
    shtDanhMuc.Activate
    'only allow the user to select one file
    Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
    'Remove all other filters
    Call Application.FileDialog(msoFileDialogOpen).Filters.Clear
    'Add a custom filter
    Call Application.FileDialog(msoFileDialogOpen).Filters.Add("Word Files Only", "*.doc;*.docx")
    'make the file dialog visible to the user
    i = Application.FileDialog(msoFileDialogOpen).Show
    If 0 = i Then Exit Sub
    'determine what choice the user made
    'get the file path selected by the user
    strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    'print the file path to sheet 1
    shtDanhMuc.[D4] = strPath
    LastRow = shtDanhMuc.Cells(rows.count, "C").End(xlUp).Row    ' Last row cua cot C
    If (LastRow <= 2) Then Exit Sub    ' Không có data
    myArr = shtDanhMuc.Range("C5:D" & LastRow).value    ' copy range values tu C6:D &lastRow to myArr
    ' Open word file for data merge
    Set wdApp = CreateObject("Word.Application")
    wdApp.visible = True
    Set wDoc = wdApp.Documents.Open(strPath, ReadOnly:=True)
    wDoc.Activate
    For i = 1 To UBound(myArr)
        strFind = myArr(i, 1)    'Tu khoa
        If myArr(i, 2) <> "" Then
            strReplace = myArr(i, 2)    'Noi dung thay the
        Else
            strReplace = "............."
        End If
        FindAndReplace "{-" & Trim(strFind) & "-}", strReplace
    Next i
    '''''Luu thanh file Bao cao voi ten File tai D5
    wDoc.Content.Font.Color = wdColorAutomatic    'Chuyen tat ca noi dung chu ve mau den
    sRootFolder = "E:\DL QUYENPV\THIET KE 2021\18. To trinh XHH, tang gia cac thang\1. HDong Export"
    wDoc.SaveAs FileName:=sRootFolder & "\" & Range("D5") & ".doc"    'Luu ten file
    wdApp.Documents(sRootFolder & "\" & Range("D5") & ".doc").Close (True)    'Chay code xong dong file Word
    wdApp.Quit
End Sub

Public Sub FindAndReplace(ByVal strFind As String, ByVal strReplace As String)
    Dim dataObj As MSForms.DataObject
    Set dataObj = New MSForms.DataObject
    'Dim dataObj As New MSForms.DataObject
    dataObj.SetText strReplace
    dataObj.PutInClipboard
    wdApp.Selection.GoTo what:=wdGoToSection, which:=wdGoToFirst ' Go to the start of the document
    With wdApp.Selection.Find
        .ClearFormatting
        .MatchCase = True
        .MatchWholeWord = True
        .Text = strFind
        .Replacement.ClearFormatting
        .Replacement.Text = "^c"
        .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
    End With
    Set dataObj = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Call Sub_PLy: không thấy Sub Sub_PLy
 
Upvote 0
HieuCD đã viết:
Vậy thì ..........
Mã: 
Sub Gop()
Dim sRootFolder As String, sFileName as String
sRootFolder ="ABC"
sFileName="Ten File"
Call Sub_PLy (sRootFolder, sFileName)
msgbox "Hoàn thành"
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ như em đã trình bày ở trên, mỗi lần em cần sử dụng code trên em lại làm thêm 1 Sub chỉ thay đổi mỗi đường dẫn sRootFolder và tên File là sFileName
Mong muốn là code export ở trên có thể dùng chung, mỗi khi cần thì gọi Sub hay Function với 2 biến mình gán phía trong Sub trước khi gọi Code ạ
 
Upvote 0
quyenpv đã viết:
Dạ như em đã trình bày ở trên, mỗi lần em cần sử dụng code trên em lại làm thêm 1 Sub chỉ thay đổi mỗi đường dẫn sRootFolder và tên File là sFileName
Mong muốn là code export ở trên có thể dùng chung, mỗi khi cần thì gọi Sub hay Function với 2 biến mình gán phía trong Sub trước khi gọi Code ạ
Nhấp chuột vào đây để mở rộng...
Bạn mấy tuổi rồi mà đọc mấy bài bạn không hiểu người ta nói gì?
Tung loạt code có tận 4 sub mà không cho biết mình đang nói, đang quan tâm tới sub nào thì có nghĩa là bắt người ta đoán mò để giúp mình? Có ai hiểu ý đâu mà giúp. Hoặc phải giải thích cặn kẽ ý của mình. Hãy tập bắt chước kiểu mô tả của tôi ở dưới.

Đính kèm tập tin, loạt code đâu đã đủ. Cần mô tả kỹ.

Tung tận 4 Sub lên mà không chỉ tận mặt, gọi tận tên sub mình đang quan tâm mà lại phải bịa ra cái sub Sub_PLy. Bó tay toàn tập.

Nếu là đoán mò thì:

Mô tả:
Giả sử tôi có sub ABC() mà trong code của nó có dùng 2 GIÁ TRỊ CỨNG: hichic và blala.

Mã: 
Sub ABC()
... trong code có những giá trị CỨNG hichic, blala
End Sub

Bây giờ tôi muốn 2 giá trị đó được truyền với tư cách tham số tham1 và tham2 thì làm như thế nào?

Giải quyết:
Mã: 
Sub ABC(ByVal tham1 As NgayMaiEmDi, ByVal tham2 As BienNhoTenEmGoiVe)
... Tất cả mọi xuất hiện hichic trong code thay bằng tham1
... Tất cả mọi xuất hiện blala trong code thay bằng tham2
End Sub
Làm một lần thôi. Đoán mò đúng hay sai cũng nghỉ.
 
Lần chỉnh sửa cuối:
Upvote 0
Dạ cám ơn các anh ạ, đúng là em diễn đạt không rõ để các anh hiểu. Theo cách gợi ý của anh HieuCD và anh batman1 em đã làm được rồi ạ
Bài đã được tự động gộp:

batman1 đã viết:
Bạn mấy tuổi rồi mà đọc mấy bài bạn không hiểu người ta nói gì?
Tung loạt code có tận 4 sub mà không cho biết mình đang nói, đang quan tâm tới sub nào thì có nghĩa là bắt người ta đoán mò để giúp mình? Có ai hiểu ý đâu mà giúp. Hoặc phải giải thích cặn kẽ ý của mình. Hãy tập bắt chước kiểu mô tả của tôi ở dưới.

Đính kèm tập tin, loạt code đâu đã đủ. Cần mô tả kỹ.

Tung tận 4 Sub lên mà không chỉ tận mặt, gọi tận tên sub mình đang quan tâm mà lại phải bịa ra cái sub Sub_PLy. Bó tay toàn tập.

Nếu là đoán mò thì:

Mô tả:
Giả sử tôi có sub ABC() mà trong code của nó có dùng 2 GIÁ TRỊ CỨNG: hichic và blala.

Mã: 
Sub ABC()
... trong code có những giá trị CỨNG hichic, blala
End Sub

Bây giờ tôi muốn 2 giá trị đó được truyền với tư cách tham số tham1 và tham2 thì làm như thế nào?

Giải quyết:
Mã: 
Sub ABC(ByVal tham1 As NgayMaiEmDi, ByVal tham2 As BienNhoTenEmGoiVe)
... Tất cả mọi xuất hiện hichic trong code thay bằng tham1
... Tất cả mọi xuất hiện blala trong code thay bằng tham2
End Sub
Làm một lần thôi. Đoán mò đúng hay sai cũng nghỉ.
Nhấp chuột vào đây để mở rộng...
4 Sub em ví dụ ở trên là trường hợp thực tế em đang làm mỗi lần cần em lại phải thêm một Sub kiểu đó chỉ thay đổi có 2 tham số. Nên mạo muội nhờ các anh hỗ trợ viết Sub tổng quát nhất thôi ạ
 
Upvote 0
quyenpv đã viết:
4 Sub em ví dụ ở trên là trường hợp thực tế em đang làm mỗi lần cần em lại phải thêm một Sub kiểu đó chỉ thay đổi có 2 tham số. Nên mạo muội nhờ các anh hỗ trợ viết Sub tổng quát nhất thôi ạ
Nhấp chuột vào đây để mở rộng...
Lần sau cứ mô tả như tôi thôi. Tung lên 4 sub rồi bịa ra Sub_PLy làm nhiều người không hiểu.
 
Upvote 0
Chắc sợi dây kinh nghiệm này dài bằng nữa vòng trái đất rồi đấy nhỉ?
Đâu đâu ở khắp VIE đều rút mà mãi không đến đầu cuối!
 

File đính kèm

  • Lù đù.jpg
    Lù đù.jpg
    41.5 KB · Đọc: 6
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

N
Vẽ biểu đồ kết hợp nhiều yếu tố trong excel
Trả lời
0
Đọc
1
Ny Ny 2024
N
H
Hàm đếm số ngày thứ bảy và chủ nhật trong một khoảng thời gian
Trả lời
13
Đọc
19K
qthinh4996
Q
N
Giúp sửa mã code
Trả lời
15
Đọc
218
Nguyễn Diêu Hiền
N
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
11 12 13
Trả lời
244
Đọc
13K
HeSanbi
HeSanbi
GPE-Trợ Lý
KHÓA HỌC BỨT PHÁ KỸ NĂNG EXCEL
    • Thích
Trả lời
0
Đọc
34
GPE-Trợ Lý
GPE-Trợ Lý
P
Tổng hợp dữ liệu từ các sheet theo chọn lọc
Trả lời
2
Đọc
51
phutdm
P
dunghtgiga
  • Đã khóa
Tính bốn tuần cho một tháng
Trả lời
9
Đọc
251
ptm0412
ptm0412
zarra
Cần giúp tạo form in mã vạch cho vật tư theo SL cụ thể.
Trả lời
3
Đọc
92
HUONGHCKT
H
Mr Đạo
in giấy ra bị lệch xuống dưới
    • Thích
2
Trả lời
29
Đọc
26K
Hoàng Tuấn 868
H
H
Không xem được ảnh trên Excel
Trả lời
3
Đọc
1K
huyentran9292
H
T
Xin form quản lý dữ liệu học viên của Trung tâm Đào tạo
Trả lời
2
Đọc
207
hakiru188
H
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
Trả lời
6
Đọc
179
Tuấn Bụng Bự
Tuấn Bụng Bự
C
Code Lọc Dữ Liệu
Trả lời
10
Đọc
165
Cúc Hr
C
Y
Cách ẩn công thức 1 ô trong sheet
Trả lời
8
Đọc
112
hoangminhtien
hoangminhtien
vuha
  • Question
Lỗi chọn dòng thứ 6 trong sheet được chọn: rows("6:6").select
Trả lời
12
Đọc
156
ptm0412
ptm0412
Nguyencaocuong86
Tô màu dữ liệu trùng lặp trong excel.
Trả lời
10
Đọc
138
Nguyencaocuong86
Nguyencaocuong86
Hoangquyenbong
  • Question
Nhờ viết code lọc dữ liệu tại các sheet khác nhau.
Trả lời
12
Đọc
160
Hoangquyenbong
Hoangquyenbong
D
Giúp em công thức lấy mã vật tư gồm 14 số?
Trả lời
3
Đọc
103
hoangminhtien
hoangminhtien
HeSanbi
  • Đã giải quyết
HÀM FITROW - Co giãn dòng tự động tối ưu nhất cho Excel v2.43 (*14/10/2024)
    • Thích
    • Yêu thích
2 3
Trả lời
48
Đọc
21K
HeSanbi
HeSanbi
L
Dùng vlookup đưa kết quả không được
Trả lời
19
Đọc
303
họ nguyễn tên thùy
họ nguyễn tên thùy
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom