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

السلام عليكم إخواني الكرام إليكم الملف المرفق فيه نبذة عن المصفوفات .. أرجو من الله أن ينفع به المسلمين Arrays.rar

السلام عليكم ورحمة الله وبركاته الدرس العاشر 10-InputBox صندوق الإدخال تستخدم InputBox كوسيله لادخال البيانات او للتحقق من بيانات معينه وللتعرف على كيفية استخدامها لابد لنا من التعرف على محتواها InputBox("القيمه الافتراضيه", "العنوان", "النص") مثال على كيفية استخدامها فى ادخال البيانات نريد ادخال اسم hima فى الخليه A3 عن طريق InputBox سيكون شكل الكود كالاتى Sub InputBox_() Dim hima As String 'hima متغير من نوع النصوص hima = InputBox("النص", "العنوان", "hima") ' InputBoxقيمة himaاعطاء المتغير Range("a3") = hima 'InputBox اى himaتساوى قيمة المتغير a3 هنا نقول ان الخليه End If End Sub مثال على كيفية استخدامها فى التحقق من البيانات نريد ادخال اسم hima فى الخليه A3 عن طريق InputBox ونريد ان تظهر لناInputBox نقوم بادخال باسوورد123 كشرط لادخال لظهور InputBox اخرى يتم استخدامها فى ادخال البيانات ولعمل ذلك قم بكتابة الكود الاتى Sub InputBox_1() Dim h As Integer h = 123 'hima متغير من نوع النصوص hima = InputBox("ادخل الرقم السرى", "العنوان") If IsNull(hima) Or hima = "" Then GoTo xx ' xxفى حالة الفراغ يتم الذهاب الى If h = hima Then ' hفى حالة تساوى القيمة المدخله مع المتغير hima1 = InputBox("النص", "العنوان") Range("a3") = hima1 'InputBox اى himaتساوى قيمة المتغير a3 هنا نقول ان الخليه Else xx: MsgBox "كلمة مرور غير صحيحة" & Chr(13) & " الرجاء اعادة ادخال كلمة المرور ", vbOKOnly End If End Sub اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى learnvba.rar

