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

ضع كلمة report اولا وكاتالي : Private Sub أمر4_Click() Me.sh.SourceObject = "report.rep" End Sub بالتوفيق

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، وهي شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel فتابعونا. شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel؟ نبدأ أولا بمعرفة القواعد النظرية الرياضية التي اعتمد عليها الشرخ. الحدث application.ontime يستخدم في تنفيذ إجراء معين في وقت معين. مثال: تنفيذ الإجراء masclock بعد ثانية من الآن Application.OnTime Now + TimeSerial(0, 0, 1), "masclock" نأتي للساعة العقارب تعتمد على أن عثرب الساعات يمشي 30 درجة في الدائرة 360 درجة كل ساعة من خلال المعادلة التالية ثم نحسب زوايا الساعات والدقائق والثواني = 6 * عدد الثواني وهكذا ثم نوزع الضرب على الجمع ونختصر فتكون ونتعرف أيضا على: استدعاء ماكرو عند فتح مصنف إكسل ماكرو يستدعي نفسه ويكرر نفسه طريقة ونظرية برمجة عقارب الساعة رياضيا حساب إحداثيات نقطة بدلالة زاوية وطول الضلع على محور السينات X axis ومحور الصادات Y axis إضافة خلفية الرسم البياني Char إظهار محتوى خلية في شكل تلقائي auto shape كتابة معادلة في الشكل التلقائي لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 و 2003 الملف المستعمل في الشرح في المرفقات ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك mas digital and analog clock.rar

تم المطلوب أستاذى

هل تم المطلوب

جزاك الله خيرا

مافهمت test951159 (1).mdb

بالتوفيق

اعمل استعلام جنب الاستعلام وعند سكول انسخ هذا SELECT علامة_جدولة.FirstمنNumx AS Expr1, علامة_جدولة.LastمنNumx AS Expr2, [LastمنNumx]-[FirstمنNumx] AS 123 FROM tab; test951159.mdb

ليس لدي خبرة ان الحق من جدولين لعل احد الاخوة الخبراء من سوف يقوم بذلك

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

اهلا بك اخى الكريم فى المنتدى عليك بأختيار اسم العميل من القائمة من الشيت الرئيسى وسيتم جلب البيانات المطلوبة بارك الله فيك book.xlsm

بعد اذن اخي علي لا ضرورة لهذا الكود الطويل يكفي هذا الكود Sub Auto_add() Range("d1").Copy Range("a2:a10").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd Application.CutCopyMode = False Range("a2").Select End Sub الملف مرفق auto_add_Num.xlsm

اتفضل On Error Resume Next DoCmd.SetWarnings False LoadKeyboardLayout "00000401", 1 retry: TempVars.Add "xv", InputBox(Space(5) & " ادخـل رقـم الـتـلـفـون ", Space(5) & " تنبيه") If TempVars!xv = "" Then If MsgBox(" يـجـب ادخـال رقـم الـتـلـفـون ", vbInformation + vbRetryCancel, "تنبيه") & Space(50) = vbRetry Then GoTo retry Exit Sub Else TempVars.Add "mv", InputBox(Space(5) & " ادخـل الـمـعـدل ", Space(5) & " تنبيه") If TempVars!mv = "" Then If MsgBox(" يـجـب ادخـال الـمـعـدل ", vbInformation + vbRetryCancel, "تنبيه") & Space(50) = vbRetry Then GoTo retry Exit Sub Else MsgBox "تـم الـنـسـخ بـنـجـاح ", vbInformation + vbOKOnly, Space(10) & "تنبيه" & Space(10) End If End If DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, class,Degree ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, [TempVars]![xv] AS Expr1, Students.class, [TempVars]![mv] AS Expr2 " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]) AND (([TempVars]![xv])IS NOT NULL));" DoCmd.SetWarnings True Me.Text0 = "" End Sub

تفضل تعديل الكل / وارد / منصرف جارى العمل على لينك الشيت okk_TEST2.xlsm

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

اتفضل وهذا عربي تم استخدام هذا الكود Option Compare Database 'Option Explicit Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Sub Command2_Click() On Error Resume Next DoCmd.SetWarnings False LoadKeyboardLayout "00000401", 1 retry: TempVars.Add "xv", InputBox(Space(5) & " ادخـل رقـم الـتـلـفـون ", Space(5) & " تنبيه") If TempVars!xv = "" Then If MsgBox(" يـجـب ادخـال رقـم الـتـلـفـون ", vbInformation + vbRetryCancel, "تنبيه") & Space(50) = vbRetry Then GoTo retry Exit Sub Else MsgBox "تـم الـنـسـخ بـنـجـاح ", vbInformation + vbOKOnly, Space(10) & "تنبيه" & Space(10) End If DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, [TempVars]![xv] AS Expr1, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]) AND (([TempVars]![xv])IS NOT NULL));" DoCmd.SetWarnings True Me.Text0 = "" End Sub test36 (1).accdb

السلام عليكم إذا أردنا ان يكون الحذف للمتكرر في أول ثلاث أعمدة كيف يكون الكود ..وشكرا تفضل المرفق به 2 أزرار يتم الحذف لكل الجدول المتشابه أو للتشابه باول 3 أعمدة وفي تلك الحالة يلغي باقي الجدول لعدم الالتباس الفرق بين الكودين تستطيع التعرف عليه هنا Sub Macro1() [C2:H2].Copy [J2] Range([C2], [C2].End(xlDown).End(xlToRight)).Select Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[J2:O2], Unique:=True [J2:O999].Copy [C2].PasteSpecial Paste:=xlPasteValues Columns("J:O").Delete Shift:=xlToLeft End Sub ' ======================================= Sub Macro2() [C2:E2].Copy [J2] Range([C2], [C2].End(xlDown).End(xlToRight)).Select Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[J2:L2], Unique:=True [J2:L999].Copy [C2].PasteSpecial Paste:=xlPasteValues Columns("F:L").Delete Shift:=xlToLeft End Sub حذف الصفوف المكررة2.xlsm

اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً

السلام عليكم أخي ابا زاهر تفضل كافة الطلبات اصبحت جاهزة نسخ احتياطي - تصفية النسخ الاحتياطية ( بين اعادة التسمية و الحذف ) - و اخيراً ... الاسترداد و التنقل بين النسخ أو القاعدة الاصلية دعوة بظهر الغيب ، تنفع أخاك .... و الله من وراء القصد .... .... NA_B&R Final.rar و ندعو لابنك ان يفرج الله عنك و عنه اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً

السلام عليكم ورحمة الله أخي الكريم وضعت في الملف المرفق حلا آخر بالمعادلات (استعمال الدالتين IF و MATCH) ولعملهما بطريقة صحيحة يجب أن تكون الأسماء مكتوبة بالطريقة نفسها (وقد لاحظت أن بعض الأسماء في ملفك تختلف في كتابتها مثلا كلمة في همود مكتوبة بحروف معينة وفي العمود الآخر بالحروف نفسها ولكن مضاف إليها فراغ في الأخير)... والمعادلة التي وضعتها تبحث عن كل كلمة من العمود الأول في العمود الثاني فإن كانت غير موجودة (أو غير مطابقة) تترك الخلية فارغة وإن كانت موجودة تكتب في الخلية الكلمة الكلمة نفسها من العمود الأول في السطر نفسه... أخوك بن علية Question.rar