اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


amer1960

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

أخي العزيز amer1960

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

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

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

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

رابط هذا التعليق
شارك

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

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

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



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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 2 weeks later...

أخي العزيز / 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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

أخي العزيز / amer1960

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

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

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

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

تقبل تحياتي

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

رابط هذا التعليق
شارك

  • 7 months later...

أخي العزيز / amer1960

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

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

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

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

تقبل تحياتي

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

ممك

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

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

او

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

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

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