Hỏi cách kẻ bảng tự động trong Excel có điều kiện

[longlinh88]

vậy các bác choem hỏi muốn giữ nguyên công thức trong ô khi có ô mới thì làm thế nào

 

[viehoai]

vậy các bác choem hỏi muốn giữ nguyên công thức trong ô khi có ô mới thì làm thế nào

Ô nào bạn đã định dạng được như ý rồi thì bạn chọn ô đó sau đó kích vào Format Painer (hình cái chổi) và bôi quét các cells cần định dạng

 

[longlinh88]

thank tất cả các bác!

 

[tuynh]

Em nhờ các bác viết cho em code kẻ bảng cách dòng (theo một quy luật) đến hết bảng (hàng và cột của bảng có thể thay đổi). Em cảm ơn các bác!

 

[Hoang2013]

Cái bảng trống trơn dữ liệu mà kẻ làm gì cho fí mực!
Hình như bạn muốn kể đến dòng 16 khi dữ liệu cuối thuộc dòng 14, hay 15 hoặc 16, f ải không?

Mình đề xuất cách này:

Dữ liệu thường tối đa là 106 dòng (chẳng hạn)
Ta kẻ hẵn 135 dòng theo í (của bạn)

Sau khi "đổ" dữ liệu vô; ta dùng macro xác định dòng cuối có dữ liệu
Bước cuối là ẩn dòng (mà chỉ số dòng chia hết cho 3 & cọng thêm 1) lớn hơn dòng cuối vừa xác định cho tới dòng 135

Vậy được hông?

 

[tuynh]

Hi thank bác.
Mực của em nhiều nên các bác cứ kẻ thoải mái.
Em up file lên để các bác xem, trong file em muốn kẻ đường nét đứt đó theo quy luật như trong file và đến hết bảng (dòng cuối bảng có thể thay đổi và cột cũng có thể thay đổi)

 

[tuynh]

Các bác giúp em với?

 

[lehuong1409]

Các bác giúp em với?

Nếu ít phải sửa lại thì mình thấy bạn Format Painter có nhanh hơn không?

 

[tuynh]

Cũng phải sửa nhiều đấy bạn, xóa đi tính lại cũng nhiều nên muốn dùng VBA để tự động.

 

[ducmagic88]

Các bác cho em hỏi trong VBA làm sao mình có thể kẻ được các đường kẻ nét đứt theo ý mình ạ, e có record macro nhưng chưa hiểu lắm, bác nào giúp em với ạ, em cảm ơn!

 

[be_09]

Các bác cho em hỏi trong VBA làm sao mình có thể kẻ được các đường kẻ nét đứt theo ý mình ạ, e có record macro nhưng chưa hiểu lắm, bác nào giúp em với ạ, em cảm ơn!

Góp ý cho bạn:
Muốn làm cái gì đó thì nên đính kèm File và nêu rõ thực hiện trên sheet nào để người xem dòng bắt đầu từ đâu, cấu trúc nó thế nào chứ đưa cái hình chỉ để nhìn cho vui thôi. Muốn thử code thì lấy cái gì để thử?

 

[quick87]

Các bác cho em hỏi trong VBA làm sao mình có thể kẻ được các đường kẻ nét đứt theo ý mình ạ, e có record macro nhưng chưa hiểu lắm, bác nào giúp em với ạ, em cảm ơn!
View attachment 238183

Bạn thử code sau nhé:

Sub zaq()
    Dim lastRow As Long
    lastRow = Range("B" & Rows.Count).End(xlUp).Row
      With Sheet1
      .Range("A1: H" & lastRow).Borders.LineStyle = 1
      .Range("A2: H" & lastRow - 1).Borders(xlInsideHorizontal).Weight = xlHairline
     End With
End Sub

 

[ducmagic88]

Góp ý cho bạn:
Muốn làm cái gì đó thì nên đính kèm File và nêu rõ thực hiện trên sheet nào để người xem dòng bắt đầu từ đâu, cấu trúc nó thế nào chứ đưa cái hình chỉ để nhìn cho vui thôi. Muốn thử code thì lấy cái gì để thử?

Bạn thử code sau nhé:

Sub zaq()
    Dim lastRow As Long
    lastRow = Range("B" & Rows.Count).End(xlUp).Row
      With Sheet1
      .Range("A1: H" & lastRow).Borders.LineStyle = 1
      .Range("A2: H" & lastRow - 1).Borders(xlInsideHorizontal).Weight = xlHairline
     End With
End Sub

Em làm được rồi ạ, cảm ơn bác rất nhiều!