Tại sao không chạy macro theo ý muốn được?

[khanhduydang]

Mình có 1 file excel được tạo ra từ 1 phần mềm khác trong trường.
Mình muốn viết 1 macro để khi nhấn thì nó sẽ tự chạy sẽ thêm vào giữa cột giới tính và ngày sinh cột "Điểm thường kỳ" và Điểm giữa kỳ".
Tuy nhiên, không hiểu sao khi chạy nó hiện ra 1 vùng đen thui và thêm vào 2 cột trên.
Hy vọng các bác có kinh nghiệm giúp đỡ.
File mình gửi kèm anh em xem hộ.
http://www.mediafire.com/view/?5kdj61ea31zaee1

Thanks a lot

 

[hoangvuluan]

Bạn thay bằng macro dưới đây xem sao:
Sub Macro1()

With ActiveSheet
.Range("F11:G11").Columns.EntireColumn.Insert
.Range("F11") = "Diem TK"
.Range("G11") = "Diem GK"
.Range("F12").Select
End With

End Sub

 

[khanhduydang]

Bạn thay bằng macro dưới đây xem sao:
Sub Macro1()

With ActiveSheet
.Range("F11:G11").Columns.EntireColumn.Insert
.Range("F11") = "Diem TK"
.Range("G11") = "Diem GK"
.Range("F12").Select
End With

End Sub

Cám ơn bạn rất nhiều. Mình thay bằng đoạn mã của bạn thì chạy được r.
Nhưng cho mình hỏi lý do tại sao vậy? Để học hỏi ý mà.
Thanks a lot!

 

[SA_DQ]

Thêm 1 macro mình ghi thông qua bộ thu để bạn rọng đường nghiền ngẫm:

Sub Macro2()
    Columns("F:G").Select
    Selection.Insert Shift:=xlToRight
    Range("F11").Select
    ActiveCell.FormulaR1C1 = "DThuongKy"
    Range("G11").Select
    ActiveCell.FormulaR1C1 = "DGiuaKy"
    Range("H11").Select
End Sub

 

[khanhduydang]

Thêm 1 macro mình ghi thông qua bộ thu để bạn rọng đường nghiền ngẫm:

Sub Macro2()
    Columns("F:G").Select
    Selection.Insert Shift:=xlToRight
    Range("F11").Select
    ActiveCell.FormulaR1C1 = "DThuongKy"
    Range("G11").Select
    ActiveCell.FormulaR1C1 = "DGiuaKy"
    Range("H11").Select
End Sub

Cám ơn bạn đã nhiệt tình giúp đỡ.
Cái file này nó bị gì mình ko bít. Tuy nhiên khi sử dụng chế độ tự ghi Macro thì nó bị chạy ra 1 vùng xám và điền những cái mình muốn vào đó.
Mình cũng ko hiểu lý do nhưng mã nguồn mà bạn hoangvuluan viết là ok còn của bạn tương tự cái của mình nên nó cũng toàn xám xịt.
Thanks bạn lần nữa.

 

[ChanhTQ@]

/(hà, Khà, . . . . ;

File của bạn, mình để nguyên trên mạng & ghi hay chạy macro vẫn OK mà!

Bạn nên xem lại file hay máy của bạn hoặc lấy file sạch khác mà thử coi sao?

 

[hoangvuluan]

Macro của bạn không bị lỗi. Lỗi nằm ở trong file của bạn: do các ô bị trộn (merger) nên khi select nó sẽ chọn từ cột A đên cột G, lệnh chèn sau đó sẽ chèn không phải 1, 2 cột mà chèn đến 6, 7 cột do đó nó đẩy vùng bảng tính sang phải => bạn thấy 1 vùng đen là thế.