Hamdi Edlbi-khalf

السلام عليكم لقد قمت سابقاً بكتابة هذا الأمر لطباعة نطاق من الخلايا الممتلئة و قد أدى الكود الغرض المطلوب و لكن عند التصفية فإنه يطبع الملف كاملاً مع صفحات بيضاء مكان الخلايا المخفية بناء على عامل التصفية فهل من طريقة لجعل الكود يطبع النطاق بالصورة التي تتم وفق خيارات إكسل الافتراضية . SUB PRINT1() FOR I = 2 TO 100 IF RANGE ("A"&I) = "" THEN IF RANGE ("A"&I-1) <>"" THEN RANGE("A1":"P"&1) .PRINTOUT END IF END IF NEXT I END SUB

ليس بالضرورة إن تكون الدالة Aggregate فالدالة Subtotal تفي بالغرض . مشكورون على عونكم سلفاً

السلام عليكم لقد قمت بكتابة الكود الآتي بغرض إضافة الدالة aggregate في أول حقل خالٍ من البيانات بغرض تغير المجموع مع عامل التصفية و مع إضافة البيانات إلا أنه لم يعمل بالصورة المناسبة فلم يتعرف العامل المنطقي <> كما أنني لم أتمكن من جعل الصفيف في الدالة ينتهي عند الحقل الممتلئ الأخير : Sub aggre() Application.ScreenUpdating = False On Error Resume Next For i = 3 To 100 If Range("b" & i).Value = "" Then If Range("b" & i - 1).Value <> "" Or Range("b" & i - 1).Value <> "= aggregate(9,7,b1:b & i)" Then ' لم يستجب الرنامج لـ <> Range("b" & i + 1) = "= aggregate(9,7,b1:b&i)"' لم أستطع كتابة الكود بالصورة المناسبة التي يقف فيها الصفيف عند الخلية الممتلئة الأخيرة End If End If Next i Application.ScreenUpdating = True End Sub بالنسبة للجزئية الأولى لم يتعرف البرنامج لعامل المنطقي <> حتى مع عدم كتابة الدالة aggregate .شكراً لكم و كلي أمل بمساعدتكم

بارك الله بك و بجهدك الطيب كل عام و أنت بخير

إن شاء الله صياماً مقبولاً في بعض الحالات تتعطل الأكواد عند تحويل القاعدة إلى Accde mde و على الأغلب بسبب وجود أكواد فارغة و عند القيام بعملية Compile او حذف الاكواد الفارغة تعمل الأزرار و بقية الأوامر . و قد واجهت هذه المشكلة قبلاً حتى وجدت الحل في موقع أجنبي .

مرحباً تماماً هو المقصود أستاذ @kanory عند استخدام ملف من نوع Accde mde تظهر مشكلة الأكواد و على وجه الخصوص الأزرار المنفذة بواسطة vb فقد لا تعمل عند تشغيل قاعدة البيانات أو في بعض الأحيان عند تشغيلها على إصدار مختلف . كنت أرجو أن أعرف نوع قاعدة البيانات فقد توصلت لحل هذه المشكلة التي واجهتني عند تحويل قاعدة البيانات إلى Accde و الذي لن يساعد بمعالجة وضع القاعدة الحالية و لكن مع إعادة تحويلها و القيام بالإجراء المطلوب يمكن أن يجدي نفعاً .

هل هذا الملف MDE ? هل صممت الأزرار بالماكرو أم VB?

عمل أكثر من رائع شكراً للسائل و للمجيب

مساء الخير كيف تغلبت على ثغرة الشفت و تعطيل الماكرو ؟

على الرحب و السعة

هي ثوابت في المعادلة لتتمكن من الحصول على المجال المطلوب أي إذا أدخلت الرقم ٥ فستكون الخلية هي A ( 35) و إذا أدخلت الرقم 10 فستكون الخلية A ( 65) عبارة عن معادلة حسابية بسيطة للغاية و قد وضعها المبرمج بناء على تصميم الجدول الذي يحتوي البيانات فكل مجموعة من الخلايا تشكل سجلاً مستقلاً . أرجوأن تكون الفكرة قد اتضحت .

