Hỏi dùng công thức để vẽ border

[conanta]

Các bạn cho mình hỏi có thể dùng công thức để vẽ được border (đóng khung và chéo) ko ạh ?

 

[ndu96081631]

Các bạn cho mình hỏi có thể dùng công thức để vẽ được border (đóng khung và chéo) ko ạh ?

Conditional Formating không cho phép gạch chéo đâu bạn à!
Xem file tôi đoán mấy chổ gạch chéo ấy chắc là thứ bảy và chủ nhất! Vậy thay vì gạch chéo, ta có thể tô màu khác cũng được vậy (đâu ai bắt buộc ta phải gạch chéo đâu)
Nói thêm: Công thức không thể làm công việc định dạng 1 cell hay 1 vùng

 

[rosy84]

Em nghĩ công thức có làm việc dạng cell to cell và 1 vùng thì lại càng có thể làm chứ?

 

[ndu96081631]

Em nghĩ công thức có làm việc dạng cell to cell và 1 vùng thì lại càng có thể làm chứ?

Sorry bạn! Do tôi viết nhầm ---> Là ĐỊNH DẠNG ---> Tôi đã sửa lại rồi

 

[conanta]

Cái này là mình bị buộc phải làm vậy, nên anh coi có viết bằng VBA được ko, được thì cho em cái code với, cám ơn.

 

[ChanhTQ@]

Muốn Code thì có Code, xin mời

Cái này là mình bị buộc phải làm vậy, nên anh coi có viết bằng VBA được ko, được thì cho em cái code với, cám ơn.

Option Explicit
Sub FormatCells()
 Dim Clls As Range, jJ As Byte, Ww As Integer
 For Each Clls In Selection
   jJ = jJ + 1
   Ww = IIf(jJ Mod 2 = 0, xlDiagonalUp, xlDiagonalDown)
   If Selection.Columns.Count = 2 Then _
      Ww = IIf(jJ Mod 4 = 1 Or jJ Mod 4 = 2, 6, 5)
   With Clls.Borders(Ww)
        .LineStyle = xlContinuous:        .Weight = xlThin
   End With
 Next Clls
End Sub

Chú í khi dùng:

(*) Nên gán cho nó 1 fím tắt, ví dụ {CTRL}+{SHIFT}+F
(*) Trước khi bấm tổ hợp fím tắt, ta nên chọn vùng cần format

 

[ndu96081631]

Cái này là mình bị buộc phải làm vậy, nên anh coi có viết bằng VBA được ko, được thì cho em cái code với, cám ơn.

Tôi gữi bạn 1 giải pháp khác, cách làm như sau:
- Vẽ sẳn các cột gạch chéo tại những vị trí cố định như cột D:E, K:N, E:S, Y:Z, AF:AG và AM:AN
- Đặt dử liệu ngày tháng vào D7:AN7 sao cho ngày thứ bảy gần với ngày 1 tây nhất nằm tại cell D7
- Dùng code để ẩn những cột không thuộc tháng này
code đại khái như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo Thoat
  If Not Intersect([B3:B4], Target) Is Nothing Then
    With Range("D7:AN7")
      .EntireColumn.Hidden = True
      With .Offset(, (DateSerial([B4], [B3], 1) Mod 7))
        .Resize(, Day(DateSerial([B4], [B3] + 1, 0))).EntireColumn.Hidden = False
      End With
    End With
  End If
Thoat:
End Sub

Dử liệu của bạn đã được tôi sửa lại đôi chút, có cell B3 chọn tháng và B4 chọn năm ---> Như vậy với bảng này bạn hoàn toàn có thể dùng cho năm tới
Xem file nhé