كيف يتم التفقيط

[amer1960]

اخواني السلام عليكم ورحمة الله من يتكرم منكم ويكون لديه الوقت الكافي لعمل تفقيط للرقم بالنموذج المرفق ولكم جزيل الشكر

ورقة عمل Microsoft Excel جديد __.rar

[Ahmed Elbhiry]

اخى هذا الرابط فيه ما تطلبه

http://www.officena....ndpost&p=224441

او

http://www.officena.net/ib/index.php?showtopic=33646&view=findpost&p=175414

[amer1960]

شكرا اخى احمد وبارك الله فيك ...لك تكرمت هل من الممكن ان تقوم بتطبيق والتعديل على الملف المرفق السابق وشرح ذلك لانني مبتدي واريد ان اقوم بتطبيق ذلك على ملفات اخرى ولك جزيل الشكر وجعله الله في ميزان حسناتك ...

[الشهابي]

أخي العزيز amer1960

وبعد إذن أخينا واستاذنا أحمد البحيري

تم إضافة دالة التفقيط للملف

لاحظ المرفق لعله يكون المطلوب إن شاء الله

تفقيط بالدينار والدرهم.rar

[amer1960]

شكرا استاذ الشهابي

وارجو ان تتكرم بالتعديل بخانة تفقيط الدراهم وهي (250) درهم أى ان الدينار يساوي (1000) درهم

وكذلك يرجى التكرم بكيفية تطبيق التفقيط على اوارق اخري ..

[amer1960]

والمشكلة الاخري بعد التجريب هي عندما يكون الرقم 1000 دينار مثلا في التفقيط يكتي حرف (و) ؟؟؟

:fff:

للجمـــــــــــــــــــــــــــــــــــــــيع

[الشهابي]

أولا : أخي في هناك غلطة من قبلي أنا لأنني أردت إضافة خلية الدينار في خلية الدرهم وجعلها في خلية واحدة لجعل تفقيطها واحد

ثم أدركت أنك ربما أنك أنت تريدها مفصولة هكذا كما عملتها ونسيت أن أفصلها ولكن تم الفصل والتعديل في الملف المرفق

بالنسبة للتفقيط عبارة عن دالة مستحدثة وهي

NoToTxt($H$5;"دينار";"")

ستجدها ضمن الدوال المعرفة من قبل المستخدم عند إضافة دالة أو تنسخها من هنا و تضعها في أي خلية تريدها وتحدد الخلية التي تريد تفقيطها بدلا من الخلية ($H$5) وعلامة الدولار قبل الحرف والرقم لتثبيت الخلية فإذا أردت أن تفقيط عمود كامل ثم أردت سحب الخلايا إلى أسفل قم بإلغاء التثبيت لتصبح مثلا ( H5)

كما يمكن تغير الدينار بالدرهم أو غيره

أما الطريقة التي استخدمتها هي عبارة عن جمع تفقيط خلية الدينار والدرهم في خلية واحد بواسطة إداة الجمع ( & )

أما بالنسبة لحرف ( و ) طبعا لابد منه لعطف الدينار على الدرهم ولكن ممكن حل هذه المشكلة بواسطة استخدام الدالة ( IF ) وذلك لحذف الواو عندما تكون خلية الدرهم تساوي صفرأو خلية الدينار تساوي صفر أيضاً كما في الملف المرفق

تفقيط بالدينار والدرهم.rar

[amer1960]

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

[amer1960]

هذا الملف المرفق به شركة لطلب المساعدة في طباعة الشلطباعة الشيكات.rarيكات

[الشهابي]

أخي العزيز / amer1960

من أين يتم استدعاء اسماء المصارف هل من نفس الملف أو من ملف آخر واحد أوعدة ملفات نرجو التوضيح أكثر

ولو كان مف خارجي لو ترفقه أو نوذج منه مع الملف سوف يكون أفضل

حت يتم معرفة موقع الخلايا التي تحتوي المعلومات المطلوب استدعائها

كما عليك تنسيق الشيك حسب طلبك و تحددد مواقع الاستدعاءات

والعفو منكم فقط حتى يتمكن إخواننا الكرام من مساعدتكم

[amer1960]

اولا لك جزيل الشكر على الرد والتفاعل مع الموضوع.

ثانيا عندي عدة مصارف كل واحد في مستند خاص (اكسل) وبداخلة عدد من الاوراق كل ورقه تمثل فرع ما

لو لاحظت انه بالملف المرفق هناك مستند اكسل وبه (شيـت) خاص بالطباعة للاوراق الاخري بنفس المستند مثل الرئيسي وغيره

اريد عندما اختيار اسم المصرف (بشيت الطباعة) يتم استدعاء البيانات من الورقة الخاصة بالمصرف حسب ما هو مكتوب بها

ارجو ان اكون وضحت

