Bạn này lấy ở đâu ra cái file từ 2002, phông chữ không đọc được gì cả.
FIle này không cần đọc chữ. Cái cần đọc là code và công thức. ô Q24 ( Q24 đọc được trong code).
Font này ít dùng lắm bạn, nhưng vì chổ mình làm yêu cầu phải dùng font này (.VnAvant, bảng mã TCVN3)
Tôi nghĩ cái bạn cần đọc và cần trả lời là bài 3 chứ không phải bài 2. Trừ khi bạn không quan tâm đến việc giải quyết bài 1.
Thật tình là mình ko rành về code nên mới nhờ sửa lệnh, cũng muốn học lắm mà giờ cũng có tuổi rồi hay sao mà đọc nó ko vào. Bạn có thể sửa giùm mình với được ko? Cảm ơn bạn rất nhiều vì đã quan tâm!
Theo gợi ý của Anh @ptm0412 bạn thử làm theo cách sau:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim t&
If Target.Address = "$Q$24" Then
For Each Rng In [P26:P35]
If Rng = "P" Then t = t + 1
Next Rng
Target = t
End If
End SubPrivate Sub Worksheet_Activate()
Dim Rng As Range
Application.ScreenUpdating = False
For Each Rng In [A26:A35]
Rng.EntireRow.Hidden = Rng.Value = " "
Next Rng
End SubPrivate Sub Worksheet_Activate()
Dim Rng As Range
Application.ScreenUpdating = False
For Each Rng In [P26:P35]
Rng.EntireRow.Hidden = Rng.Value <> "P"
Next Rng
Application.ScreenUpdating = True
End Sub
[Code/]Tuổi tác chưa khi nào là vấn đề (có tuổi thì không dùng từ chat chit như "ko"). Bạn đọc không vào, thì bạn hỏi lại cho đến khi vào. Tôi thì quan tâm còn bạn thì thay vì hỏi lại cho "vào" lại lo giải thích chuyện không đáng.
Sub HideUnhide()
Rows("25:35").Hidden = False
If [Q24].Value + 26 < 35 Then
Rows([Q24].Value + 26 & ":35").Hidden = True
End If
End SubCảm ơn bạn nhiều, mình hiểu ý định của bạn, nhưng công thức ở Q24 là không thể thay đổi, vì chính nó quyết định đến việc tự động ẩn hiện dòng, còn ở cột P là chỉ để đánh giá, nhiều khi đánh giá ko đạt nhưng vẫn phải hiển thi để xuất hồ sơ
Có lẽ bạn không thử như tôi đã hướng dẫn:
Cảm ơn Anh @ptm0412 đã xem bài và chỉ bảo.
Không chạy qua chạy lại giữa các sheet thì lại phải click 1 cái vào Q24. Giả sử Q24 đang active thì phải click 2 cái: Một cái click ra ngoài và 1 cái click vào nó. Khi sử dụng control để điều khiển thì cách tốt nhất là dùng sự kiện của cái control đó.
Nên được đặt sự kiện vào Spinner Change, nháy phải lên Spinner gán macro (edit để tạo mới) rồi dùng code sau
Sub Spinner5902_Change()
Rows("25:35").Hidden = False
If Range("$Q$24").Value + 26 < 35 Then
Rows((Range("$Q$24").Value + 26) & ":35").Hidden = True
End If
End Sub
Thật tình thì cả 2 cách này, hồi sáng mình đều đã thử, nhưng nó vẫn chạy không đúng ý đồ, hay là do mình chưa thực hiện đúng. Để có thời gian mình sẻ gửi lại file để bạn kiểm tra giùm. Vì bây giờ mình phải giải quyết hồ sơ gấp cho khách hàng nên không thể làm được, mong bạn thông cảm. Phiền bạn quá! Cảm ơn bạn rất rất nhiều!
Nếu gởi lại file, thì gởi file "đã thử nhưng không đúng ý đồ" chứ đừng gởi file gốc như bài 1 hoặc bài 14
Cảm ơn bạn @ptm0412 đã rất tận tình với vấn đề của mình đưa ra!
phần code in nhiều phiếu của bạn như nào?
Vẫn dùng spin button hoặc không, nhưng viết code tạo vòng lặp từ a đến b (số nguyên giống như nhấn spin). Câu lệnh là ActiveSheet.PrintOut
