الصـقر
-
Posts
1,836 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
21
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه الصـقر
-
-
استاذى الفاضل / خالد الرشيدى
كتاب اكثر من رائع
بارك الله فيك وزادك من علمه
نسال الله تعالى ان يجعله فى ميزان حسناتكم
مزيد من التقدم والنجاح
-
1
-
-
استاذى الفاضل / ابوعبدالله
السلام عليكم
اولا اود ان احييك على هذا المجهود الرائع فانت بحق مبدع وعلامه
لضيق الوقت لم اتمكن من تصفح جميع الاكود للتعلم منها ولكن قمت فقط بمشاهدة قيود اليومية ولى بعض الملاحظات عليها
عند تسجيل قيد يومية يمكن ان اقوم بوضع مبلغ بالمدين ومبلغ بالدائن فى بنفس الصف وهذا فى المحاسبة غير منطقى فيجب اما وضع مبلغ مدين او مبلغ دائن للحساب وذلك يكون بالكود التالى
Dim ws As WorksheetFunctionDim Lr As IntegerSet AA= WorksheetFunctionLm= [A311].End(xlUp).RowFor Ww = 12 To LmWw: Exit Sub & " يجب وضع مبلغ فى المدين او الدائن بالصف " If AA.CountA(Range("E" & Ww & ":F" &Ww)) = 2 Then MsgBoxوذلك حتى تجبر المستخدم على وضع مبلغ فى خانة المدين او خانة الدائنثانيا : فى حسابات تحتاج الى مراكز تكلفه مثل المصروفات وحسابات اخرى لا تحتاج ربطها بمراكز تكلفه مثل الصناديقفى هذا البرنامج يسمح بوضع مركز تكلفه على اى حساب وهذا محاسبيا خطافلابد من وضع كود يجبر المستخدم بادخال مركز تكلفه لو الحساب كان مصروف مثلا فلا يقوم بحفظ القيد الا بوضع مركز تكلفهوايضا وضع كود يجبر المستخدم بعدم ادخال مركز تكلفه لو كان الحساب صندوق مثلا فلا يقوم بالحفظ اذا تم وضع مركز تكلفه بصف حساب الصندوقWw: Exit Sub& " الرجاء ادخال مركز تكلفه بالصف " And Cells(Ww, "C") = "" Then MsgBox "مصروفات" = (If (Cells(WW, "AWw: Exit Sub& "الرجاء عدم وضع مركز تكلفه بالصف " And Cells(Ww, "C") <> "" Then MsgBox "صندوق" = (If (Cells(Ww, "A
واسف جدا لحضرتك ولكن هذا العمل المبدع من حضرتك لا يقوم به الا عالم ذادك الله من علمه
وسوف اقوم بمرجعة البرنامج كله ان شاء الله وتجربتة واقوم بافادتك باى ملاحظات
اخوك / حسام عيسى
-
الاخت الفاضله / ام بسمة
احنا كلنا فى المنتدى بنتعلم من بعض
جربى الملف وان شاء الله يكون هو المطلوب
واى تعديل او ملاحظة انا موجود
-
الاخت الفاضله /
لا يمكن التعديل على كشف الحساب نهائيا
كشف الحساب يكون تقرير فقط وليس مكان لادخال البيانات
انا هلغى لك الشيت العام
-
الف الف مبروك ترقية تستحقها
يا استاذ / محمود بالتوفيق
والمزيد من التقدم والنجاح
-
الاخت الفاضله ام بسمة
اتمنى ان يكون هذا ما تريدية
ولو فى اى ملاحظة واو عايزة اضافه
انا موجود وكلنا بالمنتدى نتعاون مع بعض
بالتوفيق
-
انا ارى من الافضل عمل شيت لتسجيل مشتريات العميل وشيت اخر يتم تسجيل ما دفعه العميل
وبكشف الحساب يظهر ما اشترى العميل من بضاعه بالجانب المدين ( المديونية )
ويظهر ما دفعه العميل من كاش بجانب الدائن
انفذ الملف على هذه الفكرة
-
السلام عليكم
اللى فهمته من حضرتك انك عايزة ان العميل يظهر ما اخذ من بضاعه وكم سدد وكم متبقى بعد كل حركة ولا بشكل عام
ارجو التوضيح
-
الاخت ام بسمة
شيت عام الهدف منه هو الحفاظ على البيانات فانتى تقومى بالتسجيل فى شيت ويرحل البيانات الى شيت عام فهنا يكون شيت عام بمثابة قاعدة بيانات وهذا افضل
ثانيا : وضحى اكتر اى تصفية تقصدى فى كشف الحساب وضحى الفكرة وان شاء الله نساعدك فيها
-
الاخت الفاضله / ام بسمة
ان شاء الله يكون دا المطلوب
حجم الملف اصبح 75 KB
جربى الملف واى ملاحظة او مشكله
كلنا بالمنتدى تحت امرك نتعاون على الخير والعلم والتعلم
والافضل ان تقومى بفهم الكود وكيفية عمله وتجربى بنفسك اكيد هتغلطى بس فى الاخر هتتعلمى
-
الاخت الفاضله / ام بسمة
للاسف حجم الملف 3.85 ميجا بايت ودا سبب ثقل الملف
والسبب ان حضرتك فى شيت المبيعات عملتى نسخ للمعادلات حتى 60.000 صف لازم تعرفى ان كل 1000 صف به معادلات يزيد حجم الملف الى 100KB الحل انو يتم الغاء المعادلات والتعويض عنها بالكود
بالنسبة للوقت ظاهر فى العمود I ولكن مخفى
انا قمت بحذف المعادلات من بعد الصف 1000 فوصل حجم الملف الى 292 KB فقط
ويارب يكون دا المطلوب
-
هذا العمل من اعمال المبدع الرائع الاستاذ رجب جاويشبعد اذن استاذى رجب جاويش / قمت بالتعديل علية بما يتناسب مع عملىبالضغط دبل كليل على الخليه التى تريد استبدال الاسم بها يظهر لك النموزج قم بتغيير اسم العميل رقم 1 ( محمد ) لاحظ ما يتمستجد التغير يشمل العميل رقم 2 لمجرد انه يحتوى على محمد فمن غير المنطقى ان يقوم بتعديل اسم العميل رقم 2انا اريد يقوم بتغير اسم العميل مطابقه تامة وليس لمجرد انه يحتوى على اسم منهاريد ان يقوم التغير بالصفحه النشطه وصفحه رقم 3 فقط ولا يظهر التعديل باى شيت اخر حتى وان كان يوجد به نفس الاسميسمح للمستخدم كتابة اسم عميل جديد ولكن بعد الكتابة لا يمكن تعديل اسم العميل الا من خلال الفورماريد ان عند الضغط على دبل كليك باى خليه بالعمود B يظهر الفورم ولا يظهر الفورم عند الضغط على اى خليه بعمود اخر
-
اسم الملف: فورم استبدال كلمه بكل الصفحات
مرسل الملف: حسام عيسى
ارسل الملف في: 19 يونيو 2014
تصنيف الملف: قسم الإكسيل
هذا العمل الرائع من اعمال العالم رجب جاويش
بعد اذن الاستاذ رجب قمت بالتعديل عليه ليكون اكثر فائده
-
السلام عليكم
بناء على طلب من أحد الاخوة الافاضل فى المنتدى وهو الأخ الفاضل أكرم جلال
تم عمل فورم يتم من خلاله استبدال كلمة معينة فى جميع الصفحات
والأهم من ذلك استبدال كلمة معينة فى عدد محدد من الصفحات تحددة بنفسك
أرجو أن يكون مفيد
استاذى الجليل / رجب جاويش
اولاً / اشكرك على هذا العمل الرائع
ولكن لى ملاحظة بسيطة عند تغيير الاسم وليكن عندى عدد 2 عملاء
1- رجب جاويش محمد
2- رجب جاويش
فلو فرضنا اريد تغيير رجب جاويش (العميل رقم 2) واستبداله ب محمد جاويش
فان الفورم يقوم بالبحث عن كل ما هو رجب ويقوم باستبداله
فيصبح العميل رقم 1 محمد جاويش محمد
والعميل ؤقم 2- محمد جاويش
فمن غير المنطقى ان يقوم بتعديل اسم العميل رقم 1 المفروض ان يبحث عن محتوى الخليه مطابقه كامله وليس جزء منها ويقوم بالاستبدال
واسف جدا للازعاج
-
أخى الفاضل / الأستاذ : حمادة باشا
شرفنى جدا مرورك العطر وكلماتك الطيبة
فجزاك الله كل خير
استاذى الجليل / رجب جاويش
اولاً / اشكرك على هذا العمل الرائع
ولكن لى ملاحظة بسيطة عند تغيير الاسم وليكن عندى عدد 2 عملاء
1- رجب جاويش محمد
2- رجب جاويش
فلو فرضنا اريد تغيير رجب جاويش (العميل رقم 2) واستبداله ب محمد جاويش
فان الفورم يقوم بالبحث عن كل ما هو رجب ويقوم باستبداله
فيصبح العميل رقم 1 محمد جاويش محمد
والعميل ؤقم 2- محمد جاويش
فمن غير المنطقى ان يقوم بتعديل اسم العميل رقم 1 المفروض ان يبحث عن محتوى الخليه مطابقه كامله وليس جزء منها ويقوم بالاستبدال
واسف جدا للازعاج
-
استاذى الجليل / رجب جاويش
اولاً / اشكرك على هذا العمل الرائع
ولكن لى ملاحظة بسيطة عند تغيير الاسم وليكن عندى عدد 2 عملاء
1- رجب جاويش محمد
2- رجب جاويش
فلو فرضنا اريد تغيير رجب جاويش (العميل رقم 2) واستبداله ب محمد جاويش
فان الفورم يقوم بالبحث عن كل ما هو رجب ويقوم باستبداله
فيصبح العميل رقم 1 محمد جاويش محمد
والعميل ؤقم 2- محمد جاويش
فمن غير المنطقى ان يقوم بتعديل اسم العميل رقم 1 المفروض ان يبحث عن محتوى الخليه مطابقه كامله وليس جزء منها ويقوم بالاستبدال
واسف جدا للازعاج
-
اخى الحبيب / حسين العربى
حضرتك ممكن تسجل ماكرو من قائمة عرض اختار تسجيل ماكرو ثم قم بعمل فلترة على الجدول ثم قم بايقاف الماكرو
اضغط ALT + F11
وشوف كود الفترة كيف تم تسجيله
جرب وقولى
وانا معاك
انا عايزك تتعمل بنفسك وتستكشف
-
استاذى / عبدالله باقشير العلامه
اسال عن كيفية اخفاء شريط الشيتات والتحرك من خلال الهيبر لينك / ومنع المستخدم من اظهر الشريط من خيارات اكسيل
وشكرا
-
اخى الحبيب انظر الملف المرفق ستجد ما تريد
عند الضغط دبل كليك على الخليه النشطة بالشيت ستظهر لك النموذج اختر ما تريد واضغط انتر تظهر القيمة المختارة بالخليه النشطه
تحديد مصدر بيانات القائمة في الكومبوبكس بناءا علي الاختيار للـ Optionbotton.zip
-
بارك الله فيك يا اخى مشكور على هذا الجهد الرائع
-
ارجو من حضرتكم كود او معادلة للاستدعاء لكشف ويكون جماعي ويكون شرط الاختيار بحسب المصرف (( اسم البنك )) وكذالك لو تكرمتو كيفية تكبير الخط في القائمة المنسدلة
وشكراً جزيلاً
-
Sub trheel2()If Range("G4") <> ("H4") = 1 ThenMsgBox "ãÌãæÚ ÇáãÏíä áÇ íÓÇæì ÇáÏÇÆä"ElseDim LR As IntegerLR = [c1000].End(xlUp).RowRange("A6:i" & LR).CopySheets("ÚÇã").Range("B" & Sheets("ÚÇã").[b10000].End(xlUp).Row + 1).PasteSpecial xlPasteValuesApplication.CutCopyMode = FalseRange("C6:H" & LR).ClearContentsMsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ", vbOKOnly, "ÊäÈíÉ"End IfEnd Subهذا كود ترحيل بيانات من شيت الى اخر بالبدايه يرحل البيانات المطلوبه بشكل صحيح وفجاء وبدون اى تعيدل على الكود يرحل البيانات المطلوبه بشكل خاطى فما السبب ارجوا الافاده وشكرا
-
جزاك الله كل الخير .. عندى مشكله اعمل كود ترجيل بيانات من شيت الى اخر فى البدايه يكون صحيح وبعد يوم او اثنين بدون اى تعديل على الكود ليعطى نتيجه ترحيل خلايا خطا - ارجو الافاده وجزاكم الله خير
Sub trheel2()If Range("G4") <> ("H4") = 1 ThenMsgBox "ãÌãæÚ ÇáãÏíä áÇ íÓÇæì ÇáÏÇÆä"ElseDim LR As IntegerLR = [c1000].End(xlUp).RowRange("A6:i" & LR).CopySheets("ÚÇã").Range("B" & Sheets("ÚÇã").[b10000].End(xlUp).Row + 1).PasteSpecial xlPasteValuesApplication.CutCopyMode = FalseRange("C6:H" & LR).ClearContentsMsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ", vbOKOnly, "ÊäÈíÉ"End IfEnd Sub
فورم استبدال كلمة بصفحات محدده
في منتدى الاكسيل Excel
قام بنشر
السلام عليكم استاذى الفاضل
اولاً كل عام وانت بخير اسال الله ان يمن عليك برحمة هذا الشهر ويغفر لك ويجعلك من العتقاء من النار
ثانيا : كم انت مبدع ورائع بحق زادك الله من علمه ووفقك الى ما فيه الخير
جربت الملف والكود رائع وقمت بوضع سؤال بالكود يسال المستخدم عن باسورد لاتمام عمليه التعديل / ولكن بقى شئ وهو يسمح للمستخدم اضافه اسم جديد ولا يسمح بتعديل الاسم او حذفه الا من خلال الفورم هل بالامكان ذالك
وشكرا جدا على تعاون حضرتك فنحن تلاميذك بالمنتدى