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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





ظهور رسالة عند فتح ملف

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



04-02-2020 09:13 مساء
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 292
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
قوة السمعة : 231
الاعجاب : 0
 offline 
السلام عليكم 
عند فتح الملف المرفق تظهر رسالة خطا
اقوم بعمل اوك و تظهر رسالة اخرى اقوم بعمل اغلاق و يتم فتح الملف و العمل عليه عادى جدا
اريد معرفة سبب هذه الرسائل 
و هل اذا انا بفتح الملف ده من ملف اخر عن طريق كود 
هل يمكن تلافى هذه الرسالة فى حدث فتح ملف العمل
معلومة الملف لشركة efinance لقاعدة بيانات موظفين 
بعتذر بشدة مش هاقدر ارفعه
و شكرا
 
  message 2.png   تحميل png message 2.png مرات التحميل :(2)
الحجم :(331.064) KB
  message 1.png   تحميل png message 1.png مرات التحميل :(0)
الحجم :(106.315) KB
 





04-02-2020 09:16 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25169
الاعجاب : 53
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
وعليكم السلام
حاول حفظ المصنف باسم آخر في مسار آخر ، لربما يكون هناك مشكلة في الملف بسبب فتحه على جهاز آخر مسطب عليه نسخة أوفيس مختلفة




04-02-2020 09:20 مساء
مشاهدة مشاركة منفردة [2]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 292
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
قوة السمعة : 231
الاعجاب : 0
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
فعلا استاذ ياسر هو ده اللى انا بعمله
يس هل يمكن عمل ذلك من خلال كود فى ملف اخر
يعنى لما افتح الملف من ملف تانى عن طريق كود هل يمكن تجنب هذه الرسالة
و لما افتح ابقى احفظه
و شكرا




04-02-2020 09:28 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25169
الاعجاب : 53
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
جرب استخدام السطر التالي في أول الكود لديك
Application.DisplayAlerts=False

ولا تنسى أن تضع في نهاية الكود نفس السطر مع تغيير القيمة False إلى True




04-02-2020 09:47 مساء
مشاهدة مشاركة منفردة [4]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 292
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
قوة السمعة : 231
الاعجاب : 0
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
اليك الكود
Sub Put_Val()
'
Dim Arr()
Dim Arr_Target()
Dim Arr_Col_7()
Dim WB As Workbook
Dim Rng As Range
'================================================================

ScreenOff
Path = ThisWorkbook.Path & "\"
Set WB = Workbooks.Open(Filename:=Path & [C5])
'ÓØÑ ÈÏÇíÉ ÌÏæá ãáÝ ÇáãÕÏÑ
End_Row = Cells(Rows.Count, "c").End(xlUp).Row
'äØÇÞ ãáÝ ÇáãÕÏÑ ãä ÈÏÇíÉ ÚãæÏ ÇáÑÈØ (ÇáÑÞã ÇáÞæãì)
Arr = Range("c2:e" & End_Row)
WB.Close False
Set WB = Nothing
'================================================================

Set WB = Workbooks.Open(Filename:=Path & [C6])

'ÈÏÇíÉ ÚãæÏ ãáÝ ÇáåÏÝ
End_Row = Cells(Rows.Count, "A").End(xlUp).Row
'äØÇÝ ãáÝ ÇáåÏÝ
Arr_Target = Range("A2:g" & End_Row)
For x = LBound(Arr) To UBound(Arr)
    For Row = LBound(Arr_Target) To UBound(Arr_Target)
        If Arr_Target(Row, 1) = Arr(x, 1) Then
'           ÇáÌÒÁ ÇáËÇäì ãä ÇáÓØÑ ÈÚÏ ÇáíÓÇæì ÑÞã ÚãæÏ Ýì ãáÝ ÇáãÕÏÑ ÇáãÑÇÏ ÌáÈå(ÇáãÑÊÈ)
            Arr_Target(Row, 7) = Arr(x, 3)
        End If
        If Not Arr_Target(Row, 7) > 0 Then Arr_Target(Row, 7) = 0
    Next
Next
Arr_Col_7 = ColumnVector(Arr_Target, 7)
Arr_Col_7 = One_Dimension_C(Arr_Col_7)
Arr_Col_7(0) = Cells(1, "G")
Set Rng = Range("G1").Resize(UBound(Arr_Col_7) + 1)
Rng = Application.Transpose(Arr_Col_7)
Application.DisplayAlerts = False
WB.Close True
Application.DisplayAlerts = True
'================================================================
ScreenOn
Set WB = Nothing
'
Application.DisplayAlerts = True
End Sub

