Chỉnh sửa code Quản lý Biên bản Nghiệm thu (13 người xem)

[vanle33]

Trong file đính kèm em đã chỉnh sửa mẫu trong các sheet "Phieu YC" và sheet "NT Noi Bo" và sheet "NT Cong viec", Xin nhờ các thành viên sửa code để
1) Sau khi nhấn IN Biên bản/In của sheet "Danh muc BBNT" thì 3 sheet tôi đã nói trên không bị ẩn đi. Hiện tại sau mỗi lần thử in biên bản em lại phải vào sheet "Danh muc HSHT" và kích vào Show all Sheets màu vàng thì mới hiện được 3 sheet trên.
2) Sau khi đã in thử 3 sheet tôi nói trên em muốn thêm chữ "-NTCV" vào sau chữ BIÊN BẢN SỐ: 01/K3
3) Sau khi đã in thử 3 sheet tôi nói trên em muốn đổi chữ "-NB" thành "-NBCV"
4) Khi in ra thì bị lệch giấy như hình dưới mặc dù đã chỉnh canh lề trái 1,4 lề phải là 0,6. Mong các thành viên chỉnh sửa để in ra không bị lệch nữa

5) Khi chọn như hình dưới



Nhấn IN thì hiện ra lỗi như hình dưới


Nhấn OK thì thấy bôi vàng dòng Private Sub CommandButton1_Click ()
Mong các thành viên chỉnh code để không còn lỗi trên
Thanks

 

[phucbugis]

Dim ? As String, ShAB As String, ShNB As String, ShYC As String. <--- chưa thử nút đó nhưng thấy thiếu

 

[viehoai]

Trong file đính kèm em đã chỉnh sửa mẫu trong các sheet "Phieu YC" và sheet "NT Noi Bo" và sheet "NT Cong viec", Xin nhờ các thành viên sửa code để
1) Sau khi nhấn IN Biên bản/In của sheet "Danh muc BBNT" thì 3 sheet tôi đã nói trên không bị ẩn đi. Hiện tại sau mỗi lần thử in biên bản em lại phải vào sheet "Danh muc HSHT" và kích vào Show all Sheets màu vàng thì mới hiện được 3 sheet trên.
2) Sau khi đã in thử 3 sheet tôi nói trên em muốn thêm chữ "-NTCV" vào sau chữ BIÊN BẢN SỐ: 01/K3
3) Sau khi đã in thử 3 sheet tôi nói trên em muốn đổi chữ "-NB" thành "-NBCV"
4) Khi in ra thì bị lệch giấy như hình dưới mặc dù đã chỉnh canh lề trái 1,4 lề phải là 0,6. Mong các thành viên chỉnh sửa để in ra không bị lệch nữa
5) Khi chọn như hình dưới
Nhấn IN thì hiện ra lỗi như hình dưới
Nhấn OK thì thấy bôi vàng dòng Private Sub CommandButton1_Click ()
Mong các thành viên chỉnh code để không còn lỗi trên
Thanks

1. Như bạn Phucbugis đã nói bạn xóa bỏ đoạn As String, sau Dim dòng lỗi đó là hết lỗi
2. Trong sheet "Danh muc HSHT" bạn không phải show all sheets mà chỉ kích vào nút như hình bên dưới để hiện 3 sheet cần thiết

 

[vanle33]

1. Như bạn Phucbugis đã nói bạn xóa bỏ đoạn As String, sau Dim dòng lỗi đó là hết lỗi
2. Trong sheet "Danh muc HSHT" bạn không phải show all sheets mà chỉ kích vào nút như hình bên dưới để hiện 3 sheet cần thiết
View attachment 119004

Em muốn bỏ nút Show Hide all sheet (nghĩa là luôn luôn hiện tất cả các sheet) , khi nào em muốn ẩn sheet nào thì chỉ cần nhấn phải chuột vào sheet chọn Hide. Thì phải làm thế nào vậy anh?

 

[viehoai]

Em muốn bỏ nút Show Hide all sheet (nghĩa là luôn luôn hiện tất cả các sheet) , khi nào em muốn ẩn sheet nào thì chỉ cần nhấn phải chuột vào sheet chọn Hide. Thì phải làm thế nào vậy anh?

vậy thì đơn giản mà bạn. Cho Show all sheets, sau đó xóa nút đó đi, rồi bạn muốn ẩn sheet nào thì tùy bạn

 

[vanle33]

vậy thì đơn giản mà bạn. Cho Show all sheets, sau đó xóa nút đó đi, rồi bạn muốn ẩn sheet nào thì tùy bạn

Sau khi em thử theo cách của anh nhưng không hiện được các sheet.
Cụ thể là sau khi em in thử 3 biên bản : Nội bộ, Yêu cầu, Công việc A-B thì em thấy code làm cho ẩn cả 3 sheet trên.
Em muốn 3 sheet trên và các sheet khác luôn luôn hiện trước và sau khi IN.

 

[viehoai]

Sau khi em thử theo cách của anh nhưng không hiện được các sheet.
Cụ thể là sau khi em in thử 3 biên bản : Nội bộ, Yêu cầu, Công việc A-B thì em thấy code làm cho ẩn cả 3 sheet trên.
Em muốn 3 sheet trên và các sheet khác luôn luôn hiện trước và sau khi IN.

