نجوم المشاركات

جرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim x If Target.Column = 1 And _ Target.Count = 1 And Target.Row < 100 Then x = Range("A:a").Find("", after:=Cells(1, 1)).Row hid_My_row (x) End If End Sub Rem++++++++++++++++++++++++++++++++++ Sub hid_My_row(k%) Rows(k + 1 & ":" & 100).Hidden = True Rows(1 & ":" & k).Hidden = False Cells(k - 1, 1).Offset(, 1).Select End Sub Rem++++++++++++++++++++++++++++++++++ Sub SHOW_ME() Rows(1 & ":" & 100).Hidden = False End Sub Rem++++++++++++++++++++++++++++++++++ الملف للتجربة مرفق SHOW_HIDE_ROWS.xlsm

انظر المرفق .... Database4.accdb

وعليكم السلام ورحمة الله بطريقة مباشرة لا يمكن ذلك ....... ولكن بطريقة غير مباشرة .... ارفق مثال بسيط للمحاولة ...

اخواني واخواتي الأعزاء السلام عليكم ورحمة الله ممكن ان يكون قد تعودنا علي شكل ProgressBar Control لكن يمكن اجراء بعض التحسينات لاضافة مظهر لها كالتالي واترككم للتجربة مع تحياتي ProgressBarControl.rar

السلام عليكم قمت بتصميم برنامج لصديق لي لبيع وشراء الاجهزة الخلوية - مع فكرة الباركود حسب ما طلب مني البرنامج جاهز وهو مقدم لكم هدية لعلكم تستفيدون منه جربوه واعطوني رأيكم فيه ** لا يشكر الله من لا يشكر الناس كل الشكر للصديق المهندس هاني مجدي ( من الشقيقة مصر ) حيث هو صاحب الفكرة واستفدت منه الكثير مؤسسة البركة لبيع الخلويات.rar

حاول استبدال الفاصلة المنقوطة بفاصلة عادية لتبدو المعادلة هكذا =if(B1<>"",counta($B$1:B1),"")

تفضل Print_vis_ROWS.xlsm

اعتقد انه من الممكن تكون لغة الاوفيس هي المشكلة فمثلا في النسخة العربي اسماء الشيتات ورقة1,2 وهكذا وفي النسخة الانجليزيsheet1,2 فمثلا لو حددت البيانات عندك علي نسخه عربي ولما تروح علي نسخة انجليزي ممكن تحصل المشكلة الحل من وجهه نظري انك تعمل نطاق البيانات جدول والبيفون تيبل يكون مصدره الجدول

جربي استعلام الحاقي ..... qq.rar

المعادلة في المرفق... مثال.xlsx

وعليكم السلام عملتها لك ولكن بالمعادلات وهي نفس الفكرة سيتم تنبيهك إذا وجد خطأ تفضل جرب المرفق معادلة.xlsm

السلام عليكم ورحمة الله اضف هذا السطر قبل جملة For If ActiveSheet.name <> "mohsen" Or ActiveSheet.name <> "elshrok" Then Exit Sub

وعليكم السلام ورحمة الله وبركاته خلينا نجرب نغير تنسيق التاريخ جرب ووافني بالنتيجة Select Case MbAll Case 1 T = Format(DateAdd("m", -12, Date), "yyyy-mm-dd") Case 2 T = Format(DateAdd("m", -6, Date), "yyyy-mm-dd") Case 3 T = Format(DateAdd("m", -3, Date), "yyyy-mm-dd") Case 4 T = Format(DateAdd("m", -1, Date), "yyyy-mm-dd") End Select

شكرا لكم جميعا ان شاء الله ان نقدر نقدم مابامكاننا للجميع و ان شاء الله ان نقدر ننطي حق هذه اللقب شكرا لك @ابو زاهر @wael_rafat @sandanet @شامل2

اخي ياسر ليس الموضوع هكذا المطلوب تحويل كل الصفوف الى عامود واحد بينما دالة Transpose تعكس الأعمدة والصفوف يمكن ان يكون هذا الملف يفي بالغرض All_On_One_Column.rar

