نحوه ثبت خودکار تاریخ با یوز فرم

[lhbb67]

سلام و وقت بخیر خدمت همه دوستان عزیز
می خواستم ببینم چطوری میتونم با استفاده از یوزر فرمی که ساختم تاریخ ها رو به صورت خودکار ثبت کنم
من میخوام وقتی در فیلد سال مثلا سال 1394 تایپ شد و در کمبوباکس فروردین انتخاب شد در سلول های مورد نظر از یک فروردین تا 15 فروردین رو پر کنه
این کار در حال حاضر میشه اما تو تعریفش من فقط سال 94 رو دارم نه هر سالی که تو فیلد سال 94 وارد بشه

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

در فایل پیوست مشکلات برطرف گردید

Private Sub UserForm_Initialize()
With ComboBox1
    .AddItem "فروردين"
    .AddItem "ارديبهشت"
    .AddItem "خرداد"
    .AddItem "تير"
    .AddItem "مرداد"
    .AddItem "شهريور"
    .AddItem "مهر"
    .AddItem "آبان"
    .AddItem "آذر"
    .AddItem "دي"
    .AddItem "بهمن"
    .AddItem "اسفند"


End With
End Sub 

Private Sub CommandButton1_Click()
Dim z As Integer

x = ComboBox1.Value

Select Case x
    Case "ÝÑæÑÏíä"
    Cells(6, 1).Value = TextBox1 & "/01/01"
   Range("A6").Select
    Selection.AutoFill Destination:=Range("A6:A20"), Type:=xlFillDefault
    Range("A6:A20").Select
    
    Case "ÇÑÏíÈåÔÊ"
     Cells(6, 1).Value = TextBox1 & "/02/01"
   Range("A6").Select
    Selection.AutoFill Destination:=Range("A6:A20"), Type:=xlFillDefault
    Range("A6:A20").Select
    
    Case "ÎÑÏÇÏ"
     Cells(6, 1).Value = TextBox1 & "/03/01"
   Range("A6").Select
    Selection.AutoFill Destination:=Range("A6:A20"), Type:=xlFillDefault
    Range("A6:A20").Select
    
        
    Case "撄"
     Cells(6, 1).Value = TextBox1 & "/04/01"
   Range("A6").Select
    Selection.AutoFill Destination:=Range("A6:A20"), Type:=xlFillDefault
    Range("A6:A20").Select
    
    
    Case "ãÑÏÇÏ"
     Cells(6, 1).Value = TextBox1 & "/05/01"
   Range("A6").Select
    Selection.AutoFill Destination:=Range("A6:A20"), Type:=xlFillDefault
    Range("A6:A20").Select
    
    
    Case "ÔåÑíæÑ"
     Cells(6, 1).Value = TextBox1 & "/06/01"
   Range("A6").Select
    Selection.AutoFill Destination:=Range("A6:A20"), Type:=xlFillDefault
    Range("A6:A20").Select
    
    
    Case "ãåÑ"
     Cells(6, 1).Value = TextBox1 & "/07/01"
   Range("A6").Select
    Selection.AutoFill Destination:=Range("A6:A20"), Type:=xlFillDefault
    Range("A6:A20").Select
    
    
    Case "ÂÈÇä"
     Cells(6, 1).Value = TextBox1 & "/08/01"
   Range("A6").Select
    Selection.AutoFill Destination:=Range("A6:A20"), Type:=xlFillDefault
    Range("A6:A20").Select
    
    
    Case "ÂÐÑ"
     Cells(6, 1).Value = TextBox1 & "/09/01"
   Range("A6").Select
    Selection.AutoFill Destination:=Range("A6:A20"), Type:=xlFillDefault
    Range("A6:A20").Select
    
    
    Case "Ïí"
     Cells(6, 1).Value = TextBox1 & "/10/01"
   Range("A6").Select
    Selection.AutoFill Destination:=Range("A6:A20"), Type:=xlFillDefault
    Range("A6:A20").Select
    
    Case "Èåãä"
     Cells(6, 1).Value = TextBox1 & "/11/01"
   Range("A6").Select
    Selection.AutoFill Destination:=Range("A6:A20"), Type:=xlFillDefault
    Range("A6:A20").Select
    
    
    Case "ÇÓÝäÏ"
     Cells(6, 1).Value = TextBox1 & "/12/01"
   Range("A6").Select
    Selection.AutoFill Destination:=Range("A6:A20"), Type:=xlFillDefault
    Range("A6:A20").Select
    
End Select
End Sub