AbuuAhmed
-
Posts
926 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
16
Community Answers
-
AbuuAhmed's post in مشكلة فى ساعه ايقاف was marked as the answer
لقد قمت بالبحث عن أصل الكود ووجدته على أحد المواقع الأجنبية
ووجدت دالة GetTickCount التي لو كانت موجودة ضمن مثال السائل لانتهى الموضوع من "زمان" وانتهت معه هذه المعاناة.
حتى لا يتوه السائل أضفت صناديق بنفس الأسماء وبدلت أسماء باقي المكونات أيضا.
أعتقد الآن الموضوع منتهي ولا حاجة لانتظار الإجابة.
نسخة مع التحية للأستاذ @jjafferr
StopwatchTimer_01.rar
-
AbuuAhmed's post in مثال لساعة توقف Stopwatch was marked as the answer
تم تنقيح الكود فقط لإزالة بعض المتغيرات والسطور غير المطلوبة حاليا.
StopwatchExample_06.rar
-
AbuuAhmed's post in فرز بيات رقمية من حقل نص was marked as the answer
وجرب هذا أيضا:
Database31_01.accdb
-
AbuuAhmed's post in اجمالي مجموع فاتوره was marked as the answer
للحصول على الدينار استخدم دالة fix كالتالي:
D = Fix(Amount) وللحصول على الفلوس (جمع فلس" استخدم إحدى المعادلتين:
بالاستفادة من المعادلة أعلاه F = (Amount - D) * 1000 أو بشكل مباشر F = (Amount - Fix(Amount)) * 1000
-
AbuuAhmed's post in كود التوزيع Sub Observer() بطئ جدا جدا في ورقة الثانوية العامة was marked as the answer
أخي،
بعد فحص جديد انتبهت أن عملية القفز مطلوبة لاختيار ملاحظ عشوائيا.
ولكن قمت بالتعديل على الشرط ليكون كالتالي:
- ابقاء أحد الشرطين القديمين وهو منع تكرار الملاحظ لنفس الفترة.
- منع دخول الملاحظ لفترتين متتاليتين.
- أن لا يزيد عدد حضوره عن 3 على أساس أن حصة الملاحظ من الفترات = 26 فترة مقسومة على 10 ملاحظين لتكون النتيجة 2.6 فترة
لقد قمت بتعطيل جزء في آخر الكود ، افحص النتائج أولا، وإذا وجدت أي ملاحظات وقبل أن ترجع لي فعل الجزء المعطل وافحص النتائج من جديد.
موفقين
ملاحظة_03.xlsm
-
AbuuAhmed's post in حساب سعر ساعات العمل was marked as the answer
تم التعديل
حسب تركيبة الجداول من قبلك باسم Type1
حسب تركيبة الجداول من قبلي باسم Type2
getValue_04.rar
-
AbuuAhmed's post in مساعدة في تنسيق حقل التاريخ was marked as the answer
جرب هذا المثال ، ومسموح للخبراء التصرف به بالتعديل والتطوير.
DateEntryTest_01.accdb
-
AbuuAhmed's post in تعديل على كود يوزع درجات القرار من 10 was marked as the answer
جرب المرفق:
كود توزيع القرار_16.xlsm
-
AbuuAhmed's post in كود للتصحيح was marked as the answer
تعديلات عديدة ممكن توضيحها في وقت آخر.
الآن يمكنكم تبديل الأعمدة "العواميد" للفاتورة فقط دون مشاكل إن شاء الله ، أما عند تبديل أسماء الأعمدة فيجب عليكم تبديلها أيضا في الماكرو. موفقين.
Invoices-j3_03.xlsm
-
AbuuAhmed's post in البحث عن الارقام المتشابها في الصفحة الثانية was marked as the answer
يمكنت تبديل "" إلى صفر من خلال المعادلة
Copy of Book1_02.xlsx
-
AbuuAhmed's post in طلب كود استخراج تاريخ الاستحقاق من مدة زمنية was marked as the answer
أضفت لك أكواد تقويم أم القرى من موقع أبو هادي مع تصرف بسيط مني في دالة UmDateDiff.
حساب الترقيات.xlsm
-
AbuuAhmed's post in بمعادله فلكية استطعنا تحويل السنه من ميلادي الى هجري في حقل محسوب was marked as the answer
(Date + 466581 - 0.53) / (10631 / 30) + 1 Date يمثل التاريخ الميلادي للأكسس والإكسل و الـ vba
466581 هو الرقم التسلسلي لبداية التقويم الميلادي في 18/07/0622 زائدا واحد حتى تكون النتيجة المطلوبة تساوي يوم واحد.
طبعا الرقم التسلسلي يساوي 466580- نصفره ونضيف عليه يوم واحد وهو قيمة بداية التقويم الهجري (أول يوم).
(10631 / 30) هو طول السنة الهجرية بالأيام وناتجها 354.367 ولكني فضلت استخدم عملية التقسيم حتى أحصل على كسر مفتوح لمزيد من الدقة.
0.53 هو لعملية ضبط adjustment حصلت عليه بعد عدة تجارب/اختبارات وتظهر حاجته غالبا في آخر يوم في السنة وأحيانا في أول يوم أيضا.
1 هو للسنة الناقصة (غير المكتملة)
-
AbuuAhmed's post in شاركوني في تهنىة انفسنا بخبير جديد ،أخونا ابو احمد AbuuAhmed was marked as the answer
فاجأتوني ، شكرا لكم على الثقة والترقية ، وشكرا لكم جميعا على التهنئة ، وإن شاء الله أكون عند حسن ظنكم دائما.
-
AbuuAhmed's post in فتح شجرة الحسابات ونقل التركيز لحساب محدد was marked as the answer
الحمد لله تقلص الحل إلى سطر واحد فقط 🙂
TreeView1.Nodes("A" & Me.AccID).Selected = True الأخ @محمد القدسي لقد قمت بتنظيم الكود كشكل فقط لتسهيل المراجعة وفهم أدائه.
سأجعل هذا المثال لدراسة الشجرة والوصول إلى حلول جديدة إن وجدت.
شجرة حسابات_04.rar
-
AbuuAhmed's post in عايز احسب العمر باليوم والشهر والسنة بالطريقة الصحيحة was marked as the answer
الأمر فيه صعوبة ، وباستخدام شفرة VBA يسهل العملية.
اضطررت أن أضيف عمود للوصول إلى أفضل نتيجة ممكنة. مع ملاحظة أن حسابك اليدوي اثنتان منهم خطأ والأخيرة فقط صحيحة.
جرب وخبرنا:
طرسقة حساب تاريخ الميلاد بطريقة صحيحة_02.xlsx
-
AbuuAhmed's post in احضار الفرق بين التاريخ بالشهور فقط was marked as the answer
لم تطلب اليوم ، طلبت فقط السنة والشهر
تم إضافة اليوم
Book13_03.rar
-
AbuuAhmed's post in احضار الفرق بين التاريخ بالشهور فقط was marked as the answer
جرًب:
Book13_02.rar
-
AbuuAhmed's post in مطلوب دالة لكتابة ارقام فى عمودين بدلالة تاريخ معين ومرفق البيان was marked as the answer
الإكسل ليس تخصصي ولكن عاشق له ، جرب حلي:
New Microsoft Excel Worksheet_01.xlsx
-
AbuuAhmed's post in التفقيط باليوزرفورم was marked as the answer
جرب وخبرنا
احترت في جمع اليورو ، يوروات أو يورهات.
تفقيط باليوزرفورم.xlsm