Xin hỗ trợ Bước đầu học VBA

[giangnguyenvn19]

Xin chào cả nhà, em vừa học VBA cho excel mấy hôm qua một quyển sách từ Diễn đàn của Bác Phan tự hướng, đến lúc ghi nháp một đoạn code vô và nhấn F5 nhưng bị báo lỗi không biết em gõ sai chỗ nào mong các anh chị chỉ dạy

Sub book2()


Workbook("book2.xlsx").Activate


Sheets("sheet1").Activate


Sheets("sheet1").Range("B3").Select


ActiveCell.FormulaR1C1 = "truong DH mo dia chat"


Selection.Font.Bold = True


Selection.Font.Italic = True


Selection.Font.ColorIndex = 3


With Selection.Interior


.ColorIndex = 6


.Pattern = xlSolid


End With
Range("B4").Select
End Sub

 

[vu_tuan_manh_linh]

ActiveCell.FormulaR1C1 = "truong DH mo dia chat"
bạn thay dòng này bằng dòng
ActiveCell.value = "truong DH mo dia chat"

 

[giangnguyenvn19]

bạn ơi ngoài ra nó báo là "Sub or Function not defined", ngoài ra anh có thể lý giải vì sao phải thay thế như dòng trên anh y/c không?

 

[vu_tuan_manh_linh]

Activecell.FormulaR1C1 hoặc Activecell.Formula là đặt vào ô hiện tại 1 công thức và công thức này phải đúng, nghĩa là excel phải tính toán được. Ví dụ như:
Activecell.Formula="=1245*142+234/23"
Activecell.Formula="=A9"
Activecell.Formula="=Sheet1!A9"
Thủ tục báo lỗi vì từ Workbook("book2.xlsx").Activate sai, thiếu "s" sau từ Workbook. Đúng sẽ là Workbooks("book2.xlsx").Activate
Lưu ý: Với excel 2003 thì đuôi file là .xls, từ excel 2007 trở lên thì đuôi file là .xlsx
Thân!

 

[vu_tuan_manh_linh]

Một lưu ý nữa khi đặt công thức vào Cell bằng câu lệnh ActiveCell.Formula là: Nếu bạn đang để Excel ở chế độ định dạng số kiểu Việt Nam, nghĩa là dấu ngăn cách phần nguyên và phần thập phân là dấu ",", ngăn cách hàng nghìn và hàng trăm là dấu ".", thì trong đoạn code dấu "," phải được thay bằng dấu ".", và dấu ngăn cách giữa các tham số của hàm phải là dấu "," thay vì dấu ";" như trong bảng tính excel. Nếu công thức không đúng, khi chạy code sẽ báo lỗi.

 

[giangnguyenvn19]

bạn ơi cơ bản nó như vậy nè! giúp mình nhé các bạn!

 

[giangnguyenvn19]

Thân ! cam on rat nhieu! co moi chu "S" thôi, cảm ơn bạn.