Văn Toàn 1996
Thành viên hoạt động
- Tham gia
- 5/6/23
- Bài viết
- 102
- Được thích
- 22
File đính kèm
Lần chỉnh sửa cuối:
Option Explicit
Sub gachchan()
Dim lr&, ce As Range
lr = Cells(Rows.Count, "C").End(xlUp).Row
Range("C3:D" & lr).Borders.LineStyle = xlNone
For Each ce In Range("C3:C" & lr)
If ce <> ce.Offset(-1, 0) And ce = ce.Offset(1, 0) Then
ce.Resize(1, 2).Borders(xlEdgeTop).LineStyle = xlContinuous
ElseIf ce = ce.Offset(-1, 0) And ce <> ce.Offset(1, 0) Then
ce.Resize(1, 2).Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next
End Sub
Đáng lẽ bạn phải hỏi: đóng xong thì được cái gì?Ủa, thế là kẻ thẳng vào dữ liệu ban đầu hay là ra 1 vùng khác vậy?
Cháu đang tính nói. có vẻ data và kết quả tào lao thì phải. Có kết quả mẫu để người đọc hiểu được mà có vẻ không được làm tử tế lắmĐáng lẽ bạn phải hỏi: đóng xong thì được cái gì?
Điển hình: Dòng "5 Nho" xuất hiện chỉ 1 lần, nhưng trông kết quả thì có khác gì đóng khung đâu?
Quả là đầu óc Ê-Ai nó cao hơn Ê-Kia, Ê-Nọ mấy bậc.
Dưới mã số 11, dòng 19, có cần gạch đóng khung không?Xin chào tất cả mọi người. Chúc mọi người 1 kỳ nghĩ lễ vui vẻ Hạnh phúc bên gia đình. Hôm nay em mang đến 1 câu hỏi như sau. Em cần đóng khung trong vùng B5100 ( Bơ 1 : Đê 100 ) với điều kiện là Nếu dòng mã hàng xuất hiện từ 2 dòng trở lên ( giống như hình mô tả bên dưới ). Em xin chân thành cảm ơn
View attachment 294464Giú
Data lẫn kết quả ví dụ đều không tào lao. Data được sắp xếp theo mã hàng, điều này đúng. Kết quả ví dụ cũng đúng như yêu cầu.Cháu đang tính nói. có vẻ data và kết quả tào lao thì phải. Có kết quả mẫu để người đọc hiểu được mà có vẻ không được làm tử tế lắm
kẽ thẳng vào ban đầuỦa, thế là kẻ thẳng vào dữ liệu ban đầu hay là ra 1 vùng khác vậy?
dòng Nho xanh đó mình bôi đen đóng khung nhầmĐáng lẽ bạn phải hỏi: đóng xong thì được cái gì?
Điển hình: Dòng "5 Nho" xuất hiện chỉ 1 lần, nhưng trông kết quả thì có khác gì đóng khung đâu?
Quả là đầu óc Ê-Ai nó cao hơn Ê-Kia, Ê-Nọ mấy bậc.
Đáng lẽ bạn phải hỏi: đóng xong thì được cái gì?
Điển hình: Dòng "5 Nho" xuất hiện chỉ 1 lần, nhưng trông kết quả thì có khác gì đóng khung đâu?
Quả là đầu óc Ê-Ai nó cao hơn Ê-Kia, Ê-Nọ mấy bậc.
Cháu đang tính nói. có vẻ data và kết quả tào lao thì phải. Có kết quả mẫu để người đọc hiểu được mà có vẻ không được làm tử tế lắm
Mình nhầm 1 tí xíu . tức là nếu mã hàng xuất hiện 2 lần trở lên mới gạch đóng khungDưới mã số 11, dòng 19, có cần gạch đóng khung không?
Có thể dùng định dạng có điều kiện.
do Phần này là Output( kết quả để mắt người dùng nhìn thấy ) mình đã tô màu nền của ô rồi, nên không muốn tô màu thêm 1 lần nữa, Vì thế nên mới gạch khung dưới. còn Ví dụ của mình thì là minh họa, công đoạn này chỉ 1 % đế mình lắp ghép vào 1 Moudle khác nữa. Vui lòng bạn giúp đỡ như hình Mô tả của bạn là đúng ý mình, Tại vì mã hàng mình phân biệt là số ( Mã hàng bắt đầu là 1 và sau đó Max(Mã hàng) + 1 )Data lẫn kết quả ví dụ đều không tào lao. Data được sắp xếp theo mã hàng, điều này đúng. Kết quả ví dụ cũng đúng như yêu cầu.
Chỉ có chính yêu cầu tào lao. Như tôi nêu ra ở bài #3, dùng cách kẻ khung chả phân biệt được cái gì cả.
Bài ví dụ mã hàng là 1, 2, 3,... cho nên dễ nhận. Nếu mã hàng là một sọc dài thì mấy cái "khung" ấy cho thấy cái gì?
View attachment 294474
Đáng ra tô màu dễ nhìn hơn. Nhưng có lẽ trí tuệ Ê-Ai nó tính ra vậy.
Lúc đó mình nhầm và mình sửa lại bài 1 rồi. Mình cũng ghi rõ là Mã hàng chỉ xuất hiện >=2 trở lên rồi mà. Sao bạn cứ cố chấp thay đổi câu hỏi của người khác vậy bạnKhông nhầm, bởi lúc đó (chừ thấy ý khác rồi) bạn muốn kẻ cả viền trên lẫn dưới cho các khối. Do đó dòng Nho dính viền dưới của khối bên trên và viền trên của khối dưới.
Lúc ấy bạn đâu có nhầm, chỉ là ê ai nhầm thôi.Lúc đó mình nhầm và mình sửa lại bài 1 rồi. Mình cũng ghi rõ là Mã hàng chỉ xuất hiện >=2 trở lên rồi mà. Sao bạn cứ cố chấp thay đổi câu hỏi của người khác vậy bạn
người thông minh nói 1 lần thì tự hiểu. Mình tham gia diển đàn là để học hỏi kiến thức chứ không phải lên đây kiếm chuyện. Từ nay về sau nhưng câu hỏi của mình thì bạn làm ơn không cần trả lời nhé. Thân chàoLúc ấy bạn đâu có nhầm, chỉ là ê ai nhầm thôi.
Tôi thay đổi câu hỏi của bạn lúc nào, ở đâu, chỉ ngay ra đi?
Bác buồn cười ghê.Lúc ấy bạn đâu có nhầm, chỉ là ê ai nhầm thôi.
Tôi thay đổi câu hỏi của bạn lúc nào, ở đâu, chỉ ngay ra đi?
Haha. Thôi, tôi đưa vào list rồi, cho nhẹ đầu.Bác buồn cười ghê.
Thớt trước em đã nhắc nhở là ai có nhã ý giúp thớt thì phải tét kỹ trong phòng thí nghiệm ít nhất 03 tháng mà đáp án đúng mới gửi lên mà.
Sau loạt bài hỏi thớt sắp xong dự án và chuẩn bị lượm lúa rồi cỡi mát đa đi vi vu rồi, mà bác vẫn ở đó bị mắng chưa hiểu đề bài .
Lúc đó mình nhầm và mình sửa lại bài 1 rồi. Mình cũng ghi rõ là Mã hàng chỉ xuất hiện >=2 trở lên rồi mà. Sao bạn cứ cố chấp thay đổi câu hỏi của người khác vậy bạn
Cho tôi tham gia chút cho vui nhé.người thông minh nói 1 lần thì tự hiểu. Mình tham gia diển đàn là để học hỏi kiến thức chứ không phải lên đây kiếm chuyện. Từ nay về sau nhưng câu hỏi của mình thì bạn làm ơn không cần trả lời nhé. Thân chào
vậy thì do bạn chậm tiêu. Hình ảnh mình họa có sẳng nhìn không hiểu thì làm được gìCâu hỏi này ở một tầm rất cao, tôi đang quản lý 30 nhãn hàng tương ứng với 200 mã hàng, được bán cho hơn 100 ngàn khách hàng mà tôi vẫn không hiểu hết được sâu xa của câu hỏi này.
Option Explicit
Sub gachchan()
Dim lr&, ce As Range
lr = Cells(Rows.Count, "C").End(xlUp).Row
Range("C3:D" & lr).Borders.LineStyle = xlNone
For Each ce In Range("C3:C" & lr)
If ce <> ce.Offset(-1, 0) And ce = ce.Offset(1, 0) Then
ce.Resize(1, 2).Borders(xlEdgeTop).LineStyle = xlContinuous
ElseIf ce = ce.Offset(-1, 0) And ce <> ce.Offset(1, 0) Then
ce.Resize(1, 2).Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next
End Sub
Đây là một người quen cũ. Hồi nào giờ cách hành sử như vậy đó....
Với Trí tuệ và cách hành xử của thớt, có lẽ các bài của Thớt đưa lên để thớt học hỏi kể cả bài này và các bài sau này trong tương lai sẽ nhận được rất nhiều bài trả lời.
hãy chờ tương lai kiểm chứng.
Có lẽ bạn ít dạo phố "Lập Trình" cho nên không biết người này. Y từng xưng là trí tuệ đi tước chúng ta 100 năm.Câu hỏi này ở một tầm rất cao, tôi đang quản lý 30 nhãn hàng tương ứng với 200 mã hàng, được bán cho hơn 100 ngàn khách hàng mà tôi vẫn không hiểu hết được sâu xa của câu hỏi này.
Lại gặp Excel chưỡi rồi, tởn đi là vừa!Haha. Thôi, tôi đưa vào list rồi, cho nhẹ đầu.
Lại phóng uế bừa bãi trên 1 diễn đàn cônghệ!. . . . .. Y từng xưng là trí tuệ đi tước chúng ta 100 năm.
. . . .
Dễ nhìn? Hơi chủ quan.Đang tháng Bảy mà...
Thử code này nhé . . .
Theo tôi thì dạng câu hỏi này cũng thường gặp, hiểu nôm na là " nhóm các mã hàng có phát sinh" (từ 2 trở lên) cho dễ nhìn
...