إخواني الكرام لم أتابع الموضوع بشكل جيد من البداية ، وبدأت من حيث انتهى الآخرون .. بدأت من مشاركة أخونا الحبيب سليم والتي أرفق فيها ملف فوجدت الحل بالكود وقد استخدم الحلقات التكرارية في حين أن الموضوع يمكن أن يكون أبسط إذا تم استخدام خاصية الـ TRANSPOSE .. ويمكن برمجتها أيضاً قم بتحديد النطاق في الصف المراد تحويله لعمود .. على سبيل المثال A7:BC7 كليك يمين ثم كوبي Copy أي نسخ اذهب للخلية المراد لصق البيانات بها ثم كليك يمين ثم اختر لصق خاص Paste Special وعلم علامة صح على الخيار TRANSPOSE ثم أوك وكل عام وأنتم بخير

في اي صفحة جديدة املأ الصف من A1 الى اي حلية تريد (Z1 مثلاً ) بأي بيانات و قم بتنفيذ هذا الكود اذا كنت تريدها معادلات سأعمل على ذلك تم عمل المطلوب امظر الى الصفحة 3 استبدل اسم الصفحة الى test لسهولة التعامل مع اللغة الاجنبية في الكزد Sub list_to_one_col() laste_col = Cells(1, Columns.Count).End(xlToLeft).Column Do Cells(m + 3, 1) = Cells(1, k + 1) m = m + 1: k = k + 1 Loop Until k = laste_col End Sub Salim_توزيع الأعمدة على الصفوف.rar

الهدف حضرتك من سؤالي هو تحويل الأصناف الموجودة في المرفق إلى أعمدة لسهولة عمل فرز عليها واستخلاص عدد المبيعات والمرتجعات لكل صنف ، ارجوا أن لا تمل من سؤالي محاسب.rar

في اي صفحة جديدة املأ الصف من A1 الى اي حلية تريد (Z1 مثلاً ) بأي بيانات و قم بتنفيذ هذا الكود اذا كنت تريدها معادلات سأعمل على ذلك Sub list_to_one_col() laste_col = Cells(1, Columns.Count).End(xlToLeft).Column Do Cells(m + 3, 1) = Cells(1, k + 1) m = m + 1: k = k + 1 Loop Until k = laste_col End Sub

جزاكم الله خيرا جميعا على الفائدة العظيمة دي ودي نقطة من بحر علمكم ومساعداتكم لنا وإن كان المطلوب توزيع عدة خلايا في صف إلى عمود واحد ما العمل ؟

مع كل التقدير والاحترام الى الاخ ابو عبد الباري تطوير بسيط على الكود في المرفق Salim_توزيع الأعمدة على الصفوف.rar

الأخ الكريم حسام الدين الحسيني جرب هذا الملف باستخدام الأكواد لعلة يفى بالغرض abo_abary_توزيع الأعمدة على الصفوف.rar

في الواقع ، معظم الصعوبات لها اجابات ، ولكن الجواب مرتبط بطريقة شرح السؤال وبإسهاب وبالتفصيل الممل وبأكثر من مثال ، وانا وامثالي ، عندنا وقت محدود نحاول نساعد ، فاذا رأينا السؤال مبهم وبدون تفاصيل ، فعادة نتركه ، حتى يستفيد من وقتنا اكبر قدر ممكن من الاسئلة جعفر

بعد اذن الاستاذ جعفر واثراء للمعلومة اكتب التعبير التالي في مربع نص للنموذج الفرعي وللارقام السالبة =Sum(IIf([الرصيد]<0;[الرصيد];0)) وطبعا للموجبة تغيير فقط الاشار الى اكبر من الصفر ويبقى سحب القيمة للنموذج الرئيسي واخفاء الاصلي بالنموذج الفرعي وهذه اتوقع معلومة ومعروفة ! هنا افضل وبعد الارتباط بحدث معين او حتى عند الفلترة تتغير الحسبة ! بالتوفيق

حياك الله

