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



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







04-02-2020 09:13 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 364
الجنس :
تاريخ الميلاد : 13-10-1973
قوة السمعة : 503
الاعجاب : 3
السلام عليكم
عند فتح الملف المرفق تظهر رسالة خطا
اقوم بعمل اوك و تظهر رسالة اخرى اقوم بعمل اغلاق و يتم فتح الملف و العمل عليه عادى جدا
اريد معرفة سبب هذه الرسائل
و هل اذا انا بفتح الملف ده من ملف اخر عن طريق كود
هل يمكن تلافى هذه الرسالة فى حدث فتح ملف العمل
معلومة الملف لشركة 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
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
وعليكم السلام
حاول حفظ المصنف باسم آخر في مسار آخر ، لربما يكون هناك مشكلة في الملف بسبب فتحه على جهاز آخر مسطب عليه نسخة أوفيس مختلفة




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




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

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




look/images/icons/i1.gif ظهور رسالة عند فتح ملف
  04-02-2020 09:47 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 364
الجنس :
تاريخ الميلاد : 13-10-1973
قوة السمعة : 503
الاعجاب : 3
اليك الكود
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
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
حاول إضافة الأسطر بنفسك .. سطر في بداية الكود وسطر في نهاية الكود




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




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




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




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




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




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




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




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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
لا اريد ظهور الفواصلالعشرية في المصنف أبو عبد الرحمن
2 198 أبو عبد الرحمن
ظهور رسالة خطا عند فتح الاكسل فتحي سلام
5 289 فتحي سلام
مشكلةعدم ظهور كافة العناصرعندعمل التصفية fantap
0 199 fantap
هل من حل لمشكلة ظهور كلمة #REF بعد ازالة المصدر عبد الله السعيد
2 541 YasserKhalil
تشغيل صوت mp3 بدون ضغط أي زر عند ظهور اليوزر فروم صالح ربيع
1 911 صالح ربيع

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








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

الساعة الآن 03:55 PM.