طارق محمود

السلام عليكم الدالة رواند لاتحول السالب إلي موجب ولكنها تقرب لأرقام عشرية فإذا كان الرقم في الخلية A1 مثلا = 1223.3536 فإن =ROUND(A1,3) ينتج 1223.354 و =ROUND(A1,1) ينتج 1223.4 و =ROUND(A1,0) ينتج 1223 و =ROUND(A1,-1) ينتج 1220 أما ماتقصده فأعتقد الدالة ABS وهي تعطي الرقم المطلق أي موجب سواء الأصل موجب أو سالب

أخي الفاضل بن علية أولا : أعتقد أن الخ السائل أخطأ في الفئات فإذا كان المبلغ 4000 يعني 2000 في الشريحة الأولي و 2000 في الشريحة الثانية وليس 1999 ثانيا: أنظر المرفق قد يكون هذا هو المطلوب Nagham.rar

السلام عليكم أنا لم أجرب الملف ولكن تفضل الملف بعد تحويله لفورمات 2007 هنا في هذا الرابط http://www.4shared.com/file/227181031/622b2d31/2007.html أو أنقر هنـــا حيث أن حجمه أزيد من المسموح به للتحميل في أوفيسنا

عفوا أخي هشام لم أر ردك لكن لابأس من زيادة الخير

السلام عليكم أخي خالد أرجو تجربت الزر في الثلاث شيتات في الملف المرفق وهذ هو الكود Sub move_Last_B() Range("B65536").End(xlUp).Select If ActiveCell.Row < 19 Then Range("B19").Select: GoTo 10 ActiveCell.Offset(1, 0).Select 10 End Sub تفضل move to last B.rar move to last B.rar

أخي العزيز onlymanly لاشكر علي واجب نفعنا الله وإياكم بما نعلم وبما نعمل

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

السلام عليكم بعض الملاحظات والتغييرات إضررت لتغيير أسماء الملفات للغة الإنجليزية لعيب مع اللغة العربية في النظام عندي جعلت إختيار إسم العميل أو البنك أوتوماتيك من قائمة منسدلة في كلتا حالتي الدائن والمدين بمعني أنه الأفضل أن تضع بيانات رقم الحساب والإسم في المجال منAA3 إلي AB22 (لونه أصفر) في حالة أن الإسم غير موجود في ملف الحسابات "Accounts.xls" فسيتم أوتوماتيك عمل ورقة جديدة بالإسم الجديد يقوم الماكرو بعمل تحقيق أوتوماتيك إن كان ملف الحسابات "Accounts.xls" مفتوح وإلا يفتحه ثم الرجوع مرة أخري إلي ملف سند القبض أيضا تم تعديل المعادلة الخاصة بالرصيد لتعطي سالب إذا كان الرصيد مدين يكتب في خانة الملاحظات أن المبلغ من ح/ فلان أو إلي ح/ فلان ملاحظة: 1. موضوع إذا كان الإيداع نقدي فتختار أنت رقم حساب الصندوق يدويا أفضل لكيلا يتعارض مع الماكرو 2. يوجد في الخلايا S1,S2,S3 بعض العبارات (عملية قبض - من ح/ - إلي ح/ ) أستخدمها في الماكرو لنفس العيب مع اللغة العربية عندي فلا تلغيها 3. المبلغ كتابة لايتم أوتوماتيك أيضا عليك عمله 4. بعد الترحيل يتم تفريغ بيانات الحقول :التاريخ / رقم حساب الدائن /رقم الحساب المدين / المبلغ من ملف سند القبض "QABD.xls" ولاتنزعج لرسالة الخطأ في حقلي إسم الحساب الدائن ، إسم الحساب المدين سيتلاشي الخطأ بعد ملئ رقم الحساب

هذا هو الماكرو المستخدم Sub shift() Dim xxx As String s_qabd = Range("F2").Value s_name1 = Range("H5").Value s_name2 = Range("L10").Value s_acc1 = Range("F5").Value s_acc2 = Range("M9").Value s_explain = Range("S1").Value s_from = Range("S2").Value s_to = Range("S3").Value s_kind = Range("F2").Value s_amount = Range("F7").Value s_date = Range("D3").Value Range(" F5 , M9 , F7 , D3").Select Selection.ClearContents ' Check if is Open or Close, so open if close a = Workbooks.Count ActiveCell.Offset(1, 0).Value = a x = "Close" For i = 1 To a If Workbooks(i).Name = "Accounts.xls" Then x = "OPEN" Next i If x = "Close" Then xxx = ActiveWorkbook.Path & "\" & "Accounts.xls": Workbooks.Open xxx Windows("Accounts.xls").Activate ' Shift the Dedit ACC x = Worksheets.Count For i = 1 To x If Worksheets(i).Name = s_name1 Then GoTo 100 Next i Sheets("Sample").Select Sheets("Sample").Copy Before:=Sheets(1) ActiveSheet.Name = s_name1 Range("B2").Value = s_acc1 Range("E4").Value = s_name1 ' zz = Worksheets(i).Name 100 Worksheets(s_name1).Select Range("a1000").Select Selection.End(xlUp).Select If ActiveCell.Row = 7 Then ser = 1 Else ser = ActiveCell.Value + 1 ActiveCell.Offset(1, 0).Select ActiveCell.Value = ser ActiveCell.Offset(0, 2).Value = s_amount ActiveCell.Offset(0, 5).Value = s_date ActiveCell.Offset(0, 6).Value = s_kind ActiveCell.Offset(0, 8).Value = s_to & s_name2 'Al-Raseed BALANCE of Debit ACC If ser = 1 Then ActiveCell.Offset(0, 3).FormulaR1C1 = "=RC[-1]": GoTo 150 ActiveCell.Offset(0, 3).FormulaR1C1 = "=R[-1]C+RC[-1]-RC[-2]" 150 ' Shift the Credit ACC x = Worksheets.Count For i = 1 To x If Worksheets(i).Name = s_name2 Then GoTo 200 Next i Sheets("Sample").Select Sheets("Sample").Copy Before:=Sheets(1) ActiveSheet.Name = s_name2 Range("B2").Value = s_acc2 Range("E4").Value = s_name2 200 Worksheets(s_name2).Select Range("a1000").Select Selection.End(xlUp).Select If ActiveCell.Row = 7 Then ser = 1 Else ser = ActiveCell.Value + 1 ActiveCell.Offset(1, 0).Select ActiveCell.Value = ser ActiveCell.Offset(0, 1).Value = s_amount ActiveCell.Offset(0, 5).Value = s_date ActiveCell.Offset(0, 4).Value = s_explain ActiveCell.Offset(0, 8).Value = s_from & s_name1 'Al-Raseed BALANCE of Credit ACC If ser = 1 Then ActiveCell.Offset(0, 3).FormulaR1C1 = "=-RC[-2]": GoTo 250 ActiveCell.Offset(0, 3).FormulaR1C1 = "=R[-1]C+RC[-1]-RC[-2]" 250 Windows("QABD.xls").Activate Range("d3").Select End Sub

السلام عليكم تفضل المرفق وسأشرح لك قريبا Only.rar

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

السلام عليكم بعد إذن أخي هشام وأخي أدم أخي وليد معظم ورقات الملف محجوز خلاياها لما يقرب أو يزيد عن الصف 2000 أو 3000 بالطول وكذلك بعضها يحجز كامل العرض (256 عمود - العمودIV في إكسل 2003) من المؤكد أنك لن تحتاج كل ذلك حسب فهمي تركت لك فقط مايلزم وحذفت الباقي لكي تفهم قصدي إذهب مثلا للورقة "صرف بضاعة" ثم إضغط Ctrl + End ستذهب إلي آخر خلية محجوزة في هذه الورقة وهي في نفس المثال IV3405 فإذا ظللت منها إلي آخر خلية تحتاجها بالفعل وهي في نفس المثال AU20 ثم تلغي كامل الصفوف الزائدة وكذلك الأعمدة وتكرر ذلك لباقي الورقات ولابد من حفظ الملف بعد ذلك أنظر المرفق test_01.rar

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

