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

طيب بعد اذن اخى الحبيب باش مهندس كريم وبناء على طلبه فى تقديم المساعدة ان امكن المرفق الاتى والخاص بكملة المرور هناك عدد 2 زر امر الاول OK : المفروض ان كانت كلمة المرور صحيحة يتم تمريرها من خلال صندوق الرسائل الى النموذج الثانى No : المفروض ان كانت كلمة المرور صحيحة او خطأ لا يتم تمريرها ولتنفيذ ذلك من خلال الكلاس لابد من اضافة sub routine الى النموذج مع بعض التعديلات على الكود اترككم مع المرفق .. اتمنى لكم تجربة ممتعة 08- Msgbox With Input Password (2).accdb

السلام عليكم صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . Msgbox With ComboBox.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

فين المرفق اللى هنطبق عليه الحل ؟ عامة يمكنك استخدام For كالمثال التالى جرب وان مشتغلش ارفق النموذج. ملاحظة : يفضل عدم استخدام اللغة العربية فى الاكواد لأنها بيصعب التعامل معها ولذلك استبدلت اسماء الحقول العربية فى الكود بأسماء افتراضية Cnt بدلا من نص 6 و Result للنتيجة مستجد او راسب . بالتوفيق On Error Resume Next DoCmd.GoToRecord , , acFirst For i = 0 To Me.Form.Recordset.RecordCount - 1 If Me.Cnt = 0 then Me.Result = 1 Else Me.Result = 10 end if DoCmd.GoToRecord , , acNext Next هناك ايضا طريقة ابسط عن طريق الاستعلامات هيكون فيه استعلام لعد مواد الرسوب لكل طالب و فيه حقل فيه دالة IIF لبيان الحالة طبقا للعدد .. وفى النموذج الخاص بيك يتم استدعاء حالة الطالب بناء على الكود او ID مثلا هناك حلول كثيرة فى هذا الشأن .

