Học tập viết code VBA trong excel

[khoaitd]

Dear All,

Minh đang tập viết macro cho Excel. Mong các bạn chỉ dẫn thên cho mình.

VD: Mình có đoạn code sau:

Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+q
n = 0
m = 0
a = ActiveCell.Address
Range(a).Select
For n = 0 To 22
Range("A2").Select
ActiveCell.Offset(0, n).Copy
ActiveCell.Offset(0, n).Select
m = ActiveCell.Offset(-1, 0)
If m = 1 Then
Range(a).Select
ActiveCell.Offset(0, n).PasteSpecial
End If
Next
Range(a).Select
End Sub

Yêu cầu:
- Mình muốn copy Công thứ từ 1 hàng cho trước đã format chuẩn.
- Từ Bắt đầu từ o hiện hành ấn Ctrl - q sẽ copy từ dòng chuẩn xuống dòng hiện hành(dòng muốn copy)
Ở đây dòng chuẩn là là dòng A2 (dòng A1 là dòng dùng để làm điều kiện để copy nếu = 1 thì copy, = 0thì không copy). Có tổng cộng 22 cột muốn copy.

Đoạn code đã chạy ok. Tuy nhiên nhờ các bạn xem có cách viết nào tốt hơn không, để học hỏi và trao dồi thêm.

 

[SA_DQ]

Vì có nhiều vấn đề cần giải quyết nên không thể viết hết lên đây được, nên em viết cụ thể các vấn đề đó chong file rồi.
Rất mong các anh chị, em sớm giúp đỡ. Em xin chân thành cảm ơn!

Hình như 1 em bé đến hết tuổi tiêm VX sẽ fải trãi qua vài ba lần tiêm 1 loại VX; Nếu là như vậy thì CSDL của bạn sẽ fá sản trong vận hành nay mai!

Theo mình bạn cần 1 trang tính, ngoài trang NSL_TMPS coi như được, chúng ta cần xây dựng 1 trang theo dõi trẻ tiêm các loại VX như cấu trúc dưới đây:

[STT], [Mã Trẻ], [Ngày tiêm], [Lần Tiêm], [Loại VX], [Ghi chú]

Có nghĩa là biến trang dữ liệu ngang đang có trong trang NL_TTUVX của bạn thành trang dữ liệu dọc như cấu trúc trên.

 

[vinhytexp]

cảm ơn bác HYen17 tôi sẽ nghiên cứu và học hỏi thêm, khi nào tạm ổn tôi sẽ gửi lên để các bác góp ý thêm

 

[vinhytexp]

Bác ơi, Để xác định trẻ đã được tiêm loại vacxin nào thì dựa vào sheelNL_TIEM.
Khi trẻ đã được tiêm thì mình nhập ngày tháng năm tiêm từng loại vacxin vào cột tương ứng bên SheelNL_TIEM, trẻ nào chưa được tiêm thì để trống. Em dùng hàm if và Vlookup nhưng có quá nhiều điều kiện nên không được. Mong các bác giúp đỡ.

 

[vinhytexp]

Hình như 1 em bé đến hết tuổi tiêm VX sẽ fải trãi qua vài ba lần tiêm 1 loại VX; Nếu là như vậy thì CSDL của bạn sẽ fá sản trong vận hành nay mai!

Theo mình bạn cần 1 trang tính, ngoài trang NSL_TMPS coi như được, chúng ta cần xây dựng 1 trang theo dõi trẻ tiêm các loại VX như cấu trúc dưới đây:

[STT], [Mã Trẻ], [Ngày tiêm], [Lần Tiêm], [Loại VX], [Ghi chú]

Có nghĩa là biến trang dữ liệu ngang đang có trong trang NL_TTUVX của bạn thành trang dữ liệu dọc như cấu trúc trên.

Em cũng đã thử làm như bác rồi nhưng khi kết hợp hàm if và vlookup để dò tìm thì nó chỉ lấy Mã trẻ đầu tiên tìm thấy và cho kết quả ấy. Những lần tiêm sau thì không được.

 

[SA_DQ]

Bạn tham khảo file này, thử coi:

 

[Lê Duy Thương]

Hình như 1 em bé đến hết tuổi tiêm VX sẽ fải trãi qua vài ba lần tiêm 1 loại VX; Nếu là như vậy thì CSDL của bạn sẽ fá sản trong vận hành nay mai!

Theo mình bạn cần 1 trang tính, ngoài trang NSL_TMPS coi như được, chúng ta cần xây dựng 1 trang theo dõi trẻ tiêm các loại VX như cấu trúc dưới đây:

