sự kiện Worksheet_Change (1 người xem)
- Thread starter BoKuDo
- Ngày gửi
Người dùng đang xem chủ đề này
Upvote
0
Thực ra mình cũng rất muốn bỏ trộn ô để đơn giản hơn. Tuy nhiên mình vẫn chưa biết cách nào để bỏ trộn ô mà vẫn thể hiện được hết nội dung trong bảng tiến độ này.
Đây là bản gốc, biết khó nhưng hy vọng vẫn có hướng giải quyết.
Những ô màu đỏ là những vị trí mình muốn đưa vào sự kiện Worksheet_Change
Mình cảm ơn!
Lần chỉnh sửa cuối:
Upvote
0
Rất cảm ơn bạn đã giúp!
Có vấn đề là các công thức ở (Max, Min,..) xuất hiện tại nhiều dòng khác nhau khi mình thử xóa các ngày bên dưới, hoặc kích hoạt 1 cell thì dòng tại vị trí cell đó cũng xuất hiện các công thức (Max, Min,..)
Upvote
0
PacificPR
Thành viên mới
- Tham gia
- 6/5/16
- Bài viết
- 1,997
- Được thích
- 2,747
Đúng rồi anh ah. Anh thêm sự kiện. Nếu mà dòng của cột C trắng thì thực hiện Code là được. Theo em thì anh dùng Sub hay hơn là dùng Worksheet_Change Vì mỗi lần thay đổi thì máy phải tính toán lại. Nếu dữ liệu nhiều nó cứ qoay qoay khố chựu lắm
Upvote
0
Nếu ko bỏ dòng trống thì còn hướng nào khác ko bạn?
Upvote
0
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
Tôi chỉ viết 1 Sub, khi cần thì bấm nút. Kết quả gán thẳng vào vị trí, không qua công thức được không?
Bạn muốn đưa vào sự kiện nào thì tuỳ, tôi thấy rất bất tiện khi mỗi lần động chạm vào sheet nó bị "cà giựt".
PHP:
Public Sub GPE()
Dim I As Long, Rws As Long, nMax As Long, nMin As Long
Rws = Range("I65536").End(xlUp).Row
nMin = 10 ^ 5: nMax = 0
For I = Rws To 11 Step -1
If Range("C" & I) <> Empty Then
If Range("H" & I).Value < nMin Then nMin = Range("H" & I).Value
If Range("I" & I).Value > nMax Then nMax = Range("I" & I).Value
Else
If Range("D" & I) <> Empty Then
Range("H" & I).Value = nMin
Range("I" & I).Value = nMax
Range("G" & I).Value = Range("I" & I).Value - Range("H" & I).Value + 1
nMax = 0: nMin = 10 ^ 5
End If
End If
Next I
End Sub
Upvote
0
Rất cảm ơn a với đoạn code trên!
a có thể giúp e thêm 1 vấn đề nữa là ở cột C nhiều lúc mã hiệu ko ghi (Empty), thì vị trí các công thức xuất hiện sẽ gặp lỗi.
Do vậy để tránh việc này e muốn dựa vào cột B, từ B11 trở xuống sẽ có các ký tự A,1,2,...,B,1,2,3,...,C,... và những ký tự này là luôn có, do vậy nếu dựa vào các ký tự A, B, C, ... để đặt vị trí Max, Min,... thì thuận lợi hơn.
Em có tìm hiểu thấy có đoạn code dùng If Asc(cells(...))>=65 then gì gì đó mà ko biết làm thế nào để áp dụng vào đoạn code trên của a, nếu được nhờ a giúp cho.
Upvote
0
Thầy sao hại trò?! chỉ có trò ko biết mình đang hại chính mình "về lâu về dài" thôi. Vì đó là ý của mình và thầy Ba Tê chỉ hỗ trợ theo ý đó thôi.
Bạn HYen17 có thể nói cho mình biết những điểm bất cập của ý tưởng này để mình rút kinh nghiệm được ko?
Mình rất cảm ơn!
Upvote
0
PacificPR
Thành viên mới
- Tham gia
- 6/5/16
- Bài viết
- 1,997
- Được thích
- 2,747
Do vậy để tránh việc này e muốn dựa vào cột B, từ B11 trở xuống sẽ có các ký tự A,1,2,...,B,1,2,3,...,C,... và những ký tự này là luôn có, do vậy nếu dựa vào các ký tự A, B, C, ... để đặt vị trí Max, Min,... thì thuận lợi hơn.
-----------------------------------------------------------------------------------------------------------------------------------------------
Vậy thì mình dùng hàm IsText để phân biệt số và chữ của cột STT.
-----------------------------------------------------------------------------------------------------------------------------------------------
Vậy thì mình dùng hàm IsText để phân biệt số và chữ của cột STT.
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote
0
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
Tôi không biết ý gì của bạn , tôi chỉ làm theo yêu cầu.
Tôi "đã đọc thấy" những ý như thế này (có lẽ bạn thay đổi rồi): Các mục chính gồm A,B, C..., Mục kế tiếp là 1,2,3..., mục kế tiếp là 1.1; 1.2; 1,3 .... cuối cùng là những ô trống trong các mục 1.1; 1.2; 1.3....
Như vậy trường hợp các mục bạn nói là ô trống là chi tiết của 1.1, 1.2... trùng với các ô trống mà bạn Merge thì sao.
Đúng như "lão đại" nói. Tôi hại bạn rồi. Xin rút thôi.
Upvote
0
Dạ chắc có sự nhầm chút giữa yêu cầu của e với bạn nào đó.
Dù sao e cũng cảm ơn thầy Ba Tê đã hỗ trợ!
Chúc thầy và các thành viên GPE luôn vui vẻ!
Upvote
0
ChanhTQ@
0901452không62
- Tham gia
- 5/9/08
- Bài viết
- 4,254
- Được thích
- 4,861
CSDL mà bạn đang xây dựng đó là chưa chuẩn.
Mà đã vậy, thao tác với nó sẽ là vật vã, nhiều hiểm nguy rình rập & bảo trì thì hỡi ơi!
Ví dụ bạn khó mà tự động hóa trong khâu nhập liệu;
Sửa chữa hay xóa bỏ dữ liệu nào đó không fải dễ.
CSDL của bạn như bức tượng ở quảng trường; thích hợp cho khách tham quan mà thôi.
Upvote
0
Bài viết mới nhất
- Question
- Question
- Question
- Question
