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

هذا لتحويل القيمة السالبة الى موجبة ....... بارك الله فيك

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

الماكرو المطلوب Option Explicit Sub Plese_Go() Dim mY_rg As Range Dim I%, k%, x%, m% If ActiveSheet.FilterMode = True Then ActiveSheet.Range("Table2").AutoFilter End If Range("Table2").Columns(3).ClearContents ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=4, Criteria1:= _ "FP" Set mY_rg = Range("Table2").Columns(3).SpecialCells(xlCellTypeVisible) x = mY_rg.Areas.Count For k = 1 To x For I = 1 To mY_rg.Areas(x).Rows.Count mY_rg.Areas(k).Rows(I) = m + 1 m = m + 1 Next Next ActiveSheet.Range("Table2").AutoFilter End Sub الملف مرفق ادخال بياناتNew.xlsm

يعمل البرنامج ولا يحتاج تحديث انظر الصورة من جهازي ..... هذا طبيعي لأن الجدول مفتوح .........

المرفق المرسل لك هل جربته ... يعمل المطلوب

انظر المرفق ......... المبيعات.accdb

مطلوبك غير مفهوم ............ اي الحقول المكررة ...... وماهو الهدف لربما نجد لك حلا ...... وضح المطلوب بالتفصيل ,,,,,

اذا كان عندتا مجموعة من الارقام من واحد الى N ) N من اختيارك ) و يجب توزيع هذه الأرقام على جدول من M عامود ( M من اختيارك ابضاً) انظر الى الملف المرفق لمعرفة كيف يقوم الاكسل بفعل هذا الشيء الكود Option Explicit Sub CreateNumbers(rg As String, col_num As Long, max_num As Long) Dim n As Long Dim My_row As Long Dim My_col As Long ActiveSheet.Cells(6, 1).CurrentRegion.Clear For n = 0 To max_num - 1 My_row = n \ col_num My_col = n Mod col_num ActiveSheet.Range(rg).Offset(My_row, My_col) = n + 1 Next n End Sub '============================================== Sub give_numbers() Call CreateNumbers(Cells(6, 1).Address, [b2], [c2]) End Sub الملف مرفق Num_table.xlsm

شكرا لك اخى الكريم @kanory هذا هو المطلوب فعلا وبالظبط ولكن لي استفسار هذا الكود انا افهمه جيدا kanory: Sum(Abs([CODING])) ولكن ما لا افهمه هو هذا Abs

تفضل ....... AA2003.mdb

هذا ملف اعددته عندما رايت المشاركة لكني انشغلت ولم اتمكن من ارساله وقتها وعندما اكملته وجدت الاستاذ علي محمد قد كفى ووفى جزاه الله خيرا وارفق الملف للاطلاع قائمة الحجز.xlsx

أحسنت استاذ سليم ملف ممتاز جعله الله فى ميزان حسناتك

شكرااااا جزيلا الكود شغال زي الفل بارك الله فيك

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

خطأ بسيط في الكود تمت المعالحة Option Explicit Sub Plese_Go() Dim mY_rg As Range Dim I%, k%, x%, m% If ActiveSheet.FilterMode = True Then ActiveSheet.Range("Table2").AutoFilter End If Range("Table2").Columns(3).ClearContents ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=4, Criteria1:= _ "FP" Set mY_rg = Range("Table2").Columns(3).SpecialCells(xlCellTypeVisible) x = mY_rg.Areas.Count For k = 1 To x For I = 1 To mY_rg.Areas(k).Rows.Count mY_rg.Areas(k).Rows(I) = m + 1 m = m + 1 Next Next ActiveSheet.Range("Table2").AutoFilter End Sub الملف ادخال بياناتNew_1.xlsm

السلام عليكم ورحمة الله وبركاته،،، بعد الانتهاء من الكتابة على الوورد، اختار بحث استبدال، وفي خانة البحث ضع مسافتين (الضغط على المسطرة مرتين)، وفي خانة الاستبدال ضع مسافة واحدة (الضغط على المسطرة مرة واحدة)، في هذه الحالة سيقوم الوورد باستبدال كل مسافتين بمسافة واحدة، وسيتم توحيد كل المسافات بين الكلمات. دمتم بخير

جرب وضع هذا السطر في معيار عمود الحقل ... ان ضبط معك والا اعمل برأي الاستاذ رمهان Left(text1];1)="A" And Len([text1])="6" باعتبار text1 هو اسم الحقل ويساوي 6 باعتبار حرف A خارج الحسبة

وجزاكم بالمثل أخي الكريم يكون تحديد أكثر من عنصر With ActiveSheet.Shapes.Range(Array("Rectangle 2", "Oval 3", "Rectangle 1")) بدلا من With ActiveSheet.Shapes("Oval 1")

