nguyendinhtutw
Thành viên chính thức
- Tham gia
- 17/4/17
- Bài viết
- 73
- Được thích
- 3
- Giới tính
- Nam
Dear các bác,
Em có copy được code của bác Hoàng Nghĩa Phúc về cách thêm calendar vào trong excel như dưới đây, với mục đích tạo ô nhập ngày tháng cho các cột H, I, J, AP, AR:
......
Private Sub Calendar1_Click()
With ActiveCell
.Value = Calendar1
.NumberFormat = "dd/mm/yy"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Calendar1
If Not Intersect(Range("H:H,I:I,J:J,AP:AP,AR:AR"), Target) Is Nothing Then
Calendar1.Value = Date
.Visible = True
.Top = Target.Top
.Left = Target(, 2).Left
ElseIf Application.CutCopyMode = False Then
.Visible = False
End If
End With
End Sub
......
Tuy nhiên khi chạy code thì báo lỗi Run-time error '424', debug thì nó bôi vàng dòng Calendar1.Value = Date.
các bác chỉ cho em cách sửa với ạ, em cảm ơn
Em có copy được code của bác Hoàng Nghĩa Phúc về cách thêm calendar vào trong excel như dưới đây, với mục đích tạo ô nhập ngày tháng cho các cột H, I, J, AP, AR:
......
Private Sub Calendar1_Click()
With ActiveCell
.Value = Calendar1
.NumberFormat = "dd/mm/yy"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Calendar1
If Not Intersect(Range("H:H,I:I,J:J,AP:AP,AR:AR"), Target) Is Nothing Then
Calendar1.Value = Date
.Visible = True
.Top = Target.Top
.Left = Target(, 2).Left
ElseIf Application.CutCopyMode = False Then
.Visible = False
End If
End With
End Sub
......
Tuy nhiên khi chạy code thì báo lỗi Run-time error '424', debug thì nó bôi vàng dòng Calendar1.Value = Date.
các bác chỉ cho em cách sửa với ạ, em cảm ơn
