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

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

قام بنشر

اهلا...شباب........هالملف......اخذته من منتدانا..اوفسينا............واشتغلت فيه....لشهر.....تقريبا.........في حسابات العقارات والمقاولات........لكن مدير حسابات......قال : هالملف....ناقص (دفتر الاستاذ+ ودفاتر الاستاذ المساعد)........فاتمنى...لو تقدرووووا تعدلوا في ملف ......اي تسوووووا دفاتر الاستاذ+ ودفاتر الاستاذ المساعد)).......اتمنى......والله تساعدوني....مع تحياتي

_____________3.rar

قام بنشر

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

أستاذنا الجليل / هادى سالم

شكرا على إمداداتكم و ابداعاتكم

و لى طلب اذا تكرمتم

استعمل الكود الذى قمتم بعمله فى هذا الشيت و أكواد مماثله و لو أمكن :----

اريد ان أجعل الكود فى صفحة الأستاذ يقرا من ( مثلا اليومية ) بعدد من الأوراق و لكن بنفس التصميم

قمت باضافه التعديل على الكود فكان يقوم بقراءة كل الصفحات و لكن يقوم بالتسجيل فى ( صفحة الأستاذ ) و نفس الصفوف

و يسجل اخر قيمة لاخر ورقة

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

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

قام بنشر

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

أ/ هادى سالم

شاكر لك إهتمامك و تجاوبك

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

أساتذى الفاضل

اخيك الأصغر العبد الفقير الى الله محاسب

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

و مرفق اليكم جزء توضيحى ( اتمنى ان يكون فيه الإيضاح الكافى ) بجزء معدل للإيضاح

و لى استفسار اخر

هل تتكرم بمشاهدة المرفق الثانى و إفادتى بالإجابة أكرمكم الله

_____.zip

__________________..zip

قام بنشر

السلام عليكم

أريد نسخ البيانات من الورقة 1 , 11 , 111 فى الورقة 2 بحيث تكون بيانات الورقة 1 فى الول ثم تاتى اسفل منها بيانات الورقة11 ثم بعدها بيانات الورقة 111

بهذا الشكل

بيانات 1

بيانات 11

بيانات 111

و هكذا ,,,,,

قام بنشر

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

الأستاذ / هادى سالم

شكرا جزيلا على ردكم و بارك الله فيكم و جزاكم خير الجزاء

أستاذى أرجو ألا أثقل عليكم

ما فى المرفق هو احد أشكال المطلوب و لكن لى بعض الملاحظات :-

- اريد ان استعمل الأمر ( If Sheets("1").Cells(i, 12) > 0 Then ) بأمرين شرطيين اى إذا كان قيمة الخلية س أكبر من الصفر او اذا كانت قيمة الخلية ص اكبر من الصفر إذن فيقوم بالترحيل و هذا ما قمتم بإلغائه فالكود يقوم بترحيل كل الصفوف سواء إذا كانت بها بيانات ام فارغه (( مع العلم أن الشيت 100 صف لإدخال البيانات ))

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

- ما معنى الرقم 3 الذى تم إضافته الى CONT+3, 1

