کمبوباکس

[sma4727134]

با سلام
من در طراحی فرم برای وارد کردن تاریخ از combobox استفاده کرده ام می خواهم هنگام پر کردن تاریخ اگر هر چیزی به جز موارد موجود در کمبو باکس باشه تایپ نشه
برای مثال در کمبو باکس مربوط به ماه بیش از 12 یا حروف نشه تایپ کرد مثلا کمبو باکس 20 را قبول نکند
با تشکر

[iranweld]

فایل شما هیچگونه یوزرفرمی ندارد.

این کد را تست کنید

Private Sub CommandButton1_Click()

t = 0

For i = 1 To 12

If Val(ComboBox1) = i Then


t = 1

End If

Next


If t = 0 Then ComboBox1 = ""

Else

Range("A1") = ComboBox1.Value


End Sub 

[sma4727134]

با تشکر از دوست عزیزم من اولا فایل اصلاحی را بارگذاری نمودم در ضمن منظورم را به درستی نتونستم برسونم در کمبو باکس 1 که مربوط به روز است در صورتی که بخواهم بصورت دستی تایپ کنم یعنی از لیست کشویی انتخاب نکنم فقط امکان تایپ مواردی را بهم بدهکه در لیست موجود باشه بر فرض من نتونم عدد 32 یا 40 را وارد کنم

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید.

Private Sub UserForm_Initialize()

For i = 1 To 31

ComboBox1.AddItem i

If i <= 12 Then

ComboBox2.AddItem i

End If

ComboBox3.AddItem 1374 + i

Next

End Sub 

Private Sub CommandButton1_Click()

a = 0
b = 0
c = 0

For i = 1 To 31

If Val(ComboBox1) = i Then
a = 1
End If

If Val(ComboBox2) = i Then
b = 1
End If

If Val(ComboBox3) = 1374 + i Then
c = 1
End If

Next

If a = 1 And b = 1 And c = 1 Then

MsgBox "ok"

ElseIf a = 0 Then

MsgBox "ComboBox1 not ok"

ComboBox1 = ""

ElseIf b = 0 Then

MsgBox "ComboBox2 not ok"

ComboBox2 = ""

ElseIf c = 0 Then

MsgBox "ComboBox3 not ok"

ComboBox3 = ""

End If

End Sub 

[sma4727134]

با سلام
با تشکر از دوست عزیزمان لازم به ذکر است من فایل جنابعالی را دیدم دستورات شما هنگام ذخیره فایل خطا می ده و فایل ذخیره نمی شه ولی من می خوام موقع تایپ خطا بده و از وارد کردن هر چیزی به جز مواردی که در لیست باکس موجود است جلوگیری کند
با تشکر

[iranweld]

کدهای ذیل را به فرم خود اضافه کنید

Private Sub ComboBox1_Change()

t = 0

For i = 1 To 31

If Val(ComboBox1) = i Then

t = 1

End If

Next

If t = 0 Then ComboBox1 = ""


End Sub

Private Sub ComboBox2_Change()

t = 0

For i = 1 To 12

If Val(ComboBox2) = i Then

t = 1

End If

Next

If t = 0 Then ComboBox2 = ""


End Sub

Private Sub ComboBox3_Change()

t = 0

For i = 1 To 31

If Val(ComboBox3) = i + 1374 Then

t = 1

End If

Next

If t = 0 Then ComboBox3 = ""

End Sub 

[sma4727134]

با تشکر از جنابعالی ممنون از راهنماییتون؛ آیا امکانش هست که اعداد یک رقمی( از 1 تا 9) بصورت دورقمی(یک صفر پشتشان نمایش داده شود.)

[iranweld]

کدهای ذیل را جایگزین کنید

Private Sub UserForm_Initialize()

For i = 1 To 31

If i < 10 Then

ComboBox1.AddItem "0" & i

Else

ComboBox1.AddItem i

End If

If i <= 12 Then

If i < 10 Then

ComboBox2.AddItem "0" & i

Else

ComboBox2.AddItem i

End If

End If

ComboBox3.AddItem 1374 + i

Next

End Sub 

[sma4727134]

ممنون و تشکر از راهنماییتون