Cách add range vào namerange

[huonglien1901]

chào mọi người!

Em có vấn đề nhờ mọi người hỗ trợ.

Em có đoạn code sau:

Sub name()
Application.DisplayAlerts = False
' Keyboard Shortcut: Ctrl+Shift+K
    ActiveWorkbook.Names.Add name:="MAH", RefersToR1C1:="=Sheet1!R2C2:R21C2"
    ActiveWorkbook.Names("MAH").Comment = ""
    ActiveWorkbook.Names.Add name:="SL", RefersToR1C1:="=Sheet1!R2C4:R21C4"
    ActiveWorkbook.Names("SL").Comment = ""
    ActiveWorkbook.Names.Add name:="DG", RefersToR1C1:="=Sheet1!R2C5:R21C5"
    ActiveWorkbook.Names("DG").Comment = ""
    Application.DisplayAlerts = True
End Sub

nhưng code chỉ add được vào 01 file, em muốn nó add vào 3 file, trong 3 file này chứa các namerange đó, thì em phải sửa code này lại như thế nào?
Nơi lưu file D:\DONGIA .

Em cảm ơn mọi người nhiều!

 

[vanthinh3101]

chào mọi người!

Em có vấn đề nhờ mọi người hỗ trợ.

Em có đoạn code sau:

Sub name()
Application.DisplayAlerts = False
' Keyboard Shortcut: Ctrl+Shift+K
    ActiveWorkbook.Names.Add name:="MAH", RefersToR1C1:="=Sheet1!R2C2:R21C2"
    ActiveWorkbook.Names("MAH").Comment = ""
    ActiveWorkbook.Names.Add name:="SL", RefersToR1C1:="=Sheet1!R2C4:R21C4"
    ActiveWorkbook.Names("SL").Comment = ""
    ActiveWorkbook.Names.Add name:="DG", RefersToR1C1:="=Sheet1!R2C5:R21C5"
    ActiveWorkbook.Names("DG").Comment = ""
    Application.DisplayAlerts = True
End Sub

nhưng code chỉ add được vào 01 file, em muốn nó add vào 3 file, trong 3 file này chứa các namerange đó, thì em phải sửa code này lại như thế nào?
Nơi lưu file D:\DONGIA .

Em cảm ơn mọi người nhiều!

Gửi bạn.

Sub name(Wb As Workbook)
    Application.DisplayAlerts = False
    ' Keyboard Shortcut: Ctrl+Shift+K
    Wb.Names.Add name:="MAH", RefersToR1C1:="=Sheet1!R2C2:R21C2"
    Wb.Names("MAH").Comment = ""
    Wb.Names.Add name:="SL", RefersToR1C1:="=Sheet1!R2C4:R21C4"
    Wb.Names("SL").Comment = ""
    Wb.Names.Add name:="DG", RefersToR1C1:="=Sheet1!R2C5:R21C5"
    Wb.Names("DG").Comment = ""
    Application.DisplayAlerts = True
End Sub

Sub Main()
    Dim Item, Wb As Workbook
    
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Filters.Add "Microsoft Excel Files", "*.xls*", 1
        If Not .Show = -1 Then
            MsgBox "No files selected", vbCritical, "GPE"
            Exit Sub
        End If
        For Each Item In .SelectedItems
            Set Wb = Workbooks.Open(Item)
            Call name(Wb)
            Wb.Close True
        Next Item
    End With
    Application.ScreenUpdating = True
End Sub

 

[huonglien1901]

Gửi bạn.

Sub name(Wb As Workbook)
    Application.DisplayAlerts = False
    ' Keyboard Shortcut: Ctrl+Shift+K
    Wb.Names.Add name:="MAH", RefersToR1C1:="=Sheet1!R2C2:R21C2"
    Wb.Names("MAH").Comment = ""
    Wb.Names.Add name:="SL", RefersToR1C1:="=Sheet1!R2C4:R21C4"
    Wb.Names("SL").Comment = ""
    Wb.Names.Add name:="DG", RefersToR1C1:="=Sheet1!R2C5:R21C5"
    Wb.Names("DG").Comment = ""
    Application.DisplayAlerts = True
