عبدالله باقشير

السلام عليكم الاخ /قصي _________ حفظه الله الله ينور عليك الاخ الحبيب / هادي سالم _________ حفظه الله الله يسلمك ويحفظك من كل مكروه تقبلا شكري وتقديري

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

السلام عليكم الاخت / عبير مصطفى_________ حفظها الله الاخ /Stiffmillr _________ حفظه الله الله يسلمكما ويحفظكما من كل مكروه تقبلا شكري وتقديري

السلام عليكم الاخ /ناصر _________ حفظه الله الاخت / عبير مصطفى_________ حفظها الله الله يسلمكما ويحفظكما من كل مكروه تقبلا شكري وتقديري

السلام عليكم بالنسبة للشرح هي استخدام دوال تقوم باستخراج النص بتحديد موقع حرف معين في النص اليك شرح الدوال هذه من تعليمات الدوال دالة استخراج النص MID ========================== ينطبق أيضاً على: MIDB تقوم MID بإرجاع عدد معين من الأحرف من سلسلة نصية، بدايةً من الموقع الذي تحدده، استناداً إلى عدد الأحرف الذي تحدده. تقوم MIDB بإرجاع عدد معين من الأحرف من سلسلة نصية، بدايةً من الموقع الذي تحدده، استناداً إلى عدد البايت الذي تحدده. تُستخدم هذه الدالة مع الأحرف مزدوجة البايت. بناء الجملة MID(text,start_num,num_chars) MIDB(text,start_num,num_bytes) Text (النص) هو السلسلة النصية التي تحتوي على الأحرف التي تريد استخراجها. Start_num هو موضع الحرف الأول الذي تريد استخراجه من النص. يحتوي الحرف الأول في النص على start_num 1، وهكذا. Num_chars تحديد عدد الأحرف التي تريد MID أن تقوم بإرجاعها من النص. Num_bytes تحديد عدد الأحرف التي تريد MIDB أن تقوم بإرجاعها من النص بالبايت. ملاحظات إذا كانت start_num أكبر من طول النص، تقوم MID بإرجاع "" (نص فارغ). إذا كانت start_num أقل من طول النص، لكن start_num بالإضافة إلى num_chars يتعديان طول النص، تقوم MID بإرجاع الأحرف حتى نهاية النص. إذا كانت start_num أقل من 0، تقوم MID بإرجاع قيمة الخطأ !VALUE#. إذا كانت num_chars سالبة، تقوم MID بإرجاع قيمة الخطأ !VALUE#. إذا كان num_bytes سالباً، ترجع MIDB قيمة الخطأ #VALUE!. ================================================================ دالة لتحديد موقع حرف معين SEARCH ========================== SEARCHB تُرجع SEARCH عدد الأحرف التي عثر عندها على حرف معين أو سلسلة نصية، بداية بـ start_num. استخدم SEARCH لتحديد موقع الحرف أو السلسلة النصية داخل سلسلة نصية أخرى بحيث يمكنك استخدام الدالات MID أو REPLACE لتغيير النص. تقوم SEARCHB أيضاً بالبحث عن سلسلة نصية واحدة (find_text) داخل سلسلة نصية أخرى (within_text)، وإرجاع رقم موضع البدء لـ find_text. يعتمد الناتج على عدد وحدات البايت التي يستخدمها كل حرف، بداية الحرف الأول لـ within_text. تستخدم هذه الدالة مع الأحرف مزدوجة البايت. يمكنك أيضاً استخدام SEARCHB للبحث عن سلسلة نصية واحدة ضمن سلسلة أخرى. بناء الجملة SEARCH(find_text,within_text,start_num) FINDB(find_text,within_text,start_num) Find_text هو النص الذي تريد العثور عليه. يمكنك استخدام أحرف البدل— مثل علامة الاستفهام (?) والعلامة النجمية (*) في find_text. تطابق علامة الاستفهام أي حرف مفرد، وتطابق العلامة النجمية أي مجموعة أحرف متتابعة..إذا أردت العثور على علامة استفهام أو علامة نجمية حقيقية، اكتب التلدة (~) قبل الحرف. Within_text هو النص حيث تريد البحث عن find_text. Start_num هي عدد الحرف في within_text حيث تريد بدء البحث. تلميح استخدم start_num لتخطي عدد أحرف معين. على سبيل المثال، افترض أنك تعمل بالسلسلة "AYF0093.YoungMensApparel". للعثور على عدد "Y" الأول في الجزء الوصفي للسلسلة النصية، حدد start_num التي تساوي 8 حيث لا يتم بحث جزء الرقم المسلسل للنص. تبدأ SEARCH بالحرف 8، وتعثر على find_text عند الحرف التالي، وتُرجع العدد 9. دائماً تُرجع. SEARCH عدد الأحرف من بداية within_text، وتحسب الأحرف التي تتخطاها إذا كانت start_num أكبر من 1. ملاحظات لا تفرق SEARCH بين الأحرف الكبيرة والصغيرة عند بحث النص. تشبه SEARCH و SEARCHB كلاً من FIND و FINDB، إلا أن FIND و FINDB يتسمان بالحساسية لحالة الأحرف. إذا لم يتم العثور على find_text، تُرجع قيمة الخطأ #VALUE!. إذا تم تجاهل start_num، يفترض أن تكون 0.1. إذا لم تكن start_num أكبر من 0 (صفر) أو أنها أكبر من طول within_text، يتم إرجاع القيمة الخطأ !VALUE#. ================================================================ بالنسبة لتجميع الايميلات و ارسالها بالبريد تفضل المرفق ملاحظة: قد جمعتها لك ايضا في الخلية a10 كمثال Qus_3_1.rar

السلام عليكم بالنسبة للسؤال الثالث تفضل الملف Qus_3.rar

السلام عليكم الاخ / ابو عبدالله اكسيلجي _________-حفظه الله الاخ /يحي _________-حفظه الله الاخ / مصطفى_________-حفظه الله الاخ / mhareek_________-حفظه الله الله يسلمكم جميعاً تقبلوا جزيل شكري وتقديري

السلام عليكم اختار من القائمة الشهر تفضل الملف ___________.rar

السلام عليكم اخي احمد يعقوب ____________ حفظه الله اخي عادل________ حفظه الله الف مبروك على الترقية ولو انها جاءت متاخرة فتقبلا اعتذاري اكرمكما الله بارفع المراتب في الدنيا والآخرة شكرا جزيلا

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

السلام عليكم ورحمة الله وبركاته الحمد لله على سلامتك اخي ابو اسامة وازال همك واثابك الاجر الجزيل وتقبل اعتذاري لعدم سؤالي عنك بسبب غيابي انا ايضا عن المنتدى

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

السلام عليكم ورحمة الله وبركاته اولا الشكر الجزيل لكل من سال عني او خطرت بباله وهناك ظروف شخصية منعتني من التواصل منكم لما سببته لي من اثر نفسي والحمد لله على ذلك ======================================================== واقدم اليكم اليوم برنامج التقويم و هو عبارة عن فورم صغير بامكانيات هائلة للتعامل مع التقويمين الميلادي والهجري بسهولة ولاضافة التواريخ في اوراق العمل في جميع مصنفات الاكسل المفتوحه بالتقويم الذي يناسب احتياجاتك والتبديل بين التاريخ باي تقويم الى التقويم الآخر , يمكنك من خلاله ايضا حساب عمرك وامكانيات اخرى ستكتشفها اثناء التعامل مع البرنامج و ان شاء الله تكون بشرى سارة لمستخدمي التقويم الهجري واليكم نبذه من تعليمات البرنامج التقويم الافتراضي : ========== التقويم الافتراضي هو التقويم الذي يكون محفزاً و يتم العمل عليه عند دخولك الفورم. ولديك إمكانية تغيير التقويم (الذي يناسب احتياجاتك للتعامل معه في ادخال التواريخ في اوراق العمل) لجعله التقويم الافتراضي للبرنامج بشكل دائم. التاريخ الافتراضي : ========== عند فتحك الفورم ستجد تاريخ اليوم هو الافتراضي وبإمكانك التشييك على اي تاريخ تريده و بأي تقويم تريده والتنقل بين التواريخ بكل سهولة . و إذا أردت العودة الى تاريخ اليوم إضغط زر اليوم . اضافة التاريخ : ======== اضافة التاريخ الى خلية معينة بكل سهولة و بإي تقويم تريده حسب إختيارك , ثم إضغط الزر ذو اللون الأصفر لوضع التاريخ في الورقة . ملاحظة : يمكنك ايضاً إدخال اكثر من تاريخ في الورقة و التنقل بين خلايا الورقة والفورم مفتوح . الانتقال الى تاريخ معين : ============= الانتقال الى تاريخ معين بالتقويم الهجري أو الميلادي بدلالة التاريخ بالتقويم المعاكس له . مثال : ==== لواردت معرفة تاريخ ميلادك بالهجري بدلالة التاريخ بالميلادي اختار التاريخ ثم شيك على التاريخ الهجري , والعكس صحيح . حساب العمر : ======== إذا اردت حساب عمرك باي تقويم شيك على تاريخ ميلادك ثم اضغط زر عمري ملاحظة : هناك اختلاف في حساب العمر بين التقويم الميلادي (اصغر) والتقويم الهجري (اكبر) . ______________.rar

تصحيح للكود بشكل ادق : Sub Kh_Start() On Error Resume Next Dim MyRang As Range Dim LastRow As Integer, M As Integer, R As Integer, C As Integer '=========================================== 'عدد صفوف القيد المرحل زايداً فارق الصفوف في الورقةوهي 10 صفوف M = Application.CountA([B11:B31]) + 10 '=========================================== 'تجميع الخلايا الغير منتظمة في نساق واحد Set MyRang = Range("B2,B3,A11,B4,B6,D4,B5") '=========================================== 'اذا كان القيد غير متوازن لا يتم الترحيل If [D33] <> [E33] Then MsgBox "القيد غير متوازن", 524288, "تنبيه": GoTo 1 '=========================================== 'تاكيد الاستمرار في الترحيل If MsgBox("هل تريد الاستمرار في ترحيل القيد رقم : " & [B2], 4 + 32 + 524288 + 1048576, "تأكيد الترحيل") = 7 Then GoTo 1 '=========================================== With ورقة11 '=========================================== 'اذا كانت آخر خلية في العمود الثالث في اليومية التحليلية 'اصغر من 6 يبدا من الصف رقم 6 والا يعتمد آخر صف بزيادة صف واحد If .Cells(47, 3).End(xlUp).Row < 6 Then LastRow = 6 _ Else LastRow = .Cells(47, 3).End(xlUp).Row + 1 '=========================================== Application.ScreenUpdating = False For R = 11 To M For C = 1 To 7 .Cells(LastRow, C + 2) = MyRang.Areas(C) Next C If Application.CountA([D11:D31]) = 1 Then If Cells(R, 4) <> "" Then .Cells(LastRow, 10) = Cells(R, 2) Else .Cells(LastRow, 10) = "مذكورين" End If If Application.CountA([E11:E31]) = 1 Then If Cells(R, 5) <> "" Then .Cells(LastRow, 11) = Cells(R, 2) Else .Cells(LastRow, 11) = "مذكورين" End If If Cells(R, 3) <> "" Then .Cells(LastRow, 20) = Cells(R, 3).Value If Cells(R, 4) <> "" Then .Cells(LastRow, Cells(R, 8).Value).Value = Cells(R, 4).Value If Cells(R, 5) <> "" Then .Cells(LastRow, Cells(R, 8).Value + 1).Value = Cells(R, 5).Value Next R End With Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح", 524288, "الحمد لله" '=========================================== 'امسح الخلايا المنقولة اذا اردت ذلك 'Range("B2:B6,D4").ClearContents 'Range("A11:E31").ClearContents '=========================================== On Error GoTo 0 1 End Sub

تم تعديل الملف وقمت باضافة شرح في الكود من اجل استخدام الكود للآخرين Sub Kh_Start() On Error Resume Next Dim MyRang As Range Dim LastRow As Integer, M As Integer, R As Integer, C As Integer '=========================================== 'عدد صفوف القيد المرحل زايداً فارق الصفوف في الورقةوهي 10 صفوف M = Application.CountA([B11:B31]) + 10 '=========================================== 'تجميع الخلايا الغير منتظمة في نساق واحد Set MyRang = Range("B2,B3,A11,B4,B6,D4,B5") '=========================================== 'اذا كان القيد غير متوازن لا يتم الترحيل If [D33] <> [E33] Then MsgBox "القيد غير متوازن", 524288, "تنبيه": GoTo 1 '=========================================== 'تاكيد الاستمرار في الترحيل If MsgBox("هل تريد الاستمرار في ترحيل القيد رقم : " & [B2], 4 + 32 + 524288 + 1048576, "تأكيد الترحيل") = 7 Then GoTo 1 '=========================================== With ورقة11 '=========================================== 'اذا كانت آخر خلية في العمود الثالث في اليومية التحليلية 'اصغر من 6 يبدا من الصف رقم 6 والا يعتمد آخر صف بزيادة صف واحد If .Cells(47, 3).End(xlUp).Row < 6 Then LastRow = 6 _ Else LastRow = .Cells(47, 3).End(xlUp).Row + 1 '=========================================== Application.ScreenUpdating = False For R = 11 To M For C = 1 To 7 .Cells(LastRow, C + 2) = MyRang.Areas(C) Next C If Application.CountA([D11:D31]) = 1 And Cells(R, 2) <> "" Then .Cells(LastRow, 10) = Cells(R, 2) _ Else .Cells(LastRow, 10) = "مذكورين" If Application.CountA([E11:E31]) = 1 And Cells(R, 2) <> "" Then .Cells(LastRow, 11) = Cells(R, 2) _ Else .Cells(LastRow, 11) = "مذكورين" If Cells(R, 3) <> "" Then .Cells(LastRow, 20) = Cells(R, 3).Value If Cells(R, 4) <> "" Then .Cells(LastRow, Cells(R, 8).Value).Value = Cells(R, 4).Value If Cells(R, 5) <> "" Then .Cells(LastRow, Cells(R, 8).Value + 1).Value = Cells(R, 5).Value Next R End With Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح", 524288, "الحمد لله" '=========================================== 'امسح الخلايا المنقولة اذا اردت ذلك 'Range("B2:B6,D4").ClearContents 'Range("A11:E31").ClearContents '=========================================== On Error GoTo 0 1 End Sub hasabat2.rar

اخي / ahh

اذا غيرت المدى للصفوف في اليومية التحليلية يجب تغييرها في الكود آخر صف حاليا 47 وبالنسبة للدليل اي حساب يجب ان يكتب رقم العمود لموقعه في اليومية التحليلية قم بالتجربة واخبرنا ما الحاصل ؟؟

السلام عليكم استخدم الكود التالي : Sub ترحيل() Dim MyRang As Range Dim LastRow As Integer, M As Integer, R As Integer, C As Integer M = Application.CountA([B11:B31]) + 10 With ورقة11 If .Cells(47, 3).End(xlUp).Row < 6 Then LastRow = 6 Else LastRow = .Cells(47, 3).End(xlUp).Row + 1 Set MyRang = Range("B2,B3,A11,B4,B6,D4,B5") For R = 11 To M For C = 1 To 7 .Cells(LastRow, C + 2) = MyRang.Areas(C) Next C If Application.CountA([D11:D31]) = 1 Then .Cells(LastRow, 10) = [B11] Else .Cells(LastRow, 10) = "مذكورين" If Application.CountA([E11:E31]) = 1 Then .Cells(LastRow, 11) = [B11] Else .Cells(LastRow, 11) = "مذكورين" .Cells(LastRow, Cells(R, 8).Value).Resize(1, 2).Value = Cells(R, 4).Resize(1, 2).Value .Cells(LastRow, 20) = Cells(R, 3).Value Next R End With 'امسح الخلايا المنقولة اذا اردت ذلك 'Range("A11:E31").ClearContents End Sub

السلام عليكم تفضل المرفق hasabat.rar

ايه اللي مكتوب هنا اتريد الترحيل الى الورد ؟؟؟ الجواب : الله أعلم

السلام عليكم اخي لا اعرف اتعامل الا مع اكسل تقبل اعتذاري

السلام عليكم تفضل المرفق _____________________.rar

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

السلام عليكمتفضل المرفق _________________.rar