كل الانشطه

عزيزى الفاضل شكرا لحضرتك لكن انا اعرف اعمل دة انا كنت بحلم بقائمة منسدلة مثل قوائم file _ Edit حاجة كدة احترافية تزيد جمال للبرنامج

مشكور استاذ @باحطاب جزلك الله خير ولي لمسة بسيطة .أما (One Button) أو (Two Buttons) طالع المرفق . DDTest550.rar

السلام عليكم ورحمه الله وبركاته لو سمحتوا يا أخوة ممكن التعديل على هذا الكود بدون TEXT BOX تكون بفلتر الأكسيل العادي عند الخلية (H2) الفقرة التى باللون الأخضر PASS : 1122 ولكم جزيل الشكر Private Sub TextBox2_Change() If TextBox2 = "" Then AutoFilterMode = False Else Range("H1").AutoFilter , field:=8, Criteria1:=TextBox2.Text 'Right(TextBox2.Text, Len(TextBox2.Text)) & "*" Dim X X = Application.Match(Val(TextBox2), ورقة3.Columns(4), 0) If Not IsError(X) Then With ورقة3.Cells(X, "B") .Value = ورقة1.Cells(1, "I").Value .Interior.ColorIndex = 30 'From 1 to 56 لون الخلفيه .Font.ColorIndex = 20 'From 1 to 56 لون الخط End With End If End If End Sub MD.xlsm

مشكور، طريقة أخرى لإظهار الجدول وإخفائهHideTable.accdb

صباح الخير هو انا والله مش شخص اعتمادى بس اللى مش بلاقيه في الفيديوهات ربنا بيبعتلي حد مثل حضرتك يساعدني فيه ولا يضيع الله اجر من احسن عملا هو انا كنت محتاج اعمل زر طباعه للفورم em عندما اختار اسم من الاسماء المسجله ويظهر بياناته اطبعها او حتي اشرحلى اعمله ازاي وانا انفذ مثل ماتقول وشكرا