هي معادلة رياضية لحساب الصف الذي ترغب بجلب بياناته و عرضها في صفحة الكشوف حيث تقوم بتسجيل الرقم الذي عرفته بالمتغير v في الخلية p1 و الذي يبدو أنه رقم السجل و تقوم المعادلة باحتساب المجال الذي ترغب بجلب البيانات منه بالكامل

الملف يعمل جيداً ويعتبر وجود أي رقم في حقل السداد أن العميل قد سدد المبلغ فقد ربطت ورقة التقرير بورقة "السداد" فقط و لذلك أذهب إلى رأي الأخ @هاني محمد اجعل الأسماء كلها في ورقة واحدة و لتكن ورقة السداد و سيعمل الملف على ما يرام

بارك الله بك @ali mohamed ali عمل رائع

السلام عليكم لقد ظهر سبب المشكلة و هو أن الحاسب لدي بعكس المفترض في الملف فالأسماء باللغة العربية و عند عكس الأري أو حذفها اختفى الخطأ

في البداية عرف جملة من المتغيرات أي حدد لرمز وضعه نوعاً و ذلك لتوفير استهلاك الذاكرة الآن حدد ماهية كل من الرموز التي ذكرها حدد الشروط التالية : إذا كان v غير رقمي أو خالياً أو أكبر من ٤ امحُ محتويات المجال الذي يبدأبالخلية B14 و يمتد ٦ صفوف و ٤ أعمدة ثم أنهِ الكود . إذا لم تتحقق الشروط إذا اجعل قيمة المتغير r = (v * 6) + 5 و اجعل R رقم الصف للخلية A في الورقة S واجعل قيمة المجال b14 الممتد لأربعة أعمدة و ستة صفوف و الموجود في الورقة t مساوياً للقيم في المجال A و امتداده أي رحل من المجال A و امتداده إلى B و امتداده ثم End sub و التي تعني إغلاق الكود .

السلام عليكم حدد اسم الخلية في الصيغة ثم اضغط F4 أعد الضغط بحال أردت تغيير نمط التثبيت أو بطريقة ثانية ضع إشارة الدولار إلى يسار الحرف لتثبيت العمود أو إلى يسار الرقم إذا أردت تثبيت الصف أو ضع كليهما إذا أردت تثبيت الخلية . إشارة الدولار Shift + 8

شكراً لكم و سلمت يداك مبدع بما للكلمة من معنى

السلام عليكم كيف يمكن عمل نافذتين منسدلتين بناء على نفس النطاق و لكن لا تظهر القيمة التي اخترناها في إحداهما ضمن الأخرى مثلاً : لدي قائمتين منسدلتين لأيام الأسبوع عند اختيار يوم من الأسبوع في إحداهما لا يظهر في خيارات النافذة المنسدلة الثانية . و كل عام و أنتم بخير

بسم الله ما شاء الله إكسل و أكسس و إبداع في كليهما

و عليكم السلام أخي الفاضل كيف يمكن معرفة وجود فيروس في الملف ؟ هل يظهر على صورة كود في محرر الفيجوال ؟ لقد حملت ملف الروزنامة و أيام ٢٩-٢ و قد أعطاني خطأ N/A و يبدو أنه قد ظهر لدي فقط فهل هذا فيروس في جهازي ؟

عمل متقن بارك الله بك

السلام عليكم آمل أن يكون هذا المطلوب اضافة اسم المادة11.7z

سلمت يداك . و هدية قيمة بمعنى الكلمة و بانتظار التحديثات و الإضافات .

السلام عليكم بعد الاطلاع على هذا العمل المهم لم أجد ما أضيفه سوى هذا الكود الصغير الذي بحثت عنه طويلاً و وجدته منذ ساعة خلت على أحد المواقع الأجنبية قبل أن يرفع المنشور بالتعليق السابق و هو كود لملء الشاشة بنطاق محدد من الأعمدة بحيث لا يتغير التنسيق بتغير الحواسيب . Range("a1:d1").Select ActiveWindow.Zoom = True 'يجب تسمية الأعمدة باسم خلية في العمود المطلوب و يمكن استخدام اسم نطاق بدلاً من عنوان الخلايا Cells address .