ahmed_ummu
Altın Üye
- Katılım
- 28 Mart 2011
- Mesajlar
- 731
- Excel Vers. ve Dili
- Excel 2010 Professional Plus 64 Bit
- Altın Üyelik Bitiş Tarihi
- 15-10-2026
Merhaba arkadaşlar.
Eklediğim tarih seçici dosyasında, dtp userform açıldığında günün tarihinin zemin rengini açık gri yapmak istiyorum. İnitialize yordamına aşağıdaki kırmızı olan kodları ekledim ama "method" hatası veriyor. Rica etsem yardımcı olabilir misiniz.
Private Sub UserForm_Initialize()
Dim intTextBox As Integer
For intTextBox = 1 To 42
Set textBoxes(intTextBox).TextGroup = Controls("t" & intTextBox)
If textBoxes(intTextBox).TextGroup = Controls("t" & intTextBox).Day(Now) Then
textBoxes(intTextBox).TextGroup = Controls("t" & intTextBox).BackColor = &H8000000F
End If
Next intTextBox
Me.TextBox10 = Month(Now)
Me.TextBox1 = Year(Now)
Me.TextBox2 = MonthName(Me.TextBox10)
Call olustur
TextBox10.SetFocus
End Sub
Eklediğim tarih seçici dosyasında, dtp userform açıldığında günün tarihinin zemin rengini açık gri yapmak istiyorum. İnitialize yordamına aşağıdaki kırmızı olan kodları ekledim ama "method" hatası veriyor. Rica etsem yardımcı olabilir misiniz.
Private Sub UserForm_Initialize()
Dim intTextBox As Integer
For intTextBox = 1 To 42
Set textBoxes(intTextBox).TextGroup = Controls("t" & intTextBox)
If textBoxes(intTextBox).TextGroup = Controls("t" & intTextBox).Day(Now) Then
textBoxes(intTextBox).TextGroup = Controls("t" & intTextBox).BackColor = &H8000000F
End If
Next intTextBox
Me.TextBox10 = Month(Now)
Me.TextBox1 = Year(Now)
Me.TextBox2 = MonthName(Me.TextBox10)
Call olustur
TextBox10.SetFocus
End Sub
Ekli dosyalar
-
59.1 KB Görüntüleme: 6
Son düzenleme: