مشكلة الويندوز 7 واللغة العربية !!!!؟؟؟؟

[Eid Mostafa]

أخوانى الأعزاء

السلام عليكم

أرسل لكم اليوم بعد أن أعيانى البحث عن حل لتلك المشكلة ، والتى أتعشم أن أجد حلاً لها بفضلكم بإذن الله.

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

وللتوضيح أكثر فالمطلوب كالتالى :-

أولاً : أن تظهر كلمة " مدين " أو " دائن " بالخلية J7 حسب رصيد الحساب

وذلك بالإستعانة بالكود التالى:-

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2,E6,C6,C7")) Is Nothing Then
Application.ScreenUpdating = False
On Error Resume Next
If Target Is emptey Then
Sheet2.Range("B12:C403,E12:J403").ClearContents
R = 12: sum1 = 0: sum2 = 0: sum3 = 0: sum4 = 0
For I = 2 To Sheet1.Range("C2000").End(xlUp).Row + 1
Application.ScreenUpdating = False
If Sheet2.Range("E6").Value = Sheet1.Cells(I, "C") Then
If Sheet2.Range("C6").Value > Sheet1.Cells(I, "H") Then
sum3 = sum3 + Sheet1.Cells(I, 1): sum4 = sum4 + Sheet1.Cells(I, 2)
End If
If Sheet2.Range("C7").Value = "" Then GoTo a2
If Sheet2.Range("C7").Value >= Sheet1.Cells(I, "H") Then
a2:
If Sheet2.Range("C6").Value = "" Then GoTo a3
If Sheet2.Range("C6").Value <= Sheet1.Cells(I, "H") Then
a3:
Sheet2.Cells(R, 2) = Sheet1.Cells(I, 1)
Sheet2.Cells(R, 3) = Sheet1.Cells(I, 2)
Sheet2.Cells(R, 5) = Sheet1.Cells(I, 5)
Sheet2.Cells(R, 6) = Sheet1.Cells(I, 9)
Sheet2.Cells(R, 7) = Sheet1.Cells(I, 7)
Sheet2.Cells(R, 8) = Sheet1.Cells(I, 6)
Sheet2.Cells(R, 9) = Sheet1.Cells(I, 8)
Sheet2.Cells(R, 10) = R - 11
sum1 = sum1 + Sheet1.Cells(I, 1)
sum2 = sum2 + Sheet1.Cells(I, 2)
R = R + 1
End If
End If
End If
Next I
[h5] = sum1: [i5] = sum2: [J5] = sum1 - sum2
[h4] = sum3: [i4] = sum4: [J4] = sum3 - sum4
[H7] = [J5] + [J4]
If [H7] < 0 Then
[J7] = "مدين"
ElseIf [H7] > 0 Then
[J7] = "دائن"
Else
[J7] = "--"
End If
End If
End If
If Not Intersect(Target, Range("C2")) Is Nothing Then
Application.ScreenUpdating = False
On Error Resume Next
Application.ScreenUpdating = False
[E6] = Application.WorksheetFunction.VLookup(Target, Sheet3.Range("data"), 2, False)
End If
If Not Intersect(Target, Range("E6")) Is Nothing Then
Application.ScreenUpdating = False
On Error Resume Next
Application.EnableEvents = False
Target.Offset(-4, -2).Value = Application.WorksheetFunction.VLookup(Target, Sheet3.Range("G1:H200"), 2, False)
Application.EnableEvents = True
End If
End Sub

 

ثانياً : أن يظهر المبلغ بالحروف بالخلية E408 حسب رصيد الحساب

وذلك بالإستعانة بالكود التالى وهو كود تفقيط للمبالغ :-

Sub Hide_Rows()
MsgBox ("You are now in the process set the page settings for printing")
Application.ScreenUpdating = False
W = ActiveSheet.UsedRange.Rows.Count
On Error Resume Next
Range("J1:J" & W).AutoFilter Field:=1, Criteria1:="<>"
ActiveSheet.PrintPreview
Range("J:J").AutoFilter
Application.ScreenUpdating = True
End Sub

 

أتعشم فى الله خيراً ثم فيكم أن أجد الحل المناسب لتلك المشكلة.

لكم خالص شكرى وتقديرى

أخوكم

عيد مصطفى

[يوسف عطا]

قد يتم حل المشكلة إذا تم كتابة الكود على نفس الويندوز

أى إعادة كتابة الكود من جديد

[Eid Mostafa]

أخى العزيز / يوسف

بداية أشكرك بالغ الشكر على ردك وإهتمامك بالأمر

ولكن أخى ما يحدث دائماً هو إستخدام خاصيتى Copy & Paste

فالكودان المرفقان هما من نتاج أعمال عباقرة هذا المنتدى الرائع

وأنا لم أقم سوى بإضافة بعض التعديلات الطفيفه عليهما لتلبية إحتياجاتى

لذا فإن أمر كتابتهما كاملين من جديد أرى أنه فى غاية الصعوبة

مرة أخرى أشكرك بالغ الشكر على ردك وإهتمامك بالأمر

لك خالص شكرى وتقديرى

أخوك

عيد مصطفى

[عبدالله المجرب]

السلام عليكم

جرب الاتي

1. اذهب الى Start ثم Settings

2 . اختر Control Panel

3. Regional And Language Options

4. من تبويب Advanced في خانة الاختيار اختر اللغة العربية

5. ثم OK

[Eid Mostafa]

_{أخى العزيز / عبد الله}

_{بداية وبالمصرى ليك وحشه والله}

_{وبالطبع أشكرك أيضاً على إهتمامك بالرد}

_{وأرجو منك التكرم بالإطلاع على الصور المرفقة}

_{والتى توضح إعدادت النظام}

_{فهل هنالك شئ لم أقم به بعد ؟}

_{أرجو التكرم بالإفادة}

_{لك خالص شكرى وتقديرى}

_أخوك

_{عيد مصطفى}

Regional Setting.rar

تم تعديل يوليو 18, 2012 بواسطه Eid Mostafa

[Eid Mostafa]

_{الأخوة الأعزاء}

_{ما زلت فى إنتظار إفاداتكم}

_أخوكم

_{عيد مصطفى}

[جمال عبد السميع]

جرب أخي فرمتة البارتشن أللي بتنزل علية الويندوز بأحدي برامج الفرمتة من ال dos سواء بارتشن ماجيك أو بارجون بارتشن ثم نزل نسخة جديدة وقبل أن تفتح أي بارتشن نزل anti viurs

وحدثة ثم عمل scan لكامل الهارد وبعد التأكد أن الهارد بجميع بارتشناتة نظيف تماما سطب ال office وتأكد أيضا من اللغة وأنشاء الله تنحل مشكلتك

[Mohammed Abdelqader]

السلام عليكم اخى العزيز استاذ عيد

 

انا كنت قابلت المشكلة دى بس بعد بحث  لابد ان تنزيل حزمة اللغة العربية لبرامج الاوفيس ةتسطبها على الكمبيوتر بتاعك بعدها ان شاء الله الاكسل يقرا العربى ودة اللينك بتاعها بس اوفيس 2010 بس

 

http://www.mydigitallife.info/office-2010-language-packs-free-official-direct-download-links/

[حمادة عمر]

السلام عليكم

هل لديك حزمة اللغة العربية للاوفيس 2003

حيث انني اعشقه وكثيرا من الاعضاء يستخدمونه

جزاك الله خيراً

[ايمن ريا]

السلام عليكم

اضغط على Administrative ، ثم Current System Locale ، ثم اختر لغة بلدك من نافذة Current System Locale .

[ريان أحمد]

i

 

السلام عليكم

هل لديك حزمة اللغة العربية للاوفيس 2003

حيث انني اعشقه وكثيرا من الاعضاء يستخدمونه

جزاك الله خيراً

 

 

 

 

كما قال أخي هل يتوفر الأعصاء على هذه الحزمة

[حمادة عمر]

جزاكم الله خيرا

[Mohammed Abdelqader]

http://www.mydigital...download-links/