Giúp mình code VBA này với (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

ngaykhongem1

Thành viên chính thức
Tham gia
14/4/12
Bài viết
50
Được thích
2
Chào mọi người,
Mình có 1 file excel code ngôn ngữ VBA mong được mọi người hỗ trợ.
File 3 là file chứa yêu cầu đề bài.
thanks mọi người nhiều.
 

File đính kèm

Lần chỉnh sửa cuối:
File thì mình đã đưa lên rồi nay mình giải thích nội dung các file:
- File 1 là file đã format định dạng màu sắc chuẩn. File 2 là file chứa dữ liệu cần được xử lý, dữ liệu này sẽ được định dạng màu sắc, font chữ... giống như file 1.
- Quy trình chạy chương trình như sau:
B1: Khi chạy macro ở file 1 thì đúng như bạn nói là mở 1 file (chọn file 2) sau đó dùng File 1 làm mẫu để định dạng màu chữ, màu nền, kiểu chữ... Sau đó trong mỗi bảng (table) trừ những dòng tiêu đề(header) và dòng PASE ra chương trình sẽ copy và dán xuống dòng tiếp theo bên dưới vd: dòng 14 được copy dán xuống dòng 15, dòng 16 được copy dán xuống dòng 17(vì thế bạn thấy trong file 2 các dòng sẽ cách nhau 1 dòng để copy dòng bên trên xuống dưới). trong trường hợp các dòng có thêm giá trị chữ phía dưới( chữ "A" , "B") VD: file 2 / TABLE 2 , dòng 41 tiếp sau nó là dòng 42 có giá trị chữ thì dòng 41 được copy dán xuống dòng 42 ô nào có chữ thì = ô trên + ô dưới VD ô trên 12 , ô dưới chữ A thì thành 12 A và chữ A sẽ được định dạng màu đỏ (hình 1).
B2: Sau khi chạy xong B1 chương trình sẽ copy dữ liệu vào 2 sheet giống nhau tên là sheet1 và sheet2. ở sheet 1 duyệt từng TABLE sẽ xóa đi những dòng lẽ trong TABLE đó mục đích để xóa những dòng chứa chữ "A" , "B"...Sheet 2 thì ngược lại, xóa dòng chẵn chừa lại những dòng có "A" "B".
** Ở trên là mình giải thích cách hoạt động của chương trình cho bạn rõ hơn cái đó mình chạy ok rồi, mình chỉ nhờ bạn làm giúp mình chỗ so sánh có dòng MEANS thôi(cái này bạn làm giúp mình cũng ok rồi) nhưng nhờ bạn ghép 2 khối lệnh thành 1 nghĩa là khi người dùng chạy macro là chương trình thực hiện format như của mình bên trên và thực hiện luôn phần code chỗ dòng MEANS mà bạn code giúp mình đó..với lại bây giờ dòng header sẽ ko còn chữ header nữa mà biết là dòng này cách MEANS là 18 dòng hoặc cách dòng có dấu * là 19 dòng. Và khi gán chữ lên dòng MEANS thì chữ sẽ được tô màu đỏ.
// Tóm lại giúp bạn dễ hiểu là 3 vấn đề: ghép 2 khối lệnh thành 1..... Sẽ ko còn chữ header để bạn canh lấy ký tự "A" "B" "C" nữa mà biết rằng dòng đó cách MEANS 18 hoặc cách dòng chứa (*) 19 dòng..... Khi gán "A" "B" lên MEANS thì "A" "B" định dạng màu đỏ.
Gửi thêm bạn file mình chạy xong (chưa có phần so sánh ở dòng MEANS nhờ bạn giúp) phần so sánh MEANS này sẽ được thiết lập chạy trong sheet 2
 

File đính kèm

  • hinh 1.JPG
    hinh 1.JPG
    63.1 KB · Đọc: 1
  • Chay xong.xls
    Chay xong.xls
    31.5 KB · Đọc: 5
Upvote 0
Tôi gửi lại file sau khi chỉnh sửa như sau:
bước 1: đọc file số liệu (ví dụ: File 2.xls) và thực hiện code tạo dạng của bạn
bước 2: tiếp tục xử lý code của tôi đã gửi trước trên sheet 2
bước 3: save file kết quả

Bạn kiểm tra lại xem đã đúng yêu cầu chưa?


(Bổ sung đoạn xóa dòng có chứa dấu *)
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Đúng ý mình 100% rồi. mà mình còn 1 vấn đề nhỏ nữa mong bạn giúp mình nốt luôn. mình muốn sau khi chạy xong định dạng và so sánh thì chương trình sẽ xóa đi những dòng có dấu (*) trong sheet 2. Bạn giúp mình nhé!
 
Upvote 0
Đúng ý mình 100% rồi. mà mình còn 1 vấn đề nhỏ nữa mong bạn giúp mình nốt luôn. mình muốn sau khi chạy xong định dạng và so sánh thì chương trình sẽ xóa đi những dòng có dấu (*) trong sheet 2. Bạn giúp mình nhé!
Chỉ xóa dấu * hay xóa nguyên dòng?
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom