Hamdi Edlbi-khalf

السلام عليكم شكراً جزيلاً على مشاركتك و التي سأطبقها حتماً و يبدو أن السؤال قد جاءني بمعلومة قيمة جديدة . لكن المشكلة التي دعتني لهذا السؤال : أن لدي ورقة فيها خلايا مؤمنة و أخرى غير مؤمنة . في الخلايا المؤمنة هناك معادلات تعتمد على تلك الغير مؤمنة . و عند نقل هذه الخلايا الغير مؤمنة عن طريق الخطأ يظهر خطأ في المؤمنة Reference لذلك أبحث عن طريقة لمنع نقل محتويات الخلية إن أمكن .

السلام عليكم هل من طريقة لمنع إمكانية قَص الخلايا أو نقل محتوياتها بالسحب و الإفلات و بنفس الوقت يمكن التسجيل في هذه الخلية و ذلك ضمن نطاق نحدده ؟ و شكراً لكم

عمل فني و قناة رائعة بوركت بوركت

هذا المطلوب تنفيذ المكرووو.rar

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

السلام عليكم المصطلحات التي ذكرتها هي عبارةعن الحسابات الختامية و التي يكون رصيدها هو ناتج إجمالي الحركات إن ربحاً أو خسارة. يرتبط حساب الأرباح عند وجود سلعة مادية بمراقبة المخازن ، لعلاقته الوطيدة مع سياسة التسعير المتبعة و التالف و المرتجعات( مردودات المبيع و الشراء و المسموحات ) . هناك نظامان للجرد مستمر و دوري ( نهائي) في النوع الأول تحتسب الأرباح فور عملية البيع و لاحاجة لجرد آخر المدة و في الثاني لا بد من الجرد و بعدها يتم احتساب الأرباح و الخسائر . ولتبسيط المسألة ، إليك نقطتين أساسيتين يمكن أن تكونا مرتكز اً أثناء البحث فالموضوع متشعب جداً و لايمكن الإحاطة به في منشور أو حتى عشرة بل يحتاج إلى دورة محاسبة. : أولاً - اعتمد سياسة لتسعير المواد : فعند شراء مادة لا بد من تسعيرها للمبيع وخاصة إذا تم الشراء على فترات و بأسعار مختلفة و هناك عدة طرق للتسعير ثانياً - البيع آجل أم نقدي وهنا عليك فتح سجل للذمم تبين فيه الوفاء بالأقساط و هو أمر ضروري لحساب الصندوق و النقدية في نهاية المدة موقع مميز لدراسة المحاسبة

عمل أنيق و سؤال أنيق أعجبني السؤال و الإجابة شكراً لكم أخواني @ابو زاهر @Shivan Rekany @صالح حمادي

مربعات مرتبطة.accdb

لقد تم الأمر بحمد الله بعد الاستئناس بفكرة ملف إكسل من الأستاذ @سليم حاصبيا و تحويلها إلى أكسس و لكن في مربعات سرد و حوار غير منضمة شكراً لكم على ما تقدمونه .

المكتبة غير موجودة لديك Missing

To add a reference to a library: Open the database./ افتح قاعدة البيانات Press ALT+F11 to start Visual Basic Editor./ اضغط alt + f4 On the Tools menu, click References./ في tools اضغط على reference Under Available References, click to select the check box next to the name of the library, and then click OK./ اختر المكتبة المطلوبة

السلام عليكم هل توجد طريقة لعمل مربعي سر و حوار عند اختيار قيمة في أحدهما لا تطهر في الآخر مثلاً مربع سرد و حوار يتضمن أيام الأسبوع عند اختيار يوم ما و ليكن. السبت فعند البحث بالمربع الآخر فتظهر أيام الأسبوع في الاختيارات دون يوم السبت . و لكم جزيل الشكر .

متابع ... تابعتكم رحمات الله

Sub Print_NonBlank_Rows() 'Updateby Extendoffice 20160704 Dim xStr As String Dim xRg As Range Dim xHideRg As Range Dim xTxt As String Dim I As Long On Error Resume Next If ActiveWindow.RangeSelection.Count > 1 Then xTxt = ActiveWindow.RangeSelection.AddressLocal Else xTxt = ActiveSheet.UsedRange.AddressLocal End If Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8) If xRg Is Nothing Then Exit Sub Application.ScreenUpdating = False For I = 1 To xRg.Rows.Count If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then If xHideRg Is Nothing Then Set xHideRg = xRg.Rows(I) Else Set xHideRg = Union(xHideRg, xRg.Rows(I)) End If End If Next xHideRg.EntireRow.Hidden = True ActiveSheet.PrintOut Copies:=1 xHideRg.EntireRow.Hidden = False Application.ScreenUpdating = True End Sub طباعة نطاق دون الخلايا الفارغة هذا طلبك على ما أعتقد كل عام و أنتم بخير

أحسنت أحسن الله إليك

ربما عليك تفعيل الماكرو من الشريط الأصفر الذي يظهر أعلى الورقة بالضغط على تمكين الماكرو أو Enable macros و في حال لم يظهر لديك الشريط ادخل إلى أعدادات مركز التوثيق أو Trust center و قم بتمكين الماكرو

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

لقد جربت الكود لدي و قد عمل ؟!!!

السلام عليكم لا يمكن حماية الإكسل أو الأكسس أو أي من برامج مجموعة اوفيس عن طريق أوامر الفيجوال لأنك بمجرد تعطيل الماكرو ستنتهي الحماية . الوسيلة الرئيسية هي تحويل الملف إلى ملف تنفيذي و لا أدري إذا كانت مناسبة في كثير من الأحيان فعند تحويل الملف لن يتمكن أحد من التعديل عليه و منهم المبرمج . و لكن في الإكسل ميزة حقيقة مفتقدة في الأكسس و هي كلمة السر . كل ما عليك القيام به وضع كلمة سر للصفحة و للأوامر و ربما هو كل ما تستطيعه

مبدئياً الكود يحتوي تسميات غير موجودة في البرنامج أعتقد أنه بحاجة إلى إعادة كتابة .

Sub Macro01() a = MsgBox("åá ÊÑíÏ ØÈÇÚÉ ÇáÇä ¿", vbYesNo + vbQuestion, "ØÈÇÚÉ") ' ÇÐ ÇÎÊÑÊ áÇ ÇÑíÏ ÇáØÈÇÚÉ ÇáÕÍíÍ ÇáßæÏ íÞÝ æíáÛí ÇáÊäÝíÐ åäÇ If a = vbNo Then ' هنا تمت إضافة اختيار no Exit Sub End If If a = vbYes Then With ActiveSheet Dim Numcop As Integer Numcop = Application.InputBox("ÃÏÎá ÚÏÏ ÇáäÓÎ ááØÈÇÚÉ:", "ßã ÚÏÏ ÇáäÓÎ?", 1, Type:=1) If Numcop = 0 Then ElseIf Len(Numcop) > 0 Then End If ActiveWindow.SelectedSheets.PrintOut copies:=Numcop 'ÇÐ ÇÎÊÑÊ áÇ ÇÑíÏ ÇáØÈÇÚÉ ÚÏÏ ÇáÕÍíÍ ÇáßæÏ íÞÝ æíáÛí ÇáÊäÝíÐ ßÐÇáß åäÇ End With End If Dim X3 As Long, X4 As Long X3 = Sheets("DATA").Range("a1000").End(xlUp).Row + 1 X4 = Sheets("aaa").Range("B24").End(xlUp).Row Sheets("DATA").Range("B" & X3).Resize(X4 - 5, 21) = Sheets("aaa").Range("B6").Resize(X4 - 5, 21).Value End Sub أرجو أن يكون هذا التعديل المطلوب كل عام و أنت بخير

مساء الخير لقد جربت أمر الطباعة على أوفيس ٢٠١٠ و قد أدى المطلوب تماماً . يبدو أن المشكلة مع أوفيس ٢٠١٦ الذي يكرر الكود لعدة مرات و يطبع عدة صفحات فارغة و من ثم يطبع النطاق كما يفترض

شكراً لك لقد وجدت الحل المناسب . فالدالة Sum لا تؤدي المطلوب و خاصة أثناء التصفية فالمطلوب تغير المجموع . لذلك لجأت إلى Aggregate أو Subtotal و قد تمكنت من عمل الأمر المناسب لذلك شكراً لك مرة أخرى و سأجرب الكود الذي قدمته متفضلاً و كل عام و أنت بخير

بالرغم من كثرة الأوامر الخاصة بالطباعة لكن المشكلة بقيت كما هي ؟!!

ما أبحث عنه أمر فيجوال يكتب معادلة Subtotal او Aggregate في السطر بعد الأخير من الأسطر الممتلئة بمجرد الضغط على زر أو عند الحدث بحيث أستطيع الحصول على المجاميع مع تغيير عامل التصفية و شكراً مجدداً