الاخوة الزملاء بناء على سؤال على اليوتيوبربط خلية في ورقة اكسل لفتح ملف من نوع word
كود البرمجة
ممكن فتح اى ملف غير الورد بعد وضعة فى الفولدر وتغير صيغة الملف كما فى الصورة
CODE
</span></strong> Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo eeee
cc = Target.Column
rr = Target.Row
If cc = 2 And rr = 2 Then
xxx = ThisWorkbook.Path & "" & Range("B2").Value & ".docx"
ActiveSheet.Shapes("AutoShape 3").Select
Selection.ShapeRange.Item(1).Hyperlink.Delete
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=xxx
Range("C3").Select
End If
eeee:
Application.EnableEvents = True
Application.ScreenUpdating = False
End Sub <strong><span style="font-size:18px">