), ưu tiên cách thức thực hiện như thế trên ô cell.
Nội dung cần giúp như nào em ghi trong file đính kèm. Không cần calendar phải giống trong hình ( hoặc giống được thì càng tốt
Xin cảm ơn các anh rất nhiều!!
Cảm ơn bạn. Thế mình phải viết code như thế nào khi mình muốn khi click vào ô cell nó xuất hiện dạng combobox như vd của mình???
Cảm ơn bạn mình cũng đã làm được như thế. Nhưng mình muốn khi click vào ô cell thì nó hiện ra như này ( file ảnh kèm theo) thì phải làm như nào??
Mình có lần đã thử nhưng không dùng cũng không am hiểu rõ, nhưng mình có thể dùng sự kiện click và lấy giá trị của Calendar để làm điều kiện cho các bước khác.
Code của bạn thế này:
Private Sub Calendar1_Click()
Dim arr(), thangketiep, ngaycuoithang, ngayhientai, ngay, i
ngayhientai = Calendar1.Value
With Sheet1.ComboBox1
.Visible = False
.Visible = True
.Left = ActiveCell.Left
.Top = ActiveCell.Top
.Width = ActiveCell.Width
.Height = ActiveCell.Height
.Value = Format(ngayhientai, "ddd,dd/mm/yy")
End With
[COLOR=#ff0000]thangketiep = IIf(Month(ngayhientai) = 12, 0, 1)
If thangketiep = 1 Then
ngaycuoithang = DateSerial(Year(ngayhientai), Month(ngayhientai) + thangketiep, 1) - 1
Else
ngaycuoithang = DateSerial(Year(ngayhientai), Month(ngayhientai) + 1, 1) - 1
End If
Sheet1.ComboBox1.Clear
ReDim arr(1 To Day(ngaycuoithang), 1 To 1)
For i = 1 To Day(ngaycuoithang)
ngay = i & "/" & Month(ngayhientai) & "/" & Year(ngayhientai)
arr(i, 1) = Format(ngay, "dd/mmm/yy")
Next[/COLOR]
Sheet1.ComboBox1.List = arr
Sheet1.ComboBox1 = Format(ngayhientai, "dd/mm/yy")
End Sub[COLOR=#ff0000]ngaydauthang[/COLOR] = ngayhientai - Day(ngayhientai) + 1
ngaycuoithang = DateAdd("m", 1, ngaydauthang) - 1
Sheet1.ComboBox1.Clear
ReDim arr(1 To Day(ngaycuoithang))
For i = ngaydauthang To ngaycuoithang
[COLOR=#ff0000]n = n + 1[/COLOR]
arr(n) = Format(i, "dd/mmm/yy")
NextĐể tôi làm 1 cái DTPicker giống như tác giả đã yêu cầu nhé
Private Sub DTPicker1_CloseUp()
ActiveCell.Value = DTPicker1.Value
End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ExitSub
With Sheet1.DTPicker1
If Not Intersect(Range("B1:B20"), Target) Is Nothing Then
If Target.Count = 1 Then
.Visible = True
.Left = Target.Left: .Top = Target.Top
.Width = Target.Width: .Height = Target.Height
.Format = 3: .CustomFormat = "dd-MMM-yyyy"
End If
Else
ExitSub:
.Visible = False
End If
End With
End Sub
