امر يجعل ماكرو يبحث عن اكبر قيمة في العمود ويجيبه+1

[سلمان المجذوب]

السلام عليكم ورحمة الله وبركاته
 
طلبي ان اجعل مربع السند والذي هو مختص بترقم كل سند اقوم بعمله...ان يشوف اكبر قيمة في العمودA
ويجيبه الى مربع السند القادم+1
اي اذاكان اكبر قيمة في العمود هي100
يكتب لي في مربع السند القدام101
في الوضع الراهن هو بيعد الصفوف بغض النظر عن القيمة
مرفق لكم صوره تبين طلبي
ومرفق لكم ورقة العمل
شاكر تعاونكم ..والسلام عليكمسندات صرف وقبض.rar

[ibn_egypt]

أخى الفاضل

 

مرفق الملف بعد التعديل، ارجو أن يلبي طلبك

 

خالص تحياتي

سندات صرف وقبض.rar

[ياسر خليل أبو البراء]

يا م / أحمد إبراهيم

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

الملف توهاااااااااااان .. عموما وصلت بعد شوية تعب

Sub SN_Entry1()

Dim rng As Range
Dim maximum As Double
Dim ws As Worksheet
 Set ws = ThisWorkbook.Sheets(1)
'Set range from which to determine largest value
Set rng = ws.Range("A4:A65536")

'Worksheet function MAX returns the largest value in a range
maximum = Application.WorksheetFunction.Max(rng)

'adding largest value plus one

tx1.Text = maximum + 1

End Sub

[ياسر خليل أبو البراء]

سؤال يا م / أحمد

ليه عرفت المتغير maximum من النوع Double ليه .. ليه مش النوع Integer . الرقم المسلسل أكيد هيكون عدد صحيح!!!

[ibn_egypt]

 

يا م / أحمد إبراهيم

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

الملف توهاااااااااااان .. عموما وصلت بعد شوية تعب

Sub SN_Entry1()

Dim rng As Range
Dim maximum As Double
Dim ws As Worksheet
 Set ws = ThisWorkbook.Sheets(1)
'Set range from which to determine largest value
Set rng = ws.Range("A4:A65536")

'Worksheet function MAX returns the largest value in a range
maximum = Application.WorksheetFunction.Max(rng)

'adding largest value plus one

tx1.Text = maximum + 1

End Sub

أخى الفاضل أ.ياسر

 

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

 

 

سؤال يا م / أحمد

ليه عرفت المتغير maximum من النوع Double ليه .. ليه مش النوع Integer . الرقم المسلسل أكيد هيكون عدد صحيح!!!

 

اما بخصوص تعريف المتغير Double انا عارف ان رقم السند رقم صحيح وكنت معرفه integer في البداية لكن انت عارف ممكن احد الاعضاء ياخد الكود ويطبقه على ارقام عشرية يرجع يقولك ما اشتغلش كويس معايا .. ففضلت انه يكون double حتى يعمل سواء على الارقام الصحيحة او العشرية،  بمعنى اصح يعمل بشكل عام وليس على الحالة دي بس وطبعا يستطيع اى عضو تغييره ليكون integer اذا كان عمله على ارقام صحيحة فقط

بالإضافة الى ان معظم دوال الاكسل تحضر القيم من النوع Double لذلك فهو الافضل عند تعريف متغير مرتبط بدالة

 

خالص تحياتي

تم تعديل نوفمبر 17, 2014 بواسطه ibn_egypt

[ياسر خليل أبو البراء]

بارك الله يا م / أحمد إبراهيم

وكمان عامل حساب للي ناوي ياخد الكود .. ربنا يخليك للغلابة اللي زينا !

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

 

بارك الله يا م / أحمد إبراهيم

وكمان عامل حساب للي ناوي ياخد الكود .. ربنا يخليك للغلابة اللي زينا !

 

 

الاساتذة الافاضل 

ياسر خليل 

أحمد إبراهيم 

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

وشكراً

[ibn_egypt]

 

 

 

 

الاساتذة الافاضل 

ياسر خليل 

أحمد إبراهيم 

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

وشكراً

 

 

جزاك الله خيراً أستاذنا عبد الله المجرب

 

خالص تحياتي

تم تعديل نوفمبر 18, 2014 بواسطه ibn_egypt

[سلمان المجذوب]

مشكوووووووووووووووووووووووووووووووووورين جعل في ميزن حسناتكم الفففففففففففففففففففففففففففففففففففففففففففففففففففففففففففف شكر...