تفضل اخي اليك التعديل حساب العميل.accdb

الملف بعد التعديل لمن يرغب بعمل رقم تسجيل متغير .. بمعنى ان العميل عندما يرسل لك رقم النسخة يجب عليه ان يدخل رقم تفعيل البرنامج نفس اليوم لان رقم التفعيل سوف يتغير فيما بعد ارجو من الاخوة تجربة المرفق count-sec(with date) new.mdb

عليك بتعديل اعدادات اللغة لديك بالدخول الى لوحة التحكم Control Panel ثم بعد ذلك Region and language ثم change system Local وانظر الى الصور

السلام عليكم اتبع مايلي وستحل مشكلتك بإذن الله:ابحث عم مقابلات الأسماء حسب اللغة التي عندك بالنسبة لي الفرنسية افتح محرر الأكواد ثم اضغط على: outils options format de l'éditeur في police ضع:Courier New (Arabe) ثم OK

أخي الكريم يمكن عمل كود لتحريك الغير ظاهر امامك لكي يظهر لك في أول الصفحة Sub Movshps() Dim R As Range Set R = Range("C2:E10") With ActiveSheet.Shapes("Oval 1") .Top = R.Top .Left = R.Left End With End Sub لاحظ انني وضعت اسم الشيبس التي اريد تحريكها وهي هنا Oval 1 ويمكن ايضا ان تغير الاسم سواء زرار أو شيبس يعني ممكن تستبدلها ب Button 1 مثلا

السلام عليكم ورحمة الله وبركاته بعد المعادلة المهندس / عبد السلام هذا لإثراء الموضوع لإدراج الصنف أيضا بمعادلة وأن لا يتعدى عدد ظهور الصنف بمقدار المراد توزيعه New Microsoft Excel Worksheet (10).xlsx

مساء الخير اخي رمهان اسعدني رؤيت اسمك كثيرا شكراً لك على هذا الكود الرائع والذي نجح معي بشكل كبير ، والشكر موصول الى اخي الوزير على معلوماته القيمة اكرر شكري لكم وللمنتدى الرائع الذي ساعدنا في اثراء معلوماتنا وعلى بناء برامج خاصة بنا تحياتي اخوكم عمار

شكرا استاذي@ابو ياسين المشولي كما قلت اعاده ربط استاذي الكريم@أبو آدم الان بقيه الطلبات الاسترداد و مشكله التراكم للنسخ اشكرك على سعه صدرك وتحملك لنا بارك الله فيك وجزاك الله خير

بطريقة أستاذي محمد صالح calc.rar

بارك الله لكم جميعا إخوتي وبعد إذن أخونا رجب يمكن اختصار الكود إلى هذه الجملة Shell "calc" وتعني استدعاء الحاسبة بغض النظر عن مسارها المذكور في مثال الأخ أبو حنين لأنه يختلف من نظام تشغيل إلى آخر ومن مستخدم لآخر حسب القرص المثبت عليه نظام التشغيل وفقنا الله وإياكم لكل ما يحب ويرضى

أخي : الشهابي أخي : محمد السيد الشاطر .................. لكما جزيل الشكر

الاخ الفاضل ابو حنين الاخ الفاضل رجب جاويش الاخ الفاضل الشهابى لكم منى جزيل الشكر والامتنان وجزاكم الله خيرا على سرعة الاستجابة

أخى الحبيب / الشهابى شكرا جزيلا على هذا المرور العطر وجزاك الله كل خير

الأستاذان القديران / أبو حنين ورجب جاويش طريقتان مختلفتان رائعتان أحسنتما وجزاكم الله خير

أخى الحبيب / أبو حنين والله هذا يدل على الألفة والمودة بيننا ربنا يديم المحبة لوجهه تعالى أخوك / رجب جاويش

السلام عليكم سبحان الله اخي رجب يبدو اننا أرسلنا الملف في نفس الوقت

أخى الفاضل جرب هذا الكود show_calc.rar

السلام عليكم تفضل اخي الحاسبة.rar

آنا آسف لقد نسيت الموضوع - اذا كان عندنا على النموذج عدة مربعات تشيك بوكس و نريد معرفة عددها , نضع على النموذج مربع نص وليكن اسمه Count ثم نضع الكود التالي على النموذج Private Sub Form_Current() Dim ctl As Control Dim i As long i=0 For Each ctl In Me.Controls If ctl.ControlType = acCheckBox Then i = i + 1 Next ctl me.count=i end sub أما اذا كان لدينا حقل واحد تشيك بوكس check1 و نريد معرفة عدد السجلات الصح فيها count=dcount("check1","MyTABLE","CHECK1=-1") و هذا يعطي عدد السجلات الصح في هذا الحقل و آسف مره أخرى على التأخير تحياتي