Sub BANK_Val()
'
Dim Arr()
Dim Arr_Target()
Dim Arr_Col_11()
Dim WB As Workbook
Dim Rng As Range
'================================================================
ScreenOff
Path = ThisWorkbook.Path & "\"
Set WB = Workbooks.Open(Filename:=Path & [C5])
'ÓØÑ ÈÏÇíÉ ÌÏæá ãáÝ ÇáãÕÏÑ
End_Row = Cells(Rows.Count, "c").End(xlUp).Row
'äØÇÞ ãáÝ ÇáãÕÏÑ ãä ÈÏÇíÉ ÚãæÏ ÇáÑÈØ (ÇáÑÞã ÇáÞæãì)
Arr = Range("c2:e" & End_Row)
WB.Close False
Set WB = Nothing
'================================================================
Set WB = Workbooks.Open(Filename:=Path & [C6])
'ÈÏÇíÉ ÚãæÏ ãáÝ ÇáåÏÝ
End_Row = Cells(Rows.Count, "A").End(xlUp).Row
'äØÇÝ ãáÝ ÇáåÏÝ
Arr_Target = Range("A2:K" & End_Row)
For x = LBound(Arr) To UBound(Arr)
    For Row = LBound(Arr_Target) To UBound(Arr_Target)
        If Arr_Target(Row, 1) = Arr(x, 1) Then
'           ÇáÌÒÁ ÇáËÇäì ãä ÇáÓØÑ ÈÚÏ ÇáíÓÇæì ÑÞã ÚãæÏ Ýì ãáÝ ÇáãÕÏÑ ÇáãÑÇÏ ÌáÈå(ÇáãÑÊÈ)
            Arr_Target(Row, 11) = Arr(x, 3)
        End If
        If Not Arr_Target(Row, 11) > 0 Then Arr_Target(Row, 11) = 0
    Next
Next
Arr_Col_11 = ColumnVector(Arr_Target, 11)
Arr_Col_11 = One_Dimension_C(Arr_Col_11)
Arr_Col_11(0) = Cells(1, "K")
Set Rng = Range("K1").Resize(UBound(Arr_Col_11) + 1)
Rng = Application.Transpose(Arr_Col_11)
Application.DisplayAlerts = False
WB.Close True

'================================================================
ScreenOn
Set WB = Nothing
'
End Sub

 




05-02-2020 09:02 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25169
الاعجاب : 53
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
حاول إضافة الأسطر بنفسك .. سطر في بداية الكود وسطر في نهاية الكود




05-02-2020 03:08 مساء
مشاهدة مشاركة منفردة [6]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 292
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
قوة السمعة : 231
الاعجاب : 0
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
طيب قبل سطور ال dim و لا بعدها لانى جربت و الله




05-02-2020 08:57 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25169
الاعجاب : 53
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
قبل أسطر الإعلان عن المتغيرات أو بعدها سيان .. 




07-02-2020 12:55 مساء
مشاهدة مشاركة منفردة [8]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 292
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
قوة السمعة : 231
الاعجاب : 0
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
تم و لم يحدث شى
يوجد وقوف عند هذا السطر
Set WB = Workbooks.Open(Filename:=Path & [C6]




07-02-2020 03:14 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25169
الاعجاب : 53
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
ضع قوس الإغلاق في نهاية السطر




07-02-2020 07:39 مساء
مشاهدة مشاركة منفردة [10]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 292
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
قوة السمعة : 231
الاعجاب : 0
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
()
كده يعنى




08-02-2020 04:33 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25169
الاعجاب : 53
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
بهذا الشكل
Set WB = Workbooks.Open(Filename:=Path & [C6])




10-02-2020 09:26 صباحا
مشاهدة مشاركة منفردة [12]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 292
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
قوة السمعة : 231
الاعجاب : 0
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
موجود بس انا مخدتوش فى الكوبى






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مشكلة ظهور رسالة تهيئة مكتبات vba 40040 hamid
3 50 YasserKhalil
حل ظهور رسالة الخطأ مهند محسن
7 117 YasserKhalil
حل مشكلة ظهور هذه الرسالة فى ملفات الإكسيل مهند محسن
5 550 YasserKhalil
حل مشكلة ظهور الكلمات معكوسة عند طباعة بيان من مواقع وزارة التربية والتعليم Yasser Elaraby
28 2937 احمد الاسطى
مشكلة فى عدم ظهور الفورم صلاح الصغير
5 200 YasserKhalil

الكلمات الدلالية
ظهور ، رسالة ،


 







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

الساعة الآن 01:41 مساء

أعلن هنا
أعلن هنا
أعلن هنا