Border dòng khi ô có dữ liệu

wuchengcai · 21/3/19

Mình có Bảng dữ liệu từ A3:H500, khi D3 có dữ liệu thì sẽ border A3:H3, khi D4 có dữ liệu thì sẽ border A4:H4, tương tự cho đến A500:H500.
Mình dùng code cho dòng đầu tiên A3:H3:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D3").Value <> "" Then
Range("A3:H3").Borders.Color = RGB(255, 0, 255)
End If
End Sub
Nhưng bảng dữ liệu của mình 500 dòng, mình không thể cope đoạn code trên và paste 500 lần.
Các thầy giúp mình chỉnh lại đoạn code nhé.

snow25 · 21/3/19

wuchengcai đã viết:
Mình có Bảng dữ liệu từ A3:H500, khi D3 có dữ liệu thì sẽ border A3:H3, khi D4 có dữ liệu thì sẽ border A4:H4, tương tự cho đến A500:H500.
Mình dùng code cho dòng đầu tiên A3:H3:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D3").Value <> "" Then
Range("A3:H3").Borders.Color = RGB(255, 0, 255)
End If
End Sub
Nhưng bảng dữ liệu của mình 500 dòng, mình không thể cope đoạn code trên và paste 500 lần.
Các thầy giúp mình chỉnh lại đoạn code nhé.

Bạn thử code này xem.

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim a As Integer
    If Not Intersect(Target, Range("d3:d500")) Is Nothing Then
       If Target.Count = 1 Then
          If Target.Value <> Empty Then
             Application.EnableEvents = False
             a = Target.Row
             Range("A" & a).Resize(1, 8).Borders.Color = RGB(255, 0, 255)
             Application.EnableEvents = True
          End If
    End If
  End If
End Sub

Hoàng Trọng Nghĩa · 21/3/19

Cái này định dạng có điều kiện làm được tuốt hết, cần chi đến cót két ta?

be_09 · 22/3/19

Hoàng Trọng Nghĩa đã viết:
Cái này định dạng có điều kiện làm được tuốt hết, cần chi đến cót két ta?

Lỡ dữ liệu nhiều quá chắc phải uống Coffee rồi vào làm tiếp.

SA_DQ · 22/3/19

Chủ bài đăng chưa nêu việc hính thành 5OO dòng dữ liệu này như thế nào?
Nếu biết cách thức hình thành nên nó, ta có thể áp dụng cách Anh chàng Nghĩa hay cách khác nào đó tốt hơn
Thân!

be_09 · 22/3/19

wuchengcai đã viết:
Mình có Bảng dữ liệu từ A3:H500, khi D3 có dữ liệu thì sẽ border A3:H3, khi D4 có dữ liệu thì sẽ border A4:H4, tương tự cho đến A500:H500.
Mình dùng code cho dòng đầu tiên A3:H3:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D3").Value <> "" Then
Range("A3:H3").Borders.Color = RGB(255, 0, 255)
End If
End Sub
Nhưng bảng dữ liệu của mình 500 dòng, mình không thể cope đoạn code trên và paste 500 lần.
Các thầy giúp mình chỉnh lại đoạn code nhé.

Thử code sau bạn nhập dữ liệu đến đâu không cần biết (dòng 3 phải có đủ tiêu đề đến đó).
Code trong sheet:

Mã:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call ToVieng
End Sub

Code trong Module :

Mã:

Sub ToVieng()
    ActiveSheet.Range("A1").Offset(2).CurrentRegion.Borders.Color = RGB(255, 0, 255)
End Sub

Hoàng Trọng Nghĩa · 22/3/19

be09 đã viết:
Lỡ dữ liệu nhiều quá chắc phải uống Coffee rồi vào làm tiếp.

Gì mà nhiều với không nhiều, em để 1 triệu dòng đó, mất gì thời gian mà bảo uống cà phê, cà pháo? Hay là muốn em đi Biên Hòa cà phê?

wuchengcai · 22/3/19