اسعد الله اوقاتكم : مرفق ملف اكسل - لطرق اهلاك الاصل الثابت فقط ادخل قيمة الاصل وسنوات عمره الانتاجي ( وان كان هناك خردة في نهاية العمر ام لا ) وستكون النتيجة اهلاك الاصل بكافة طرق الاهلاك المعتمدة دوليا ( وفق معايير المحاسبة الدولية ( معيار 2 ) ) مع ملف وورد عدد 2 ( شرح بسيط مع امثلة لاهلاك الاصل الثابت ) الفكرة بالاصل لاستاذي حسام هداية وقمت بالتعديل بشكل يشمل كل طرق الاهلاك مع شرح بسيط وفقــــــــــــــــــــــــكم الله ياسر الحافظ " ابو الحارث " طرق اهتلاك الاصل.rar

جرب هذه المعادلة فى " A2 " بعد وضع اليوم الذى تريدة فى الخلية " A1 " وأسحبها لأسف بالمقدار الذى تريدة =INDEX(TEXT(ROW(1:8),"dddd"),MATCH($A1,INDEX(TEXT(ROW(1:8),"dddd"),),0)+1) تقبل تحياتى تسلسل ايام الاسبوع.rar

بالنسبه للرصيد في مثال اخي اشرف خليل فانه تم وضعه في شقين : - الشق الأول : وهو رصيد اول المده او (الرصيد السابق) وتم عمل ذلك عن طريق الداله Dsum وتتكون الداله Dsum من الاتي Dsum(التعبير الذي به معادلة الرصيد;هنا اسم الجدول او الاستعلام;هنا الشرط الذي يجب تحقيقه) وبتطبيق ذلك على مثال اخي اشرف .. =nz(DSum("[t_Query]![Balance]";"[t_Query]";"[تاريخ الحركة]<[forms]![date01]![a]")) وهي تعني اجمالي الحقل المسمىBalance من الاستعلام المسمى t_Query في حالة تحقق الشرط[تاريخ الحركة]<[forms]![date01]![a] وهو ان تاريخ الحركه يكون اصغر من التاريخ الذي يوجد في مربع النص a الذي يوجد في النموذج date01 ,, ========= الشق الثاني : وهو رصيد العميل بعد كل عمليه وبالطبع ذلك مختلف عن رصيد اول المده او (الرصيد السابق) ,, وهنا تم الاعتماد على فكره رائعه .. وهو انه تم وضع مربع نص به عد تسلسلي ومسمى في المثال RecNo عن طريق وضع القيمه =1 به .. بحيث لأنه عند عمل معادلة الرصيد فإن بعد اول عمليه معدلة الرصيد تختلف عن باقي الرصيد .. لأن معادلة اول رصيد بالطبع تساوي = الرصيد السابق+الجانب المدين-الجانب الدائن .... اما معادلة الرصيد بعد ذلك تساوي= الجانب المدين - الجانب الدائن وذلك مجموع تراكمي على ماقبله .... وتم تطبيق ذلك في المثال عن طريق ... =IIf([RecNo]=1;[مدين]-[دائن]+[be];[مدين]-[دائن]) وتم الاعتماد هنا على الداله IIF وذلك عن طريق IIf([RecNo]=1 وهي تعني اذا كان مربع النص المسمىRecNo الذي يقوم بالعد التسلسلي يساوي 1 اي اول سجل فإنه يتم تطبيق المعادله .. [مدين]-[دائن]+[be] وهي المعادله الخاصه بالرصيد الاول = الرصيد السابق+الجانب المدين-الجانب الدائن و be اسم مربع النص الخاص بالرصيد السابق ,, واذا كان مربع النص RecNo بعد اول سجل يعني لا يساوي 1 اذن يتم تطبيق معادلة الرصيد العاديه بدون الرصيد السابق ولكن لا تنسى تـــراكـــمـــي وهي هنا في المثال .. [مدين]-[دائن] وتستطيع ان تحدد الرصيد ان يكون تراكمي عن طريق عمل رايت كليك على مربع نص الرصيد ثم خصائص ثم بيانات ثم مجموع تراكمي ثم قم بتحديد الخيار شامل ,,,