ممكن حل مشكلة ملف الاكسيل على ويندوز؟؟؟؟

[ahmed agag]

السلام عليكم ورحمة الله وبركاته 

ممكن حل لمشكلة ملف الاكسيل مش بيفتح على ويندوز ١٠

 

مرتبات لسنة 2025.xls

[hegazee]

و عليكم السلام ورحمة الله و بركاته 

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

على العموم تم تحويل الملف بصيغة أخرى لكي تعمل الأكواد مع أني أرى استخدام أكواد فقط في شيت المرتبات

مرتبات لسنة 2025.xlsm

تم تعديل الأحد at 08:21 بواسطه hegazee

[ahmed agag]

أهلاُ بحضرتك ياهندسة 

دى صور المشاكل اللى بتوجهنى عند فتح الملف 

ياريت لو تحاول  تفتح اى اسم الاسماء مثل النخلة البحرية 

بتظهر الرسائل الموجود فى الصور

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

1) الصور التي أرفقتها توضح أن ملفك يحتوي على روابط خارجية وهي تشير إلى بيانات في ملفات أخرى عند فتح الملف يحاول تحديث هذه الروابط تلقائيا وإذا لم يجد الملفات المرتبطة أو كانت غير متاحة تظهر هذه الرسائل التحذيرية يمكنك استخدام  Break Link لكسر الرابط نهائيا لتفادي ظهورها مجددا 

2) مجرد اقتراح   

الأكواد مكررة بشكل كبير يمكن استبدالها بوظيفة واحدة تقبل اسم المنطقة كمتغير بدلا من 36 ماكرو منفصل

 

Sub filtrage(arrName As String, names As String)
    On Error GoTo ClearApp
    If ActiveSheet.AutoFilterMode = False Then Range("A1").AutoFilter
    ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:="=" & arrName, Operator:=xlOr, Criteria2:="=الاجمالى"
    Range("B5").Value = names
    Range("A3").Select
    Exit Sub
ClearApp:
End Sub

ثم تستدعيها مثلا بهذا الشكل

Sub صندوق_التمويل()
    Call filtrage("صندوق التمويل", "صندوق التمويل")
End Sub

جرب هدا بعد كسر الإرتباطات وتنظيم الأكواد 

 

مرتبات لسنة 2025.xls

[ahmed agag]

 

شكرا لحضرتك بافندم 
بس ممكن توضيح أكثر بتعديل الاكواد الموجوده هنا

Sub CE??EC??E()
'
' CE??EC??E Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'

'
    Selection.AutoFilter Field:=1, Criteria1:="=CE??EC??E", Operator:=xlOr, _
        Criteria2:="=C?C??C??"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "CE??EUUUUUC??E"
    Range("A3").Select
End Sub
Sub C?????()
'
' C????? Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'

'
    Selection.AutoFilter Field:=1, Criteria1:="=C?????", Operator:=xlOr, _
        Criteria2:="=C?C??C??"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "C???U?UUUUUUUUU?"
    Range("A3").Select
End Sub
Sub E????UC?U?E?E()
'
' E????UC?U?E?E Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'

'
    Selection.AutoFilter Field:=1, Criteria1:="=E???? C?U?E?E", Operator:= _
        xlOr, Criteria2:="=C?C??C??"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "E???? C?U?E?E"
    Range("A3").Select
End Sub
Sub E????UC?O???E()
'
' E????UC?O???E Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'

'
    Selection.AutoFilter Field:=1, Criteria1:="=E???? C?O???E", Operator:= _
        xlOr, Criteria2:="=C?C??C??"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "E???? C?O???E"
    Range("A3").Select
End Sub
Sub C?????()
'
' C????? Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'

'
    Selection.AutoFilter Field:=1, Criteria1:="=C?????", Operator:=xlOr, _
        Criteria2:="=C?C??C??"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "C??UUUUUUUU???"
    Range("A3").Select
End Sub
Sub C??OE??E()
'
' C??OE??E Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'

'
    Selection.AutoFilter Field:=1, Criteria1:="=C??OE??E", Operator:=xlOr, _
        Criteria2:="=C?C??C??"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "C??OE??E"
    Range("A3").Select
End Sub
Sub C?E????()
'
' C?E???? Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'

'
    Selection.AutoFilter Field:=1, Criteria1:="=C?E????", Operator:=xlOr, _
        Criteria2:="=C?C??C??"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "C?E????"
    Range("A3").Select
End Sub
Sub C????()
'
' C???? Macro
' Macro recorded 26/11/2017 by Ahmed Mohsen
'

'
    Selection.AutoFilter Field:=1, Criteria1:="=C????", Operator:=xlOr, _
        Criteria2:="=C?C??C??"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "C????"
    Range("A3").Select
End Sub
 

[Foksh]

اسمحوا لي بمداخلة صغيرة .

أخي الريم عند اضافة أكواد إلى مشاركتك أو أي موضوع لك لاحقاً ، حاول استخدام إشارى <> المخصصة لكتابة أو لصق الأكواد فيه . أما بخصوص هذه المشكلة عند المسميات العربية والتي لا ننصح بها دائماً في برمجة VBA هي :-

3 ساعات مضت, ahmed agag said:

Sub CE??EC??E()

لاحظ الرموز التي نتجت عند نسخك للكود في الوقت الذي كانت فيه لغة الكيبورد = English في كمبيوترك !!

بينما لاحقاً ومستقبلاً عند نسخ أي كود من محرر الأكواد وكان الكود يحتوي مسميات عربية ، حاول تغيير لغة الكتابة الى العربية قبل النسخ واللصق  .

 

كل الإحترام والتقدير للأساتذة وخبراء ومعلمي قسم الآكسل . فلا أتعدى ولا أنقص من مجهودكم بقدر ما لفت انتباهي تكرار هذه النقطة عند الكثيرين من الأخوة أصحاب الطلبات بما يخص هذه المشكلة CE??EC??E .