Tự động fit chiều cao dòng của ô đã MERGE trong excel

baocatsamac_nd gửi lúc 28/9/2017 15:54
cuối cùng bác cũng nói ra

Ô, mình đã viết ngay từ đầu là không rành về code nên phải cần sự trợ giúp của các bác mà. Thực sự trân trọng sự giúp đỡ của các bác. Cảm ơn nhiều!

haudk8 gửi lúc 28/9/2017 14:54
Cảm ơn bạn! Vì mình không chưa học về VBA, mới chỉ đọc qua tý thôi, chưa viết đ ...

Mình không dùng VBA ở file của bạn, bạn chỉ cần đặt con trỏ chuột vào giữa dòng 15 và dòng 16 double click là được, còn sheet BC Du toan minh chưa làm gì sheet đó cả vì không hiểu ý bạn, Mình không biết làm ở dòng nào, không thấy ô nào merge cả.

haudk8 gửi lúc 28/9/2017 14:54
Cảm ơn bạn! Vì mình không chưa học về VBA, mới chỉ đọc qua tý thôi, chưa viết đ ...

Mình không dùng VBA ở file của bạn, bạn chỉ cần đặt con trỏ chuột vào giữa dòng 15 và dòng 16 double click là được, còn sheet BC Du toan minh chưa làm gì sheet đó cả vì không hiểu ý bạn, Mình không biết làm ở dòng nào, không thấy ô nào merge cả.

votinh3290 gửi lúc 28/9/2017 19:43
Mình không dùng VBA ở file của bạn, bạn chỉ cần đặt con trỏ chuột vào giữa dòng 15 ...

Bạn ơi, nếu không dùng VBA thì nháy đúp chuột không được đâu. Còn trong sheet BC Du toan thì cột E sẽ có dữ liệu liên kết từ sheet Bang ke khi ta chọn tại Hộp chọn phía trên từng mã nguồn. Các bạn giúp mình nhé. Trân trọng cảm ơn!

haudk8 gửi lúc 28/9/2017 20:43
Bạn ơi, nếu không dùng VBA thì nháy đúp chuột không được đâu. Còn trong sheet BC  ...

Do bạn chưa set đúng format ở cột A thêm vào ở ngoài cùng thôi. còn sheet BC Du toan, cột E không phải là cột merge nên nó sẽ tự động fit.

votinh3290 gửi lúc 29/9/2017 07:31
Do bạn chưa set đúng format ở cột A thêm vào ở ngoài cùng thôi. còn sheet BC Du toan, ...

Bạn ơi, nếu không dùng VBA thì độ cao của hàng sẽ không tự động thay đổi được đâu (vì trong excel phải thực hiện lệnh Home/Format/AutoFit Row Height). Mình gửi lại bạn xem giúp nhé. Nếu có thể bạn giúp mình viết code cho nó thực hiện được không? Trân trọng cảm ơn

haudk8 gửi lúc 29/9/2017 08:13
Bạn ơi, nếu không dùng VBA thì độ cao của hàng sẽ không tự động thay đổi được  ...

bạn xem được chưa. mấy hôm bận không onl được

baocatsamac_nd gửi lúc 4/10/2017 09:15
bạn xem được chưa. mấy hôm bận không onl được

Rất cảm ơn bạn. Làm như bạn thì kết quả đạt được rồi. Tuy nhiên mình vẫn muốn dùng Hop chon trong sheet Bang ke để chọn nó linh hoạt hơn. Như dùng cho sheet BC Du toan là hay. Bạn chỉnh sửa giúp mình với nhé. Trân trọng cảm ơn!

haudk8 gửi lúc 4/10/2017 09:59
Rất cảm ơn bạn. Làm như bạn thì kết quả đạt được rồi. Tuy nhiên mình vẫn muốn  ...

Của bạn đây

baocatsamac_nd gửi lúc 4/10/2017 10:34
Của bạn đây