مشكور استاذ @باحطاب جزلك الله خير .

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي جرب هدا (تم اظافة ورقة جديدة مخفية على الملف باسم PDF لتجميع الفواتير اظن ان مدى بيانات الفاتورة غير مطابق لما كتبته هنا ادا لم اكن مخطئ Sub svPDF() Dim MyRng As Range, r As Long, i As Integer, LR As Long Dim fRow, Cpt As Range, FndRng As Range, myValue As String Dim sFile As String, FolderName As String Set desWS = Sheet79: Set WS = PDF Set MyRng = desWS.[BW330:CK372] minDate = Format(desWS.[DC330], "yyyy-mm-dd"): maxDate = Format(desWS.[CV330], "yyyy-mm-dd") 'قم بتحديد مسار حفظ الملف بما يناسبك 'Path = "C:" ' المسار الافتراضي للملف الرئيسي Path = Application.ActiveWorkbook.Path 'اسم الملف المستخرج sFile = minDate & " " & "الفواتير من" & " " & maxDate & " " & "الى" ' اسم مجلد الحفظ FolderName = "raed": 'شرط فواصل الصفحات myValue = "اجمالى الواصل" If Len(desWS.[CA328].Value) = 0 Then Exit Sub Application.ScreenUpdating = False On Error Resume Next WS.Visible = xlSheetVisible: WS.Cells.Clear For i = desWS.[CA328] To desWS.[CE328]: desWS.[BU331].Value = i With ActiveWorkbook sPath = Path & Application.PathSeparator & FolderName & Application.PathSeparator If Len(Dir(sPath, vbDirectory)) = 0 Then End If MkDir sPath MyRng.Copy LR = WS.Cells(Rows.Count, "j").End(xlUp).Row + 4 With WS.Range("A" & LR) .PasteSpecial xlPasteValues: .PasteSpecial xlPasteFormats Application.CutCopyMode = False End With End With Next i With WS fRow = .Range("a:o").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Set FndRng = .Range("j10:j" & fRow) Set Cpt = FndRng.Find(What:=myValue, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext) If Not Cpt Is Nothing Then: Linge = Cpt.Address Do If Not Cpt Is Nothing Then: Cpt.Offset(2).PageBreak = xlPageBreakManual Set Cpt = FndRng.FindNext(Cpt) If Cpt Is Nothing Then: Exit Do If Cpt.Address = Linge Then: Exit Do Loop WS.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1 End With WS.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & Application.PathSeparator & sFile & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False WS.Visible = xlSheetVeryHidden On Error GoTo 0 Application.ScreenUpdating = True End Sub Book2.xls

بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته طبعا انا مسجل من فترة طويلة والصراحة منتدى مبدع واستفدت كثير وطرق كثيرة و استاذة كبار المنتدى حبيت اشارك بهذا الموضوع البسيط والكثير يبحث عنة وإن شاء الله اكون عند حسن الظن اخفاء الجداول و اظهارها على زر اظهار و اخفاء بكل بساطة ووضعت لكم الاكواد مع شرحها زر اخفاء الجداول اسم الزر ( HideTables ) كود الزر Dim db As DAO.Database Dim tbl As DAO.TableDef Set db = CurrentDb ' قم بتحديد الجداول التي ترغب في إخفائها ' يمكنك تكرار هذا السطر لإضافة المزيد من الجداول Set tbl = db.TableDefs("اسم_الجدول") ' قم بتعيين خاصية Hidden للجدول إلى True لإخفائه tbl.Attributes = dbHiddenObject ' أغلق قاعدة البيانات db.Close Set tbl = Nothing Set db = Nothing كود زر اظهار الجداول اسم الزر ( ShowTables ) Dim db As DAO.Database Dim tbl As DAO.TableDef Set db = CurrentDb ' قم بتحديد الجداول التي ترغب في إظهارها ' يمكنك تكرار هذا السطر لإضافة المزيد من الجداول Set tbl = db.TableDefs("اسم_الجدول") ' قم بتعيين خاصية Hidden للجدول إلى False لإظهاره tbl.Attributes = tbl.Attributes And Not dbHiddenObject ' أغلق قاعدة البيانات db.Close Set tbl = Nothing Set db = Nothing ودمتم سالمين باحطاب سوفت

السلام عليكم ورحمة الله وبركاته .. اريد انشاء كود يسمح بنقل البيانات بين شيت اسمه mian الي شيت اخر اسمه items وقد سبق و قدم الاخ الفاضل أحمد عبد الحليم المساعدة في ذلك كما هو موضح في الفايل المسمي 2 . ولكن ارغب في زيادة تفصيله اخري وهي تقسيم خانه المبلغ B3 الي خانتين مصنعيات وخامات كما هو موضح في الفايل المسمي 1 وتكون القاعدة انه اذا كان البيان يحتوي علي "م." في اوله مثال علي ذلك "م.دفعة 1 مصنعية البنا" يدرج هذا البند في خانه المصنعيات وإن كان لا يحتوي علي ذلك يدرجها في خانة الخامات . شكراً جزيلاً . 2.xlsm 1.xlsm

أبدعت معلمنا الفاضل @ابوخليل 🤝 جميل جداً الكود ، صريح جداً ويفي بالغرض 🥰

وعليكم السلام ورحمة الله وبركاته تفضل أخي ميزان مراجعة 2023.xlsx

مشاركة مع الاخوة الكرام : time2: Format([time1];"hh" & ":" & "mm" & ":" & "ss")

اريد ان افصل الارقام عن الاحرف الارقام تكون في خلية لوحدها فصل الارقام عن الاحرف.xlsx

شكر وتقدير واحترام من اخيك

الدقة: 1366*768

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

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

تفضل استاذ @Foksh محاولتي حسب مافهمت ............. طالع بالاستعلام الحقلان (TB,TT) . DDTimeTest.rar

تفضل عمي @Foksh 🙂 : Replace(Replace(Format(Time, "hh:mm:ssAM/PM"), "PM", ""), "AM", "") والنتيجة :

السلام عليكم .. وكل عام وحضراتكم بالف خير وصحة وعافية لقد بحث فى المنتدى كثيرا وهناك مواضيع مشابه لمثل هذا الموضوع إلا اننى لم اتمكن من تطبيقه على ملفى حيث فى الملف المرفق به كود يقوم بانشاء عدد من ملفات pdf كل ملف ياخذ اسم الخلية cc332 بعدد الارقام الموجود من الخلية ca328 حتى الخلية ce328 بداخل فولدر باسم raed ويجب انشاؤه قبل تنفيذ الماكرو ومدى الملف من be330 : ck372 المطلوب : تجميع الفواتير هذه فى ملف واحد ياخذ اسم محتوى الخلية bx328 (برجاء جعل التاريخ يظهر بهيئة يوم / شهر / سنة وليس كما بالخلية ) والكود نفسه يقوم بانشاء فولدر لهذا الملف تقبلوا تحياتى Book2.xls

السلام عليكم أعضاء وأساتذة ومعلمي منتدانا الرائع حاولت كثيراً وبحثت كثيراً ( ويبدو أنني كنت أبحث على سطح كوكب زحل ) عن إجابة لسؤالي . على سبيل المثال لعرض الوقت في مربع نص ( بعد تحديد قيمة TimerInterval طبعاً ) ، أعتقد أن هناك 3 أشكال لتنسيق الوقت كما يلي :- Txt_Time = Format(Now(), "hh:mm:ss Am/Pm") لعرض الوقت بالتنسيق التالي 07:07:07 Pm = مساءً 07:07:07 Am = صباحاً Txt_Time = Format(Now(), "hh:mm Am/Pm") لعرض الوقت بالتنسيق التالي 07:07 Pm = مساءً 07:07 Am = صباحاً Txt_Time = Format(Now(), "hh:mm:ss") لعرض الوقت بالتنسيق التالي 19:07:07 = مساءً 07:07:07 = صباحاً المطلوب عرض الوقت بتنسيق 12 ساعة دون ظهور AM/PM . يعني بهذا التنسيق :- 07:07:07 = مساءً 07:07:07 = صباحاً فهل يمكن تحقيق ذلك ؟

تفضل استاذ @jo_2010 محاولتي حسب ما فهمت .ووافني بالرد . JO_Par-1.rar

هو ليس فعلاً السبب ، ولكن قمت باستخدام Maximize عند فتح التقرير ، جرب الدخول باليوزر وأخبرني الجمعية التعاونية.zip

Private Sub MajInventaire() Dim v As Integer With Worksheets("Inventaire") lgD = .Cells(Rows.Count, 1).End(xlUp).Row + 1 For v = 0 To ListBox1.ListCount - 1 With .Cells(lgD, 3) If flgAdd = 0 Then .Offset(, -2) = ListBox1.List(v, 1) 'Code article .Offset(, -1) = ListBox1.List(v, 4) 'Catégorie .Offset(, 2) = ListBox1.List(v, 5) 'Seuil d'alerte .Offset(, 3) = ListBox1.List(v, 6) 'Descriptif .Offset(, 4) = ListBox1.List(v, 7) 'Référence .Offset(, 5) = ListBox1.List(v, 8) 'Unité de mesure .Offset(, 6) = "Transfert" 'Observations .Offset(, 9) = ComboBox2 'Magasin QD = Val(.Value) + QT: .Value = QD 'Stock actuel Else .Offset(, 7) = .Offset(, 7) + ListBox1.List(v, 9) End If lgT = lgT + 1 End With .Protect Next v End With End Sub صباح الخير هل يمكنكم مساعدتى الكود الذى ادرجتة لايعمل معى الكمية لاتخصم من شيت Inventaire ما الأخطاء فى هذا الكود copy-of-copy-of-quantite-transferee-4.xlsm

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