(( (Sheets("2").Cells(cont + 3, 1) = Sheets("11").Cells(i, 1))

- و ما هو الشرح للكود

cont = Application.WorksheetFunction.CountA(Sheets("2").Range("A1:A100"))

- و شرح الكود

Public Sub mStart()

Sheets("2").Range("A4:K100").ClearContents

m1

m2

m3

End Sub

و شاكرا لجهودك معنا جزاك الله خيرا و بارك الله فيك
قام بنشر (معدل)
بسم الله الرحمن الرحيم



جرب الملف المرفق

سيتم تغيير عنوان الموضوع الى
حساب الاستاذ فى الحسابات



السلام عليكم

Mr_03.rar

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

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

أ/ هادى سالم

شكرا ثانيه و جزاك الله خيرا و بارك الله فيك و بارك الله فى علمك و رزقك علما واسعا

بالنسبة الى الملاحظات و الأسئلة التى ارسلتها فإن حضرتك أجبت فقط عن استخدام IF

ارجو منك التكرم بالرد على باقى الملاحظات

ثانيا :-

كنت قد ارسلت مرفقا ثانيا استفسر فيه عن عمل كود للتسلسل التلقائى للتواريخ

ارجو منك ايضا ان تفيدنى بالرد

ان تكرمت علينا

و شكرا

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

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

قام بنشر

بسم الله الرحمن الرحيم

الاخ محمد عسكر

هناك فرق كبير بين الطلبات و الملاحظات

Application.WorksheetFunction.CountA(Sheets("2").Range("A1:A100"))
لعد الخلايا التى يوجد بها بيانات لنقل البيانات عند اخر سطر
Sheets("2").Cells(cont + 3, 1)
تم اضاقه (3) لوجود 3 خلايا لايوجد بها بيانات بأعلى العمود فيجب زياده 3 على العداد حتى يصل الى أول خليه فارغه بالعمود
Public Sub mStart()
    Sheets("2").Range("A4:K100").ClearContents
    m1
    m2
    m3
End Sub

لمسح محتويات الخلايا قبل التفيذ للتأكد ان الخلايا فارغه و ليس بها بيانات سابقه

m1,m2,m2 اسماء Private Sub السابق انشائها

و فى هذه الخطوه نقوم بأستدعائها

السلام عليكم

قام بنشر

السلام على من اتبع الهدى

الأستاذ / هادى سالم

أعلم جيدا الفرق بين الطلبات و الملاحظات و لكننى لم الاحظ جيدا الا بعد الإرسال

و فى كل الأحوال فإنى ارفق العباره (( بالرجاء )) و اتمنى ان لا يكون هناك اى سوء تفاهم

فيعلم الله انى أحبك فى الله

و ارجو ان تتكرم على بارسال بريدك الى َّ ASKER3000@GMAIL.COM

جزالك الله خيرا و بارك الله فيك

أرجو أن يتسع صدرك الى

اتقدم اليك بطلبين :-

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

كنت قد ارفقت ملفا للتسلسل التلقائى و ارسلت موضوع بهذا الشأن ارجو منك التكرم بالتجاوب معى فى هذا الشاء

http://www.officena.net/ib/index.php?showt...amp;#entry69787

شكرا لك

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

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

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

الأخ و الأستاذ الفاضل / هادى سالم

أرجو الإطلاع على المرفق بعد التعديل و انتظر تكرمكم بالرد و المشاركة

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

بسم الله الرحمن الرحيم

بصراحه لا استطيع فهم المطلوب

ربنا معاك أعتقد هذا العمل استغرق منك ساعات او ايام

اشرح ماذا تريد ترحيله بالخلايا

مثلا

اريد ترحيل الخليه A1 من الورقه الاولى الى الخليه B1 من الورقه الثانيه

ولى سؤال

لماذا أضفت 3 Private Sub جديده ؟

لقد قمت فى ملفى بأعداد 3 فقط و ذلك بعدد الصفحات التى تريد ترحيل بياناتهم و اذا زادت عدد الصفحات زادت Private Sub

السلام عليكم

قام بنشر

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

أستاذى / هادى سالم

تحية طيبة مباركة ،،،، وبعد ،،،،

من المرفق الأخير تجد حضرتك ان الترحيل تم بشكل ممتاز فى الورقة 2

و لكنى اريد ان اعدل فى شكل حـ / الأستاذ ليكون بالشكل المتاعرف عليه محاسبيا ( حرف T)

فاريد ان يقوم بترحيل الخانة المدينة و بياناتها كامله وفى الجانب الآخر الخانة الدائنة و بياناتها كاملة

اى اريد فى الورقة 2 الأعمدة 1 , 2 , 3 , 4 , 5 بيانات الأعمدة 1 , 12 , 4 , 5 , 3 (( فى الأوراق 1 ’ 11 ’ 111 ))

و اريد فى الورقة 2 الأعمدة 7 , 8 , 9 , 10 , 11 بيانات الأعمدة 1 , 13 , 4 , 5 , 3 (( فى الأوراق 1 ’ 11 ’ 111 )))

و يكونوا متتاليين بيانات 1 ثم اسفل منها بيانات 11 ثم اسفل منها بيانات 111

الكود فى المديول 3 يقوم بجزء من هذا المطلوب و لكن لجهلى فى طبيعه و معنى الأوامر فانى لا اعلم كيفيه التعامل معها حيث انها تترك البيانات المحصورة فى اول و اخر خليه فى الأوراق 11 , 111

ملحوظة :- الملف المحاسبى الذى اقوم بإعادة تعديله يقوم حــ/ الأستاذ بقراءة البيانات من 12 ورقة (( 12 شهر )) و يقرا فى كل ورقة فى 100 صف

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

بارك الله فى استاذنا هادى سالم

و جزاه الله خيرا

قام بنشر

الاخ هادي سالم

بارك الله في علمك وفي عملك وفي ذريتك

وجزاك الله خير الجزاء وجعل كل ما تقدمه انت والاخوان من مساعدات وفوائد في ميزان حسناتكم

تحياتي لك

قام بنشر

السلام عليكم .

هل يمكن ان احصل على الدالة ( vlookon) لان الاوفيس الذي استعمله لا يدعم هذه الدالة اوفيس 2000 وما هو الحل للوصول اليها من فضلكم و سلام الله عليكم د متم في خدمة ابناء الامة الاسلامية :fff:

قام بنشر

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

الأخ / سالمى

فى البدايه فإن داله VLOOKON غير موجوده ضمن الدوال المتاحة باى اصدار

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

و هناك موضوع كامل لشرح طريقه عمل الداله

و يمكنك استخدام الداله بنسخ الكود من الماديول فى الفيجوال بيسك

و اليك رابط الموضوع

http://www.officena.net/ib/index.php?showtopic=15350

ارفق اليك الماديول و يمكنك ادراجها فى الفيجوال بيسك بالملف

تحياتى

ZIP_VLOOKON.zip

قام بنشر

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

بارك الله فيكم واكثر الله من امثالكم وجعلكم عونا لنا

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