Bạn tìm trong code xóa các câu lệnh sau:
Sheets(ShAB).Visible = xlSheetVeryHidden
Sheets(ShYC).Visible = xlSheetVeryHidden
Sheets(ShNB).Visible = xlSheetVeryHidden

 

[vanle33]

Bạn tìm trong code xóa các câu lệnh sau:
Sheets(ShAB).Visible = xlSheetVeryHidden
Sheets(ShYC).Visible = xlSheetVeryHidden
Sheets(ShNB).Visible = xlSheetVeryHidden

Anh chỉ luôn cho em code trên ở Sheet nào hay ở Module nào mà em tìm mỏi mắt không thấy.

 

[viehoai]

Anh chỉ luôn cho em code trên ở Sheet nào hay ở Module nào mà em tìm mỏi mắt không thấy.

Code nằm trong Form í. Thì bạn nhấn nút nào làm cho các sheet ẩn thì vào đó mà tìm

 

[phamthang99]

phân này dùng rất hay tôi muồn thì phải làm thế nào?

 

[robinson86]

File của anh vanle33 rất hay, nhưng sao không chạy được nhỉ

 

[vanle33]

File của anh vanle33 rất hay, nhưng sao không chạy được nhỉ

"không chạy được" có rất nhiều vấn đề. Không biết bạn muốn nhắc đến vấn đề nào?
Bằng chứng là mình vẫn IN được các biên bản nghiệm thu như hình ở bài #1.
Tôi lập topic này để chỉnh sửa 1 chút nhỏ trong code của file đó thôi.

Bạn dùng Office nào? đã biết Enable marco chưa?

 

[robinson86]

"không chạy được" có rất nhiều vấn đề. Không biết bạn muốn nhắc đến vấn đề nào?
Bằng chứng là mình vẫn IN được các biên bản nghiệm thu như hình ở bài #1.
Tôi lập topic này để chỉnh sửa 1 chút nhỏ trong code của file đó thôi.

Bạn dùng Office nào? đã biết Enable marco chưa?

E xài excel 2007 ạ. E chưa biết Enable marco, e cũng tìm hiểu cách để marco trong Excell 2007 chạy nhưng sao không được. E nhập tên công trình mới vào nhưng trong các BBNT lại không chạy. A có thể hướng dẫn thêm được không ạ. Cám ơn a nhiều.

 

[vanle33]

E xài excel 2007 ạ. E chưa biết Enable marco, e cũng tìm hiểu cách để marco trong Excell 2007 chạy nhưng sao không được. E nhập tên công trình mới vào nhưng trong các BBNT lại không chạy. A có thể hướng dẫn thêm được không ạ. Cám ơn a nhiều.

1) Search trên diễn đàn với từ khóa Enable marco.
2) Mục đích là để in biên bản. Vậy "chạy" được tức là IN ra được các loại biên bản được. Theo bạn "chạy" là gì sau khi bạn nhập tên công trình mới vào?

 

[robinson86]

1) Search trên diễn đàn với từ khóa Enable marco.
2) Mục đích là để in biên bản. Vậy "chạy" được tức là IN ra được các loại biên bản được. Theo bạn "chạy" là gì sau khi bạn nhập tên công trình mới vào?

E đã thực hiện rồi nhưng vẫn không được ạ.
Tức là e sửa tên công trình, nhưng trong BBNT vẫn không thể hiện CT e muốn sửa ạ. Thank a

 

[vanle33]

E đã thực hiện rồi nhưng vẫn không được ạ.
Tức là e sửa tên công trình, nhưng trong BBNT vẫn không thể hiện CT e muốn sửa ạ. Thank a

1) Bạn thấy tôi đánh số 1) và 2) các ý cần trả lời không? Bạn nên làm theo như tôi để rõ ý bạn trả lời cho ý nào của tôi!
2) Ý bạn nói đến "BBNT" nào? Là "NT Noi bo" hay "NT Cong Viec"?

 

[robinson86]

1) Bạn thấy tôi đánh số 1) và 2) các ý cần trả lời không? Bạn nên làm theo như tôi để rõ ý bạn trả lời cho ý nào của tôi!
2) Ý bạn nói đến "BBNT" nào? Là "NT Noi bo" hay "NT Cong Viec"?

1) Em đã thực hiện nhưng marco không chạy, e mở thử file khác có marco vẫn chạy bình thường.
2) Cả BBNT nội bộ lẫn công việc ạ.

 

[vanle33]

1) Em đã thực hiện nhưng marco không chạy, e mở thử file khác có marco vẫn chạy bình thường.
2) Cả BBNT nội bộ lẫn công việc ạ.

Chỉ có sheet "Danh muc BBNT" là có link sang sheet "Thong tin CT".
Tại các sheet "NT Noi Bo" và NT Cong Viec" các cell từ A9 đến A13 thì bạn thấy có link không? Đó là Dự án và Gói thầu chứ đâu phải công trình.
Câu hỏi trên của tôi đã trả lời cho bạn rồi đó!

 

[robinson86]

Anh vanle33 cho e hỏi file này có thể sửa lại form mẫu các biên bản theo ý mình được không nhỉ.

 

[vanle33]

Anh vanle33 cho e hỏi file này có thể sửa lại form mẫu các biên bản theo ý mình được không nhỉ.

Thế này nhá.
Bạn cứ tự sửa nội dung tại file mẫu. Rồi thử chạy code, nếu vẫn OK thì là sửa được, nếu không sửa được thì tắt đi không lưu file.
Vậy thôi.