نجوم المشاركات

وعليكم السلام ورحمة الله تعالى وبركاته تطبيق على مثالك =IF(AND(A1>=1;A1<=20);1;IF(AND(A1>=21;A1<=31);2;""))

ادن جرب الكود التالي ربما يؤدي المطلوب Sub test() Dim WS As Worksheet: Set WS = ActiveSheet Dim pages As Integer pages = WS.Range("C10") With WS .PageSetup.PrintArea = "$B$2:$D$7" .PrintOut Copies:=pages, Collate:=True End With End Sub نموذج طباعة 3.xlsm

بسم الله والحمد لله ولا اله الا الله والله اكبر الحمد لله رب العالمين الحمد الله الذى تتم بنعمته الصالحات شكر وتقدير لكل معلمينا فى هذا الصرح الشامخ على وجه العموم وشكر خاص لكل من المعلمين [ ابو خليل , جعفر , يوسف , رمهان , ابا عمر , رضوان , عبد الرحمن هاشم , ابو الاء , علي المصري , راعى الغنم , اخر الارض ] على وجه الخصوص واختص اصحاب البرامج اومن قدم يد العون والمساعده فى تطويرها والاضافة اليها نظام المستخدمين الخاص بالاستاذ مهند العبادى تعديل العبد الفقير الى الله اضافة التحكم بالعناصر لكل مستخدم ضمن نظام المستخدمين الاستاذ ابو خليل تصغير القاعدة بجوار الساعه مع الاحتفاظ بأيقونة الاكسس عند التكبير على شريط المهام وعدم ظهور الاطار عند الضغط عليها الاستاذ ناصر - تعديل الاستاذ ابا عمر البحث والفلترة وتظليل ناتج البحث ---- الأستاذ رمهان والاستاذ اباعمر اخفاء اطار الاكس نهائيا - الاستاذ ابا عمر http://im56.gulfup.com/0Q9Ybe.jpg اهاا نسيت شئ اسم كل مستخدم هو نفسه الباسورد لفتح القاعده المرفق بعد تعديل عناوين الراوبط ليشمل كل من تنسيق اوفيس 2000-2003 Access Loge in Hide Win2000-2003.rar وتـــــــــنسيق اوفيس 2007-2013 Access Loge in Hide Win 2007-2013.rar << تم تحديث الروابط (الإدارة) >>

اتفضل ممكن تدينى افضل اجابه 😜😄 120.accdb

هو فعلا لا يعمل على نظام اوفيس 64 BIT ولكن يعمل على اى نظام ويندوس يعنى كل المشكلة انك تحمل اكسس 32 BIT حتى لو باقى الاوفيس 64 وكمان لو الويندوس 64

أحسنت أخي الفاضل حسونة حسين جعله الله في ميزان حسناتك وذادك من فضله وعلمه

تفضل أخي @صلاح3 طلبك بعد التعديل جرب ووافني بالرد اذا كان هذ طلبك لا تنسى الضغط على أفضل اجابة . DD432-1.rar

تم تحديث المرفقات في المشاركة الأساسية 🙂

بعد اذن استاذي @عمر ضاحى تفضل الملف بما قام به الأستاذ vdata.accdb

السلام عليكم ورحمة الله وبركاته استخدم المعادلة التالية =IF(G2>1,(F2*0.012),IF(G2>0.9,((G2*F2)*0.01),IF(G2>0.8,(F2*0.009),IF(G2>0.75,((G2*F2)*0.01),IF(G2>0.7,(F2*0.0075),IF(G2>0.65,((G2*F2)*0.01),IF(G2>0.6,(F2*0.0065),IF(G2>0.5,((G2*F2)*0.01),0)))))))) ملاحظة : هناك خطأ في تكوين قاعدة الاحتساب بين الشريحتين التاليتين: بداية من 80% حتى 84.99 % يستحق 90% من ال 1% بداية من 90% حتى 99.99% يستحق نفس النسبة المحققة من ال 1% والصحيح أن تكون نهاية الشريحة هو بداية الشريحة التالية ، وهو ما قمت بتعديله في المعادلة إجتهادا مني (حتى 89.99%) نصيحة .. حاول تستخدم قاعدة أبسط لاحتساب العمولات للتيسير عليك وعلى العاملين معك. معادلة حساب عمولة بشروط نسب المحققات (1).xlsx

السلام عليكم ورحمه الله

بالرغم انني لا اعلم عن طريقة اشتغالك على الملف لاكن اليك طريقة اخرى ربما تفيدك الطريقة كالتالي https://streamable.com/1kukv8 Public Property Get Sh_Print() As Worksheet: Set Sh_Print = Sheet1 End Property Public Property Get Sh_Table() As Worksheet: Set Sh_Table = Sheet2 End Property Sub To_print() TbPage = Sh_Table.[Tb_MiseEnPage] NbMax = UBound(TbPage) Cpt = Application.InputBox(Prompt:=" المرجوا ادخال رقم الستيكر المرغوب طباعتها (من 0 الى " & NbMax & ")", Title:="طباعة", Type:=1) Cpt = Int(Cpt) If Cpt < 1 Then Exit Sub If Cpt > NbMax Then: MsgBox "اخر سكيرت على الملف هي :" & " " & NbMax, vbOKOnly + vbInformation + vbDefaultButton1 + vbApplicationModal, "تنبيه": Exit Sub With Sh_Print .PageSetup.PrintArea = "" For i = 1 To Cpt With .PageSetup .PrintArea = TbPage(i, 7) & ":" & TbPage(i, 8) Copies = TbPage(i, 6) If Copies < 1 Then Copies = 1 .FitToPagesWide = 1 .FitToPagesTall = 1 End With Next End With Sh_Print.PrintOut Copies:=Copies End Sub نموذج طباعة.xlsm

