|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
| c:\91\1.docx |
Public Dlg_File As Variant
Sub hyperlinkform()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlManual
End With
UserForm1.Hide
Application.DisplayAlerts = False
Dim r As Integer
Dlg_File = Application.GetOpenFilename("all Files (*.*),*.*", , "Select Files to Import", "Import Test Files", True)
On Error Resume Next
If Dlg_File <> False Then
r = 2
For x = 1 To UBound(Dlg_File)
Sheets("sheet1").Select
Range("B" & r).Select
Sheets("sheet1").Hyperlinks.Add Anchor:=Selection, Address:=Dlg_File(x), TextToDisplay:=Dlg_File(x)
r = r + 1
Next x
End If
End Sub
کامنت