السلام عليكم أنظر الصورة

حسب مافهمت أنك تريد ضم الإميلات الموجودة في خلايا الإكسل (غالبا رأسيا) لتأخذ منها نسخة في خانة المرسل إليه في بريدك إذا كان ذلك فأنظر المرفق emails_collect.rar

جزاك الله كل الخير اللهم يا محوّلْ الأحوال حوّلْ حالنا و حالْ المسلمين من حالٍ إلى أحسْن حالْ ، اللهم أحسن عاقبتنا في الأمور كلها و أجرنا من خزي الدُنيا و عذاب الآخرة.

السلام عليكم أخي الحبيب أولا : لإرسال الملف بالوورد أو الإكسل ، عن طريق ضغطه بأي من winrar أو winzip ثانيا: لابد توضح ماهي العمليات الحسابية مثلا : العمر وقت تقديم الطلب / الوقت الباقي علي إنتهاء كذا / ... أو ممكن تريد لون مثلا إذا تعدي الوقت كذا أوكذا إشرح أكثر لتحصل علي ماتريد

السلام عليكم راجع الرابط هنا http://www.officena.net/ib/index.php?showtopic=29748&st=0&p=148119&hl=%C5%D1%D3%C7%E1%20%C5%E3%ED%E1&fromsearch=1&#entry148119

السلام عليكم فعلا هي من الدوال المضافة يمكنك مراجعة الموضوع علي الرابط: http://www.officena.net/ib/index.php?showtopic=14155&st=0&p=61367&hl=NoToTxt2%20&fromsearch=1&#entry61367 أو النقر هنــــا

السلام عليكم ماشاء الله ، عمل بديع خاصة أنني أحتاجه الآن جزاك الله خيرا دائما مبدع

السلام عليكم إخواني وأساتذتي الغاليين الله وحده يعلم كم أحبكم فيه عز وجل جزاكم الله خيرا فعلا كما أخبركم أخونا وأستاذنا العزيز / محمد طاهر كنت في أجازة أسبوعين والحمد لله موجود من اليوم أرجو أن تكونوا جميعا بخير وسوف أبدأ أولا باستعراض ماتم خلال غيابي ولكني سأكون بطيئ نسبيا لإنشغالي في العمل (بعد الأجازة ..) أسأل الله أن يديم مابيننا من خير ويزيده وأن يرزقنا جميعا زيادة في الدين وبركة في العمر وصحة في الجسد وسعة في الرزق وتوبة قبل الموت وشهادة عند الموت ومغفرة بعد الموت وعفوا عند الحساب وأمانا من العذاب ونصيبا من الجنة ويرزقنا النظر إلى وجهه الكريم

السلام عليكم تفضلي أختي الملف وبه الشرح noor01.rar

السلام عليكم مممكن لو الأرقام التي تريد تصفيرها لها أي فورمات خاصة مثلا في الصورة المرفقة الخلايا التي لونها أحمر يتم تصفيرها لكن لو لونها ناتج من تنسيق شرطي مثلا فلا لإرسال الملف إضغطه أولا عن طريق 1. إما ببرنامج winrar أو ببرنامج winzip 2. من خارج الإكسل ويكون الملف مغلق تعمل عليه كليك يمين ثم Send to Compressed (zip) file أنظر الصورة الثانية

بمعني آخر لايوجد معادلات في العمود C سيتم وضع التاريخ فيه بمجرد حدوث تغيير في العمود A حسب الكود وليس بالمعادلات

أخي bekhaa كلامك مضبوط في أول سطرين فقط لأنني تركتهم بمعادلاتهم الأولي لكي تستطيع التفريق بينهم وحتي هذان السطران إذا غيرت أو أدخلت أي شيء في الخلايا المقابلة لهما بالعمود A سيتغيران نهائيا حسب الكود جرب وأخبرني