أخي الكريم أبو عبد الملك إليك الكود بعد التعديل عله يفي بالغرض (يرجى مراجعة النتائج جيداً ...لأنني لم اختبر الكود بشكل كافي) Sub FollowAll() Dim I As Long, lRow As Long Dim rngFound As Range, Answer Dim wsRecord As Worksheet, wsMonthly As Worksheet, SH As Worksheet Set wsRecord = Sheets("معلومات التسجيل"): Set wsMonthly = Sheets("مجمع النتائج الشهرية"): Set SH = Sheets("كشف متابعة") With Application .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual End With With wsRecord If MsgBox("هل تريد طباعة كل كشوف الطلبة أم تريد أن تختار طالب معين؟", vbYesNo + vbMsgBoxRtlReading) = vbYes Then For I = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If Not IsEmpty(.Cells(I, "N")) Then If MsgBox("الطالب " & .Cells(I, "C") & " منقطع هل تود أن تطبع له كشف?", vbYesNo + vbMsgBoxRtlReading) = vbYes Then GoTo Continue Else End If Else Continue: SH.Range("C1") = .Cells(I, "C") SH.Range("C4") = .Cells(I, "B") SH.Range("C5") = .Cells(I, "A") SH.Range("R5") = .Cells(I, "Q") Set rngFound = wsMonthly.Columns("C:C").Find(What:=.Cells(I, "C"), searchorder:=xlByRows, searchdirection:=xlPrevious) If Not rngFound Is Nothing Then lRow = rngFound.Row If wsMonthly.Cells(lRow, "R") >= 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "N"): SH.Range("S4") = wsMonthly.Cells(lRow, "O") ElseIf wsMonthly.Cells(lRow, "R") < 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "L"): SH.Range("S4") = wsMonthly.Cells(lRow, "M") Else MsgBox "لا يوجد درجة للطالب " & .Cells(I, "C"), vbCritical End If End If SH.Range("C2").Formula = "=IF(" & SH.Range("R4").Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & SH.Range("R4").Address & ",QNames,0)),الحلقات!$F$2:$F$6,الحلقات!$B$2:$B$6))" SH.Range("C3").Formula = "=IF(" & SH.Range("R4").Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & SH.Range("R4").Address & ",QNames,0)),الحلقات!$F$2:$F$6,الحلقات!$D$2:$D$6))" SH.Range("C2:C3").Value = SH.Range("C2:C3").Value Call CalculateLinesOfRevision SH.PrintPreview End If Next I Else Answer = Application.InputBox("أدخل رقم الطالب بناءً على ورقة معلومات التسجيل", "Input", 1) SH.Range("C1") = .Cells(Answer + 1, "C") SH.Range("C4") = .Cells(Answer + 1, "B") SH.Range("C5") = .Cells(Answer + 1, "A") SH.Range("R5") = .Cells(Answer + 1, "Q") Set rngFound = wsMonthly.Columns("C:C").Find(What:=.Cells(Answer + 1, "C"), searchorder:=xlByRows, searchdirection:=xlPrevious) If Not rngFound Is Nothing Then lRow = rngFound.Row If wsMonthly.Cells(lRow, "R") >= 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "N"): SH.Range("S4") = wsMonthly.Cells(lRow, "O") ElseIf wsMonthly.Cells(lRow, "R") < 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "L"): SH.Range("S4") = wsMonthly.Cells(lRow, "M") Else MsgBox "لا يوجد درجة للطالب " & .Cells(Answer + 1, "C"), vbCritical End If End If SH.Range("C2").Formula = "=IF(" & SH.Range("R4").Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & SH.Range("R4").Address & ",QNames,0)),الحلقات!$F$2:$F$6,الحلقات!$B$2:$B$6))" SH.Range("C3").Formula = "=IF(" & SH.Range("R4").Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & SH.Range("R4").Address & ",QNames,0)),الحلقات!$F$2:$F$6,الحلقات!$D$2:$D$6))" SH.Range("C2:C3").Value = SH.Range("C2:C3").Value Call CalculateLinesOfRevision SH.PrintPreview End If End With With Application .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic End With End Sub Private Sub CalculateLinesOfRevision() Dim SH As Worksheet, wsMnhg As Worksheet Dim LRCur As Long, I As Long, II As Long, N As Long, Counter As Long, P As Long Dim rngA As Range, rngB As Range, rngC As Range, rngD As Range Dim X, Y, Z Set SH = Sheets("كشف متابعة"): Set wsMnhg = Sheets("المنهج") With wsMnhg LRCur = .Cells(Rows.Count, 1).End(xlUp).Row Set rngA = .Range("A2:A" & LRCur): Set rngB = .Range("B2:B" & LRCur) Set rngC = .Range("C2:C" & LRCur): Set rngD = .Range("D2:D" & LRCur) SH.Range("Q11:Q34").ClearContents X = ValueLookUp(rngB, SH.Cells(4, "R").Value, rngC, rngD, SH.Cells(4, "S").Value, rngA) If X <= 24 Then For I = 2 To X + 1 SH.Cells(N + 11, "Q") = .Cells(I, "B") & " " & .Cells(I, "C") & " - " & .Cells(I, "B") & " " & .Cells(I, "D") N = N + 1 Next I Else Y = Application.WorksheetFunction.Ceiling(X / 24, 1) For I = 2 To X + 1 Step Y SH.Cells(N + 11, "Q") = .Cells(I, "B") & " " & .Cells(I, "C") & " - " & .Cells(I + Y - 1, "B") & " " & .Cells(I + Y - 1, "D") N = N + 1 Counter = Counter + Y If Y >= X - I Then Exit For Next I If X - Counter > 0 Then SH.Cells(N + 11, "Q") = .Cells(I + Y, "B") & " " & .Cells(I + Y, "C") & " - " & .Cells(X + 1, "B") & " " & .Cells(X + 1, "D") End If SH.Range("O11:O34").ClearContents Z = X - 24 If Z > 0 Then SH.Range("O11:O34") = .Cells(Z, "B") & " " & .Cells(Z, "D") & " - " & SH.Range("R4") & " " & SH.Range("S4") SH.Range("M11:M34,I11:I34,G11:G34").ClearContents P = 1 For II = 11 To 34 SH.Range("M" & II) = .Cells(X + P, "B") & " " & .Cells(X + P, "C") & " - " & .Cells(X + P, "D") SH.Range("I" & II) = .Cells(X + P + 1, "B") & " " & .Cells(X + P + 1, "C") & " - " & .Cells(X + P + 1, "D") SH.Range("G" & II) = .Cells(X + P + 1, "B") & " " & .Cells(X + P + 1, "C") & " - " & .Cells(X + P + 6, "B") & .Cells(X + P + 6, "D") P = P + 1 Next II SH.Range("M11:M34").Copy SH.Range("K11") End With End Sub

أخي الكريم أهلاً ومرحباً بك بين إخوانك بالمنتدي نتمنى قضاء أمتع الأوقات مع إخوانك وأحبابك يرجى تغيير اسم الظهور للغة العربية لمعرفة مزيد من التفاصيل يرجى الإطلاع على رابط التوجيهات في الموضوعات المثبتة بالمنتدى إليك الملف المرفق عله يفي بالغرض تم إنشاء عدد 2 مربع نصوص TextBox ActiveX Controls تم وضع الكود بهذا الشكل في حدث تغير مربعات النصوص ليؤدي الغرض Private Sub TextBox1_Change() Range("A6:E6").AutoFilter Field:=2, VisibleDropdown:=False Range("A6:E6").AutoFilter Field:=2, Criteria1:="=*" & TextBox1 & "*" End Sub Private Sub TextBox2_Change() Range("A6:E6").AutoFilter Field:=1, VisibleDropdown:=False Range("A6:E6").AutoFilter Field:=1, Criteria1:="=*" & TextBox2 & "*" End Sub Phone Directory.rar

أخي الكريم فضل 1 (أرجو أن تغير رقم 1 في اسم الظهور بلقبك ..) بالنسبة لطلبك ..جرب الدالة المعرفة التالية ... Function IsCountGTE(ByVal Rng As Range) Dim Cnt As Long Dim Data As Variant Dim Item As Variant Application.Volatile Data = Rng.Value If Application.WorksheetFunction.CountIf(Rng, "غ") = 0 Then IsCountGTE = "": Exit Function For Each Item In Data If IsEmpty(Item) Then Cnt = 0 ElseIf Item = "غ" Then Cnt = Cnt + 1 End If If Cnt = 5 Then IsCountGTE = "متتالي" Exit Function End If Next Item IsCountGTE = "غير متتالي" End Function وإليك الملف المرفق يوضح كيفية استخدامها Count Contiguous Cells Only.rar

أشكرك أخى الكريم الأستاذ ياسر خليل على الرد السريع والرائع جزاك الله خيرا ومليار حمد الله على سلامتك

أخي الكريم أحمد مرجان بدايةً يوجد مشكلة بالملف أن العمليات الحسابية يدوي .. قم بالذهاب للتبويب Formulas ثم Caculation Options ثم اختر Automatic طبعاً أنا لم أراجع المعادلة ولكني استنتجت أن هناك خطأ في المدخلات .. قمت بعمل معادلة كالتالي في الخلية N8 ثم سحبها عبر الصف =CLEAN(TRIM(N3)) لكي أقوم بحذف المسافات الزائدة إن وجدت ثم قمت بوضع معادلة أخرى في الخلية N10 ثم سحبها عبر الصف =IF(EXACT(N3,N8),"","Wrong") ثم نظرت في الصف العاشر فوجدت كلمة Wrong في الخلية BO10 فعلمت أن هناك مشكلة في الخلية BO3 .. قم بعمل مسح للخلية من خلال تحديد الخلية ثم الضغط على مفتاح Delete لحذف المحتويات في الخلية . ستجد أن الناتج هو 20 كما توقعت أرجو أن يكون المطلوب

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

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

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

اخي وعليكم السلام اطلع على المرفق فية حل سريع وفكرة بسيطة لعله يحل لك المشكلة تحياتي متتالى وغير متتالى.rar

رائع أخى ياسر العربى نورت المنتدى كدا إسم ياسر بقى منور المنتدى باكثر من عضو وعلى رأسهم الأستاذ القدير / ياسر خليل حفظه الله

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

الله ينور تمام جداا كده تسلم ايدك

تفضل اخي هل يفي هذا بالغرض اضغط انتر بعد فتح الفورم واحد سيظهر الفورم اتنين اضغط الزر يظهر الفريم تفعيل الأختصارات في أوامر الفورم.rar

أخي الحبيب يرجى تغيير اسم الظهور للغة العربية إليك الكود التالي عله يفي بالغرض Sub ExportSpecificSheets() Dim ArrSheetToCopy, I As Long If MsgBox("هل تريد نسخ أوراق العمل المحددة إلى مصنف جديد؟", vbYesNo, "NewCopy") = vbNo Then Exit Sub ArrSheetToCopy = Array("التحويل", "المستبعدين") Application.ScreenUpdating = False Application.DisplayAlerts = False With Workbooks.Add For I = (.Sheets.Count + 1) To (UBound(ArrSheetToCopy) + 1) .Sheets.Add Next I For I = 0 To UBound(ArrSheetToCopy) ThisWorkbook.Sheets(ArrSheetToCopy(I)).Cells.Copy With .Sheets(I + 1) .Cells.PasteSpecial xlPasteAll .Cells.Copy .Cells.PasteSpecial xlPasteValues .Name = ThisWorkbook.Sheets(ArrSheetToCopy(I)).Name .DisplayRightToLeft = False .Select: .Range("A1").Select End With Next I .SaveAs ThisWorkbook.Path & "\" & Sheet2.Name & ".xlsm", xlOpenXMLWorkbookMacroEnabled .Close End With Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub إليك الملف المرفق عله يكون المطلوب تقبل تحياتي Test This File.rar

أخي الحبيب ياسر اعذرني لم ألحظ التغيير الذي تم في الملف .. بارك الله فيك على الإضافة الرائعة

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

أخي الحبيب ياسر العربي لم أقصد أبداً التقليل من شأن الكود الذي قدمته .. على العكس الكود أكثر دقة في التعامل مع البيانات الموجودة من حيث تحديد آخر صف به بيانات إنما قصدت أنه يمكن الوصول لنفس الحل بكود أيسر عموماً في كلٍ خير وننتظر تجربة الأخ السائل للكود عسى أن يجد الحل في الأكواد التي قدمت له تقبل وافر تقديري واحترامي يا أبو أسيل

تفضل استاذي الفاضل Private Sub Workbook_Open() Dim a As Range Set a = ActiveCell.SpecialCells(xlLastCell) Private Sub Workbook_Open() Dim a As Range Set a = ActiveCell.SpecialCells(xlLastCell) If a.Address = Range("a1").Address Then Application.Goto a, True Else If a = "" Then r = a.Row c = a.End(xlToLeft).Column Application.Goto Cells(r, c), True Else Application.Goto a, True End If End If End Sub لن يعطيك خطأ بعد الان واعتقد بأنه يريد الذهاب لاخر خلية فيها بيانات فلا جدوى من الذهاب لاخر خلية محددة علما ان اكسل يفتح عندها مباشرة عند انتهاء العمل وعمل حفظ للملف لك كل الاحترام الله يبارك فيك نشرت الحل ولم اجده اعتقد السبب سوء الانترنت عندي وشكرا كتير الك الله يبارك فيك فكتبته مرة ثانية الان وان شاء الله يكون مافيه مشاكل مع انه ممكن تبسيطه اكثر بس الانترنت ينزع المزاج هههههههه الله يعطيكم العافية واكرر شكري لك

اخي محمد اعتقد انه يجب وضع شرط الا تكون الخلية المعنية في أول عامود (و اذ ا كانت كذلك شرط اخر) لأن في هذه الخالة A.Offset(0, -1) تعطينا خطأ

السلام عليكم ممتاز استاذ ياسر عمل أكثر من رائع جزاك الله الجنة

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

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

الله يبارك فيك اخي واستاذي ياسر الحبيب بالنسبة للكود الذي قمت باستخدامه والاستاذ سليم يقوم بالذهاب الى اخر خلية كانت محددة قبل اغلاق اكسل ولكن ليست بالضرورة ان تكون اخر خلية فيها بيانات اما الكود الذي قدمته في مشاركة ثانية يقوم بتحديد اخر خلية فيها بيانات واذا كنت راغبا بعمل سكرول لها يمكنك تعديل الكود السابق الى Application.Goto ActiveCell.SpecialCells(xlLastCell), True تقبل تحياتي واحترامي استاذنا الكريم مع وجود عيب بسيط نادرا ما يحصل سوف اقوم بعمل تجربة لحلها

طلبك ياغالي كما طلبت مجرد الحرف او الكلمة او الاسم كامل دليل.rar دا بعد اذن حبيبنا الغاليا ا/ ياسر خليل

ممتاز أخي الحبيب سليم أعتبر كودك هو الأفضل إلى الآن في هذا الموضوع صراحةً لم يخطر ببالي الاعتماد على Selection وهي فكرة رائعة رائعة وأعجبتني كثيراً تسلم وربنا يجازيك كل خير أما صاحب الموضوع فيبدو أنه لم يعد مهتماً بالموضوع .. نلتمس له العذر

سيد علي السلام عليكم فقط أنا أرجو منك التوضيح أكثر هل تريد جمع سعر المتر لكل مقاس ثم تطرح الخصم أم تريد أخذ مجموع المدفوع كما هو من النموذج الآخر فقط..... على كل حال لقد قمت بالتعديل حسب فهمي وأرجو أن يكون المطلوب كما في المرفق التالي: 1.1023معدل.rar

اذا كنت فهمت المقصود جرب هذا الكود Private Sub Workbook_Open() myaddress = Selection.Address Application.Goto Range(myaddress), True End Sub

أخي الكريم يرجى تغيير اسم الظهور للغة العربية إليك الملف المرفق عله يكون المطلوب دالة عدد لاكثر من متغير اللغة العربية.rar

السلام عليكم ورحمة الله ضع الكود التالي في حدث الصفحة Private Sub Workbook_Open() ActiveCell.SpecialCells(xlLastCell).Select End Sub هذا الكود يمكنك من الانتقال الى اخر خلية فيها بيانات في الصفحة كما يمكنك تحديد فتح صفحة معينة دون غيرها اكتب الكود التالي مع مراعاة كتابة اسم الصفحة الخاص بك Private Sub Workbook_Open() Sheets("add sheets name here").Activate ActiveCell.SpecialCells(xlLastCell).Select End Sub كل الاحترام والتقدير

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

الأروع هو تواجدك معنا ونشاطك الجميل والرائع أخي الحبيب وائل إني أحبك في الله

السّلام عليكم و رحمة الله و بركاته أخي الكريم ياسر العربي مازال مشكل الإغلاق قائمًا .. أنصح الأخ أبو أحمد بإعادة ترتيب الملف من جديد .. تحياتي

اعمل علاقة بين الجدولين في الاستعلام كما بالصورة

بارك الله بما وهبك وشكرت الواهب ورزقت برهما..آمين... تقبل تحياتي أبا محمد السلام عليكم.

تفضل حبيبي الحل تجربة2.rar

السلام عليكم عذرا اخي محمد لعدم ايجاد المطلوب ولكن ماذا لو حولت النموذج الى الاكسل ثم وضع كلمة السر عليه ، انا اعمل على اوفيس 2007 لكنت اعملت لك كود تصدير نموذج الى الكسل و كود آخر في الاكسل للتصديره بتنسيق pdf محمي.

اتفضلي اختي العزيزة المرفق لعلة يكون فية طلبك تم عمل معادلة لحساب الاجمالي للعام المحدد MyFees بالاضافة للشهر MonthFees اما عن كيفية تشغيلها https://youtu.be/Y5eyL8-5bEY أذا كان مطابق لطلبك برجاء التعليق تم تحياتي Annual fees.rar

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

جرب المرفق اخي قم بربط الخلايا التي بها كلمة رقم بملفك اللذي به الدرجات وذلك لكل خلية في الفورم المرفق ثم اطبع وعدل المسافات اذا وجد ترحيل او ماشابه واعلمني بالنتيجة Book1.rar

السلام عليكم السؤال الأول مفهوم وتم حله السؤال الثاني لم يفهم ماذا تقصد بمربع1 . مربع2 هل الخلية المكتوب فيها رقم 1 أو 2 لاحظ المرفق غير الأرقام في الجدول ولاحظ تغيرها في أسفل الجدول سوال للاستاذة الفضلاء1.rar

تفضل جرب المرفق بعد الانتهاء من التقرير اضغط زر اس اف البرنامج2.rar

إلى أستـــــــــــــــــــاذى الأول ومثلى الأعلى " عبد الله بقشير " هذه معادلة تم صياغتها محاكاة لكود لعبقرى الأكواد الأول فى العالم العربى الرائع العظيم أستاذ الأساتذة " عبد الله بقشير " متعة الله بالصحة والعافية وأدامة الله لنا أستاذ وعالم ليعلمنا الكثير والكثير أتمنى أن يكون بها النفع للأخوة والزملاء من هواة المعادلة تقبلوا تحيات : أخيكم استخراج عدة اسماء من اسم كامل.rar

هذا كان موضوع سابق فى نفس الفكرة المراد تنفيذها جرب و اجبرنا عن النتيجة مرفق ملف يستخدم ايضاً فى نفس الموضوع بس حمل الخط على الجهاز اولاً http://www.officena.net/ib/index.php?showtopic=10213 Excel Example.rar

33 مشاهدة و 8 تحميلات للمرفقات و لا تعليق واحد واضح اننى الوحيد المهتم بهذا الموضوع

الأستاذ الفاضل / قنديل الصياد جزاك الله خيراً على كلام حضرتك الطيب. وكل عام وحضرتك بخير.

أخي العزيز بدل البحث عن الموضوع السابق، و الدخول بتعقيدات إختلاف الحاجات ،، قمت بإنشاء تطبيق سريع أظن أنه سيفي بحاجتك. النقطة الرئيسية تعتمد على أن التقارير لا تظهر إلا من خلال نافذة الأكسيس ، لذا لا بد من الوصول لهذه النقطة ببعض الذكاء و التلاعب البرمجي Manipulation . نقوم بجعل النماذج والتقارير Pop Up. ننشيئ ماكرو للإخفاء وماكرو للإظهار ننشيئ وحدة نمطية للسيطرة نوزع عمليات تشغيل الماكرو حسب الحاجة ، ووفقا للشرط الرئيسي أعلاه (إظهار نافذة الأكسيس للتقارير) وذلك بين النماذج والتقارير المرفق أظن أنه يفي بالغرض .... أو على الأقل يوصل الفكرة الرئيسية .... ,ولم أقصد به تطبيقا متكاملا فهو يحتاج للضبط وإكثار تجربة الإحتمالات لسد الثغرات والله أعلم تفضل .......... ............ NA_ShowHideAndReports.rar

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

بسم الله الرحمن الرحيم هذا أول وبرنامج وسوف تجد به التالي 1- شؤون الأيتام أ- شاشة أيتام غير مكفولين ب - أحصائية الأيتام ج - أيتام لم يستلموا أستحقاقاتهم د - أيتام أستلموا أستحقاقاتهم هـ - أضافة يتيم و - أستلامات يتيم 2- شؤون الكفلاء أ - شاشة الكفلاء وأيتامهم ب - شاشة أضافة كفيل ج - شاشة أضافة وسيط د - شاشة الوسطاء وكفلائهم 3- الشؤون المالية أ - شاشة صرف ب - شاشة أستلام ج - شاشة الأرصدة د - شاشة الكشف العام و - شاشة كشف كفيل هـ - شاشة كشف يتيم 4- الخدمات 5- دليل هاتف 6- نموذج لتسجيل المواعيد 7- نموذج لأظافة البنوك 8- شؤون الموظفين والكثير مما لا يتسع المجال لذكره تمعن في هذا البرنامج وأذا رغبت في تعديل أي شئي فالجميع سوف يقوم بخدمتك والله نسأل أن يجعلها لنا في موازيننا يوم لا ينفع لا مال ولا بنون وتقبل تحياتي وسوف أبحث لك عن غيره وأضيفه لك أخيك سهل أحمد ( ابو نعيم ) Aytam.rar