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

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

السلام عليكم -دومتم بخير ان شاء الله اقدم لكم ملف اكسيل به معادلة وليس ماكرو لتفقيط الأرقام بالحروف بمجرد كتابة الرقم فى الخلية A2 سوف يظهر لك التفقيط فى الخلية B2 بارك الله فيكم جميعا تفقيط الارقام بالحروف.xls

السلام عليكم سؤال لخبراء الاكسل الكرام امل تصحيح هذا الكود حيث اني الغي الامر بعد فتح النافذا فايستمر بتنفيذ الكود امل تصحيح الكود Sub Macro01() a = MsgBox("هل تريد طباعة الان ؟", vbYesNo + vbQuestion, "طباعة") ' اذ اخترت لا اريد الطباعة الصحيح الكود يقف ويلغي التنفيذ هنا If a = vbYes Then With ActiveSheet Dim Numcop As Integer Numcop = Application.InputBox("أدخل عدد النسخ للطباعة:", "كم عدد النسخ?", 1, Type:=1) If Numcop = 0 Then ElseIf Len(Numcop) > 0 Then End If ActiveWindow.SelectedSheets.PrintOut copies:=Numcop 'اذ اخترت لا اريد الطباعة عدد الصحيح الكود يقف ويلغي التنفيذ كذالك هنا End With End If Dim X3 As Long, X4 As Long X3 = Sheets("DATA").Range("a1000").End(xlUp).Row + 1 X4 = Sheets("aaa").Range("B24").End(xlUp).Row Sheets("DATA").Range("B" & X3).Resize(X4 - 5, 21) = Sheets("aaa").Range("B6").Resize(X4 - 5, 21).Value End Sub ولكم الشكر تنفيذ المكرووو.rar

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

شكرا لك وانا ايضا استخدم نموذج كبديل الرسالة لكن كان اريد اعرف هل يجوز ام لا ... وشكرا لك تعبت معنا 🙂

السلام عليكم طريقة حذف البيانات المكررة مرفق صور وملف العمل منع التكرار.xlsx

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

يفضل ارفاق ملف العمل حتي يتثني لنا المساعدة بشكل افضل

اعمال رائعة -بارك الله فيك

:: شكرا لاستجابتك وتفضلك بالرد الواعي ... 😃

اخي @محمدنجار الهدف من تكبير الخط ليتم التركيز على الموضوع لجلب الانتباه وهناك الاف الاعضاء بالمنتدى لم يشتكي احد من ذلك وتكرم بعد اليوم لن اكبر الخط ان شاء الله

جرب هذا الكود لعله يفي بالغرض في حالة الوافقة يظهر صندوق حواري لكتابة رقم أول صفحة في الطباعة اكتب رقم البداية ثم اضغط ok يظهر صندوق حواري لكتابة رقم آخر صفحة في الطباعة اكتب رقم النهاية ثم اضغط ok Sub طباعةمدىمن_الصفحات() A = MsgBox("هل تريد طباعة الان ؟", vbYesNo + vbQuestion, "طباعة") ' اذ اخترت لا اريد الطباعة الصحيح الكود يقف ويلغي التنفيذ هنا If A = vbYes Then Dim startpage As Integer Dim endpage As Integer startpage = InputBox("من فضلك أدخل رقم أول صفحة المراد طباعتها.", " رقم أول صفحة في الطباعة") If Not WorksheetFunction.IsNumber(startpage) Then MsgBox "Invalid Start Page number. Please try again.", "Error" Exit Sub End If endpage = InputBox("من فضلك أدخل رقم آخر صفحة المراد طباعتها.", "رقم آخر صفحة في الطباعة ") If Not WorksheetFunction.IsNumber(endpage) Then MsgBox "Invalid End Page number. Please try again.", "Error" Exit Sub End If ActiveWindow.SelectedSheets.PrintOut From:=startpage, To:=endpage, Copies:=1, Collate _ :=True End If Dim X3 As Long, X4 As Long X3 = Sheets("DATA").Range("a1000").End(xlUp).Row + 1 X4 = Sheets("aaa").Range("B24").End(xlUp).Row Sheets("DATA").Range("B" & X3).Resize(X4 - 5, 21) = Sheets("aaa").Range("B6").Resize(X4 - 5, 21).Value End Sub

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

Shivan Rekany شكرا جزيلا لحضرتك

اظن ان السبب يرجع لخاصية النموذج Pop Up غيره الى لا غيره واذا تريده بعد ذلك سارفع لك المثال وراح نسأل لاستاذ @ابوخليل ھل یمکن ان نغیر تسمیات الازرار الرسائل عند خاصیة النموذج pup up = yes

استخدم دالة DCount

وعليكم السلام تفضل اخى الكريم Book1.xlsx

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