[STT], [Mã Trẻ], [Ngày tiêm], [Lần Tiêm], [Loại VX], [Ghi chú]

Có nghĩa là biến trang dữ liệu ngang đang có trong trang NL_TTUVX của bạn thành trang dữ liệu dọc như cấu trúc trên.

Nếu là tôi tôi sẽ bố trí dữ liệu có kế hoạch tiêm chủng như thế này.(file đính kèm)
sau đó sẽ lọc trẻ em đén kế hoạch tiêm chủng hàng tháng ngày 9 và 17đưa vào sheet DK_TIEM
khỏe re.
tạm thời chưa nói đến form

 

[ChanhTQ@]

Mình cho rằng file thế này đã là tương đối;
Xin mời các bạn góp ý!

 

[vinhytexp]

Bạn tham khảo file này, thử coi:

cảm ơn bác HYen17 rất nhiều

 

[vinhytexp]

Nếu là tôi tôi sẽ bố trí dữ liệu có kế hoạch tiêm chủng như thế này.(file đính kèm)
sau đó sẽ lọc trẻ em đén kế hoạch tiêm chủng hàng tháng ngày 9 và 17đưa vào sheet DK_TIEM
khỏe re.
tạm thời chưa nói đến form

Cảm ơn bác nhưng có điều vì một lý do nào đó trẻ không tiêm đúng lịch được mà có thể 1 hoặc 2, 3 tháng sau mới tiêm được thì sao?

 

[vinhytexp]

Mình cho rằng file thế này đã là tương đối;
Xin mời các bạn góp ý!

cảm ơn bác ChanhTQ@. Em sẽ nghiên cứu dâng. Bác giúp em sữa lỗi file này với nhé

 

[SA_DQ]

Nếu là tôi tôi sẽ bố trí dữ liệu có kế hoạch tiêm chủng như thế này.(file đính kèm)
sau đó sẽ lọc trẻ em đén kế hoạch tiêm chủng hàng tháng ngày 9 và 17đưa vào sheet DK_TIEM
khỏe re.
tạm thời chưa nói đến form

Hiện tại là tháng 6/2016;
Vậy Thương thử lập danh sách
(1) Những em nào chưa đi tiêm trong tháng (để nhắc nhỡ chẳng hạn)
(2) Danh sách cần tiêm chủng trong tháng sau (để trù liệu số thuốc chẳng hạn)

Sẵn đây xin gởi file hoàn chỉnh hơn nè:

(& mình sẽ tháo bớt các file bài trước, thu hồi tài nguyên)

 

[Lê Duy Thương]

hiện tại là tháng 6/2016;
vậy thương thử lập danh sách
(1) những em nào chưa đi tiêm trong tháng (để nhắc nhỡ chẳng hạn)
(2) danh sách cần tiêm chủng trong tháng sau (để trù liệu số thuốc chẳng hạn)

sẵn đây xin gởi file hoàn chỉnh hơn nè:

(& mình sẽ tháo bớt các file bài trước, thu hồi tài nguyên)

chuyện này không khó
bác xem file nhé. Về cơ bản là vậy

 

[vinhytexp]

nhờ BQT xóa giúp bài này vì tôi đã hết dung lượng tải lên

 

[vinhytexp]

nhờ BQT xóa bài này vì tôi hết dung lượng tải lên

 

[vinhytexp]

mình TẠO FORM nhạp liệu tìm kiếm và copi được một số code. nhờ các anh chị chỉnh sữa giúp cho hoàn thiện. lối ở đoạn nếu mình tìm kiếm và sữa thông tin trên form thì nó không lưu vào nơi mình cần sữa.Xin chân thành cảm ơn!

sao không có ai giúp em với nhỉ?

 

[hailb]

Nhờ các bác giúp đở
code VBA coppy dữ liệu từng đoạn văn trong word vào từng ô trong excell.
Ví dụ mình có file như sau

 

[mrmanh186]

cần giúp đỡ. mình không phải dân kế toán và cũng không chuyên về exl. mình có một bản exl cần hiển thị kết quả sang một sheet khác ( tự động nhập kết quả sang sheet khác) bác nào rảnh giúp được inbox theo zalo 0982975992. mình gửi công. thanks

 

[ngoclinh1990]

Mình muốn tìm hiểu VBA trong Excel, a.c.e nào có giáo trình hay bỏa bối gì hay cho mình xin với ạ

 

[Van Nong]

Xin các sư phụ chỉ giáo ạ.

Thay vì dùng các hàm trong excel, Em muốn làm báo cáo dùng code VBA để hiện giá trị. File mẫu em có đình kèm, mong các sư phụ giúp em ạ.

Em cảm ơn.