هادى محمد المامون سالم

بسم الله الرحمن الرحيم اخى hageb جرب الملف المرفق بعد الأختصار السلام عليكم Hide_Unhide_02.rar

بسم الله الرحمن الرحيم لكى تشير الى اخر ور قه عمل في المستند يجب عد اوراق العمل اولا سنقوم بتعريف متغير ويجب اولا ان نعرف ما هو المتغير هو حجز مكان فى الذاكره ليتم استدعاءه متى شئت و واضح من اسمه انك تستطيع تغييره , و يمكن التحكم فى نوع المتغير (Text,Date,Integer) (نصى , تاريخ , رقمى) Sub sCount() Dim Cont As Integer Cont = Sheets.Count MsgBox (Cont) End Sub فى السطر الاول قمنا بتعرييف متغير رقمى اسمه Cont السطر الثانى يقوم بعد أوراق العمل السطر الثالث يقوم بعرض عدد أوراق العمل (المتغير "Cont") فى MsgBox و اذا اردت الاشاره الى اخر ور قه عمل في المستند ستخدم نفس الكود السابق مع استبدال اخر سطر MsgBox ب Select Sheets Sub sSelect() Dim Cont As Integer Cont = Sheets.Count Sheets(Cont).Select End Sub مرفق ملف السلام عليكم Cont.rar

بسم الله الرحمن الرحيم مبروك لأخى خبور مشرفا لقسم الأكسيل السلام عليكم

بسم الله الرحمن الرحيم اخى dangerman2 اعلم ان المشكله عندنا و ليست عندك و لقد قمت بالمبادره و كان التقصير مننا طالما اننى لم استطيع المساعده بشكل كافى , اقترح ان تفتح موضوع جديد بعنوان يعبر عن الموضوع (مثل ساعد فى ترجمه كتاب000) او اى عنوان مناسب تقوم باختياره و تقوم بارفاق الملف الاصلى الذى تريد ترجمته بالمشاركه الاولى ثم ارفاق ما قمت انت بترجمته و سأقوم بتثبيت الموضوع لمده اسبوعين مثلا حتى يشاهد الموضوع اكبر عدد من الاعضاء 0 و لعل و عسى اخى الحبيب السلام عليكم

بسم الله الرحمن الرحيم اخى ابو عبدالله أول كود قمت باضافته هو الاشاره برقم ورقه العمل Sub sSheet() Sheets(1).Select End Sub الكود السابق يشير الى الورقه الاولى بالملف دون الحاجه الى اسم الورقه السلام عليكم

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

بسم الله الرحمن الرحيم الدرس الثانى انتهينا فى الدرس السابق من الاشاره الى خليه او مجال و تعبئتها بقيمه و سندبدأ الان بترحيل بيانات خليه الى خليه اخرى او مجال الى مجال اخر فأذا أردنا ترحيل البيانات من الخليه (A1) فى "Sheet1" الى الخليه (A2) فى "Sheet2" ثم جمع الخليتين بالخليه (A3 ) فى "Sheet2" هناك طرفان فى المعادله : الطرف الاول : هو المجال اذى تريد تعبئته بالبيانات “Sheet2” الطرف الثاني : هو المجال الذى تستورد البيانات منه “Sheet1” Sub sCells_Move() Sheets("Sheet2").Range("A1:A3").ClearContents Sheets("Sheet2").Cells(1, "A").Value = Sheets("Sheet1").Cells(1, "A").Value Sheets("Sheet2").Cells(2, "A").Value = Sheets("Sheet1").Cells(2, "A").Value Sheets("Sheet2").Cells(3, "A").Value = _ Sheets("Sheet2").Cells(1, "A").Value + Sheets("Sheet2").Cells(2, "A").Value End Sub السطر الاول يقوم بمسح محتويات الخلايا السطر الثانى و الثالث يقوم بنقل قيم الخلايا من الورقه الاولى الى الثانيه السطر الرابع و الخامس سطر واحد (و لكتابه الكود على سطرين حتى تستطيع ان تقراه بسهول , بعد اخر حرف فى السطر أضغط مسافه ثم علامه "_" ثم أنتر) و يقوم هذا السطر بجمع الخليه (A1) مع (A2) و وضعها فى (A3) _____________________________________________________________________________ ويمكنك ترحيل بيانات مجال و فى بعض الاحيان تغنيك عن استخدام عميله النسخ و اللصق باكود التالى : Sub sRange_Move() Sheets("Sheet2").Range("A1:A3").ClearContents Sheets("Sheet2").Range("A1:A3").ClearContents Sheets("Sheet2").Range("A1:A3").Value = Sheets("Sheet1").Range("A1:A3").Value End Sub الكود لا يحتاج شرح مرفق ملف السلام عليكم vba_02.rar

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

بسم الله الرحمن الرحيم اخى dangerman2 جزاك الله خيرا أرجو منك أخي أن تضم إسمي معك السلام عليكم

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

بسم الله الرحمن الرحيم شاهد الملف المرفق و التعديل يتم بناء على الخليه "A1" السلام عليكم Target.rar

بسم الله الرحمن الرحيم المشكله عند تحويلك للملف من أكسيل الى exe جرب على ملف ثانى او برنامج اخر للتحويل السلام عليكم

بسم الله الرحمن الرحيم مشكور أخى ايوب صابر أخى أسامه عندما قرات اقتراحك خشيت ان نخرج عن التسلسل التدريجى للدروس أو يكون السؤال فى مرحله متقدمه ليست مجالها فى الوقت الحالى , و لكن عندى قيامى بالرد على أسالتك أكتشفت انها فرصه مناسبه للتطبيق على الدرس السابق مع التعليق عليها , عموما الراى للجميع و لكنى اقترح على من يقوم باضافه فكره أو كود ان يقوم بشرحها 0 س : اذا كانت اي خليه من خلايا العمود b تحتوي على قيمه فان الخليه المناظره لها من العمود a = now() ؟ سنقوم بالتطبيق على الشرح السابق بثلاثه طرق للاشاره الى خليه واحده و النتيجه واحده , وقد قمت باستخدام ClearContents لمسح محتوات الخيه قبل تنفيذ الكود 0 Sub sIf_01() Range("A1").ClearContents If Sheets("Sheet1").[B1].Value <> "" Then Sheets("Sheet1").[A1].Value = Now End If End Sub Sub sIf_02() Range("A1").ClearContents If Sheets(1).Cells(1, "B").Value <> "" Then Sheets("Sheet1").Cells(1, "A").Value = Now End If End Sub Sub sIf_03() Range("A1").ClearContents If Sheet1.Cells(1, 2).Value <> "" Then Sheets("Sheet1").Cells(1, 1).Value = Now End If End Sub مع ملاحظه ان علامه <> تعنى لا تساوى و علامتى التنصيص "" معناها الخيه فارغه س : كيف اختار نطاقين متباعدين ؟ لقد ذكرت اطريقه بالشرح و اليك الكود Sub sRange_Select() Range("A1:A5,C1:C5").Select End Sub مرفق ملف السلام عليكم vba_02.rar

بسم الله الرحمن الرحيم لقد سبق و قدمت عده دروس لتعلم vba للمبتدئين بعنوان شرح الماكرو و ستجدون الموضوع هنا http://www.officena.net/ib/index.php?showtopic=12203 و نبدأ فى التقدم قليلا و خطوه بخطوه إلى هذه المرحله التى تعتبر للمتوسطين و اعتقادى ان النقطه الهامه فى البدايه التى يجب ان نعرفها هى كيف يتم الاشاره الهدف الذى تريد أن تتعامل معه 0 فأذا أردت الأشاره الى ورقه العمل تستطيع استخدام ثلاثه طرق : Sheets(1) و ذلك للأشاره الى ورقة العمل الأولى فى الملف و يجب ملاحظه انك إذا نقلت الورقة الى مكان أخر بالملف يجب تغيير الرقم الى المكان الجديد 0 Sheets("Sheet1") و يتم الاشاره الى اسم الورقة بين علامتى تنصيص و هذه تعتبر أفضل الطرق و لكن لاحظ اذا غيرت أسم ورقه العمل يجب تغيير هذه الاسم فى صفحة vba إلى أسم الورقة الجديد 0 Sheet1 و هو الأسم التلقائى لورقة العمل و ستجد قائمة بأسماء ورقات العمل و بجوارها الأسم الذي قمت بتغييره عند الدخول فو صفحه vba الأشاره الى الخليه : فللأشاره الى الخليه الأولى بالصف الأول و العمود الأول تستطيع الاشاره بأحدى الطرق التالية [A1] Cells(1,"A") Cells(1,1) و للأشاره الى المجال Range ("A1:A10") و للاشاره الى مجالين مختلفين Range("A1:A10,C1:C10") فالطريقه المثلى (من وجهه نظرى) للأشاره لاى خليه بالصف و العمود الأول بورقه العمل الأول تستطيع استخدام هذا الكود Sheets("sheet1").Cells(1, "A") الان تستطيع التعامل مع الخليه فاذا اردت تجعل قيمتها = 1 استخدم هذا الكود Sub s_Cells_Value() Sheets("sheet1").Cells(1, "A").Value = 1 End Sub و بالنسبه للمجال يمكنك اضافه كود تالى لتحديد المجال بعد التنفيذ Sub sRange_Value() Sheets("sheet2").Range("A1:A10") = 1 Sheets("sheet2").Range("A1:A10").Select End Sub مرفق ملف السلام عليكم vba_01.rar