نعم اتفضل اليك موضوع على هذا واليك الحل هنا للاستاذ ابوخليل قم بنسخ هذا الى وحدة النمطية Option Compare Database Public Ok, Cancel, ABORT Public RETRY, IGNORE, YES, NO Private m_hHook As Long Private Const IDOK = 1 Private Const IDCANCEL = 2 Private Const IDABORT = 3 Private Const IDRETRY = 4 Private Const IDIGNORE = 5 Private Const IDYES = 6 Private Const IDNO = 7 Private Const WH_CBT = 5 Private Const GWL_HINSTANCE = (-6) Private Const HCBT_ACTIVATE = 5 Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, _ ByVal lpString As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Public Sub MessageBoxH(hwndThreadOwner As Long) Dim hInstance As Long Dim hThreadId As Long hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE) hThreadId = GetCurrentThreadId() m_hHook = SetWindowsHookEx(WH_CBT, AddressOf _ MsgBoxHookProc, hInstance, hThreadId) End Sub Private Function MsgBoxHookProc(ByVal uMsg As Long, ByVal _ wParam As Long, ByVal lParam As Long) As Long If uMsg = HCBT_ACTIVATE Then SetDlgItemText wParam, IDOK, Ok SetDlgItemText wParam, IDCANCEL, Cancel SetDlgItemText wParam, IDABORT, ABORT SetDlgItemText wParam, IDRETRY, ABORT SetDlgItemText wParam, IDIGNORE, ABORT SetDlgItemText wParam, IDYES, YES SetDlgItemText wParam, IDNO, NO UnhookWindowsHookEx m_hHook End If MsgBoxHookProc = False End Function وعن الضغط على الزر تكتب هذا مثلا Private Sub Command1_Click() Dim resalh As Integer Ok = "حسنا موافق" Cancel = "غير موافق طبعا" MessageBoxH Me.hwnd resalh = MsgBox("lllllll", vbOKCancel, "yyyyyy") End Sub

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

استاذي بعد هذا الكود و اذا ظهرة نافذة عدد النسخة للطباعة واخترت الغاء الكود يستمر في تنفيذ الامر والمطلوب اذا لم اختر العدد وقررت الغاء الطباعة ان يقف الكود ويتم الخروج من الامر Dim Numcop As Integer Numcop = Application.InputBox("ادخل عدد النسخ المطلوب طباعتها ", 1, Type:=1) If Numcop = 0 Then ElseIf Len(Numcop) > 0 Then End If ActiveWindow.SelectedSheets.PrintOut copies:=Numcop

Sub Macro01() a = MsgBox("åá ÊÑíÏ ØÈÇÚÉ ÇáÇä ¿", vbYesNo + vbQuestion, "ØÈÇÚÉ") ' ÇÐ ÇÎÊÑÊ áÇ ÇÑíÏ ÇáØÈÇÚÉ ÇáÕÍíÍ ÇáßæÏ íÞÝ æíáÛí ÇáÊäÝíÐ åäÇ If a = vbNo Then ' هنا تمت إضافة اختيار no Exit Sub End If If a = vbYes Then With ActiveSheet Dim Numcop As Integer Numcop = Application.InputBox("ÃÏÎá ÚÏÏ ÇáäÓÎ ááØÈÇÚÉ:", "ßã ÚÏÏ ÇáäÓÎ?", 1, Type:=1) If Numcop = 0 Then ElseIf Len(Numcop) > 0 Then End If ActiveWindow.SelectedSheets.PrintOut copies:=Numcop 'ÇÐ ÇÎÊÑÊ áÇ ÇÑíÏ ÇáØÈÇÚÉ ÚÏÏ ÇáÕÍíÍ ÇáßæÏ íÞÝ æíáÛí ÇáÊäÝíÐ ßÐÇáß åäÇ End With End If Dim X3 As Long, X4 As Long X3 = Sheets("DATA").Range("a1000").End(xlUp).Row + 1 X4 = Sheets("aaa").Range("B24").End(xlUp).Row Sheets("DATA").Range("B" & X3).Resize(X4 - 5, 21) = Sheets("aaa").Range("B6").Resize(X4 - 5, 21).Value End Sub أرجو أن يكون هذا التعديل المطلوب كل عام و أنت بخير

تفضل اخى الكريم وعندما تريد اضافة بيانات جديدة سوف ترتب تلقائيا الاسر -1الفقيرة.xlsm

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

فضل وقم باستبدال كل الملفات بالمرفق ( امر غاية في الاهمية حيث تم التعديل علي بعض اسماء الشيتات التي كانت تسبب اخطاء ) وعزرا للتاخير ABSSANCE.rar

السلام عليكم أخي صالح إطراء وتعقيب: الموضوع متكامل ، والتنسيق رائع والشئ الوحيد الذي لم تشر اليه هو (مأخوذ من برنامج الاكسس) ، هو خلط المتغير Expression Case 9, 11, 13 و Case 1 To 4, 7 To 9, 11, 13 . ومع ان تشبه الدالة Select Case إلى حد كبير الدالة If ، إلا ان المبرمجين المحترفين يفضلون استخدام Select Case على If جعفر

أحد الشروط التي التزم بها دائما ، هي كتابة اسم متغير مفهوم وله معنى ، مثلا: File_Name او How_Many ، بحيث بعد مدة لما أرجع لتصحيح الكود ، افهم ما هو عمل المتغير. والمحترفين يذهبون إلى ابعد من هذا ، فبالاضافة إلى استعمالهم مسمى مفهوم المعنى ، فإنهم يسبقون الاسم بحروف تدل على ان المتغير رقم أو كلمات ، هكذا: للارقام: intRows او nColumns ، وللكلمات: strName. واستغرب من بعض المتغيرات المستعمله في كود معقد مثل: a او b !! جعفر

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