Làm sao để tự động thêm/bớt dòng và Merge?? (1 người xem)

[Anhntfpt]

Có một vấn đề về cách trình bày...
Nhờ các sư huynh giúp ...
Phiền các huynh xem file gửi kèm
Xin cám ơn!

 

[pxthanhcda]

Trả lời:Làm sao để tự động thêm/bớt dòng và Merge??

chắc là được!bạn thử xem thế nào

 

[Anhntfpt]

Cám ơn ý tưởng của pxthanhcda, tuy nhiên bạn đã thay đổi hết cả phần Serial theo thứ tự của bài chính. (Số lượng hàng là phân bổ hết cho toàn bộ khách hàng, và Serial sẽ thay đổi theo điểm giao).

 

[pxthanhcda]

Bạn chuyển t thành i như sau:
t = Range("D1").Value
So_luong_A = Sheets("Serial").Range("B" & t).Value
So_luong_B = Sheets("Serial").Range("C" & t).Value
So_luong_C = Sheets("Serial").Range("D" & t).Value
thành
i = Range("D1").Value
So_luong_A = Sheets("Serial").Range("B" & i).Value
So_luong_B = Sheets("Serial").Range("C" & i).Value
So_luong_C = Sheets("Serial").Range("D" & i).Value

 

[SA_DQ]

Format Cells

Có một vấn đề về cách trình bày...Nhờ các sư huynh giúp ...

Chú í: trong code của bạn mình có thêm dòng lệnh.

Option Explicit
Const DCuoi As Byte = 24
Sub HideAndMerge()
 Dim lZ As Long
 Dim Rng As Range
 
 Merge_ Range("C17:C24")
 Merge_ Range("A4:A9"):             Merge_ Range("A10:A16")
 Merge_ Range("B4:B9"):             Merge_ Range("B10:B16")
 Merge_ Range("C4:C9"):             Merge_ Range("C10:C16")
 Merge_ Range("A17:A24"):           Merge_ Range("B17:B24")
 
 For lZ = DCuoi To 4 Step -1
    If Cells(lZ, 4) = "" Then
        If Rng Is Nothing Then
            Set Rng = Cells(lZ, 4)
        Else
            Set Rng = Union(Rng, Cells(lZ, 4))
        End If
    End If
 Next lZ
 Rng.EntireRow.Hidden = True
 
End Sub

[B]Sub Merge_[/B](Rng As Range, Optional Tron As Boolean = True)
    If Tron Then Rng.Merge Else Rng.Hidden = False
[B]End Sub[/B]

 

[Anhntfpt]

OK! Rất cám ơn các huynh...
AnhNT đã có thêm ý tưởng trình bày cho bài của mình.

 

[Anhntfpt]

Các bác giúp em chút nhé!
Sau khi chuyển dữ liệu thành công!
Em bị vướng không vẽ khung được!
Các huynh xem file kèm!

Tks!

 

[Anhntfpt]

Em đã làm được cái ý tưởng của bài viểt #7, tuy nhiên trông hơi xấu.
Phiền các bác giúp em nữa nhé!

 

[ThuNghi]

Em đã làm được cái ý tưởng của bài viểt #7, tuy nhiên trông hơi xấu.
Phiền các bác giúp em nữa nhé!

Bạn thêm dòng màu đỏ, sao không thêm Application.ScreenUpdating = False cho màn hình khỏi nhảy.
Call DinhDangVung("A4" & dong)
Range("A3" & dong).HorizontalAlignment = xlCenter
Range("B4:B" & dong).HorizontalAlignment = xlLeft
Range("A3" & dong).VerticalAlignment = xlCenter
Range("A3" & dong).WrapText = 1
Rows("4:" & dong).EntireRow.AutoFit

Thông thường khi dùng sự kiện change, thì nên tách code ra. ie nếu change thì chạy code...Nó khoa học hơn.

 

[Anhntfpt]

Bạn thêm dòng màu đỏ, sao không thêm Application.ScreenUpdating = False cho màn hình khỏi nhảy.
Range("A3" & dong).WrapText = 1
Rows("4:" & dong).EntireRow.AutoFit

Vẫn vướng bác ạ!
Cột tên thiết bị dài hơn Serial => Hiển thị không hết "Tên thiết bị"
Mong các bác cho em ý tưởng!

 

[ThuNghi]

Vẫn vướng bác ạ!
Cột tên thiết bị dài hơn Serial => Hiển thị không hết "Tên thiết bị"
Mong các bác cho em ý tưởng!

Hiểu rồi, ie bạn muốn Cột tên thiết bị cho đủ lúc ấy tổng các Row height của serial chia đều cho đẹp. Để nghiên cứu thử.

 

[khoa289]

Tôi thấy phần Merge hàng rất giống với phần này mà tôi đã hỏi nhưng chưa có câu trả lời.Tôi muốn gộp 4 hàng thành 1 hàng khi chèn hàng,xem địa chỉ sau:http://www.giaiphapexcel.com/forum/showthread.php?48079-Hỏi-chèn-hàng-có-điều-kiện, mong các bạn giải giúp.Thanks