اخي العزيز اذا كنت تقصد ان البيانات الناتجة عن الفلترة اذا كانت اكثر من صفحة واحدة وتريد طباعتها في صفحة واحدة ربما هذا الملف قيه الحل 'طباعة حسب البيانات1.xlsm

فقط مجرد احتمال على العموم وفقنا الله واياكم لما يحب ويرضى كود جميل ومختصر .شكرا لك

جرب هدا على ما اظن بعد تعيين حدود الطباعة بالشكل الدي يناسبك Sub test() ActiveSheet.PrintOut Copies:=ActiveSheet.Range("c10").Value, IgnorePrintAreas:=False End Sub

وعليكم السلام ورحمه الله وبركاته تفضل اخي هانى Unique.xlsb

اليك الحل .... بالطبع أنا لم أضف عن ما قاله أستاذنا الكبير / محمد صالح الشرح داخل الملف المصنف2.xlsx

يمكن بطرق كثيرة اسهلها البحث والاستبدال CTRL+H ثم تكتب في مربع البحث العملة ومربع الاستبدال يترك فارغا ثم استبدال الكل replace all بالتوفيق

الف شكر

controller@ free ppl.xlsm

جميل جدا أخي الفاضل @حسونة حسين هذا العمل إبداع وهذه مساهمتي للبحث في موضوعات منتدى الاكسل ولكن في مجال الويب حتى يمكن البحث بسرعة بمجرد الكتابة ولو في الموبايل بدون الحاجة إلى برنامج الأوفيس https://officena.net/team/mas/excel.html بالتوفيق للجميع دعواتكم

عفوا يا جماعة ، الخطأ مني 😪 استعملوا هذا السطر Source_File_Path = Me.Parent!pate & "\" & Me.name_morfke . يعني كودي في اول مشاركة يصبح بعد التعديل : Private Sub name_morfke_Click() Dim Source_File_Path As String, Destination_File_Path As String Source_File_Path = me.parent!pate & "\" & Me.name_morfke Destination_File_Path = Environ("Temp") & "\" & Me.name_morfke FileCopy Source_File_Path, Destination_File_Path Application.FollowHyperlink (Destination_File_Path) EcryptDcryptImage (Destination_File_Path) End Sub Private Sub Form_Close() On Error Resume Next Dim Srst As DAO.Recordset Set Srst = Me.RecordsetClone Do Until Srst.EOF Kill Environ("Temp") & "\" & Srst!name_morfke Srst.MoveNext Loop End Sub . واليكم المرفق وبه التعديلات السابقة والاخيرة والجديدة 🙂 جعفر Archiving_Encripted_Attachment.zip

وعليكم السلام ورحمة الله وبركاته هذه الوظيفة تشفر الصورة بنقرة ، وبالنقرة الثانية تفك التشفير يمكنك ادراجها عند جلب الصور وكذلك عند عرضها المهم ان تضعها في مكانها المناسب Private Sub zer1_Click() EcryptDcryptImage ([CurrentProject].[Path] & "\image1" & ".jpg") End Sub Public Sub EcryptDcryptImage(sFileSpec As String) Dim iFle As Long Dim iByteCount As Long Dim i As Long Dim ii As Byte iFle = FreeFile Open sFileSpec For Binary As iFle iByteCount = LOF(iFle) For i = 1 To iByteCount Get iFle, i, ii ii = ii Xor &HFF Put iFle, i, ii Next i Close iFle If UCase$(Right$(sFileSpec, 1)) = "." Then Name sFileSpec As Left$(sFileSpec, Len(sFileSpec) - 1) Else Name sFileSpec As sFileSpec & "." End If End Sub

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

استاذى الجليل @د.كاف يار اطلب منكم على النظر فى هذا المرفق والرجوع الى بعد التجربة مسح ضوئى لاى عدد من الاوراق دون الاعتماد على اى برامج خارجية والتحويل الى pdf Scan With ms Access ADF.zip

السلام عليكم فورم ادخال و تعديل وبحث باستخدام اسم نطاق للقائمة المنسدلة هو تفس الفورم السابق ولكن تم تغيير طريقة ادخال القائمة المنسدلة لاي عمود في الفورم تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة وايضا تم تجاوز بعض الاخطاء في الفورم السابق شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في الورقة الواحدة او في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" المرفق 2003 [فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة.rar الاصدار الثالث: http://www.officena.net/ib/index.php?showtopic=51955

تحية طيبة في المرفقات ملف اكسل يحتوي على كود يعمل على استدعاء السكانر ( الماسح الضوئي ) داخل الاكسل لمسح صورة معينة وحفظها على الجهاز هل يمكن التعديل على الكود بحيث يمكننا من تحديد مكان الحفظ على الجهاز وتحديد الاسم الذي ستحفظ فيه الصورة على الجهاز حيث ان الكود يعمل فقط على استدعاء السكانر وباقي الأمور تتم يدويا جزاكم الله خيرا scan2Excel1111.rar

و مع تقبل احترامى _ فى حالة عدم الطباعه مع وجود شريط تمرير _ هل ممكن تصدير البيانات المستخرجه لصفحه جديده لأمكان طباعتها بطريقه مبسطه شاهد المرفق 2010 المرضى المزمنين++.rar

السلام عليكم مرحبا بك أخي الكريم بين إخوانك الأحسن كنت ترسل نموذج من عملك لكن هدية تعارف عملت لك نموذج ، لتراجعه وترسل ملاحظاتك أو ترسل نموذج من عملك لتسهيل عمل من يريد المساعدة تفضل المرفق تعبئة الآلية للخلايا.rar

مرفق بسيط لضرب الفئة فى القيمة و الحصول علي المجموع الاجمالي Product.rar