Cảm ơn bạn. Phần lựa chọn trong sheet Bang ke bạn đang dùng Combo Box (Form Control). Nếu dùng bằng Combo Box (ActiveX Control) được không bạn. Nếu được bạn giúp mình với nhé? Trân trọng cảm ơn!
Còn nội dung nữa là: Nếu các sheet In Giay RDT và BC Du toan mà khóa lại thì code không chạy được. Bạn kiểm tra lại giúp nhé. Mục tiêu là phải khóa các sheet này lại.

haudk8 gửi lúc 4/10/2017 12:22
Cảm ơn bạn. Phần lựa chọn trong sheet Bang ke bạn đang dùng Combo Box (Form Control). Nếu ...

Bạn xem ok chưa nhé

baocatsamac_nd gửi lúc 11/10/2017 16:31
Bạn xem ok chưa nhé

Rất cảm ơn bạn! Trong thời gian vừa qua mình đã phát triển thêm một số sheet trong file cũ, mình đã coppy code của bạn nhúng vào file đó nhưng nó không chạy (sheet In Giay RDT). Tại sheet BC Du toan có dùng cả code ẩn hàng và ẩn cột, tuy nhiên mình thấy nó chạy chậm quá và phải chuyển sang sheet khác rồi chuyển về sheet đó thì nó mới chạy chính xác, như vậy thì vừa chậm và thấy bất tiện. Tương tự như vậy đối các sheet: Quyet toan KP, BC Thu Chi, Mau 02. Mình gửi lên nhờ bạn sửa giúp.
Xin chân thành cảm ơn các bạn đã giúp mình!

haudk8 gửi lúc 11/10/2017 20:16
Rất cảm ơn bạn! Trong thời gian vừa qua mình đã phát triển thêm một số sheet trong fi ...

Gửi bạn, bạn xem đã được chưa nhé.

baocatsamac_nd gửi lúc 23/10/2017 17:29
Gửi bạn, bạn xem đã được chưa nhé.

Cảm ơn bạn baocatsamac_nd và các bạn, mình thấy file bạn đã sửa cũng gần đúng với ý mình rồi. Một lần nữa xin chân thành cảm ơn các bạn!

haudk8 gửi lúc 23/10/2017 21:16
Cảm ơn bạn baocatsamac_nd và các bạn, mình thấy file bạn đã sửa cũng gần đúng với ...

Chào các bạn!
Lâu rồi không có thời gian tham gia diễn đàn. Sang năm mới 2018, chúc tất cả các bạn luôn mạnh khỏe, gia đình hạnh phúc, công việc thành công!
Năm 2017, giờ sự giúp đỡ của các bạn, mình đã hoàn thành file QLTC, công việc cuối năm cho quyết toán đã cơ bản hoàn thành. File đó đã giúp mình hoàn thành công việc nhanh chóng. Tuy nhiên, sang năm 2018 Kho bạc yêu cầu thanh đổi phương pháp làm nên công thức đã làm không cho kết quả đúng. Mình gửi kèm file cho các bạn. Trong sheet BC Du toan có ghi Nội dung mình nhờ các bạn sửa lại công thức.
Rất mong các bạn giúp mình.
Trân trọng cảm ơn!

haudk8 gửi lúc 30/1/2018 10:24
Chào các bạn!
Lâu rồi không có thời gian tham gia diễn đàn. Sang năm mới 2018, chúc t ...

Bạn thay dấu ";" thành dấu cộng là được thôi
=IF($A10="";"";(IF(VLOOKUP($A10;Bangke;9;0)=$X$7;VLOOKUP($A10;Bangke;11;0)+IF(VLOOKUP($A10;Bangke;12;0)=$X$7;VLOOKUP($A10;Bangke;14;0)+IF(VLOOKUP($A10;Bangke;15;0)=$X$7;VLOOKUP($A10;Bangke;17;0)+IF(VLOOKUP($A10;Bangke;18;0)=$X$7;VLOOKUP($A10;Bangke;20;0)+IF(VLOOKUP($A10;Bangke;21;0)=$X$7;VLOOKUP($A10;Bangke;23;0)+IF(VLOOKUP($A10;Bangke;24;0)=$X$7;VLOOKUP($A10;Bangke;26;0)+IF(VLOOKUP($A10;Bangke;27;0)=$X$7;VLOOKUP($A10;Bangke;29;0);0)))))))))