Rename the data sheet to Data and create another sheet and name it Result OR change the sheet names in the code Sub Test() Const lRows As Long = 20, lCols As Long = 13 Dim ws As Worksheet, sh As Worksheet, rHeaders As Range, r As Long, lr As Long, m As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets("Data") Set sh = ThisWorkbook.Worksheets("Result") sh.Cells.Clear Set rHeaders = ws.Range("A1:M1") lr = ws.Cells(Rows.Count, 1).End(xlUp).Row For r = 2 To lr Step lRows m = sh.Cells(Rows.Count, "H").End(xlUp).Row + 1 m = IIf(m = 2, 1, m) rHeaders.Copy sh.Range("A" & m) With sh.Range("I" & m) .Interior.Color = vbYellow .Offset(, 2).Interior.Color = vbYellow End With ws.Range("A" & r).Resize(lRows, lCols).Copy sh.Range("A" & m + 1) With sh.Range("H" & m + lRows + 1) .Value = "Total": .Font.Bold = True .Offset(, 1).Formula = "=SUM(R[-1]C:R[-" & lRows & "]C)" .Offset(, 3).Formula = "=SUM(R[-1]C:R[-" & lRows & "]C)" .Resize(1, 4).Interior.Color = vbYellow End With Next r With sh.Cells .FormatConditions.Delete: .ReadingOrder = xlRTL .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .RowHeight = 23 .Columns(9).ColumnWidth = 10 .Columns(11).ColumnWidth = 14 .Font.Size = 14: .Font.Name = "Arial" End With Application.CutCopyMode = False On Error Resume Next sh.Range("I" & m & ":I" & m + lRows + 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete On Error GoTo 0 sh.Range("A1").CurrentRegion.Borders.Value = 1 Application.ScreenUpdating = True MsgBox "Done", 64 End Sub

ملحوظة هااااااااااااااااااامة : جعل اتجاه الرسالة من المين الى اليسار وليس العكس لدعم اللغة العربية عند الخاصية Flags. قم بوضع هذا العلم فى نهاية السطر : Or TDF_RTL_LAYOUT لتكون النتيجة النهائية كما بالمثال . .Flags = TDF_COMBO_BOX Or TDF_INPUT_BOX Or TDF_RTL_LAYOUT وهذا مثال :

السلام عليكم استخدم استعلام تحديث Query1 UPDATE TBLSub SET TBLSub.booksshkr = Nz([booksshkr])+1 WHERE (((TBLSub.booksshkr)<3)); Prog202.rar تحياتي

السلام عليكم ورحمة الله وبركاته . كما وعدتكم الاصدارالثاني لبرنامج صانع القوائم فى البداية هذا العمل مجاني لوجة الله ولكن اتمنى مزيد من التفاعل لارتقاء العمل وحس المساعدة بيننا فالصدار الاول تخطي 550 مشاهدة و 7 ردود فقط فأذا تخطي هذا المشروع 100 رد يكون المشروع الثاني مفاجأه وهو ارسال رسائل SMS مجاناً معتمداً على الباقة المتوفرة من شركة جوالك دون تكلفة اضافية او وسيط والان فيديو شرح البرنامج : لتحميل البرنامج : https://www.mediafire.com/file/z17cd3rpjtikyxi/ARM.exe مساعدة من الخبراء ان أمكن هل من الممكن تشغيل سكريبتك بالاكسس دون الحجة لتفعيله يدوياً كما موضح بأخر الفيديو مع العلم باننى قمت بمحاولات لا تحصي ولكن لا يعمل بالجودة المطلوبة . ثانياً تشغيل زر تصدير الدوال حتى يقوم الصانع بتصدير الدوال والجدول المخصص للشريط دون الحاجة لاستردادهم يدوياً . ولكم جزيل الشكر .

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

وممكن تعملها باستعلام تحديث ..

@طارق حسانين عن تجربة لا gif او png ينفع معهم لا اعتقد ان هناك امكانية لذلك على حد علمي العملية متعلقة ببرمجة اليوزرفورم نفسه ليس له علاقة بالصورة لان اساس الصورة بدون خلفية وعندما تدرجها تصبح الخلفية سوداء

السلام عليكم ورحمة الله اخي الفاضل حاول تغيير امتداد الصورة الي gif

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

قم بادخال رقم المنتج الذي اشتريته

وعليكم السلام 🙂 استعمل استعلام union ، بحيث من اول استعلام يظهر لك قيمة الحقل fo ، والاستعلام الآخر يظهر لك قيمة الحقل bo ، وتجمع الاستعلامين في استعلام union 🙂 االشرط الوحيد في استعلام union هو ان يكون عدد حقول الاستعلامات فيه ، نفسها ، يعني كل استعلام يظهر نفي عدد الحقول ، وهذا الاستعلام لا يميز بين نوع الحقول ، فتستطيع دمج حقل النص مع حقل الرقم مع حقل التاريخ ... جعفر

11- عرض الرسالة مع كمبو بوكس أسفل الازرار ومعه مربع نص لادخال البيانات وختيار من قائمة . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 11 - Msgbox With ComboBox Under Buttons And Edit Box.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

عفواً استاذ @ابو جودي واتمنى ان تنفعك هذه الادوات شكراً على هذا الاضاح والمساعدة الرائعة واتمنى ان تعم الفائدة للجميع . عفواً اخى لا شكر على واجب 9- عرض الرسالة مع كمبو بوكس قابل للتعديل وادخال البيانات به صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 09- Msgbox With ComboBox With Edit.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 10- عرض الرسالة مع كمبو بوكس سطري مع الازرار ومعه مربع نص لادخال البيانات وختيار من قائمة . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 10 - Msgbox With ComboBox Line With Buttons And Edit Box.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

يمكنك استعمال هذه المعادلة في التنسيق الشرطي على العمود B =a1<>b1 بالتوفيق

السلام عليكم 🙂 حيا الله اخوي حربي 🙂 ادارة الموقع وضعت قانون خاص بك 🙂 اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة 13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية جعفر

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

شوف يا سيدى علشان تقدر تعمل الشغل اللى هيتم شرحة لابد من وجود الاتى فى قاعدة بياناتك - الكلاس موديول اللى باسم cTaskDialog - الموديول اللى باسم basGDIPlus_Lib - الموديول اللى باسم basTaskDialogGlobal وانتبه جيدا لا تقم بتغيير اسم الكلاس موديول cTaskDialog لان الاكواد تعتمد على اسم الكلاس موديول فاذا غيرت الاسم لابد من تغييره لنفس الاسم فى الاكواد

3- عرض الرسالة مع مربع نص بقيمة افتراضية صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 03- Msgbox With Input Box With a default Value - Copy.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 4- عرض الرسالة مع مربع نص بقيمة افتراضية سطري مع الازرار صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 04- Msgbox With Input Box With a default Value Line with buttons.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 5- عرض الرسالة مع مربع نص بقيمة افتراضية أسفل الازرار صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 05- Msgbox With Input Box With a default Value In Footer.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 6- عرض الرسالة مع مربع نص بقيمة افتراضية مع تغير عرض المربع صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 06- Msgbox With Input Box Resize Width.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 7- عرض الرسالة مع مربع نص مع ملحوظة داخل مربع النص صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 07- Msgbox With Input Box Cue.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 8- عرض الرسالة مع مربع نص لادخال الرقم السري مع ملحوظة صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 08- Msgbox With Input Password.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

وعليكم السلام يبدو انه تنتظرنا درر من تلك السلسة اول الغيث قطرة.. وهذه بدايات اكتشافاتي تجدها على زر الامر خروج وانا في انتظار باقي السلسة بشغف يا باش مهندس كريم Msgbox With ComboBox.zip

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

يمكنك وضع جميع ملفات الاكسل المطلوب تحويلها في مجلد باسم xls بنفس مسار الملف الذي به هذا الكود وإنشاء مجلد باسم csv بنفس مسار الملف الذي به هذا الكود واستدعاء الاجراء Mas_Xls2Csv Sub Mas_Xls2Csv() Dim xObjWB As Workbook Dim xStrEFPath As String Dim xStrEFFile As String Dim xStrSPath As String Dim xStrCSVFName As String Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual xStrEFPath = ThisWorkbook.Path & "\xls\" xStrSPath = ThisWorkbook.Path & "\csv\" xStrEFFile = Dir(xStrEFPath & "*.xls*") Do While xStrEFFile <> "" Set xObjWB = Workbooks.Open(Filename:=xStrEFPath & xStrEFFile) xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv" xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSVUTF8 xObjWB.Close savechanges:=False xStrEFFile = Dir Loop Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Done by mr-mas.com" End Sub بالتوفيق

تفضل التعديل Database1.accdb

تفضل هذا التعديل Database1.accdb

الدرس السابع: دوال التاريخ أخوتي الكرام حياكم الله سوف نقوم في هذا الدرس بشرح دوال التاريخ: ()CDate: تستخدم هذه الدالة من أجل تحويل سلسلة إلى تاريخ. مثال: CDate(السلسلة) CDate("122010")="18-01-2234" ()Date: تستخدم هذه الدالة من أجل إرجاع تاريخ النظام الحالي. مثال: Date()="19/02/2017" DateDiff: تستخدم هذه الدالة لحساب الفرق بين تاريخين DateDiff(أول أسابيع السنة,أول أيام الأسبوع,التاريخ الثاني,التاريخ الأول,رمز الفاصل الزمني) DateDiff("d","14/02/2017","19/02/2017")=5 في هذا المثال حسبنا الفرق بين التاريخين بالأيام DatePart: تستخدم هذه الدالة للحصول على جزء معين من تاريخ محدد لها.(سنة أو يوم أو شهر) مثال: DatePart(أول أسابيع السنة,أول أيام الأسبوع,التاريخ,فاصل زمني) DatePart("d","22/03/2017")=22 DatePart("m","22/03/2017")=3 DatePart("yyyy","22/03/2017")=2017 DateSerial: تستخدم هذه الدالة لإرجاع متغير من نوع تاريخ من ثلاث متغيرات رقمية تمثل السنة والشهر واليوم . مثال: DateSerial(يوم,شهر,سنة) DateSerial("1999","03","20")="20/03/1999" DateValue: تستخدم هذه الدالة من أجل تحويل تعبير معين إلى تاريخ . مثال: DateValue(«التاريخ») DateValue("12 02 2016") Day: تستخدم هذه الدالة لإرجاع رقما من 1 إلى 31 يمثل اليوم من الشهرللتاريخ الممر لها . مثال: Day(التاريخ) Day("15/03/2016")=15 Hour: تستخدم هذه الدالة لإرجاع رقما من 0 إلى 23 يمثل الساعة في اليوم . مثال: Hour(الوقت) Hour("15:25")=15 Minute: تستخدم هذه الدالة لإرجاع رقما من 0 إلى 59 يمثل الدقائق في الساعة. مثال: Minute(الوقت) Minute("15:25")=25 Second: تستخدم هذه الدالة لإرجاع رقما من 0 إلى 59 يمثل الثواني في الدقائق. مثال: Second(الوقت) Second("15:20:23")=23 Month: تستخدم هذه الدالة لإرجاع رقما من 0 إلى 12 يمثل الشهر في السنة. مثال: Month(التاريخ) Month("12/11/2003")=11 Year: تستخدم هذه الدالة لإرجاع رقما يمثل السنة. مثال: Year(التاريخ) Year("12/12/2017")=2017 نكمل البقية فيما بعد إن شاء الله

السلام عليكم أخي محمد انا لن اتطرق لطريقة عمل النموذج الجديد ، "لأننا" لم نلحظ المشكلة في النموذج الاصل ولكني دخلت في كود Combopn_AfterUpdate : pn = DLookup("pn", "code", "[pn]=forms!frm_dataentry!Combopn") size = DLookup("Size", "code", "[pn]=forms!frm_dataentry!Combopn") vendor = DLookup("Vendor", "code", "[pn]=forms!frm_dataentry!Combopn") Description = DLookup("Description", "code", "[pn]=forms!frm_dataentry!Combopn") Maxrl = DLookup("Maxrl", "code", "[pn]=forms!frm_dataentry!Combopn") Maxrlegyptair = DLookup("Maxrlegyptair", "code", "[pn]=forms!frm_dataentry!Combopn") ACType = DLookup("actype", "code", "[pn]=forms!frm_dataentry!Combopn") Pos = DLookup("pos", "code", "[pn]=forms!frm_dataentry!Combopn") BiasRadial = DLookup("biasradial", "code", "[pn]=forms!frm_dataentry!Combopn") code = DLookup("code", "code", "[pn]=forms!frm_dataentry!Combopn") لاحظت انك تنادي الجدول (اي تعمل استعلام للجدول) 10 مرات !! انا دائما لما اعمل برامجي ، اعمل البرنامج على اساس انه سيكون عبارة عن جزئين ، الواجهة FE ، والجداول BE ، وان الجداول BE ، ستكون في شبكة ، وان الواجهة FE ستكون لأكثر من مستخدم. لهذا السبب ، فيجب ان نقلل الزحمة في الشبكة ، وذلك بتقليل زيارة/استعلام الجداول قدر الإمكان ، وعند كل زيارة ، يجب ان نأخذ اكبر كمية من البيانات المطلوبة ، ثم نتعامل معها محليا في FE. لذلك ، فانا هنا اعطيك احد البدائل (والتي لا يعرفها الكثير ، لأنها تعمل على الاكسس 2003 فما فوق) ، فالكود التالي ، يقوم بزيارة/استعلام الجدول عن طريق DLookup مرة واحدة ، ويأخذ 10 بيانات مرة واحدة ، فلذا يمكن ان يستبدل كودك اعلاه: Dim x() As String A = Nz(DLookup("[pn] & '|' & [Size] & '|' & [Vendor] & '|' & [Description] & '|' & [Maxrl] & '|' & [Maxrlegyptair] & '|' & [actype] & '|' & [pos] & '|' & [biasradial] & '|' & [code]", "code", "[pn]=forms!frm_dataentry!Combopn"),"|||||||||") 'ويمكن استعمال اي شيء بدل عن | فمثلا الفاصلة 'A حتى اذا لم هناك قيمة للمتغير Nz نستعمل الدالة 'عدد مرات وضع العلامة | في نهاية السطر ، يكون نفس عددها في المعادلة 'لهذا السبب نرى اننا وضعنا 9 منها في نهاية السطر x = Split(A, "|") ' For i = LBound(x) To UBound(x) ' Debug.Print x(i) ' Next i Me.pn = x(0) Me.size = x(1) Me.vendor = x(2) Me.Description = x(3) Me.Maxrl = x(4) Me.Maxrlegyptair = x(5) Me.ACType = x(6) Me.Pos = x(7) Me.BiasRadial = x(8) Me.code = x(9) جعفر

بسم الله الرحمن الرحيم الإخوة الأعزاء السلام عليكم ورحمة الله وبركاته اتمنى ان تكونوا بأفضل حال، وفي صحة جيدة بعد صدور قرار هيئة الإتصالات المصرية بتعديل بادئات ارقام المحمول لتصبح 11 رقماً بدلاً من 10 ارقام، قلت لما لا اقوم بتجربة تعديل الأرقام من خلال الإكسل فكانت النتيجة هذا الشيت ملحوظة : هذا العمل لا يساعد على تغيير الأرقام المخزنة على محمولك (في حالة انك من مصر) إنه فقط محاولة للتفكير في إيجاد حل لاحد الموضوعات المعاصرة ، ورغبة في تحسين مستواي في التعامل مع البرنامج ملحوظة 2 : إذا كان بالإمكان تعديل الكود المرفق بحيث يكون اقصر قليلا فأرجو المشاركة (تقصير الكود يعني استخدام اسلوب متقدم في التكويد وتحليل المشكلة بالتأكيد ) Function UMN(Mobile As Range) As String ' Update Mobile Number Dim Prefix As String Dim NPrefix As String Dim Suffix As String Select Case Len(Mobile) Case 10 Prefix = Left(Mobile, 3) Case 11 Prefix = Left(Mobile, 4) End Select Select Case Prefix Case "012": NPrefix = "0122" Case "017": NPrefix = "0127" Case "018": NPrefix = "0128" Case "010": NPrefix = "0100" Case "016": NPrefix = "0106" Case "019": NPrefix = "0109" Case "011": NPrefix = "0111" Case "014": NPrefix = "0114" Case "0150": NPrefix = "0120" Case "0151": NPrefix = "0101" Case "0152": NPrefix = "0112" End Select Suffix = Right(Mobile, 7) UMN = NPrefix & Suffix End Function Update Mobile Number.rar

بفضل الله أستخدم جوجل كروم ولا يوجد لدي أي مشكلة في الدخول أو الخروج أو غضافة مشاركة أو إرسال رسالة خاصة أو شيء وبالنسبة لمشكلة البحث يرجع هذا إلى اختلاف ترميز عملية البحث هذا الرابط بترميز windows-1256 وهو ما يظهر به الرموز الغريبة http://www.google.ae/cse?cx=partner-pub-4958585055085854%3Ajy692kwdx5q&ie=windows-1256&q=%D8%A5%D8%B1%D8%B3%D8%A7%D9%84+%D8%A8%D8%B1%D9%8A%D8%AF&sa=%D8%A8%D8%AD%D8%AB وهذا هو الرابط بعد تعديل الترميز إلى utf-8 http://www.google.ae/cse?cx=partner-pub-4958585055085854%3Ajy692kwdx5q&ie=utf-8&q=%D8%A5%D8%B1%D8%B3%D8%A7%D9%84+%D8%A8%D8%B1%D9%8A%D8%AF&sa=%D8%A8%D8%AD%D8%AB ويظهر بدون مشاكل وأعتقد أن حل هذه المشكلة هي تعديل ترميز الموقع في حسابات مديري المواقع للمهندس محمد طاهر إلى utf-8

تجد هذا الرمز في span class='nav_sep'

أعتقد أن سبب الخطأ الأول هو اختلاف ترميز الملف مصدر الفريم عن ترميز الصفحة ككل UTF-8 أو اختلاف ترميز الاتصال بقاعدة البيانات وللعلاج ينبغي تغيير ترميز الملف أو ترميز اتصاله بقاعدة البيانات والسبب في الخطأ الثاني هو استعمال الكود rarr; مسبوقة بعلامة & → فهو يظهر اتجاه السهم ناحية اليمين والصواب larr; مسبوقة بعلامة & ← سيظهره ناحية الشمال وفقنا الله جميعا إلى كل ما يحبه ويرضاه

يمكنك الاستعانة بهذا الرابط وهذا رابط الموقع مترجم http://translate.google.com.eg/translate?sl=en&tl=ar&js=n&prev=_t&hl=ar&ie=UTF-8&layout=2&eotf=1&u=http%3A%2F%2Fwww.excel-vba-easy.com%2F

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

بسم الله الرحمن الرحيم السلام عليكم جميعاً ورحمة الله وبركاته هل حملت ملفات الإكسل التي بها ألعاب فلاش من موضوع الأخ 3s_sando وغيرها من المواضيع التي تحدثت عن إضافة فلاش لملف إكسل وهنا أنا أقوم بالدور العكسي وهو استخراج ملف الفلاش من ملف الوورد أو الإكسل حمل المرفق ثم اضغط على الزر لاستعراض ملفات جهازك حدد الملف الذي به فلاش ستجد أنه تم استخراج الملف الفلاشي في نفس مسار الملف وبنفس الاسم ملحوظة: يتم الاستخراج من صيغة doc & xls فقط وفي حالة كان الملف بتنسيق 2007 أو 2010 يمكنك تحويله أولا إلى تنسيق 97/2003 ثم استعمال المرفق ولا تنسوني من صالح دعائكم swf_from_excel.zip

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

شكرا لأخي عبد الله وإليك أخي مجدي هذا أيضا رابط لشرح موجود بالمنتدى http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=29469

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

اولا شكرا لك وسامحني في السؤال ولما انت عرفت بالقرار بعد صدوره بنصف ساعه ليه مافرحتش الناس وحملته على المنتدى مره ثانيه شكرا شكرا اﻷخت الفاضلة سوزي كارم أنا ﻻ أغضب من كﻻمك وﻻ كﻻم أي أخ لي أوﻻً: هل أنت معلمة؟ هل شاركتي في مليونية المعلم أمام مجلس الوزراء يوم السبت 10 سبتمبر 2011؟ ............. كان كل همنا في الفترة السابقة دعوة المعلمين ﻷن يخرجوا ويكسروا حاجز الخوف والصمت وبفضل الله كنا من 100 إلى 200 ألف معلم ومعلمة ولكن حسبنا الله ونعم الوكيل في اﻹعﻻم المصري ........... ولو ﻻحظت تعليقات الزمﻻء على صور التقويم الشامل وخاصة تعليقي أنه ﻻ يوجد حديث عن مادة التربية اﻹسﻻمية كان أمراً مقلقاً ....... فعذراً إن شغلتني هذه اﻷمور عن نقل هذا الخبر إلى منتدانا الحبيب

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