[Nhờ Giúp Đỡ] Chạy code khi thỏa điều kiện
- Thread starter M@trixs
- Ngày gửi
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Code của bạn là:
Mã:
Private Sub Workbook_Open()
BangNhacViec.Show
End Sub
Mã:
Private Sub Workbook_Open()
[COLOR=#ff0000]If Sheet1.CheckBoxes("Check Box 2").Value = 1 Then[/COLOR] BangNhacViec.Show
End Sub
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Theo mặc định thì:
- CheckBox (Forms) khi được check sẽ có giá trị = 1
- CheckBox (Forms) khi chưa check sẽ có giá trị = -4146
Vậy nên câu lệnh:
If Sheet1.CheckBoxes("Check Box 2") Then BangNhacViec.Show
Sẽ khiến cho Form BangNhacViec luôn Show bất kể CheckBox 2 có được check hay không
Upvote
0
Cảm ơn mọi người đã giúp đỡ. Vấn đề đã được giải quyết, nhưng lại nảy sinh vấn đề khác vì M@trixs đưa phần Nhắc Việc đó vào file chính của M@trixs luôn thì nó báo lỗi. Lỗi này xảy ra khi đứng ở một Sheet khác Sheet [NhacViec] và đã chọn là luôn hiện bảng nhắc việc, còn nếu đứng ở Sheet[NhacViec] thì không có lỗi.
Nội dung lỗi hiển thị như sau:
Nội dung lỗi hiển thị như sau:
Lần chỉnh sửa cuối:
Upvote
0
Đã đưa lên file luôn từ đầu, cớ sao chả hiểu GPE của mình lúc này sao á, cứ chập chờn có khi khó vào nữa
Upvote
0
đúng, khi người dùng chỉ quẳng checkbox ra, NHƯNG
Ngay khi thiết kế kiểu gì ta cũng check, vậy lo chi
Upvote
0
ví sai ở lệnh Sheets("NhacViec") --> không có tên sheet này, bạn nên viết là NhacViet lun ...........
(do NhacViec da la ten sheet-code)
Upvote
0
Xin lỗi vì đánh máy nhanh quá nên bị sai chính tả. Sheet[NhacViec] bạn à. Bạn tải file đính kèm về giúp mình với nhé !!!
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Lỗi là đúng rồi
Sheets("NhacViec").Select
Trong khi sheet NhacViec đang bị ẩn thì Select quái gì chứ
Upvote
0
Vậy M@trixs mới cần đến sự giúp đỡ của các bạn. Vì rằng khi làm file ban đầu mình đã ẩn đi tất cả, chỉ chừa Sheet được sử dụng thì không ẩn. Các bạn giúp mình khắc phục với.
Do có khá là nhiều Sheet nên không thể chọn phương án Hiện Sheet lên được, lu bu lắm. M@trixs lại không rành về VBA nên cần lắm sự giúp dỡ của các bạn !!!!
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Muốn lấy dữ liệu thì cứ việc lấy, cần gì phải Select
Mã:
Private Sub UserForm_Activate()
Dim rCel As Range, wks As Worksheet
Dim ListQuaHanRow As Long, ListDenHanRow As Long
Set wks = ThisWorkbook.Sheets("NhacViec")
Me.Caption = "Cac thong bao nhac nho trong ngay " & Format(Now(), "dd/mm/yyyy")
Me.ListQuaHan.Clear
Me.ListDenHan.Clear
Me.MultiPage1.Value = 1
For Each rCel In wks.Range(wks.[A2], wks.[A65000].End(xlUp))
If rCel.Value < Now Then
Me.ListQuaHan.AddItem (Format(rCel.Value, "dd/mm/yyyy"))
Me.ListQuaHan.List(ListQuaHanRow, 1) = rCel.Offset(, 1).Value
ListQuaHanRow = ListQuaHanRow + 1
ElseIf rCel.Value >= Now() And rCel.Value <= Now() + 7 Then
Me.ListDenHan.AddItem (Format(rCel.Value, "dd/mm/yyyy"))
Me.ListDenHan.List(ListDenHanRow, 1) = rCel.Offset(, 1).Value
ListDenHanRow = ListDenHanRow + 1
End If
Next
End Sub
Upvote
0
Cảm ơn bạn thật nhiều vì đã viết lại toàn bộ code, cũng mệt cho bạn quá. Xin chân thành cảm ơn !!!
Bạn hài thật..... he....he....
Bạn hài thật..... he....he....
Upvote
0
