|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Private Sub CommandButton1_Click()
Dim cCont As Control
Dim s
s = 0
For Each cCont In Me.Controls
If TypeName(cCont) = "ComboBox" Then
s = s + 1
End If
Next cCont
If s >= 1 Then
Dim i
i = s + 1
If Me.Controls("Combobox" & i - 1).Value <> "" Then
Set cCont = Controls.Add("Forms.Combobox.1")
With cCont
.Name = "Combobox" & i
.Height = 20
.Width = 100
.Left = 10
.Top = 20 * i - 10
End With
End If
Else
Set cCont = Me.Controls.Add _
("Forms.Combobox.1")
With cCont
.Name = "Combobox1"
.Height = 20
.Width = 100
.Left = 10
.Top = 10
End With
End If
End Sub
کامنت