Xin code định dạng Cell bằng VBA (1 người xem)

[hoang0569]

Em gửi File kèm theo, mọi người giúp em định dạng Cell bằng code VBA nhé, cảm ơn mọi người nhiều.

 

[doveandrose]

bên này có hướng dẫn nè
http://www.giaiphapexcel.com/forum/showthread.php?107575-Xin-giúp-code-VBA-định-dạng-Cell

 

[Ba Tê]

Em gửi File kèm theo, mọi người giúp em định dạng Cell bằng code VBA nhé, cảm ơn mọi người nhiều.

Chép cái này vào khung VBE của sheet1, thử nhập số nào đó hay copy từ chỗ khác vào cột E xem sao.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range
If Target.Column = 5 Then
    For Each Cll In Target
        If Cll.Value < 1 Then
            Cll.NumberFormat = "0.000"
        ElseIf Cll.Value < 10 Then
            Cll.NumberFormat = "0.00"
        Else
            Cll.NumberFormat = "0.0"
        End If
    Next Cll
End If
End Sub

 

[hoang0569]

Cảm ơn anh Ba Tê, anh giúp sửa code Format cả vùng được không?

 

[Ba Tê]

Cảm ơn anh Ba Tê, anh giúp sửa code Format cả vùng được không?

Cái gì cũng có thể được, nhưng phải nói rõ:
- Cả vùng là từ đâu tới đâu? Cả bảng tính luôn sao?
- Lúc đầu sao không nói là cả vùng?
- Khi nào thì code hoạt động? Lúc nhập ô nào thì format ô đó? Hay nhập xong tô chọn vùng nào thì format vùng đó?
Dự trù những tình huống xảy ra, và khi nào thì ra kết quả... rồi hỏi 1 lần.
-----------------------------------
Gợi ý cho bạn sửa.
Muốn có tác dụng format trong vùng B2:Z100 thì thay dòng này :

If Target.Column = 5 Then '(Cột E)'

Bằng dòng này:

If Not Intersect(Target, [B2:Z100]) Is Nothing Then

 

[hoang0569]

Dạ, tại em không nói rõ, em có 1 bảng tính đơn giản, nhưng có 3 vùng không liền kề nhau cần định dạng như vậy, vùng 1: (B3:S30), VÙNG 2B33:S33), VÙNG 3: (B35:S35) Anh xem giúp em nhé.

 

[Ba Tê]

Dạ, tại em không nói rõ, em có 1 bảng tính đơn giản, nhưng có 3 vùng không liền kề nhau cần định dạng như vậy, vùng 1: (B3:S30), VÙNG 2B33:S33), VÙNG 3: (B35:S35) Anh xem giúp em nhé.

Nếu là đơn giản thì dùng Conditional Formatting sẽ linh động hơn, code này chỉ hoạt động khi edit ô hoặc vùng thôi.
Nếu vùng đó là công thức, kết quả trong ô thay đổi phụ thuộc vào sự thay đổi của vùng khác thì chẳng có tác dụng gì.

 

[hoang0569]

Theo anh nên thế nào, vì bảng tính đó của em các ô đều có công thức cả, dùng Conditional Formatting thế nào cho hợp lý, anh bày giúp em nhé.

 

[ndu96081631]

Theo anh nên thế nào, vì bảng tính đó của em các ô đều có công thức cả, dùng Conditional Formatting thế nào cho hợp lý, anh bày giúp em nhé.

Quét chọn vùng dữ liệu, bấm Ctrl + ! để mở hộp Format Cells. Trong thẻ Number, chọn mục Custom và gõ vào khung Type mã sau:

[<1]0.000;[<10]0.00;00.0

Xong!