با سلام
در فایل پیوست مشکلات برطرف گردید
کد PHP:
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "فروردين"
.AddItem "ارديبهشت"
.AddItem "خرداد"
.AddItem "تير"
.AddItem "مرداد"
.AddItem "شهريور"
.AddItem "مهر"
.AddItem "آبان"
.AddItem "آذر"
.AddItem "دي"
.AddItem "بهمن"
.AddItem "اسفند"
End With
End Sub
کد PHP:
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
علاقه مندی ها (Bookmarks)