logo

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



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





04-02-2020 09:13 مساءً
السلام عليكم
عند فتح الملف المرفق تظهر رسالة خطا
اقوم بعمل اوك و تظهر رسالة اخرى اقوم بعمل اغلاق و يتم فتح الملف و العمل عليه عادى جدا
اريد معرفة سبب هذه الرسائل
و هل اذا انا بفتح الملف ده من ملف اخر عن طريق كود
هل يمكن تلافى هذه الرسالة فى حدث فتح ملف العمل
معلومة الملف لشركة efinance لقاعدة بيانات موظفين
بعتذر بشدة مش هاقدر ارفعه
و شكرا
 
  message 2.png   تحميل png message 2.png مرات التحميل :(2)
الحجم :(331.064) KB
  message 1.png   تحميل png message 1.png مرات التحميل :(0)
الحجم :(106.315) KB
 





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




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




look/images/icons/i1.gif ظهور رسالة عند فتح ملف
  04-02-2020 09:28 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10457
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36399
الاعجاب : 66
جرب استخدام السطر التالي في أول الكود لديك
CODE
Application.DisplayAlerts=False

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




look/images/icons/i1.gif ظهور رسالة عند فتح ملف
  04-02-2020 09:47 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 360
الجنس :
تاريخ الميلاد : 13-10-1973
قوة السمعة : 497
الاعجاب : 0
اليك الكود
CODE
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





look/images/icons/i1.gif ظهور رسالة عند فتح ملف
  05-02-2020 09:02 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10457
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36399
الاعجاب : 66
حاول إضافة الأسطر بنفسك .. سطر في بداية الكود وسطر في نهاية الكود




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




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




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




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




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




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




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




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
لا اريد ظهور الفواصلالعشرية في المصنف أبو عبد الرحمن
2 159 أبو عبد الرحمن
ظهور رسالة خطا عند فتح الاكسل فتحي سلام
5 225 فتحي سلام
مشكلةعدم ظهور كافة العناصرعندعمل التصفية fantap
0 152 fantap
هل من حل لمشكلة ظهور كلمة #REF بعد ازالة المصدر عبد الله السعيد
2 491 YasserKhalil
تشغيل صوت mp3 بدون ضغط أي زر عند ظهور اليوزر فروم صالح ربيع
1 816 صالح ربيع

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









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

الساعة الآن 08:25 AM