البحث في الموقع

الساده الافاضل بخصوص الهايبرلينك انا عملت هايبر لينك على صور الموظفين محتاج لما اجي اطلع تقرير بمجرد كتابة الكود تظهر صورة الموظف بمعني اصح يتم فتح الهايبر لينك

السلام عليكم ورحمة الله وبركاته ،، الأخوة الكرام ،، أنشأت ملف إكسل لموظفي الشركة، وارغب بعمل إرتباط تشعبي مع فولدارات تحتوي على صور لكافة المستندات الخاصة بالموظفين (عقد عمل، هوية .. إلخ) فما هي الدالة التي أحتاجها.. علماً بأن مكان حفظ الفولدرات في الجهاز كما يلي : E:\ARCIVING\Scan Arciving\Company Staff أرجو المتابعة وإبلاغي إذا لم يكن طلبي واضحاً. شاكراً ومقدراً حسن اهتمامكم .. x Names.xlsx

السلام عليكم ورحمة الله وبركاته ،، ابحث عن طريقة لعمل ارتباط تشعبي بين ملف إكسل تم إنشاؤه لأرشفة البريد الوارد ، مع ملف آخر يحتوي على ملفات PDF للبريد الوارد. تجدون في الصورة المرفقة توضيح للمطلوب، حيث هناك جدول إكسل فيه بيانات الخطابات الواردة، ويوجد ملف يحتوي على صورة PDF لهذه الخطابات، وبدأت بعمل ربط بين رقم الخطاب في ملف الإكسل مع صورة الخطاب في الملف الآخر، ولكن الأمر يتطلب إلى وقت طويل للإنتهاء من ربط حوالي 6000 خطاب. لذا أرجو إفادتي إذا كان هناك طريقة أسرع لربط هذه الخطابات مرة واحدة مع الشكر والتقدير ،،،

السلام عليكم ورحمة الله وبركاته , إخواني الأحبة , لدي ملف ( شيت اكسل ) فيه بيانات للعملاء ولدي مجلد باسم العملاء في سطح المكتب , فكل ما أدخلت بند في صفحة العميل اضفت ارتباط تشعبي مع كل بند والمسار كانت هكذا : file:c:/users/lenovo/desktop/client/123 ex... فكما تلاحظون جميع المسار تدخل على سطح المكتب وكل الأمور تمام , والآن قبل عدة ايام انطفت الكمبيوتر فجأة عندما كنت ادخل بعض البنود ولما شغلت الجهاز اعطاني نسخة احتياطية للعمل الذي كنت اقوم به وقبلت وحفظت الملف ولكن بعد عدة أيام حاولت افتح احدى الارتباطات التشعبي لدي ولاحظت انه جميع الارتباطات ما عادت تعمل وتغييرت المسارات كليا هكذا : file:c:/users/lenovo/appdata/roaming/microsoft/exel/client/123ex.... فحاولت انقل مجلد العملاء لنفس المسار ولكن زادت الطين بلة وأصبح المسارات هكذا : file:c:/users/lenovo/appdata/roaming/appdata/roaming/microsoft/exel/client/123ex.... والسوال الآن : هل هناك طريقة أني أعدل المسارات كلها دفعة واحدة ؟ حيث اريد ان احول المسار عن roaming إلى desktop فهل يمكن ذلك في الاكسل ؟ أو هل هناك كود يقوم بذلك ؟ أفيدوني بارك الله فيكم , علما أني استخدم اكسل 2016 والبنود كثيرة جدة أكثر من عشرة الاف بند لكي أعدل يدويا , وشكرا لكم .

الاخوة الاعزاء في المنتدى السلام عليكم توقف الارتباط التشعبي hyperlink عن العمل في الاكسل حيث تظهر رسالة تخبر ان العملية الغيت بسبب قيود في نظام الكومبيوتر ارجوا من الاخوة الضالعين في هذه البرامج التفضل باعطائي حلا لهذه المشكلة مع بالغ امتناني

السلام عليكم ورحمة الله عندي جهاز محمول به وندوز 8.1 وأوفس 2010 كذلك عندي جهاز به نفس البرامج ولكن الجهاز المحمول عند عمل ارتباط تشعبي في اكسل تظهر رسالة كما في المرفق لا يعمل الارتباط التشعبي وقمت بتركيب اوفيس2013 على الجهاز المحمول وكذلك لا يعمل الارتباط التشعبي وتظهر نفس الرسالة فما سبب ذلك بالله عليكم وكذلك قمت بعمل ارتباط تشعبي في الوورد ولكنه لم يعمل فتظهر نفس الرسالة مع العلم بأن نفس قرص الوندوز وقرص الاوفيس قمت بتركيبه في الجهازين .

السلام عليكم عودة بعد غيبة طويلة جدا عن منتدى الإكسيل بهذه الطريقة الظريفة بدون برامج وفقكم الله الفيديو

السلام عليكم ملف للتحميل : https://app.box.com/s/v94a80af0wlm284d057fhqsjeqxdpd1y الكود التالي يعتمد طريقة فريدة و غريبة بواسطة دالة ال HYPERLINK 1- الكود في موديول عادي : Option Explicit Private Type POINTAPI x As Long y As Long End Type #If VBA7 And Win64 Then Private Declare PtrSafe Function GetCursorPos Lib "User32" (lpPoint As POINTAPI) As Long #Else Private Declare Function GetCursorPos Lib "USER32" (lpPoint As POINTAPI) As Long #End If Private ThisCell As Range Private myShape As Shape Private linitialColorIndex As Long Private linitialFontColorIndex As Long Public Sub MyMouseOverEvent_Hyplnk() Set ThisCell = Application.Caller With ThisCell Set ThisWorkbook.oWsh = .Worksheet If .Interior.ColorIndex = 6 Then .Interior.ColorIndex = linitialColorIndex If .Font.ColorIndex = 3 Then .Font.ColorIndex = linitialFontColorIndex linitialColorIndex = .Interior.ColorIndex linitialFontColorIndex = .Font.ColorIndex .Interior.ColorIndex = 6 .Font.ColorIndex = 3 Set myShape = .Parent.Shapes(Replace(.Name.Name, "_", "")) myShape.Left = .Offset(0, 2).Left + 2 myShape.Top = .Offset(0, 2).Top + 1 myShape.Width = .Offset(0, 2).Width - 2 myShape.Height = .Offset(0, 2).Height - 2 myShape.OnAction = "Dummy" myShape.Visible = msoTrue Call MouseExit End With End Sub Private Sub Dummy() End Sub Private Sub MouseExit() Dim tPt As POINTAPI Do GetCursorPos tPt If TypeName(ActiveWindow.RangeFromPoint(tPt.x, tPt.y)) <> "Range" Then Exit Do If ThisCell.Address <> ActiveWindow.RangeFromPoint(tPt.x, tPt.y).Address Then Exit Do DoEvents Loop ThisCell.Interior.ColorIndex = linitialColorIndex ThisCell.Font.ColorIndex = linitialFontColorIndex Set ThisCell = Nothing myShape.Visible = msoFalse End Sub 2- الكود في ThisWorkbook Module : Option Explicit Public WithEvents oWsh As Worksheet Private Sub Workbook_Open() Set oWsh = Sheets(1) End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim oShp As Shape On Error Resume Next For Each oShp In oWsh.Shapes oShp.Visible = msoFalse Next End Sub Private Sub oWsh_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub Private Sub oWsh_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub