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

تمام .. اعتقد يفي بالغرض اي لمسات فنية تريدها على الأداة اكتب لي هنا .. سوف اساعدك على قدر علمي

بسيطة -طالما انك تريد طباعة الصفحة الأولى من شيت report فعليك بهذا الكود , وهذا بالفعل ما تريد الذى يخص صفحة بعينها من الملف Sub PrintAllFirstPage() Dim xWs As Worksheet Set xWs = Sheets("report") xWs.PrintOut from:=1, To:=1 End Sub

اذا فهمت عنك فأنت بحاجة الى وضع اللون في حدث التركيز ولونا اخر في حدث ذهاب التركيز TreeView2.SelectedItem.BackColor = 16777215 الرقم هذا يعني اللون الابيض DB4.mdb

ولو قمت بالبحث لوجدت ما تريد -تفضل , طبعاً بعد اذن الأستاذ عبد الفتاح ولإثراء الموضوع -فهذا حل اخر بالمعادلات عند فصل الإسم العربى فى خلية اخرى اذا كانت الخلية المتضمنة الإسم العربى والإنجليزى هى A2 , فيمكنك استخدام معادلة المصفوفة بالخلية B2 (Ctrl+Shift+Enter) =MID(A2,MATCH(1,IF(CODE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))>=192,1),0),255) اما بالنسبة للإسم الإنجليزى فيكون بهذه المعادلة داخل الخلية C2 كما بالملف =TRIM(LEFT(A2,LEN(A2)-LEN(B2))) فصل الكلمات العربية عن الانجليزية Seperate Mix Text.xlsm

وعليكم السلام-تم اضافة و تجربة الكود على الطابعة ويعمل كما تريد Option Explicit Sub PrintFirstPage() Dim sh As Worksheet For Each sh In Sheets sh.PrintOut 1, 1, 1, , , , True, , False Next sh End Sub وهذا ايضاً كود اخر حتى يكون لديك عدة اختيارات وعدة بدائل Sub PrintAllFirstPage() 'Update 20140924 Dim xWs As Worksheet For Each xWs In Application.ActiveWorkbook.Worksheets xWs.PrintOut from:=1, To:=1 Next End Sub Print First Page Only.xlsm

وعليكم السلام انظر الصورة .... ادخل رقما مكان السهم بدلا من الرقم الموجود ثم انتقل بزر TAB ولاحظ الترقيم فردي.accdb

اليكم برنامج دول وعواصم اوربا - اسيا - امريكا الشمالية - امريكا الجنوبية https://top4top.io/downloadf-16358l24f1-rar.html وهذا رابط اخر على ميديا فاير دول وعواصم اوربا - اسيا - امريكا الشمالية - امريكا الجنوبية ارجو ان ينال اعجابكم

وعليكم السلام انظر المرفق ...... Fill_Dates.mdb

اخونا حكمت حفظك الله ووفقك لو ارفقت مثالا صغيرا بالجدولين ووضعت فيهما البيانات المناسبة ، وبينت ما تريد من خلال البيانات الموجودة ، فمن المؤكد ستجد استجابة سريعة وحل لمشكلتك

الاساتذة العمالقة شكر وتقدير وكامل الاحترام من اخيكم

جرب هذا الملف Option Explicit Sub Get_Str() Dim My_Sheet As Worksheet Dim My_Regex As Object Dim K As Byte, La%, t%, st$ Set My_Sheet = Sheets("Sheet1") Set My_Regex = CreateObject("VBScript.RegExp") My_Regex.Global = True With My_Sheet La = .Cells(Rows.Count, 1).End(3).Row .Range("C2").CurrentRegion.ClearContents For K = 3 To 4 My_Regex.Pattern = _ IIf(K = 4, "[\u0621-\u064A]+", "\w+") For t = 1 To La If My_Regex.test(.Range("A" & t)) Then st = My_Regex.Replace(.Range("A" & t), "") .Cells(t, K) = Trim(st) End If Next t st = "" Next K End With Set My_Regex = Nothing End Sub الملف مرفق ReGex_Kaddour_1.xlsm

فى الشريط المعادلات بجانبه مربع صغير بالاعلى تجد به الاسم زر1 اعمل عليه سيلكت بالموس واكتب الاسم الذى تريده واضغط انتر احترامى

