Các anh chị và các thầy cho em hỏi tự động căn chỉnh vùng đã gộp để vừa nội dung có trong vùng đó (1 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Bùi Thúy Thúy

Bùi Thúy Thúy

Thành viên thường trực
Tham gia
2/7/18
Bài viết
290
Được thích
38
Khi in biên bản, em lấy dữ liệu từ Sheet "List" để in
Em có sử dụng code để in các sheet "NTNB"; sheet"YCTN"; sheet"NT A_B"
Vùng dữ liệu được lấy từ nội dung Sheet "List" sang các các sheet "NTNB"; sheet"YCTN"; sheet"NT A_B" được em bôi màu vàng
Cho em được hỏi làm thế nào để khi in tự động ( em có dùng code để in có trong file đính kèm) dữ liệu được link sang các sheet "NTNB"; sheet"YCTN"; sheet"NT A_B" thì vùng màu vàng đó tự động căn chỉnh để phù hợp với nội dung đã có
- em cũng đã dùng code tự căn chỉnh nội dung trong vùng được gộp (vùng bôi vàng) nhưng khi dữ liệu được lấy sang phải tác đông Enter vào nó thì nó mới căn chỉnh được chứ khi in tự động thì dữ liệu vẫn không được căn chỉnh tự động với nội dung được link sang (code có trong file đính kèm)
Em xin cảm ơn ạ!
1.png12.png345.png
 

File đính kèm

Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Bùi Thúy Thúy đã viết:
Khi in biên bản, em lấy dữ liệu từ Sheet "List" để in
Em có sử dụng code để in các sheet "NTNB"; sheet"YCTN"; sheet"NT A_B"
Vùng dữ liệu được lấy từ nội dung Sheet "List" sang các các sheet "NTNB"; sheet"YCTN"; sheet"NT A_B" được em bôi màu vàng
Cho em được hỏi làm thế nào để khi in tự động ( em có dùng code để in có trong file đính kèm) dữ liệu được link sang các sheet "NTNB"; sheet"YCTN"; sheet"NT A_B" thì vùng màu vàng đó tự động căn chỉnh để phù hợp với nội dung đã có
- em cũng đã dùng code tự căn chỉnh nội dung trong vùng được gộp (vùng bôi vàng) nhưng khi dữ liệu được lấy sang phải tác đông Enter vào nó thì nó mới căn chỉnh được chứ khi in tự động thì dữ liệu vẫn không được căn chỉnh tự động với nội dung được link sang (code có trong file đính kèm)
Em xin cảm ơn ạ!
View attachment 206471View attachment 206474View attachment 206478
Nhấp chuột vào đây để mở rộng...
Bạn thử
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
♫ђöล♥ßล†♥†µ♫ đã viết:
Bạn thử
Nhấp chuột vào đây để mở rộng...
Vâng em cám ơn chị, vẫn chưa được chị ạ!
Cái vùng ô bôi vàng của em khong link dữ liệu từ Sheet "List" sang được chị xem lại giúp em nguyên file gốc em đính kèm lên ạ!
Vùng ô màu vàng em cần lấy dữ liệu từ ô B8 ở sheet "List", như chị giúp em chị sử dụng công thức" =VLOOKUP(P2;List!$A$9:$N$97;2;0)" nó không link dữ liệu được từ Sheet "List"sang các vùng bôi vàng của 3 sheet còn lại
2345.png
 
Upvote 0
Bùi Thúy Thúy đã viết:
Vâng em cám ơn chị, vẫn chưa được chị ạ!
Cái vùng ô bôi vàng của em khong link dữ liệu từ Sheet "List" sang được chị xem lại giúp em nguyên file gốc em đính kèm lên ạ!
Vùng ô màu vàng em cần lấy dữ liệu từ ô B8 ở sheet "List", như chị giúp em chị sử dụng công thức" =VLOOKUP(P2;List!$A$9:$N$97;2;0)" nó không link dữ liệu được từ Sheet "List"sang các vùng bôi vàng của 3 sheet còn lại
View attachment 206509
Nhấp chuột vào đây để mở rộng...
Thì bạn Copy Cái Code bỏ vào file gốc của Bạn là được rồi. Cái hàm gì gì kia là mình đưa vào để Test Code thôi
 
Upvote 0

File đính kèm

Upvote 0
Bùi Thúy Thúy đã viết:
Dạ em vừa copy toàn bộ code vào file của em nhưng không được chị ạ!
Chị xem giúp em ạ!
Nhấp chuột vào đây để mở rộng...
Ý Bạn là "Ba trong một" á.
PHP: 
Sub Thu()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    FixRow Sheets("NTNB").Range("D11")
    FixRow Sheets("YCNT").Range("E17")
    FixRow Sheets("NT A_B").Range("D20")
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
PacificPR đã viết:
Ý Bạn là "Ba trong một" á.
PHP: 
Sub Thu()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    FixRow Sheets("NTNB").Range("D11")
    FixRow Sheets("YCNT").Range("E17")
    FixRow Sheets("NT A_B").Range("D20")
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ ý em là lấy dữ liệu từ sheet "List" sang 3 sheet còn lại kia và dữ liệu được lấy đều được điền vào vùng bôi vàng, em muốn vùng bôi vàng ở cả 3 sheet Sheets"NTNB", Sheets"YCNT" , Sheets"NT A_B" đều được căn chỉnh khớp với nội dung được lấy từ sang ạ!
Bài đã được tự động gộp:

PacificPR đã viết:
Ý Bạn là "Ba trong một" á.
PHP: 
Sub Thu()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    FixRow Sheets("NTNB").Range("D11")
    FixRow Sheets("YCNT").Range("E17")
    FixRow Sheets("NT A_B").Range("D20")
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ em có thử đoạn code chị giúp nhưng vẫn không được ạ!
 
Lần chỉnh sửa cuối:
Upvote 0
Bùi Thúy Thúy đã viết:
Dạ ý em là lấy dữ liệu từ sheet "List" sang 3 sheet còn lại kia và dữ liệu được lấy đều được điền vào vùng bôi vàng, em muốn vùng bôi vàng ở cả 3 sheet Sheets"NTNB", Sheets"YCNT" , Sheets"NT A_B" đều được căn chỉnh khớp với nội dung được lấy từ sang ạ!
Bài đã được tự động gộp:


Dạ em có thử đoạn code chị giúp nhưng vẫn không được ạ!
Nhấp chuột vào đây để mở rộng...
Sao nó vẫn không được miết vậy. Bạn nói căn chỉnh vùng thì Code nó đã căn chỉnh rồi. Hay là cho nó in tự động nữa
 
Upvote 0
PacificPR đã viết:
Sao nó vẫn không được miết vậy. Bạn nói căn chỉnh vùng thì Code nó đã căn chỉnh rồi. Hay là cho nó in tự động nữa
Nhấp chuột vào đây để mở rộng...
Vâng ý em là tự động in ra và tự động co giãn khi số thứ tự biên bản được in ra tự động, file em gửi đã có code in tự động, nhưng khi em thêm code của chị giúp vào khi in ra theo số thứ tự thì các vùng bôi vàng không căn chỉnh tự động theo số thứ tự in.
Ví dụ em in từ 1 đến 10, tương ứng với số thứ tự ở ô A8 thì 3Sheets : Sheets"NTNB", Sheets"YCNT" , Sheets"NT A_B" Sheets"NTNB", Sheets"YCNT" , Sheets"NT A_B" có vùng bôi vàng chưa được tự động căn chỉnh độ cao và độ rộng của vùng để phù hợp với nội dung được lấy sang.
Hình 1: em in từ số 1 đến 10
biên bản ở 3 sheet được in ra tương ứng từ số 01 đến 10, và khi in nội dung tự động co giãn để khớp với vùng bôi màu vànghinh 1.png
 
Upvote 0
Bùi Thúy Thúy đã viết:
Vâng ý em là tự động in ra và tự động co giãn khi số thứ tự biên bản được in ra tự động, file em gửi đã có code in tự động, nhưng khi em thêm code của chị giúp vào khi in ra theo số thứ tự thì các vùng bôi vàng không căn chỉnh tự động theo số thứ tự in.
Ví dụ em in từ 1 đến 10, tương ứng với số thứ tự ở ô A8 thì 3Sheets : Sheets"NTNB", Sheets"YCNT" , Sheets"NT A_B" Sheets"NTNB", Sheets"YCNT" , Sheets"NT A_B" có vùng bôi vàng chưa được tự động căn chỉnh độ cao và độ rộng của vùng để phù hợp với nội dung được lấy sang.
Hình 1: em in từ số 1 đến 10
biên bản ở 3 sheet được in ra tương ứng từ số 01 đến 10, và khi in nội dung tự động co giãn để khớp với vùng bôi màu vàngView attachment 206516
Nhấp chuột vào đây để mở rộng...
Lát nữa mình làm thử. Máy mình nó cứ hiện cái bảng
1540630765287.png​
Không làm gì được hết :p:p:p
 
Upvote 0
PacificPR đã viết:
Bạn xem thử. Nếu ưng cái bụng thì thay PrintPreview bằng PrintOut nha
Nhấp chuột vào đây để mở rộng...
Làm sao để in một cái hết luôn được vậy chị! đây là in từng tờ 1 ạ!
chị có thể giúp em qua timevew được không ạ! phần in có vấn đề chị ạ!
không thể tác động được vào in ra3223.png
 
Upvote 0
Lần chỉnh sửa cuối:
Upvote 0
Upvote 0
huuthang_bd đã viết:
Căn chỉnh ở những vị trí cố định như thế này thì dùng cột phụ là ngon nhất. Nhanh mà chính xác. Mấy code căn chỉnh trên diễn đàn cũng hên xui nha.
Nhấp chuột vào đây để mở rộng...
Anh có thể gửi cách làm của Anh cho em và mấy bạn được học hỏi với.
 
Upvote 0
Upvote 0
Upvote 0
PacificPR đã viết:
Bạn xem thử. Nếu ưng cái bụng thì thay PrintPreview bằng PrintOut nha
Nhấp chuột vào đây để mở rộng...
Cái chị @PacificPR này giở thật để cái Form ngay cổng lối vào :p:p:p. Trước khi bấm vào nút Print Bạn kéo cái Form ra khỏi vị trí trung tâm thử
Ví dụ trên cùng góc trái của màn hình gì gì đó
Bài đã được tự động gộp:

À quên chứ mình thử cái nút Print trong file gốc của Bạn làm mình thiệt hại mất 240 tờ A4 đó. Bấm vào xong đi ra ngoài 1 lúc thế là xong ...:eek::eek::eek:
 
Lần chỉnh sửa cuối:
Upvote 0
Bùi Thúy Thúy đã viết:
anh có thể giúp em chi tiết hơn không ạ!, em chưa rõ lắm
Nhấp chuột vào đây để mở rộng...
Cách này cũng đơn giản thôi mà. Nguyên tắc giống như khi code thực hiện thôi. Tôi tưởng nói vậy là các bạn biết cách làm chứ.

Dùng 1 cột phụ bên ngoài trang in, canh độ rộng của nó bằng tổng độ rộng các cột của vùng bị trộn ô cần căn chỉnh theo đơn vị px.
Tại những dòng muốn căn chỉnh chiều cao đặt công thức để lấy giá trị của ô bị trộn.
Trong code, trước khi in chỉ cần autofix row height là được.

Nôm na là tạo 1 ô đơn cùng dòng và có giá trị bằng ô cần chỉnh chiều cao và có độ rộng bằng độ rộng vùng trộn ô. Khi ô này được căn chỉnh vừa thì dĩ nhiên vùng ô bị trộn cũng được căn chỉnh vừa do cùng độ rộng.

Tôi dùng điện thoại nên chỉ có thể mô tả như vậy, không code được.
 
Upvote 0
huuthang_bd đã viết:
Cách này cũng đơn giản thôi mà. Nguyên tắc giống như khi code thực hiện thôi. Tôi tưởng nói vậy là các bạn biết cách làm chứ.

Dùng 1 cột phụ bên ngoài trang in, canh độ rộng của nó bằng tổng độ rộng các cột của vùng bị trộn ô cần căn chỉnh theo đơn vị px.
Tại những dòng muốn căn chỉnh chiều cao đặt công thức để lấy giá trị của ô bị trộn.
Trong code, trước khi in chỉ cần autofix row height là được.

Nôm na là tạo 1 ô đơn cùng dòng và có giá trị bằng ô cần chỉnh chiều cao và có độ rộng bằng độ rộng vùng trộn ô. Khi ô này được căn chỉnh vừa thì dĩ nhiên vùng ô bị trộn cũng được căn chỉnh vừa do cùng độ rộng.

Tôi dùng điện thoại nên chỉ có thể mô tả như vậy, không code được.
Nhấp chuột vào đây để mở rộng...
Vâng, khi nào Thầy ngồi máy giúp em mới ạ! chúc Thầy buổi tối vui vẻ!
 
Upvote 0
Upvote 0
huuthang_bd đã viết:
Cách này cũng đơn giản thôi mà. Nguyên tắc giống như khi code thực hiện thôi. Tôi tưởng nói vậy là các bạn biết cách làm chứ.

Dùng 1 cột phụ bên ngoài trang in, canh độ rộng của nó bằng tổng độ rộng các cột của vùng bị trộn ô cần căn chỉnh theo đơn vị px.
Tại những dòng muốn căn chỉnh chiều cao đặt công thức để lấy giá trị của ô bị trộn.
Trong code, trước khi in chỉ cần autofix row height là được.

Nôm na là tạo 1 ô đơn cùng dòng và có giá trị bằng ô cần chỉnh chiều cao và có độ rộng bằng độ rộng vùng trộn ô. Khi ô này được căn chỉnh vừa thì dĩ nhiên vùng ô bị trộn cũng được căn chỉnh vừa do cùng độ rộng.

Tôi dùng điện thoại nên chỉ có thể mô tả như vậy, không code được.
Nhấp chuột vào đây để mở rộng...
Anh ơi, anh làm mẫu giúp em về nội dung trong bài như anh nêu ạ!
 
Upvote 0
Bùi Thúy Thúy đã viết:
Anh ơi, anh làm mẫu giúp em về nội dung trong bài như anh nêu ạ!
Nhấp chuột vào đây để mở rộng...
Anh ơi làm cách nào để có thể định được độ rộng của tất cả các vùng đã trộn bằng độ rộng của ô đơn cùng dòng như anh nói à và lại theo đơn vị px (căn độ rộng theo cm có được không ạ!)
 
Upvote 0
Bùi Thúy Thúy đã viết:
Anh ơi làm cách nào để có thể định được độ rộng của tất cả các vùng đã trộn bằng độ rộng của ô đơn cùng dòng như anh nói à và lại theo đơn vị px (căn độ rộng theo cm có được không ạ!)
Nhấp chuột vào đây để mở rộng...
Có. Bạn ghi độ rộng của từng cột trong vùng trộn ra giấy xong cho độ rộng của cột chứa ô đơn bằng tổng độ rộng các ô đã trộn
 
Upvote 0
Bùi Thúy Thúy đã viết:
Anh ơi làm cách nào để có thể định được độ rộng của tất cả các vùng đã trộn bằng độ rộng của ô đơn cùng dòng như anh nói à và lại theo đơn vị px (căn độ rộng theo cm có được không ạ!)
Nhấp chuột vào đây để mở rộng...
Tính theo cm hay inch cũng được nha bạn.
 
Upvote 0
huuthang_bd đã viết:
Cách này cũng đơn giản thôi mà. Nguyên tắc giống như khi code thực hiện thôi. Tôi tưởng nói vậy là các bạn biết cách làm chứ.

Dùng 1 cột phụ bên ngoài trang in, canh độ rộng của nó bằng tổng độ rộng các cột của vùng bị trộn ô cần căn chỉnh theo đơn vị px.
Tại những dòng muốn căn chỉnh chiều cao đặt công thức để lấy giá trị của ô bị trộn.
Trong code, trước khi in chỉ cần autofix row height là được.

Nôm na là tạo 1 ô đơn cùng dòng và có giá trị bằng ô cần chỉnh chiều cao và có độ rộng bằng độ rộng vùng trộn ô. Khi ô này được căn chỉnh vừa thì dĩ nhiên vùng ô bị trộn cũng được căn chỉnh vừa do cùng độ rộng.

Tôi dùng điện thoại nên chỉ có thể mô tả như vậy, không code được.
Nhấp chuột vào đây để mở rộng...
Em chào anh, anh ơi cho em hỏi chút, em có tham khảo một biên bản làm giãn, ẩn, tự động xuống dòng như sau:
Các mã nhập vào cột A:

F:n F=Fit; Tự động tính lại chiều cao của dòng, với n (Từ 0 đến Max HeightRow) là chiều cao của
Dòng khi không cần Fit sẽ đưa chiều cao dòng đó về giá trị n, nhập F mã không có đối số đi kèm thì sẽ = AutoFit
M:n Đối với những dòng có Merger sau khi AutoFit sẽ cộng thêm vào chiều cao dòng giá trị n
D: n D=Dãn dòng; Những dòng có mã này sẽ tự động giãn dòng, giá trị n là giá trị mặc
định, khi không cần giãn dòng sẽ đưa chiều cao dòng về giá trị đó
A: A=Ẩn dòng; Dòng nào có mã này sẽ bị ẩn
BR : BR=Break; Có những biên bản dài vượt quá 1 trang, thì phần chia trang có thể sẽ bị
cắt vào những vị trí không mong muốn (như phần chữ ký), bạn muốn đưa phần chia
trang đó dịch nên dòng nào thì nhập mã BR và dòng đó khi đó chương trinh sẽ tữ
động dãn những dòng có mã là D để đảm bào từ dòng có mã BR đến cuối trang
luôn nằm trong một trang
Khi chỉnh các thông số trên và ấn nút Refresh thì các vùng tương ứng với cột A chứa mã được điền vào sẽ tự động co và căn chỉnh, ngắt dòng
Anh có thể gợi ý hướng làm giúp em theo cách này không ạ?
Em cám ơn anh ạ!
123.jpg1234.jpg
 
Upvote 0
Bùi Thúy Thúy đã viết:
Em chào anh, anh ơi cho em hỏi chút, em có tham khảo một biên bản làm giãn, ẩn, tự động xuống dòng như sau:
Các mã nhập vào cột A:

F:n F=Fit; Tự động tính lại chiều cao của dòng, với n (Từ 0 đến Max HeightRow) là chiều cao của
Dòng khi không cần Fit sẽ đưa chiều cao dòng đó về giá trị n, nhập F mã không có đối số đi kèm thì sẽ = AutoFit
M:n Đối với những dòng có Merger sau khi AutoFit sẽ cộng thêm vào chiều cao dòng giá trị n
D: n D=Dãn dòng; Những dòng có mã này sẽ tự động giãn dòng, giá trị n là giá trị mặc
định, khi không cần giãn dòng sẽ đưa chiều cao dòng về giá trị đó
A: A=Ẩn dòng; Dòng nào có mã này sẽ bị ẩn
BR : BR=Break; Có những biên bản dài vượt quá 1 trang, thì phần chia trang có thể sẽ bị
cắt vào những vị trí không mong muốn (như phần chữ ký), bạn muốn đưa phần chia
trang đó dịch nên dòng nào thì nhập mã BR và dòng đó khi đó chương trinh sẽ tữ
động dãn những dòng có mã là D để đảm bào từ dòng có mã BR đến cuối trang
luôn nằm trong một trang
Khi chỉnh các thông số trên và ấn nút Refresh thì các vùng tương ứng với cột A chứa mã được điền vào sẽ tự động co và căn chỉnh, ngắt dòng
Anh có thể gợi ý hướng làm giúp em theo cách này không ạ?
Em cám ơn anh ạ!
View attachment 206895View attachment 206896
Nhấp chuột vào đây để mở rộng...
Bạn đã có rồi thì cứ lấy file đó mà dùng thôi. Còn nếu muốn sửa thì đưa lên nhờ mọi người sửa thôi.
Bài đã được tự động gộp:

Bùi Thúy Thúy đã viết:
Em chào anh, anh ơi cho em hỏi chút, em có tham khảo một biên bản làm giãn, ẩn, tự động xuống dòng như sau:
Các mã nhập vào cột A:

F:n F=Fit; Tự động tính lại chiều cao của dòng, với n (Từ 0 đến Max HeightRow) là chiều cao của
Dòng khi không cần Fit sẽ đưa chiều cao dòng đó về giá trị n, nhập F mã không có đối số đi kèm thì sẽ = AutoFit
M:n Đối với những dòng có Merger sau khi AutoFit sẽ cộng thêm vào chiều cao dòng giá trị n
D: n D=Dãn dòng; Những dòng có mã này sẽ tự động giãn dòng, giá trị n là giá trị mặc
định, khi không cần giãn dòng sẽ đưa chiều cao dòng về giá trị đó
A: A=Ẩn dòng; Dòng nào có mã này sẽ bị ẩn
BR : BR=Break; Có những biên bản dài vượt quá 1 trang, thì phần chia trang có thể sẽ bị
cắt vào những vị trí không mong muốn (như phần chữ ký), bạn muốn đưa phần chia
trang đó dịch nên dòng nào thì nhập mã BR và dòng đó khi đó chương trinh sẽ tữ
động dãn những dòng có mã là D để đảm bào từ dòng có mã BR đến cuối trang
luôn nằm trong một trang
Khi chỉnh các thông số trên và ấn nút Refresh thì các vùng tương ứng với cột A chứa mã được điền vào sẽ tự động co và căn chỉnh, ngắt dòng
Anh có thể gợi ý hướng làm giúp em theo cách này không ạ?
Em cám ơn anh ạ!
View attachment 206895View attachment 206896
Nhấp chuột vào đây để mở rộng...
Bạn đã có rồi thì cứ lấy file đó mà dùng thôi. Còn nếu muốn sửa thì đưa lên nhờ mọi người sửa thôi.
 
Upvote 0
huuthang_bd đã viết:
Bạn đã có rồi thì cứ lấy file đó mà dùng thôi. Còn nếu muốn sửa thì đưa lên nhờ mọi người sửa thôi.
Bài đã được tự động gộp:


Bạn đã có rồi thì cứ lấy file đó mà dùng thôi. Còn nếu muốn sửa thì đưa lên nhờ mọi người sửa thôi.
Nhấp chuột vào đây để mở rộng...
Em chưa có file đó, chỉ là tham khảo của các bạn, em đưa file lên.
Nhờ anh và các Thầy giúp em ạ!
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Bùi Thúy Thúy đã viết:
Em chưa có file đó, chỉ là tham khảo của các bạn, em đưa file lên.
Nhờ anh và các Thầy giúp em ạ!
Nhấp chuột vào đây để mở rộng...
Ngộ nhỉ, bạn được "tham khảo" tức là thấy người khác làm rồi? Nếu vậy thì xin của người ta mà dùng.
Tôi chỉ tham gia phương án cột phụ cho file ban đầu của bạn. Những vấn đề phát sinh thêm thì xin rút lui.
 
Upvote 0
Lâu lâu mải mê kiếm ăn bên ngoài không vào diễn đàn.
Tặng anh em file này mình làm từ năm 2015. Chắc chắn sẽ giải quyết được mọi vấn đề mọi người đang bàn luận.
1 file làm toàn bộ HS QLCL. + Nhật ký từng ngày. + In ấn hàng loạt
Mọi người tải về tự nghiên cứu và tùy chỉnh.
pass vba để chỉnh sửa: omdjsc
 

File đính kèm

Upvote 0
aybykut3 đã viết:
Lâu lâu mải mê kiếm ăn bên ngoài không vào diễn đàn.
Tặng anh em file này mình làm từ năm 2015. Chắc chắn sẽ giải quyết được mọi vấn đề mọi người đang bàn luận.
1 file làm toàn bộ HS QLCL. + Nhật ký từng ngày. + In ấn hàng loạt
Mọi người tải về tự nghiên cứu và tùy chỉnh.
pass vba để chỉnh sửa: omdjsc
Nhấp chuột vào đây để mở rộng...
anh cho em hỏi dùng có giới hạn gì không ạ!
Đây là bản đầy đủ chứ ạ! em thấy giao diện có chút giống phần mềm QLCL của GXD.
 
Upvote 0
Bùi Thúy Thúy đã viết:
anh cho em hỏi dùng có giới hạn gì không ạ!
Đây là bản đầy đủ chứ ạ! em thấy giao diện có chút giống phần mềm QLCL của GXD.
Nhấp chuột vào đây để mở rộng...
Không có giới hạn gì cả. Đây là phiên bản thử ngiệm trước đây mình viết. Giờ mình phát triển bản khác nhiều tính năng hơn nữa nên chia sẻ cho mọi người dùng. Giao diện giống vì mình lấy luôn file biểu mẫu của GXD để viết code.
 
Upvote 0
aybykut3 đã viết:
Không có giới hạn gì cả. Đây là phiên bản thử ngiệm trước đây mình viết. Giờ mình phát triển bản khác nhiều tính năng hơn nữa nên chia sẻ cho mọi người dùng. Giao diện giống vì mình lấy luôn file biểu mẫu của GXD để viết code.
Nhấp chuột vào đây để mở rộng...
Vâng, em muốn tải bản Full thì vào đâu ạ!
Em cám ơn anh
 
Upvote 0
aybykut3 đã viết:
Lâu lâu mải mê kiếm ăn bên ngoài không vào diễn đàn.
Tặng anh em file này mình làm từ năm 2015. Chắc chắn sẽ giải quyết được mọi vấn đề mọi người đang bàn luận.
1 file làm toàn bộ HS QLCL. + Nhật ký từng ngày. + In ấn hàng loạt
Mọi người tải về tự nghiên cứu và tùy chỉnh.
pass vba để chỉnh sửa: omdjsc
Nhấp chuột vào đây để mở rộng...
Thanks anh+
Nhưng sao Sheet VL em không bấm chuột phải được để nhập dữ liệu?
 

File đính kèm

  • grt.png
    grt.png
    53.6 KB · Đọc: 17
Lần chỉnh sửa cuối:
Upvote 0
huuthang_bd đã viết:
Bạn xem file.
Nhấp chuột vào đây để mở rộng...
Chào anh, anh ơi cho em hỏi chút:
em có xem đoạn code anh giúp em để dòng phù hợp với nội dung trong ô được gộp.
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(FitRows).EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
"17" ở đây nghĩa là gi vậy anh?
 
Upvote 0
huuthang_bd đã viết:
Địa chỉ các dòng mà bạn muốn co dãn chiều cao.
Nhấp chuột vào đây để mở rộng...
Anh ơi? Giả sử em muốn thêm dòng "5" hoặc nhiều dòng bất kỳ để giãn dòng thì thêm vào phần nào trong code ạ?
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(FitRows).EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
truongvu317 đã viết:
Range("a1:a10, a16").entirerow.autofit

Áp dụng cho dòng 1 tới dòng 10 và dòng 16
Nhấp chuột vào đây để mở rộng...
Lắp giúp em vào luôn code đi anh cho hoàn thiện hì
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(FitRows).EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
Bùi Thúy Thúy đã viết:
Lắp giúp em vào luôn code đi anh cho hoàn thiện hì
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(FitRows).EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Thay dòng đó vào dòng rows(.... của code cũ đó. Minh ko ngồi máy tinh....
 
Upvote 0
Bùi Thúy Thúy đã viết:
Dòng "Row" là dòng số 4
Vậy còn dòng đầu? có "17"
Khi nào ngồi máy giúp mình nhé!
Nhấp chuột vào đây để mở rộng...
Mình làm thế này thấy được nè
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(17).EntireRow.AutoFit
    Rows(18).EntireRow.AutoFit
    Rows(19).EntireRow.AutoFit
    Rows(20).EntireRow.AutoFit
    Rows(21).EntireRow.AutoFit
    Rows(22).EntireRow.AutoFit
    Rows(23).EntireRow.AutoFit
    Rows(24).EntireRow.AutoFit
    Rows(25).EntireRow.AutoFit
    Rows(26).EntireRow.AutoFit
    Rows(28).EntireRow.AutoFit
    Rows(29).EntireRow.AutoFit
    Rows(30).EntireRow.AutoFit
    Rows(31).EntireRow.AutoFit
    Rows(32).EntireRow.AutoFit
    Rows(33).EntireRow.AutoFit
    Rows(34).EntireRow.AutoFit
    Rows(35).EntireRow.AutoFit
    Rows(36).EntireRow.AutoFit
    Rows(37).EntireRow.AutoFit
    Rows(38).EntireRow.AutoFit
    Rows(39).EntireRow.AutoFit
    Rows(40).EntireRow.AutoFit
    Rows(41).EntireRow.AutoFit
    Rows(42).EntireRow.AutoFit
    Rows(43).EntireRow.AutoFit
    Rows(44).EntireRow.AutoFit
    Rows(45).EntireRow.AutoFit
    Rows(46).EntireRow.AutoFit
    Rows(47).EntireRow.AutoFit
    Rows(48).EntireRow.AutoFit
    Rows(49).EntireRow.AutoFit
    Rows(50).EntireRow.AutoFit
    Rows(51).EntireRow.AutoFit
    Rows(52).EntireRow.AutoFit
    Rows(53).EntireRow.AutoFit
    Rows(54).EntireRow.AutoFit
    Range("A17:A54").EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
Nhất Chi Lan đã viết:
Mình làm thế này thấy được nè
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(17).EntireRow.AutoFit
    Rows(18).EntireRow.AutoFit
    Rows(19).EntireRow.AutoFit
    Rows(20).EntireRow.AutoFit
    Rows(21).EntireRow.AutoFit
    Rows(22).EntireRow.AutoFit
    Rows(23).EntireRow.AutoFit
    Rows(24).EntireRow.AutoFit
    Rows(25).EntireRow.AutoFit
    Rows(26).EntireRow.AutoFit
    Rows(28).EntireRow.AutoFit
    Rows(29).EntireRow.AutoFit
    Rows(30).EntireRow.AutoFit
    Rows(31).EntireRow.AutoFit
    Rows(32).EntireRow.AutoFit
    Rows(33).EntireRow.AutoFit
    Rows(34).EntireRow.AutoFit
    Rows(35).EntireRow.AutoFit
    Rows(36).EntireRow.AutoFit
    Rows(37).EntireRow.AutoFit
    Rows(38).EntireRow.AutoFit
    Rows(39).EntireRow.AutoFit
    Rows(40).EntireRow.AutoFit
    Rows(41).EntireRow.AutoFit
    Rows(42).EntireRow.AutoFit
    Rows(43).EntireRow.AutoFit
    Rows(44).EntireRow.AutoFit
    Rows(45).EntireRow.AutoFit
    Rows(46).EntireRow.AutoFit
    Rows(47).EntireRow.AutoFit
    Rows(48).EntireRow.AutoFit
    Rows(49).EntireRow.AutoFit
    Rows(50).EntireRow.AutoFit
    Rows(51).EntireRow.AutoFit
    Rows(52).EntireRow.AutoFit
    Rows(53).EntireRow.AutoFit
    Rows(54).EntireRow.AutoFit
    Range("A17:A54").EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
vậy cái số "17" trong đoạn code
Mã: 
Private Const FitRows As String = "17"
có cần không vậy ạ?
 
Upvote 0
Bùi Thúy Thúy đã viết:
vậy cái số "17" trong đoạn code
Mã: 
Private Const FitRows As String = "17"
có cần không vậy ạ?
Nhấp chuột vào đây để mở rộng...

Bạn có thể hiểu như sau

Rows("17") tương đương với Rows("17").EntireRow
Vì vậy không cần .EntireRow
EntireRow là lấy nguyên cả một hàng hoặc một khối hàng của một Range
Hàng:
Range("A1").EntireRow hoặc Range("A1:A100").EntireRow
Cột:
Range("C6").EntireColumn hoặc Range("A1:Z100").EntireColumn

Rows("17") tức là Dòng thứ 17 trong Trang tính

Rows("17:50").AutoFit

Với Columns thì phải dùng chữ cái, nếu không dùng EntireColumn
Columns("A").AutoFit hoặc Columns("A:ZZ").AutoFit
 
Upvote 0
HeSanbi đã viết:
Bạn có thể hiểu như sau

Rows("17") tương đương với Rows("17").EntireRow
Vì vậy không cần .EntireRow
EntireRow là lấy nguyên cả một hàng hoặc một khối hàng của một Range
Hàng:
Range("A1").EntireRow hoặc Range("A1:A100").EntireRow
Cột:
Range("C6").EntireColumn hoặc Range("A1:Z100").EntireColumn

Rows("17") tức là Dòng thứ 17 trong Trang tính

Rows("17:50").AutoFit

Với Columns thì phải dùng chữ cái, nếu không dùng EntireColumn
Columns("A").AutoFit hoặc Columns("A:ZZ").AutoFit
Nhấp chuột vào đây để mở rộng...
Rất cám ơn anh!
Vậy mình có thể bỏ đi
Private Const FitRows As String = "17"
trong đoạn code vẫn chạy được đúng không anh?
Nó được thay bởi dòng code "Rows(17).EntireRow.AutoFit"
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(17).EntireRow.AutoFit
    Rows(18).EntireRow.AutoFit
    Rows(19).EntireRow.AutoFit
    Rows(20).EntireRow.AutoFit
    Rows(21).EntireRow.AutoFit
    Rows(22).EntireRow.AutoFit
    Rows(23).EntireRow.AutoFit
    Rows(24).EntireRow.AutoFit
    Rows(25).EntireRow.AutoFit
    Rows(26).EntireRow.AutoFit
    Rows(28).EntireRow.AutoFit
    Rows(29).EntireRow.AutoFit
    Rows(30).EntireRow.AutoFit
    Rows(31).EntireRow.AutoFit
    Rows(32).EntireRow.AutoFit
    Rows(33).EntireRow.AutoFit
    Rows(34).EntireRow.AutoFit
    Rows(35).EntireRow.AutoFit
    Rows(36).EntireRow.AutoFit
    Rows(37).EntireRow.AutoFit
    Rows(38).EntireRow.AutoFit
    Rows(39).EntireRow.AutoFit
    Rows(40).EntireRow.AutoFit
    Rows(41).EntireRow.AutoFit
    Rows(42).EntireRow.AutoFit
    Rows(43).EntireRow.AutoFit
    Rows(44).EntireRow.AutoFit
    Rows(45).EntireRow.AutoFit
    Rows(46).EntireRow.AutoFit
    Rows(47).EntireRow.AutoFit
    Rows(48).EntireRow.AutoFit
    Rows(49).EntireRow.AutoFit
    Rows(50).EntireRow.AutoFit
    Rows(51).EntireRow.AutoFit
    Rows(52).EntireRow.AutoFit
    Rows(53).EntireRow.AutoFit
    Rows(54).EntireRow.AutoFit
    Range("A17:A54").EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
Bùi Thúy Thúy đã viết:
Rất cám ơn anh!
Vậy mình có thể bỏ đi
Private Const FitRows As String = "17"
trong đoạn code vẫn chạy được đúng không anh?
Nó được thay bởi dòng code "Rows(17).EntireRow.AutoFit"
Mã: 
Private Const FitRows As String = "17"
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Rows(17).EntireRow.AutoFit
    Rows(18).EntireRow.AutoFit
    Rows(19).EntireRow.AutoFit
    Rows(20).EntireRow.AutoFit
    Rows(21).EntireRow.AutoFit
    Rows(22).EntireRow.AutoFit
    Rows(23).EntireRow.AutoFit
    Rows(24).EntireRow.AutoFit
    Rows(25).EntireRow.AutoFit
    Rows(26).EntireRow.AutoFit
    Rows(28).EntireRow.AutoFit
    Rows(29).EntireRow.AutoFit
    Rows(30).EntireRow.AutoFit
    Rows(31).EntireRow.AutoFit
    Rows(32).EntireRow.AutoFit
    Rows(33).EntireRow.AutoFit
    Rows(34).EntireRow.AutoFit
    Rows(35).EntireRow.AutoFit
    Rows(36).EntireRow.AutoFit
    Rows(37).EntireRow.AutoFit
    Rows(38).EntireRow.AutoFit
    Rows(39).EntireRow.AutoFit
    Rows(40).EntireRow.AutoFit
    Rows(41).EntireRow.AutoFit
    Rows(42).EntireRow.AutoFit
    Rows(43).EntireRow.AutoFit
    Rows(44).EntireRow.AutoFit
    Rows(45).EntireRow.AutoFit
    Rows(46).EntireRow.AutoFit
    Rows(47).EntireRow.AutoFit
    Rows(48).EntireRow.AutoFit
    Rows(49).EntireRow.AutoFit
    Rows(50).EntireRow.AutoFit
    Rows(51).EntireRow.AutoFit
    Rows(52).EntireRow.AutoFit
    Rows(53).EntireRow.AutoFit
    Rows(54).EntireRow.AutoFit
    Range("A17:A54").EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
1573549932145.png
 
Upvote 0
Bùi Thúy Thúy đã viết:
Lắp giúp em vào luôn code đi anh cho hoàn thiện hì
Nhấp chuột vào đây để mở rộng...
Mã: 
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    
    
    'Rows(FitRows).EntireRow.AutoFit
    Range("A13,A11").EntireRow.AutoFit
    
    
    Application.ScreenUpdating = True
End Sub

Trong file là áp dụng cho dòng 11 và dòng 13.

Có thể copy nhiều dòng Range("A13,A11").EntireRow.AutoFit thành:

Range("A1:A10").EntireRow.AutoFit' chỉnh từ dòng 1 tới dòng 10

Range("A1:A10,A20").EntireRow.AutoFit' chỉnh từ dòng 1 tới dòng 10 và dòng 20
Range("A1:A10,A20:A40").EntireRow.AutoFit' chỉnh từ dòng 1 tới dòng 10 và từ dòng 20 tới dòng 40

Tóm lại là nhập vào đó một chuỗi địa chỉ mà vùng địa chỉ đó giao với các dòng cần chỉnh. Xin lỗi bạn nhiều nhé!hihi
 

File đính kèm

Upvote 0
truongvu317 đã viết:
Mã: 
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
   
   
    'Rows(FitRows).EntireRow.AutoFit
    Range("A13,A11").EntireRow.AutoFit
   
   
    Application.ScreenUpdating = True
End Sub

Trong file là áp dụng cho dòng 11 và dòng 13.

Có thể copy nhiều dòng Range("A13,A11").EntireRow.AutoFit thành:

Range("A1:A10").EntireRow.AutoFit' chỉnh từ dòng 1 tới dòng 10

Range("A1:A10,A20").EntireRow.AutoFit' chỉnh từ dòng 1 tới dòng 10 và dòng 20
Range("A1:A10,A20:A40").EntireRow.AutoFit' chỉnh từ dòng 1 tới dòng 10 và từ dòng 20 tới dòng 40

Tóm lại là nhập vào đó một chuỗi địa chỉ mà vùng địa chỉ đó giao với các dòng cần chỉnh. Xin lỗi bạn nhiều nhé!hihi
Nhấp chuột vào đây để mở rộng...
Vâng, cảm ơn anh nhiều!
 
Upvote 0
Upvote 0
♫ђöล♥ßล†♥†µ♫ đã viết:
Vậy bạn hỏi tên @ langtuchungtinh360 ý
Nhấp chuột vào đây để mở rộng...
Em k hiểu ạ? có bài code chị giúp em về giãn dòng nhờ chị sửa lại chút, thấy lâu lâu quá, em mò mẫm mãi không ra, hic hic
Bài đã được tự động gộp:

Bùi Thúy Thúy đã viết:
Em k hiểu ạ? có bài code chị giúp em về giãn dòng nhờ chị sửa lại chút, thấy lâu lâu quá, em mò mẫm mãi không ra, hic hic
Nhấp chuột vào đây để mở rộng...
Mà anh ấy dừng hoạt động rồi chị ạ!
 
Upvote 0
♫ђöล♥ßล†♥†µ♫ đã viết:
Vậy bạn hỏi tên @ langtuchungtinh360 ý
Nhấp chuột vào đây để mở rộng...
Hắn ta tèo rồi làm sao hỏi được.
Bài đã được tự động gộp:

Bùi Thúy Thúy đã viết:
Anh ơi giả sử nếu một dòng (1 hàng) mà có 03 vùng gộp ô thì với cách anh hướng dẫn thì xử lý như thế nào ạ?
Nhấp chuột vào đây để mở rộng...
Tôi không theo dõi từ đầu nên làm biếng đọc lại, Làm File nào nêu rỏ nó nằm ở bài nào, khi nào rảnh tôi giúp cho.
 
Upvote 0
be09 đã viết:
Hắn ta tèo rồi làm sao hỏi được.
Bài đã được tự động gộp:


Tôi không theo dõi từ đầu nên làm biếng đọc lại, Làm File nào nêu rỏ nó nằm ở bài nào, khi nào rảnh tôi giúp cho.
Nhấp chuột vào đây để mở rộng...
Vâng! Anh giúp em bài #1
www.giaiphapexcel.com

Xin được giúp nhờ chỉnh sửa code giãn dòng

Em có tham khảo đoạn code để dãn dòng Trên GPE và áp dụng: Trong sheet"Bang" được lấy dữ liệu từ sheet"Nguon". + Sub Dandong() em copy vào sheet"Bang" nhu sau": Sub Dandong() Dim cll As Range On Error Resume Next For Each cll In Range("F11", Range("F" & Rows.Count).End(xlUp)) If cll...
www.giaiphapexcel.com www.giaiphapexcel.com
 
Upvote 0
huuthang_bd đã viết:
Căn chỉnh ở những vị trí cố định như thế này thì dùng cột phụ là ngon nhất. Nhanh mà chính xác. Mấy code căn chỉnh trên diễn đàn cũng hên xui nha.
Nhấp chuột vào đây để mở rộng...
Em chào anh, giờ em mới hiểu chữ "hên xui" anh nói, em đã tham khảo rất nhiều code trên diễn đàn để giãn dòng.
Nhưng đúng là hên xui, được ở cài này nhưng nhiều cái khác lại không được, không biết nguyên nhân là sao vậy anh nhỉ?
Cám ơn anh đã giúp!
 
Upvote 0
huuthang_bd đã viết:
Bạn xem file.
Nhấp chuột vào đây để mở rộng...
Em chào thầy!
Thầy cho em hỏi nếu trên cùng một dòng có nhiều hơn 01 vùng gộp cần giãn dòng tự động thì có thể xử lý theo hướng của thầy là dùng cột phụ được không ạ? em cũng có tham khảo mấy cách trên diễn đàn nhưng nhiều bài áp dụng thì được nhưng nhiều bài vẫn bị che khuất nội dung.
Xin thầy chỉ bảo.
Cảm ơn thầy!
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

D
XIN PHẦN MỀM XẾP TKB TIỂU HỌC BẰNG EXCEL (1 người xem)
Trả lời
0
Đọc
21
danhpheo
D
H
Tự động cập nhật dữ liệu từ 2 file word
Trả lời
1
Đọc
52
LOGANWover
L
N
Nhờ giúp Drop down list theo tỉnh xã mới.
Trả lời
7
Đọc
228
ongke0711
ongke0711
E
VBA copy ô trong excel khi đang lọc filter (2 người xem)
Trả lời
8
Đọc
110
eagle12
E
R
Các bác có kinh nghiệm excel cho em xin công thức đánh số thứ tự theo ngày tháng này vợi ạ. (2 người xem)
Trả lời
4
Đọc
96
HieuCD
H
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
436
Đọc
57K
hangiang
H
N
Không sử dụng được phím tắt Ctrl + Shift + mũi tên xuống
Trả lời
1
Đọc
3K
aFdangthacmac
A
L
  • Question Question
Gõ và chọn tên trong ComboBox hiển thị giá trị trong textbox
    • Cười
Trả lời
8
Đọc
365
ongke0711
ongke0711
befaint
[ Python và ứng dụng ] Công cụ trích xuất hàng loạt hóa đơn điện tử XML vào bảng Excel (3 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
56
Đọc
9K
Hoale85
H
Nam168
Không mở được file excel (1 người xem)
Trả lời
2
Đọc
67
Nam168
Nam168
V
Quản lý xuất nhập vật tư trong kho
Trả lời
14
Đọc
531
LOGANWover
L
phuongnam366377
Sử dụng COM DLL **không cần đăng ký** với Delphi 12 / C++ Builder (2 người xem)
    • Thích
Trả lời
0
Đọc
81
phuongnam366377
phuongnam366377
N
Định mức nguyên vật liệu (2 người xem)
Trả lời
49
Đọc
5K
ntan50
N
H
  • Question Question
Dò tìm giá trị từ bảng khác theo cột
Trả lời
6
Đọc
287
Chả_biết_gì
C
2
  • Question Question
Hỏi cách in phiếu điều tra PCGD-XMC từ file dữ liệu mẫu xuất ra từ hệ thống PCGD-XMC của Bộ GD
    • Thích
Trả lời
26
Đọc
1K
haitien123
H
ongke0711
Truy cập trang GPE chậm
    • Thích
Trả lời
3
Đọc
197
Hai Lúa Miền Tây
Hai Lúa Miền Tây
V
Gộp File Từng File Excel vào 1 File
Trả lời
16
Đọc
492
ptm0412
ptm0412
Gà Con yêu VBA
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb
Trả lời
10
Đọc
800
Zizi One
Zizi One
I
Phân bổ số lượng xuất kho trong kỳ theo từng mã nguyên vật liệu (1 người xem)
Trả lời
6
Đọc
211
IrisQ
I
L
Các bạn giúp mình hoàn thiện công thức hàm sumif nhé (1 người xem)
Trả lời
5
Đọc
174
lequang_qn
L
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom