- Tham gia
- 8/6/06
- Bài viết
- 14,321
- Được thích
- 22,364
- Nghề nghiệp
- Nuôi ba ba & trùn quế
Thứ nhất, anh không có sữa! Anh chỉ có chữa mà thôi.File của anh gửi đúng với yêu cầu của bài toán.
Nhưng có điều em muốn anh sữa giúp cột D (số phiếu), em muốn khi xuất sang Bacao thì nó được ghi là: 0169811702074 - 77 thay vì ghi 0169811702074 - 0169811702077. Vì khi em xuất ra phiếu thì dài quá. Mong anh giúp dù, chân thành cám ơn anh. Chíp xxx
Thứ đến: Mình sẽ hướng dẫn thôi, cũng sẽ không chữa & gởi lại nữa đâu, nha!
+ Từ sheets("DuLieu") có ít nhất 3 cách đến được macro đã trích dẫn ở bài trên.
* Bằng menu;
* Bằng tổ hợp phím tắt;
* Bằng ngay cái ComboBox trên trang tính;
Sau khi đến đó, bạn sẽ thấy dòng lệnh:
PHP:
Sheets("BaoCao").Range("D" & Sheets("BaoCAo").Range("D65432").End(xlUp).Row) = _
Sheets("BaoCao").Range("D" & Sheets("BaoCAo").Range("D65432").End(xlUp).Row) & _
"-" & Chr(13) & Cells(iJ, 4).Offset(-1)
+ Dấu nháy con trỏ vẫn để ở đầu dòng có mệnh đề "-" & CHR(13) . . . . Bạn nhập thêm dấu nháy đơn vô hàng lệnh này! Mục đích dấu nháy đơn thường để vô hiệu lực dòng lệnh; Nhưng ở đây ta làm vậy để lưu những gì sợ mất!
+ Tiếp tục, ta đưa con trỏ lên dòng mới tạo & gỏ câu lệnh sau:
PHP:
"-" & Right( Cells(iJ, 4).Offset(-1),2)
+ Công việc xong, bấm lưu. Để an tâm, bạn vô menu Debug & bấm trỏ chuột lên dòng đầu tiên của menu này; Nếu Ễcl không phản đối gì là iên tâm lớn!
+ Bước cuối, tất nhiên là cho macro chạy 1 lần, để xem hiệu quả công việc.
Chờ tin vui từ bạn!