SA_DQ đã viết:
Chủ bài đăng chưa nêu việc hính thành 5OO dòng dữ liệu này như thế nào?
Nếu biết cách thức hình thành nên nó, ta có thể áp dụng cách Anh chàng Nghĩa hay cách khác nào đó tốt hơn
Thân!

Cám ơn các bạn hỗ trợ.
Dòng code các bạn cung cấp không áp dụng vào file của mình được.
Mình gửi file cho các bạn xem và hỗ trợ giúp nhé.

leonguyenz · 22/3/19

Thêm đoạn code của bạn snow vào Sheet2 thử xem nhé.

HieuCD · 22/3/19

snow25 đã viết:

Bạn thử code này xem.

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim a As Integer
    If Not Intersect(Target, Range("d3:d500")) Is Nothing Then
       If Target.Count = 1 Then
          If Target.Value <> Empty Then
             Application.EnableEvents = False
             a = Target.Row
             Range("A" & a).Resize(1, 8).Borders.Color = RGB(255, 0, 255)
             Application.EnableEvents = True
          End If
    End If
  End If
End Sub

Nếu copy và dán nhiều dòng vào cột D thì sao?
Biến a chỉ dùng 1 lần hơi phí, và Application.EnableEvents có tác dụng gì vậy

snow25 · 22/3/19

HieuCD đã viết:
Nếu copy và dán nhiều dòng vào cột D thì sao?
Biến a chỉ dùng 1 lần hơi phí, và Application.EnableEvents có tác dụng gì vậy

Thì khỏi chạy luôn anh à.
Câu này để ngắt sự kiện. Application.EnableEvents=False đó.
Có chỗ nào không đúng anh chỉ em nhé.

be_09 · 22/3/19

Hoàng Trọng Nghĩa đã viết:
Gì mà nhiều với không nhiều, em để 1 triệu dòng đó, mất gì thời gian mà bảo uống cà phê, cà pháo? Hay là muốn em đi Biên Hòa cà phê?

Muốn sang Biên Hòa thì sáng mai chạy qua, chiều nay (22/3/2019) nhớ gọi trước cho anh để anh triệu tập mấy thành viên Biên Hòa.

HieuCD · 22/3/19

snow25 đã viết:
Thì khỏi chạy luôn anh à.
Câu này để ngắt sự kiện. Application.EnableEvents=False đó.
Có chỗ nào không đúng anh chỉ em nhé.

Code chạy đúng, nhưng chỉ giới hạn 1 ô "If Target.Count = 1 Then" làm hạn chế thao tác copy hoặc dùng code gán giá trị nhiều dòng ở cột D
Application.EnableEvents mình thấy không có tác dụng gì

wuchengcai · 22/3/19

leonguyenz đã viết:
Thêm đoạn code của bạn snow vào Sheet2 thử xem nhé.

View attachment 213838

Vẫn không được bạn ơi. Mình cần border sheet4 (SelectedData), Sheet2 (Data) mình dùng công thức =$(Giá trị Cell)<>"" rùi.
Cái khó của border sheet4 là vì nó chứa CommandButton1 chứa lệnh "Clear", nếu không mình đã dùng công thức =$(Giá trị Cell)<>"" cho nhanh.

leonguyenz · 22/3/19

Mình thấy bài đầu tiên bạn hỏi thay đổi D3, rồi D4, ... bên bạn snow viết code sự kiện Change với cột D, bạn thử nhập D3 hoặc D4 sheet SelectedData thử xem. Mình test code của bạn snow OK nhé.

wuchengcai · 22/3/19

leonguyenz đã viết:
Mình thấy bài đầu tiên bạn hỏi thay đổi D3, rồi D4, ... bên bạn snow viết code sự kiện Change với cột D, bạn thử nhập D3 hoặc D4 sheet SelectedData thử xem. Mình test code của bạn snow OK nhé.

View attachment 213856