بسم الله الرحمن الرحيم فكر رائع بصراحه لك حق فالمنتدى بحتاج الى دروس فى vba و قد فكرت اكثر من مره فى اعداد دروس فى هذا الموضوع لاهميته و قد تتم ان شاء الله السلام عليكم

بسم الله الرحمن الرحيم مشكور اخى GHMN7174 على البرنامج و لكن لى سؤال ؟ هل احتساب الزكاه على المبلغ بالكامل أم بالمده ؟ بمعنى اذا كان لدى مبلغ 1000 جنيه فى يناير ثم سحبت 300 جنيه فى يونيو معلوماتى ان الزكاه سيتم حسبانها على مبلغ 700 فقط . فاذا كان الحل الزكاه على 1000 جنيه سيكون الملف صحيح و اذا كان الحل الزكاه على مبلغ 700 جنيه سيكون الملف يحتاج الى تعديل , و لا سيما ان يتم تصميمه بمشاركه الجميع ليكون برنامج متكامل عن الزكاه . السلام عليكم

بسم الله الرحمن الرحيم أخى wael salami مع تحفظى على " أساتذتي الكبار " كان نفسى أقوم برفعه على روابط أوفيسنا و لكن للأسف حجم الملف كبير السلام عليكم

بسم الله الرحمن الرحيم أقترح توسيع دائره الحوار بالاشاره الى هذا الموضوع بالاقسام الاخرى حيث أعتقد ان عدد الاعضاء الذين يدخلون استراحه المنتدى اقل بكثير من الاعضاء الذين يدخلون الاقسام الرئيسيه , فانا لا أدخل استراحه المنتدى الا قليلا , بالاضافه ان الجميع فى شوق لظهور اسم الاستاذ محمد طاهر بالمشاركات . السلام عليكم

بسم الله الرحمن الرحيم Sub sDOIT() For i = 1 To 10000 Step 3 Rows(i).Clear Rows(i + 1).Clear Next End Sub مرفق ملف السلام عليكم Clear.rar

بسم الله الرحمن الرحيم تحيه تقدير الى اساتذتى و اصحاب الفضل الذين تعلمت منهم الكثير المهندس : محمد طاهر دون ترتيب الاستاذ : علي السحيب الاستاذ : محمد حجازي الاستاذ : محمد هنداوي الاستاذ : حسام نور الاستاذ : أبو هادي الاستاذ : السيد عبد العال اللهم ما اجعل اعمالهم فى مبزان حسناتهم السلام عليكم

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

بسم الله الرحمن الرحيم و أنا أشارك اخى محمد عسكر الراى السلام عليكم

بسم الله الرحمن الرحيم اخى dangerman2 شرح بسيط و رائع اللهم ما اجعله فى ميزان حسناتك السلام عليكم

بسم الله الرحمن الرحيم يقوم البرنامج بالتنصيب التلقائى بمجلد Program Files و تستطيع تعديل المسار اثناء التنصيب كما بالصوره و لا اعتقد انك تستطيع وضع احدى الفيلات فى فولدر اخر السلام عليكم بصراحه اخى wael salami لم اجرب ؟

بسم الله الرحمن الرحيم الاخوه و الاحباء ابو اسامة العينبوسي mojahedxp محمد عسكر atob muwaheed asmo200666 سمير هنداوي salma2000 abumaher khaledHHH wael salami abd151 asmo200666 dangerman2 مشكور على التشجيع السلام عليكم