أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





مدموج :معادله معرفة اسم الملف

الساده الخبراء عندى بملف معادله لاستخراج اسم الملف ولكن تعطى خطا فى التنقيذ فى بعض الاجهزه can#39;t find project or l ..


موضوع مغلق


30-11-2020 12:53 مساء
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 179
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 292
عدد الإجابات: 3
 offline 

الساده الخبراء 

عندى بملف معادله لاستخراج اسم الملف ولكن تعطى خطا فى التنقيذ فى بعض الاجهزه  can't find project or library
و خاصية  References,  غير فعاله فى VBA

هذه المعادلة 

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Function wbName() As String
    Application.Volatile True
    Dim i As Integer
    If Application.Version >= 12 Then
        i = 5
    Else: i = 4
    End If
    wbName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - i)
    Sheets("CLass").Range("F16") = wbName
End Function

 
فما هى المشكله

Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Function wbName() As String     Application.Volatile True     Dim i As Integer     If Application.Version >= 12 Then         i = 5     Else: i = 4     End If     wbName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - i)     Sheets("CLass").Range("F16") = wbName End Function
 
 
ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As S
 
الموضوع مدموج من مواضيع متعدّدة


أفضل إجابة مقدمة من ali mohamed ali وهي:
وعليكم السلام ... سهلة وبسيطة فقط استخدم هذه المعادلة ولكم جزيل الشكر
=MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-6)
عرض الإجابة




30-11-2020 04:22 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1763
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif مدموج :معادله معرفة اسم الملف
السلام عليكم فقط لإدراج ومعرفة اسم الملف بخلية عليك استخدام ووضع هذه المعادلة فى اى خلية تريد
=MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-1)
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

01-12-2020 10:18 صباحا
مشاهدة مشاركة منفردة [2]
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 179
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 292
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif مدموج :معادله معرفة اسم الملف
الساده الخبراء

هذه المعادلة لمعرفة اسم الملف و لكن يعطى امتداد الملف ايضا مثال .xlsm

اريد اسم الملف فقط

=MID(CELL("filename");SEARCH("[";CELL("filename"))+1;SEARCH("]";CELL("filename"))-SEARCH("[";CELL("filename"))-1)


فهل ممكن ذلك

لكم جزيل الشكر و الاحترام
 
=MID(CELL("filename");SEARCH("[";CELL("filename"))+1;SEARCH("]";CELL("filename"))-SEARCH("[";CELL("filename"))-1)
 

01-12-2020 10:57 صباحا
مشاهدة مشاركة منفردة [3]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1763
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif مدموج :معادله معرفة اسم الملف
وعليكم السلام ... سهلة وبسيطة فقط استخدم هذه المعادلة ولكم جزيل الشكر
=MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-6)
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله



الكلمات الدلالية
معادله ، معرفة ، الملف ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 05:48 صباحا