(Đưa bài dùm 1 bạn): Làm sao khi mở file (hay trang tính nào đó của file) là hàm dưới đây chạy ngay

[sebweb]

[COLOR=#000000]
Option Explicit[/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]KQ[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]E [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700]) As [/COLOR][COLOR=#0000BB]String Dim A [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]B [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]C [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]D [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]F [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long B [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]:         [/COLOR][COLOR=#0000BB]C [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]:          [/COLOR][COLOR=#0000BB]D [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]F [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To E    A [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]A [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1    [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]A [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]6 Then        B [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]B [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]:              [/COLOR][COLOR=#0000BB]A [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1    End [/COLOR][COLOR=#007700]If    If [/COLOR][COLOR=#0000BB]B [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]6 Then        C [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]C [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]:                  [/COLOR][COLOR=#0000BB]B [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1    End [/COLOR][COLOR=#007700]If    If [/COLOR][COLOR=#0000BB]C [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]6 Then        D [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]D [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]: [/COLOR][COLOR=#0000BB]C [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1    End [/COLOR][COLOR=#007700]If    If [/COLOR][COLOR=#0000BB]D [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]6 Then D [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 Next F [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]A [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0 Then A [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 KQ [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]KQ [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Choose[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]B[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"Trang"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Do"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Den"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Vang"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Tim"[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]_    Choose[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]A[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Duong"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Cam"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Luc"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Nau"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Tro"[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]Choose[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]D[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Trang"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Do"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Den"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Vang"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Tim"[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]_        [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Choose[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]C[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Duong"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Cam"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Luc"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Nau"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]" Tro"[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]Function[/COLOR] 

View more random threads:

• [Help] Tự động liên kết các file excel lại với nhau
• Post bài excel
• in phiếu thu, chi
• Các loại hàm tự tạo tổng hợp các loại công trong tháng
• Xin giúp đỡ code lệnh tìm kiếm vba
• Tạo ngày và thời gian chạy trên Excel
• PIVOT TABLE Bảng tổng hợp 3 chiều
• viết code cho excel tự động nonblank
• Sao chép dữ liệu từ file đến file
• Chạy tự động macro khi mở file excel & Sử dụng Visual Basic tô màu ô tương ứng khi double click cell

[khuvucmuabannhadat]

Ðề: (Đưa bài dùm 1 bạn): Làm sao khi mở file (hay trang tính nào đó của file) là hàm dưới đây chạy n

E cũng chưa có căn bản về VBA em học ngành kĩ thuật. Cho e hỏi mấy Ah một chút! :
macro làm gì? và hàm tự tạo thì dùng ok nhưng khi thoát ra vào lại nó báo " macros are disabled... " và chạy hàm tự tạo thì không được ( có nghĩa là làm sao bật excel lên là dùng ngay )
E và from trong access và excel khác nhau gì? có phải là hổ trợ dể hơn trong excel không?
Xin mọi người giúp em với! em chân thành cảm ơn!