واكرر شكرررررررررررررررررررررررررررررى

[الشهابي]

أخي العزيز / amer1960

تم الاستعانة بكودين لأستاذنا القدير / عبد الله المجرب أبو أحمد حفظه الله

فالكود الأول لجلب البيانات من أوراق العمل في المستند تلقائياً وذلك في المدى ( A150:F176)

حيت كلما زادت ورقة عمل بنفس التنسيق سيتم إضافة بياناتها في هذا المدى وتم استثناء ورقة ( طباعة الشيك ) وورقة ( الفروع ) لأن بياناتها تختلف حيث يبدأ الكود من الورقة رقم 3 وتم زيادة ورقة باسم ( المهاري(2)) لملاحظة زيادة البيانات ويمكنك أن تزيد ما تشاء من المصارف وفروعها

Private Sub Worksheet_Activate()

Application.ScreenUpdating = False

For x = 3 To Sheets.Count

		Cells(x + 147, "B") = Sheets(x).Name

   Next x

Application.ScreenUpdating = True[/b]

[b]End Sub[/b]

[b]

الكود الثاني يتعلق بزر الزيادة والنقصان حيث يتغير اسم المصرف بالنقر على ذلك الزر ويتبعه تغير القيمة بالأرقام والحروف

Private Sub SpinButton1_SpinDown()

If [B7] < 2 Then Exit Sub

t = [B7] - 1

[B7] = t

[D13] = Cells(t + 149, 3)[/b]


[b]End Sub

Private Sub SpinButton1_SpinUp()

If [B7] > 27 Then Exit Sub

t = [B7] + 1

[B7] = t

[D13] = Cells(t + 149, 3)[/b]

[b]End Sub

كما يمكنك اختيار الأسماء من القائمة المنسدلة في خلية اسم المصرف التي عملتها أنت فقط تم تغيرها بقائمة منسدلة مطاطية كما استفدناه من أستاذنا الكبير كيماس حفظه الله

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

لاحظ الملف المرفق إن شاء الله نكون توفقنا معك وهذا هو مطلوبك

لطباعة الشيكات.rar

[amer1960]

شكرا كثير استاذنا الشهابي وبارك الله فيك والشكر موصول الى الاستاذة الذي تطرقت اليهم في رد اعلاه

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

ولسبب لا اعرفه ان التفقيط عندي بلغة غير معروفه(حروف ملخبطه )

واكرر شكر واتمني ان تجد الوقت لذلك

[الشهابي]

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

ثانيا: بالنسبة لتغير موضع الزر

حسب ما اعتقد أن الأوفيس 2003

لاأدري من أين يتم إلغاء وضع التصميم فيه

المهم إن عرفت كيف تلغي وضع النصميم إنقر بالزر الأيمن على الزر واختر تنسيق عنصر تحكم ثم اختر خصائص

وابعد علامة الصح التي بجانب طباعة كائن ولن يتم طباعته

ثالثا: بالنسبة للتفقيط لا اعرف السبب

تم تغير الملف في المشاركة السابقة وإلغاء طباعة الزر

عفوا حمل المف مرة أخرى وقم بمعاينة الطباعة لتلاحظ ذلك

[amer1960]

اكرر شكرى واعذرني في الحاحي وهذا من معرفتنا بكر ماهل اليمن العرؤبيه الاصيلة

ارجو وضع الملف ليتم تحميله بعد التعديل

وشكر وبارك الله فيك

[amer1960]

اكرر شكري وتقديري وتم تحميل الملف وهذا هو المطلوب وانشالله ينفعك ويزيد في حسناتك وان يدعو لك بالخير كل من استفاد منه

:fff: :fff:

:fff:

:fff:

[الشهابي]

أخي العزيز / amer1960

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

الحمد لله أنه هو المطلوب

وما نقدمه إنما هو من كرم هذا المنتدى وأعضائه الكرام الذين أنتم واحد منهم

وجزاك الله خير مرة أخر

تقبل تحياتي

أخوك / الشهابي

[شعبان سعد عجور]

اخى هذا الرابط فيه ما تطلبه

http://www.officena....ndpost&p=224441

او

http://www.officena....ndpost&p=175414

[شعبان سعد عجور]

أخي العزيز / amer1960

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

الحمد لله أنه هو المطلوب

وما نقدمه إنما هو من كرم هذا المنتدى وأعضائه الكرام الذين أنتم واحد منهم

وجزاك الله خير مرة أخر

تقبل تحياتي

أخوك / الشهابي

ممك

اخى هذا الرابط فيه ما تطلبه

http://www.officena....ndpost&p=224441

او

http://www.officena....ndpost&p=175414

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

[الشهابي]

أخي العزيز/ shaban saad agoor

مجرد ما يتم وضع كود التفقيط في الملف تصبح عملية التفقيط ثابتة