بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
كل الانشطه
- الساعة الأخيرة
-
عزيزى الفاضل شكرا لحضرتك لكن انا اعرف اعمل دة انا كنت بحلم بقائمة منسدلة مثل قوائم file _ Edit حاجة كدة احترافية تزيد جمال للبرنامج
-
كود زر اخفاء الجداول و اظهارها على زر اظهار و اخفاء بكل بساطة
kkhalifa1960 replied to باحطاب's topic in قسم الأكسيس Access
مشكور استاذ @باحطاب جزلك الله خير ولي لمسة بسيطة .أما (One Button) أو (Two Buttons) طالع المرفق . DDTest550.rar -
so00os started following ترحيل تلقائي بدون TEXTBOX
-
السلام عليكم ورحمه الله وبركاته لو سمحتوا يا أخوة ممكن التعديل على هذا الكود بدون 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
- Today
-
كود زر اخفاء الجداول و اظهارها على زر اظهار و اخفاء بكل بساطة
Lover Karo replied to باحطاب's topic in قسم الأكسيس Access
مشكور، طريقة أخرى لإظهار الجدول وإخفائهHideTable.accdb -
اريد عمل تقرير طباعه للشخص اللى اريد البحث عنه فقط
sief122 replied to sief122's topic in قسم الأكسيس Access
صباح الخير هو انا والله مش شخص اعتمادى بس اللى مش بلاقيه في الفيديوهات ربنا بيبعتلي حد مثل حضرتك يساعدني فيه ولا يضيع الله اجر من احسن عملا هو انا كنت محتاج اعمل زر طباعه للفورم em عندما اختار اسم من الاسماء المسجله ويظهر بياناته اطبعها او حتي اشرحلى اعمله ازاي وانا انفذ مثل ماتقول وشكرا -
kkhalifa1960 started following كود زر اخفاء الجداول و اظهارها على زر اظهار و اخفاء بكل بساطة
-
كود زر اخفاء الجداول و اظهارها على زر اظهار و اخفاء بكل بساطة
kkhalifa1960 replied to باحطاب's topic in قسم الأكسيس Access
مشكور استاذ @باحطاب جزلك الله خير . -
وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي جرب هدا (تم اظافة ورقة جديدة مخفية على الملف باسم 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
- Yesterday
-
بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته طبعا انا مسجل من فترة طويلة والصراحة منتدى مبدع واستفدت كثير وطرق كثيرة و استاذة كبار المنتدى حبيت اشارك بهذا الموضوع البسيط والكثير يبحث عنة وإن شاء الله اكون عند حسن الظن اخفاء الجداول و اظهارها على زر اظهار و اخفاء بكل بساطة ووضعت لكم الاكواد مع شرحها زر اخفاء الجداول اسم الزر ( 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
-
hr_sherif joined the community
-
أبدعت معلمنا الفاضل @ابوخليل 🤝 جميل جداً الكود ، صريح جداً ويفي بالغرض 🥰
-
وعليكم السلام ورحمة الله وبركاته تفضل أخي ميزان مراجعة 2023.xlsx
- 1 reply
-
- 1
-
ابوخليل started following عرض الوقت بتنسيق محدد
-
مشاركة مع الاخوة الكرام : time2: Format([time1];"hh" & ":" & "mm" & ":" & "ss")
-
هاوي اكسل started following فصل الارقام عن الاحرف
-
-
شكر وتقدير واحترام من اخيك
-
الباحث الباحث joined the community
-
اريد عمل تقرير طباعه للشخص اللى اريد البحث عنه فقط
sief122 replied to sief122's topic in قسم الأكسيس Access
ماشاء الله وبارك الله في حضرتك وجازاك الله خير مافعلت احسن عملا -
حيلة جميلة ، أبدعت مهندسنا موسى عمل جميل أستاذ خليفة ، فكرة جميلة لا أريد إحباط المعنويات ، على العكس فالأفكار جميلة وقد جربت فكرة الأستاذ موسى سابقاً ، ولكن في مشروعي الجديد هناك العديد من صيغ الوقت في مكونات النموذج والـ VBA .
-
kkhalifa1960 started following عرض الوقت بتنسيق محدد
-
تفضل استاذ @Foksh محاولتي حسب مافهمت ............. طالع بالاستعلام الحقلان (TB,TT) . DDTimeTest.rar
-
Moosak started following عرض الوقت بتنسيق محدد
-
-
السلام عليكم .. وكل عام وحضراتكم بالف خير وصحة وعافية لقد بحث فى المنتدى كثيرا وهناك مواضيع مشابه لمثل هذا الموضوع إلا اننى لم اتمكن من تطبيقه على ملفى حيث فى الملف المرفق به كود يقوم بانشاء عدد من ملفات pdf كل ملف ياخذ اسم الخلية cc332 بعدد الارقام الموجود من الخلية ca328 حتى الخلية ce328 بداخل فولدر باسم raed ويجب انشاؤه قبل تنفيذ الماكرو ومدى الملف من be330 : ck372 المطلوب : تجميع الفواتير هذه فى ملف واحد ياخذ اسم محتوى الخلية bx328 (برجاء جعل التاريخ يظهر بهيئة يوم / شهر / سنة وليس كما بالخلية ) والكود نفسه يقوم بانشاء فولدر لهذا الملف تقبلوا تحياتى Book2.xls
-
Foksh started following عرض الوقت بتنسيق محدد
-
السلام عليكم أعضاء وأساتذة ومعلمي منتدانا الرائع حاولت كثيراً وبحثت كثيراً ( ويبدو أنني كنت أبحث على سطح كوكب زحل ) عن إجابة لسؤالي . على سبيل المثال لعرض الوقت في مربع نص ( بعد تحديد قيمة 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 = صباحاً فهل يمكن تحقيق ذلك ؟
-
kkhalifa1960 started following نموذج منسدل او قائمة
-
تفضل استاذ @jo_2010 محاولتي حسب ما فهمت .ووافني بالرد . JO_Par-1.rar
-
اريد عمل تقرير طباعه للشخص اللى اريد البحث عنه فقط
Foksh replied to sief122's topic in قسم الأكسيس Access
هو ليس فعلاً السبب ، ولكن قمت باستخدام 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
-
اريد عمل تقرير طباعه للشخص اللى اريد البحث عنه فقط
sief122 replied to sief122's topic in قسم الأكسيس Access
والله انا خبرتي قليلة واحتياجي للبرنامج في عملى هو اللي خلانى اشاهد انواع مختلفه من الفيديوهات مع مساعدة حضرتكم لحد ماوصلت للشكل دة ودة مرضي بالنسبه ليا وبحمد ربنا علي مساعدته ليا انه يبعتلي حد زي حضرتكم ليساعدونى على اتمام عملى بس انا للاسف الاوفيس اللي عندى 2019 فقط ولو حضرتك ربنا وفقك وقدرت تحل المشكله يبقي بارك الله فيك ولو لم تستطع يبقي كتر خيرك علي المحاوله وربنا يجازيك خير مافعلت وشكرا