End Sub

Sub Main()
    Dim Item, Wb As Workbook
  
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Filters.Add "Microsoft Excel Files", "*.xls*", 1
        If Not .Show = -1 Then
            MsgBox "No files selected", vbCritical, "GPE"
            Exit Sub
        End If
        For Each Item In .SelectedItems
            Set Wb = Workbooks.Open(Item)
            Call name(Wb)
            Wb.Close True
        Next Item
    End With
    Application.ScreenUpdating = True
End Sub

Code này chạy sao vậy Anh?

Em cảm ơn Anh nhiều!

 

[ndu96081631]

chào mọi người!

Em có vấn đề nhờ mọi người hỗ trợ.

Em có đoạn code sau:

Sub name()
Application.DisplayAlerts = False
' Keyboard Shortcut: Ctrl+Shift+K
    ActiveWorkbook.Names.Add name:="MAH", RefersToR1C1:="=Sheet1!R2C2:R21C2"
    ActiveWorkbook.Names("MAH").Comment = ""
    ActiveWorkbook.Names.Add name:="SL", RefersToR1C1:="=Sheet1!R2C4:R21C4"
    ActiveWorkbook.Names("SL").Comment = ""
    ActiveWorkbook.Names.Add name:="DG", RefersToR1C1:="=Sheet1!R2C5:R21C5"
    ActiveWorkbook.Names("DG").Comment = ""
    Application.DisplayAlerts = True
End Sub

nhưng code chỉ add được vào 01 file, em muốn nó add vào 3 file, trong 3 file này chứa các namerange đó, thì em phải sửa code này lại như thế nào?
Nơi lưu file D:\DONGIA .

Em cảm ơn mọi người nhiều!

Cái yêu cầu này thấy lạ vô cùng, trước giờ chưa từng thấy luôn
Không phải là không làm được nhưng mà cái nào nó "kỳ cục" quá mình cho qua luôn đi

 

[huonglien1901]

Cái yêu cầu này thấy lạ vô cùng, trước giờ chưa từng thấy luôn
Không phải là không làm được nhưng mà cái nào nó "kỳ cục" quá mình cho qua luôn đi

Dạ, cái này khi em file bị virus khi xoá sạch thì gây ra các name bị lỗi, mà nhiều file bị như vậy em làm thủ công lâu quá. Nên em muốn sử dụng code để làm trường hợp này đó Thầy.

 

[ndu96081631]

Dạ, cái này khi em file bị virus khi xoá sạch thì gây ra các name bị lỗi, mà nhiều file bị như vậy em làm thủ công lâu quá. Nên em muốn sử dụng code để làm trường hợp này đó Thầy.

Nhiều file? Rồi không lý nào tất cả chúng đều có name giống nhau?

 

[huonglien1901]

Nhiều file? Rồi không lý nào tất cả chúng đều có name giống nhau?

Dạ đúng rồi thầy! ví dụ như công nợ từng tháng thì các name phải giống nhau mà Thầy.

 

[ndu96081631]

Dạ đúng rồi thầy! ví dụ như công nợ từng tháng thì các name phải giống nhau mà Thầy.

Vậy thì bạn cứ chạy code bài 2 đi rồi tính. Bấm Alt + F8 rồi chạy thôi, có gì đâu mà hỏi "code này chạy sao"

 

[huonglien1901]

Vậy thì bạn cứ chạy code bài 2 đi rồi tính. Bấm Alt + F8 rồi chạy thôi, có gì đâu mà hỏi "code này chạy sao"

Em chạy xong thì code nó in trong file luôn.

 

[ndu96081631]

Em chạy xong thì code nó in trong file luôn.

Cái gì vậy trời? Máy tính của bạn lạ lắm à nha

 

[huonglien1901]

Cái gì vậy trời? Máy tính của bạn lạ lắm à nha

Em không biết vì sao nữa, các file thì có nhưng file đó thì chứa các dòng code in trong file.

 

[vanthinh3101]

Code này chạy sao vậy Anh?

Em cảm ơn Anh nhiều!

Bạn chạy Sub Main là được.
Chọn File cần đặt tên.
Bạn hỏi câu này lạ thật đấy.