Có thể do mình nêu vấn đề chưa đúng nên các bạn cung cấp code chưa đúng theo ý mình.
Dữ liệu Sheet SelectedData có được là khi ấn chọn "Select All"-->"Copy to Page2" của Sheet Data. Chứ không phải nhập thủ công vào.
Tại Sheet SelectedData sẽ dựa vào ô D để border dòng, khi ấn CommandButton1 chứa lệnh "Clear" thì dữ liệu sẽ xóa hết.
Các bạn xem lại code giúp mình nhé.

leonguyenz · 22/3/19

Sửa code nút Copy to Page2" như sau xem thế nào:

Mã:

Private Sub CommandButton8_Click()
Dim sat As Long, sut As Byte, s2 As Worksheet, bu As Long

    If ListBox1.ListCount = 0 Then
     MsgBox "There Aren't Data", vbExclamation
     Exit Sub
    End If
    Set s2 = Sheets("SelectedData")
    sat = ListBox1.ListCount
    sut = ListBox1.ColumnCount
    bu = s2.Range("B" & Rows.Count).End(xlUp).Row + 1
     
    s2.Range("B" & bu & ":M" & sat + bu - 1) = ListBox1.List
    s2.Range("A" & bu).Resize(sat, 16).Borders.Color = RGB(255, 0, 255)
    MsgBox "Data Were Copied"

End Sub

wuchengcai · 22/3/19

leonguyenz đã viết:

Sửa code nút Copy to Page2" như sau xem thế nào:

Mã:

Private Sub CommandButton8_Click()
Dim sat As Long, sut As Byte, s2 As Worksheet, bu As Long

    If ListBox1.ListCount = 0 Then
     MsgBox "There Aren't Data", vbExclamation
     Exit Sub
    End If
    Set s2 = Sheets("SelectedData")
    sat = ListBox1.ListCount
    sut = ListBox1.ColumnCount
    bu = s2.Range("B" & Rows.Count).End(xlUp).Row + 1
   
    s2.Range("B" & bu & ":M" & sat + bu - 1) = ListBox1.List
    s2.Range("A" & bu).Resize(sat, 16).Borders.Color = RGB(255, 0, 255)
    MsgBox "Data Were Copied"

End Sub

Mình làm được rùi. Mừng quá.
Sẵn tiện đây giúp mình Border phần nội dung trong ListBox1 UserForm và kiểm tra lỗi filter UserForm:
(1) Khi chọn "Level" ở ComboBox1 và gõ level "1" vào TextBox13 thì ListBox1 lọc ra luôn cả 10 và 11, dẫn đến kết quả đếm ở Label15 sai luôn.
(2) Khi chọn Staff Name (CN) và Staff Name (Vie) thì chỉ lọc được HỌ, giúp mình chỉnh code lọc theo TÊN nhé.
Cám ơn bạn nhiệt tình hỗ trợ.

leonguyenz · 22/3/19

Sử dụng Like tìm chính xác thì bỏ "*", tìm tương đối cả chuỗi thì dùng "*" cả trước và sau.
Level: bạn bỏ phần "*" ra.
Staff Name (CN) và Staff Name (Vie) thì thêm "*" vào trước và sau chuỗi cần tìm.

wuchengcai · 22/3/19

leonguyenz đã viết:
Sử dụng Like tìm chính xác thì bỏ "*", tìm tương đối cả chuỗi thì dùng "*" cả trước và sau.
Level: bạn bỏ phần "*" ra.
Staff Name (CN) và Staff Name (Vie) thì thêm "*" vào trước và sau chuỗi cần tìm.

Giúp mình add cái này luôn nhé: "Sẵn tiện đây giúp mình Border phần nội dung trong ListBox1 UserForm ......"

Border dòng khi ô có dữ liệu

Thành viên chính thức

Thành viên gạo cội

Chuyên gia GPE

File đính kèm

Biên Hòa, Đồng Nai

/(hông là gì!

Biên Hòa, Đồng Nai

File đính kèm

Chuyên gia GPE

File đính kèm

Thành viên chính thức

File đính kèm

Thành viên gạo cội

Chuyên gia GPE

Thành viên gạo cội

Biên Hòa, Đồng Nai

Chuyên gia GPE

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên chính thức

Đếm ngược thời gian