Hỏi về Sub Formatcells

[anhtotbung35]

Mình tìm thấy đoạn code Formatcells như sau:

Sub Formatcells()
    
    Dim Bor As Integer
    For Bor = 1 To 4
        With Selection.Borders(Bor)
          .LineStyle = 7
          .Weight = 2
          .ColorIndex = 0
       End With
       
    Next
    With Selection.Font
        .Name = "Vni-Times"
        .Size = 12
        
    End With
End Sub

Theo đoạn code này thì phần Border, tất cả các cell đều là Line nét liền, mình muốn Line ngoài cùng là nét liền, Line dọc là nét liền, Line ngang là nét đứt (dạng ......). Mình phải sửa code như thế nào.

 

[ndu96081631]

Mình tìm thấy đoạn code Formatcells như sau:
Sub Formatcells()

Dim Bor As Integer
For Bor = 1 To 4
With Selection.Borders(Bor)
.LineStyle = 7
.Weight = 2
.ColorIndex = 0
End With

Next
With Selection.Font
.Name = "Vni-Times"
.Size = 12

End With
End Sub
Theo đoạn code này thì phần Border, tất cả các cell đều là Line nét liền, mình muốn Line ngoài cùng là nét liền, Line dọc là nét liền, Line ngang là nét đứt (dạng ......). Mình phải sửa code như thế nào.

For Next thì chẳng nói làm gì... Tặng bạn code "độc" này:

Sub Test()
  Application.ExecuteExcel4Macro ("BORDER(1,1,1,3,3)")
End Sub

Hoặc

Sub Test()
  Application.ExecuteExcel4Macro ("BORDER(1,1,1,4,4)")
End Sub

hoặc:

 Sub Test()
   Application.ExecuteExcel4Macro ("BORDER(1,1,1,7,7)")
 End Sub

-------------
Chọn vùng rồi chạy code trên
Tham khảo thêm bài viết về Đố vui VBA này:
http://www.giaiphapexcel.com/forum/showthread.php?7146-Đố-vui-về-VBA!&p=237694#post237694

 

[anhtotbung35]

Sub Formatcells()
With Selection.Font
.Name = "Vni-Times"
.Size = 12
End Sub

Cho mình hỏi trong đoạn code trên, thì Format là Font VNI-Tiém và cỡ chữ là 12.
Mình muốn format như sau:
Font chữ kiểu In đậm, hoặc chữ nghiêng, hoặc In đậm chữ nghiêng.
Và canh giữa cell.
Thì đoạn code trên bổ sung lệnh gì?

 

[ndu96081631]

Sub Formatcells()
With Selection.Font
.Name = "Vni-Times"
.Size = 12
End Sub

Cho mình hỏi trong đoạn code trên, thì Format là Font VNI-Tiém và cỡ chữ là 12.
Mình muốn format như sau:
Font chữ kiểu In đậm, hoặc chữ nghiêng, hoặc In đậm chữ nghiêng.
Và canh giữa cell.
Thì đoạn code trên bổ sung lệnh gì?

Cái này bạn thử vừa thao tác format, vừa record macro xem ---> Biết ngay ấy mà
.Font.Bold = True ---> Chữ đậm
.Font.Italic = True ---> Chữ nghiêng
.HorizontalAlignment = xlCenter ---> Canh giữa

 

[anhtotbung35]

Cái này bạn thử vừa thao tác format, vừa record macro xem ---> Biết ngay ấy mà
.Font.Bold = True ---> Chữ đậm
.Font.Italic = True ---> Chữ nghiêng
.HorizontalAlignment = xlCenter ---> Canh giữa

Cảm ơn anh Ndu, phải thừa nhận nếu những gì VBA mà không biết viết thì vào bộ thu của Macro và nghiên cứu, kể cả thực hiện công thức cũng ghi lại hết. Thú vị thật.