Hamdi Edlbi-khalf

هذا المطلوب تنفيذ المكرووو.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 في السطر بعد الأخير من الأسطر الممتلئة بمجرد الضغط على زر أو عند الحدث بحيث أستطيع الحصول على المجاميع مع تغيير عامل التصفية و شكراً مجدداً

السلام عليكم لقد قمت سابقاً بكتابة هذا الأمر لطباعة نطاق من الخلايا الممتلئة و قد أدى الكود الغرض المطلوب و لكن عند التصفية فإنه يطبع الملف كاملاً مع صفحات بيضاء مكان الخلايا المخفية بناء على عامل التصفية فهل من طريقة لجعل الكود يطبع النطاق بالصورة التي تتم وفق خيارات إكسل الافتراضية . 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 .شكراً لكم و كلي أمل بمساعدتكم