baocatsamac_nd gửi lúc 8/2/2018 13:23
Bạn thay dấu ";" thành dấu cộng là được thôi
=IF($A10="";"";(IF(VLOOKUP($A10;Bangke;9;0 ...

Rất cảm ơn bạn! Nhưng bạn ơn, mình đã thử lại, thay số liệu (mã) tại sheet Nhap lieu thi giá trị tại các ô trong BC Du toan bị sai và báo lỗi FALSE. Các bạn xem lại giúp mình với nhé!

haudk8 gửi lúc 8/2/2018 14:44
Rất cảm ơn bạn! Nhưng bạn ơn, mình đã thử lại, thay số liệu (mã) tại sheet Nhap lie ...

bạn kiểm tra lại, mình thấy sử dụng bình thuờng

baocatsamac_nd gửi lúc 15/3/2018 15:12
bạn kiểm tra lại, mình thấy sử dụng bình thuờng

Bạn xem cột X (mã 6922) mình đã thử đấy mà. Bạn xem lại giúp mình nhé

haudk8 gửi lúc 15/3/2018 20:39
Bạn xem cột X (mã 6922) mình đã thử đấy mà. Bạn xem lại giúp mình nhé

Cái này bạn xem lại công thức của bạn thôi, còn mã chạy bình thường mà

baocatsamac_nd gửi lúc 21/3/2018 10:15
Cái này bạn xem lại công thức của bạn thôi, còn mã chạy bình thường mà

thử xem như này có đúng không
=IF($A10="";"";(IF(VLOOKUP($A10;Bangke;9;0)=F$7;VLOOKUP($A10;Bangke;11;0);0)+IF(VLOOKUP($A10;Bangke;12;0)=F$7;VLOOKUP($A10;Bangke;14;0);0)+IF(VLOOKUP($A10;Bangke;15;0)=F$7;VLOOKUP($A10;Bangke;17;0);0)+IF(VLOOKUP($A10;Bangke;18;0)=F$7;VLOOKUP($A10;Bangke;20;0);0)+IF(VLOOKUP($A10;Bangke;21;0)=F$7;VLOOKUP($A10;Bangke;23;0);0)+IF(VLOOKUP($A10;Bangke;24;0)=F$7;VLOOKUP($A10;Bangke;26;0);0)+IF(VLOOKUP($A10;Bangke;27;0)=F$7;VLOOKUP($A10;Bangke;29);0)))

baocatsamac_nd gửi lúc 21/3/2018 10:18
thử xem như này có đúng không
=IF($A10="";"";(IF(VLOOKUP($A10;Bangke;9;0)=F$7;VLOOKUP($A10; ...

Rất cảm ơn bạn, mình sẽ thử nghiệm

haudk8 gửi lúc 23/3/2018 19:50
Rất cảm ơn bạn, mình sẽ thử nghiệm

Mình đã thử nghiệm thấy kết quả đúng rồi. Trân trọng cảm ơn bạn !

Chào cả nhà,
Em mới tham gia diễn đàn này, thấy đoạn code tự động xuống dòng và autofit dòng trong excel (lấy của Bác nào trên diễn đàn này quên mất rồi, sory tác giả nha). Xin các bác hướng dẫn em đoạn code, và thêm vào chổ nào:
- Chỉnh khoảng cách trên nhỏ lại thì làm như thế nào?
- Tự động WrapText cho các Cells đã Merge
- Tự động canh đều (Justify) đã Merge của Horizontal
- Tự động canh giữa của Vertical.
Cám ơn cả nhà.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewRwHt As Single
Dim cWdth As Single, MrgeWdth As Single
Dim c As Range, cc As Range
Dim ma As Range

With Target
If .MergeCells And .WrapText Then
Set c = Target.Cells(1, 1)
cWdth = c.ColumnWidth
Set ma = c.MergeArea
For Each cc In ma.Cells
MrgeWdth = MrgeWdth + cc.ColumnWidth
Next
Application.ScreenUpdating = False
ma.MergeCells = False
c.ColumnWidth = MrgeWdth
c.EntireRow.AutoFit
NewRwHt = c.RowHeight
c.ColumnWidth = cWdth
ma.MergeCells = True
ma.RowHeight = NewRwHt
cWdth = 0: MrgeWdth = 0
Application.ScreenUpdating = True
End If
End With
End Sub

Đã làm được canh lề rồi ạ, chỉ còn tự động Wraptext cho các ô đã Merge thôi ạ.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewRwHt As Single
Dim cWdth As Single, MrgeWdth As Single
Dim c As Range, cc As Range
Dim ma As Range

With Target
If .MergeCells And .WrapText Then
Set c = Target.Cells(1, 1)
cWdth = c.ColumnWidth
Set ma = c.MergeArea
For Each cc In ma.Cells
MrgeWdth = MrgeWdth + cc.ColumnWidth
Next
Application.ScreenUpdating = False
ma.MergeCells = False
c.ColumnWidth = MrgeWdth
c.EntireRow.AutoFit
NewRwHt = c.RowHeight
c.ColumnWidth = cWdth
ma.MergeCells = True
ma.RowHeight = NewRwHt
cWdth = 0: MrgeWdth = 0
.HorizontalAlignment = xlJustify
.VerticalAlignment = xlCenter
Application.ScreenUpdating = True
End If
End With
End Sub

Đã làm được tự động WrapText, các bác góp ý giúp em nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewRwHt As Single
Dim cWdth As Single, MrgeWdth As Single
Dim c As Range, cc As Range
Dim ma As Range

With Target
    If .MergeCells Then
        .WrapText = True
    End If
   
    If .MergeCells And .WrapText Then
        Set c = Target.Cells(1, 1)
        cWdth = c.ColumnWidth
        Set ma = c.MergeArea
        For Each cc In ma.Cells
        MrgeWdth = MrgeWdth + cc.ColumnWidth
    Next
        Application.ScreenUpdating = False
        ma.MergeCells = False
        c.ColumnWidth = MrgeWdth
        c.EntireRow.AutoFit
        NewRwHt = c.RowHeight
        c.ColumnWidth = cWdth
        ma.MergeCells = True
        ma.RowHeight = NewRwHt
        cWdth = 0: MrgeWdth = 0
        .HorizontalAlignment = xlJustify
        .VerticalAlignment = xlCenter
        Application.ScreenUpdating = True
    End If
End With
End Sub

tranhoe gửi lúc 9/8/2014 11:01
Nếu muốn tự động sửa toàn bộ cho ActiveSheet thì chép Macro sau vào và chạy nó:
[mw_s ...

anh oi. em co file exl nghiem thu cong viec xay dung. muon tu dong giãn dòng ở ô noi dung cong viec và ô nay đã trộn. anh giup em voi. em cam on anh nhieu. em moi vao nhom. co cach nao gui file cho anh de anh tien xem.

votinh3290 gửi lúc 28/9/2017 14:11
Mình từng bảo cái này mình làm khá đơn giản, nhưng có chú Trần Hòe có vẻ không  ...

anh oi. em can fix tu dong giãn dòng ở ô đã trộn co sử dụng ham vlookup. nhug khi fix thi no ok. nhưng quay lai thi no van khong tu gian dòng duoc. anh giup em voi. em cam on

tranhoe gửi lúc 12/9/2016 15:28
Mấy bửa nay bận quá.
Giờ mới có thời gian trả lời. File đính kèm sẽ làm được nhi ...

chào bác!
hiện tại thao tác ctrl+shift+F có thể tự  động khi kết hợp với biên bản nghiệm thu. khi nhảy số biên bản thì thao tác này tự động chạy  được không ạ.