[Nhờ giúp Macro] Macro báo lỗi không chạy nếu đặt tên sheet khác (1 người xem)

  • Thread starter Thread starter wkiz
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
wkiz

wkiz

Thành viên mới
Tham gia
8/9/19
Bài viết
3
Được thích
0
Xin chào anh/chị,
Em mới học excel vba có 1 đoạn Macro như bên dưới. Vấn đề của em là, nếu em đặt tên sheet là "test" thì đoạn code chạy bình thường, nhưng nếu sửa tên sheet đó khác đi thì sẽ ko chạy đc.

Mã: 
Sub taobangchuan()
'
' taobangchuan Macro
'

'
    Columns("A:A").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "STT"
    Columns("E:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:R").Select
    Selection.Delete Shift:=xlToLeft
    Columns("H:BB").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:B").Select
    ActiveWorkbook.Worksheets("test").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("test").Sort.SortFields.Add Key:=Range("B1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("test").Sort
        .SetRange Range("A2:G50")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "GDV"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Mã Khách Hàng"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Sô H?p Ð?ng"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Ngày Vay"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "Du N?"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "Tên Khách Hàng"
    Cells.Select
    With Selection.Font
        .Name = "Arial"
        .Size = 15
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Cells.EntireColumn.AutoFit
    Columns("F:F").Select
    Selection.Style = "Comma"
    Selection.NumberFormat = "_(* #,##0.0_);_(* (#,##0.0);_(* ""-""??_);_(@_)"
    Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A2:A3").Select
    Selection.AutoFill Destination:=Range("A2:A50"), Type:=xlFillDefault
    Range("A2:A50").Select
    Columns("E:E").Select
    Selection.NumberFormat = "dd/mm/yyyy"
    Columns("E:E").Select
    Selection.Cut
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select
End Sub

Em xin cảm ơn.
 

File đính kèm

wkiz đã viết:
Xin chào anh/chị,
Em mới học excel vba có 1 đoạn Macro như bên dưới. Vấn đề của em là, nếu em đặt tên sheet là "test" thì đoạn code chạy bình thường, nhưng nếu sửa tên sheet đó khác đi thì sẽ ko chạy đc.

Mã: 
Sub taobangchuan()
'
' taobangchuan Macro
'

'
    Columns("A:A").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "STT"
    Columns("E:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:R").Select
    Selection.Delete Shift:=xlToLeft
    Columns("H:BB").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:B").Select
    ActiveWorkbook.Worksheets("test").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("test").Sort.SortFields.Add Key:=Range("B1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("test").Sort
        .SetRange Range("A2:G50")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "GDV"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Mã Khách Hàng"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Sô H?p Ð?ng"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Ngày Vay"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "Du N?"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "Tên Khách Hàng"
    Cells.Select
    With Selection.Font
        .Name = "Arial"
        .Size = 15
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Cells.EntireColumn.AutoFit
    Columns("F:F").Select
    Selection.Style = "Comma"
    Selection.NumberFormat = "_(* #,##0.0_);_(* (#,##0.0);_(* ""-""??_);_(@_)"
    Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A2:A3").Select
    Selection.AutoFill Destination:=Range("A2:A50"), Type:=xlFillDefault
    Range("A2:A50").Select
    Columns("E:E").Select
    Selection.NumberFormat = "dd/mm/yyyy"
    Columns("E:E").Select
    Selection.Cut
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select
End Sub

Em xin cảm ơn.
Nhấp chuột vào đây để mở rộng...
Đơn giản là Code trên của bạn chỉ tác động vào Sheets("test") mà thôi.
 
"record Macro"
-------------------------------
PHP: 
Sub taobangchuan()
  Dim WS As Worksheet
  Set WS = ThisWorkbook.ActiveSheet 'Worksheets("test")
  With WS
    .Columns("A:A").ClearContents
    .Range("E:BB").Delete Shift:=xlToLeft
    Dim Arr: Arr = Array("STT", "GDV", _
                   "M" & ChrW(227) & " Kh" & ChrW(225) & "ch H" & ChrW(224) & "ng", _
                   "S" & ChrW(7889) & " H" & ChrW(7907) & "p " & ChrW(273) & "" & ChrW(7891) & "ng", _
                   "D" & ChrW(432) & " N" & ChrW(7907) & "", _
                   "Tên Khách Hàng", _
                   "Ngày Vay")
    .Range("A1").Resize(1, UBound(Arr) + 1).Value = Arr
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("B1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .SetRange WS.Range("A2:G50")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    With .Cells.Font
        .Name = "Arial"
        .Size = 15
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    .Cells.EntireColumn.AutoFit
    With .Columns("E:E")
      .Style = "Comma"
      .NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"
    End With
    .Range("A2").Value = 1
    .Range("A3").Value = 2
    .Range("A2:A3").AutoFill Destination:=.Range("A2:A50"), Type:=xlFillDefault
    .Columns("G:G").NumberFormat = "dd/mm/yyyy"
  End With
End Sub
 
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

C
Tính tổng một khách hàng có nhiều mã hàng nhỏ (6 người xem)
Trả lời
18
Đọc
78
cicerone2
C
queluatb
  • Question Question
Lấy hóa đơn đầu vào cho hóa đơn đầu ra (5 người xem)
Trả lời
1
Đọc
97
thanthanhan
T
G
Làm sao để sắp xếp nhiều cột và hàng theo abc vậy ạ ? (1 người xem)
Trả lời
8
Đọc
124
ngoctinh87
ngoctinh87
K
Lỗi chèn ảnh hàng loạt trong excel 2024 (3 người xem)
Trả lời
2
Đọc
79
kenytien
K
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM (1 người xem)
    • Thích
Trả lời
2
Đọc
1K
ptm0412
ptm0412
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
10
Đọc
336
VetMini
V
H
Chuyển file *xml hóa đơn điện tử sang excel
    • Thích
Trả lời
8
Đọc
303
VetMini
V
P
Phát âm thanh tiếng việt cho dữ liệu trong file excel (2 người xem)
Trả lời
2
Đọc
78
ongke0711
ongke0711
N
xin các cao thủ chỉ cách gỡ lỗi không khởi động được excel (1 người xem)
Trả lời
1
Đọc
76
BuiQuangThuan
B
P
Xin tư vấn về cách tạo bảng quản lý vải
    • Cười
Trả lời
16
Đọc
325
pycckuu410
pycckuu410
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
349
Đọc
31K
tuanktt3
T
D
Nhờ các bác giúp đỡ vấn đề tìm kiếm dữ liệu
Trả lời
6
Đọc
203
Hoàng Tuấn 868
H
P
Hỏi về cách dò tìm từ dưới lên trên, dò tìm trong 2 bảng
Trả lời
7
Đọc
231
kenytien
K
D
Nhờ giúp đỡ về công thức xếp loại rèn luyện theo thông tư 22/2021/TT-BGDĐT
Trả lời
8
Đọc
182
thanthanhan
T
Maika8008
Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
116
Đọc
25K
Thanh Tam 07
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
25
Đọc
973
befaint
befaint
A
Lấy trường dữ liệu trong file hóa đơn dạng *.xml
Trả lời
1
Đọc
171
ongke0711
ongke0711
K
Lọc một mã sản phẩm có nhiều đơn giá thành một file riêng (1 người xem)
Trả lời
2
Đọc
150
ketoansb123
K
D
Nhờ trợ giúp xác định thứ tự của các từ và cụm từ trong 1 chuỗi văn bản.
Trả lời
10
Đọc
307
Phuocam
Phuocam
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ
Trả lời
19
Đọc
633
thuytrangbp28
T
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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom