اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

الملف لايعطي أخطاء معي

قد يكون السبب أن بالملف الدالة المستحدثة للملف وهي Governorate والتي تحتاج لتفعيل الفيجوال بيزيك

عند فتح الملف إذا كان يخبرك أن الملف يحتوي علي ماكرو ... ثم يسأل التفعيل ففعله

أو من خيارات - ماكرو - أمان إجعله اقل مايمكن

حسب الأوفيس 2007 - 2003 ..؟؟

قام بنشر (معدل)

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

أخي الكريم، أعتقد أن المشكلة تكمن في الدالة ISODD المستعملة في عمود "النوع" وحلها بكون بإذن الله باتباع الخطوات التالية (بالإنجليزية):

If this function is not available, and returns the #NAME? error, install and load the Analysis ToolPak add-in.

ZA079005001.gifHow?

  1. On the Tools menu, click Add-Ins.
  2. In the Add-Ins available list, select the Analysis ToolPak box, and then click OK.
  3. If necessary, follow the instructions in the setup program.

والله أعلم

تم تعديل بواسطه hben
قام بنشر (معدل)

الأخوة الأسانذة الأفاضل / بن علية - عبدالله المجرب - طارق

أشكر لكم إهتمامكم بالرد على تساؤلى وأود ان أطمئن الأخ الكريم / بن علية أننى قمت بالخطواط النى أرسلت لى بها وقد تم بالفعل تدارك رسالة الخطأ .. وقد سعدت جدآ بإهتمام جميع الأساتذة وإن كنت أطمع فى شرح مبسط لهذا الموديول وبالأخص هذا السطرFunction Governorate(strID As Variant) As String

If Len(strID) = 14 Then

( Select Case Mid(strID, 8, 2

وأخيرآ بارك الله فيكم وأزادكم علمآ ومعرفة ....

ولكم قائق التقدير والإحترام

تم تعديل بواسطه نورسعيد
قام بنشر

جرب اخى نور هذا الملف

ولا تنسى تخفيض الماكرو

اولا لابد من تنخفيض الماكرو من قائمة ادوات ثم ماكرو ثم الامان ثم منخفض

واذا كان الاوفيس انجليزى فسندخل

tools -----macro ------security---low

وبعد ذلك اغلق الملف ثم افتحه واعمنا بالنتيجة

اخيك جمال الفار

كيف أتغلب على كلمة Name.rar

قام بنشر

<p>

الأخوة الأسانذة الأفاضل / بن علية - عبدالله المجرب - طارق

أشكر لكم إهتمامكم بالرد على تساؤلى وأود ان أطمئن الأخ الكريم / بن علية أننى قمت بالخطواط النى أرسلت لى بها وقد تم بالفعل تدارك رسالة الخطأ .. وقد سعدت جدآ بإهتمام جميع الأساتذة وإن كنت أطمع فى شرح مبسط لهذا الموديول وبالأخص هذا السطرFunction Governorate(strID As Variant) As String If Len(strID) = 14 Then

( Select Case Mid(strID, 8, 2

وأخيرآ بارك الله فيكم وأزادكم علمآ ومعرفة ....

ولكم قائق التقدير والإحترام

</p>

السلام عليكم

أخي العزيز

هذه دالة مستحدثة

أول سطر strID يأخذ قيم الرقم القومي

Function Governorate(strID As Variant) As String

يخطر الإكسل بتكوين دالة مستحدثة إسمها Governorate تعتمد نتيجتها علي المتغير strID

ثاني سطر

If Len(strID) = 14 Then
>إذا كان طول (عدد أحرف) هذا المتغير = 14 فلتفعل مايلي ، ................................إذا لا ، سينهي الدالة ولن يفعل شيئا مايلي يبدأ من السطر الثالث
( Select Case Mid(strID, 8, 2
إختبر حالة الحرفين(أو الرقمين) اللذان يبدءآن من الحرف الثامن وبطول 2 (أي الحرف الثامن والتاسع) من المتغير باقي الأسطر يخبره أنه حسب نتيجة إختبار حالة هذان الحرفان ينتج من الدالة المستحدثة إسم المحافظة الدالة عليها
Case "01": Governorate = "القاهرة"

	    Case "02": Governorate = "الإسكندرية"

	    Case "12": Governorate = "الدقهلية"

	    Case "13": Governorate = "الشرقية"

	    Case "14": Governorate = "القليوبية"

	    Case "15": Governorate = "كفر الشيخ"

	    Case "16": Governorate = "الغربية"

	    Case "17": Governorate = "المنوفية"

	    Case "18": Governorate = "البحيرة"

	    Case "19": Governorate = "الإسماعيلية"

...

....

...

يعني الموضوع ببساطة أن الرقم القومي "29908040201834" يعني يعني أن صاحبه من محافظة رقم 02 أي الإسكندرية

قام بنشر

أولآ أتوجه لك بالشكر العظيم يأخى طارق وإن كنت أود أن أعرفك بأننى مبتدىء جديد ولا أفهم كل هذة الإختصارات الإنجلش وعلامات <> , إلآ إنى لآيسعنى إلا شكرك على إهنمامك بوضوعى

ولك جزيل الشكر

قام بنشر

أنا والله يا أستاذ / طارق

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

ولك كل التقدير والعرفان

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information