استخدمت هذا الكود Private Sub TreeView2_GotFocus() On Error Resume Next TreeView2.SelectedItem.BackColor = 16777215 TreeView2.SelectedItem.ForeColor = 0 End Sub

اتفضل اخى جرب ووافنى بالنتيجه Private Sub الوظيفـة_BeforeUpdate(Cancel As Integer) x = Trim(DLookup("الوظيفـة", "البيانات", "[الوظيفـة] = 1 and [اسم المدرسة]='" & [اسم المدرسة] & "'")) y = Me.الوظيفـة.Column(0) If x = y Then MsgBox "هذه الوظيفه تم تسجيلها من قبل لهذه المدرسه" DoCmd.CancelEvent Else End If End Sub المدرسه.accdb

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

بما انك لم ترفق ملف لعلك تستفيد من هذا الملف Sub split() Dim first As String, second As Integer, i As Integer For i = 1 To 7 first = Cells(i, 1).Value second = InStr(first, ",") Cells(i, 2).Value = Mid(first, second + 2) Cells(i, 3).Value = Left(first, second - 1) Next i End Sub SPLIT ‫‬.xlsm

بس كده الفرز على النموذج بس مش الاستعلام شاهد المرفق XX.accdb

السلام عليكم الطريقة لعمل ذلك هي كتابة او تسجيل ماكرو و الاسهل طبعا التسجيل ، فقط بتسجيل ماكرو و قم بتنفيذ اوامر الطباعة كما تريدها، ثم اوقف التسجيل و بعد ذلك يمكنك تشغيل الماكرو لاعاد تنفيذ الأمر و للتسجيل اذهب الي قائمة المطور Developer

تم معالجة الأمر (بدون عامل القسمة) ABO_AZz NEW.xlsx

تالموضوع يتعلق بقسمة العددين (قسمة هذين العددين تطعي عدد الصفوف المطلوبة) مثلاُ 25 قسمة تعطي 12.5 ولا يوجد 12 صف ونصف الصف اما الموضع الثاني ارفع الملف للمعاينة مع شرح المطلوب

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم جرب الكود التالي م = DCount("[الاسم]"; "[كشف يالاسماء]"; "[الاسم] >='" & me.الاسم & "'") تحياتي

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق بعد التعديل على المعادلات... Microsoft Excel Worksheet جديد.xlsx

وفيك بارك الله اخى محمد ولا يهمك اخى كلنا نخطئ ونتعلم من اخطائنا بالتوفيق اخوانى

وعليكم السلام اتفضل اخى الفاضل @ameer.iraq.93 ملحوظه : يجب عدم استعمال الغه العربيه فى تسميه الحقول والجداول يمكنك استخدام اللغه العربيه فالتسميه التوضيحيه للحقل من خصائص الحقل كما يجب عدم استخدام مسافات فالتسميه واستخدام حرف كبير او علامه _ الشرطه السفليه جرب ووافنا بالنتيجه Private Sub الوظيفـة_BeforeUpdate(Cancel As Integer) If Me.الوظيفـة.Column(1) = "مدير مدرسة" Then MsgBox "هذه الوظيفه تم تسجيلها من قبل" Me.Undo End If End Sub بالتوفيق المدرسة.accdb

وعليكم السلام بعد اذن الاستاد سليم ربما تقصد هذا Sub test() ActiveCell.Offset(, 1).Select End Sub

شكرا جزيلا لك اخ @ابو تراب على هذا الإبداع اكيد ساستفيد منه في مشروعي بإذن الله وسادعو لك بالخير بظهر الغيب 🌹🌹

تمام انا كنت اعتقد ان عدد الغرف فى السعر-سيتم التعديل حالا تفضل ملف الشركة التعديل الثاني2.xlsm

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

تفضل ملف الشركة التعديل الثاني.xlsm

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

بارك الله فيكم واحسن الله اليكم

بارك الله فيك شوف انت عايز تعمل ايه وصمم الملف وسوف تلقى المساعدة ان شاء الله

تفضل لك ما طلبت بعد عمل التعديلات المطلوبة للملف لسهولة التعامل والمرونة 1ملف الشركة.xlsm