توكل

لا اعلم ما المشكلة فالاداة تعمل بشكل صحيح (اةفيس 2007 وندوز 7) أخي عبد الله حاولت أن أعرف المشكلة ولكن دون جدوى لدي أوفيس 2010 ويندوز 7 SP3 ولكن دون جدوى

الأخ الدهشوري أرجو أن يكون المرفق هو المطلوب توزيع رقم.rar

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

الأخ أبو تميم إليك هذا الكود طبعاً يجب عليك وضعه في الـ personal folder كما يمكنك تعديل الرسائل باللغة العربية إذا شئت أرجو أن أكون قد أفتكم Sub Mail_workbook_Outlook_1() 'Working in 2007-2010 'This example send the last saved version of the Activeworkbook Dim OutApp As Object Dim OutMail As Object Dim Msg As String, URL As String Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "tawakool@itco.com" .CC = "tawakool@itco.com" .BCC = "tawakool@itco.com" .Subject = "Daly Report" .Body = "Dear All" & vbNewLine & vbNewLine & _ "hello" & vbNewLine & _ "please find attached excel file" & vbNewLine & _ "Thank you & Best regards " & vbNewLine & vbNewLine & _ "Copy MD" & vbNewLine & _ " Copy GM" .Attachments.Add ActiveWorkbook.FullName 'You can add other files also like this '.Attachments.Add ("C:\test.txt") .Display 'or use .Send End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub

أخي الكريم الأمر جد بسيط إليك الحل في المرفق تحياتي Phon No..rar

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

كما يمكنم أخي الكريم إستخدام هذا الكود. Sub Transpose() ' ' Transpose Macro ' Macro recorded 20/02/2003 by abdulhamid ' ' Keyboard Shortcut: Ctrl+Shift+Q ' Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False End Sub

رحمه الله رحمة واسعة وغفر له وأدخله فسيح جناته وألهمكم الصبر والسلوان وأبدلكم بمصيبتكم خيراً منها وعوضكم خيراً

أولا الشكر موصول للمبدع الأستاذ الكبير عبد الله بافشير الذي لا نزال نستقي من معين علمه الشيء الكثير ثانياً أنا جربت الكود الذي وضعته أخي الكريم وفعلاً عمل وسبب خطأ لكن تغلبت عليه بوضع On Error GoTo 1 وطبعاً 1 = End Sub واشتغل الكود دون أية مشاكل

الإخوة الأعزاء وجدت هذا الكود في النت لتغير لون إطار الفورم لكني لم أعرف كيف أستعمله [/left] Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long Const COLOR_SCROLLBAR = 0 'The Scrollbar colour Const COLOR_BACKGROUND = 1 'Colour of the background with no wallpaper Const COLOR_ACTIVECAPTION = 2 'Caption of Active Window Const COLOR_INACTIVECAPTION = 3 'Caption of Inactive window Const COLOR_MENU = 4 'Menu Const COLOR_WINDOW = 5 'Windows background Const COLOR_WINDOWFRAME = 6 'Window frame Const COLOR_MENUTEXT = 7 'Window Text Const COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95) Const COLOR_CAPTIONTEXT = 9 'Text in window caption Const COLOR_ACTIVEBORDER = 10 'Border of active window Const COLOR_INACTIVEBORDER = 11 'Border of inactive window Const COLOR_APPWORKSPACE = 12 'Background of MDI desktop Const COLOR_HIGHLIGHT = 13 'Selected item background Const COLOR_HIGHLIGHTTEXT = 14 'Selected menu item Const COLOR_BTNFACE = 15 'Button Const COLOR_BTNSHADOW = 16 '3D shading of button Const COLOR_GRAYTEXT = 17 'Grey text, of zero if dithering is used. Const COLOR_BTNTEXT = 18 'Button text Const COLOR_INACTIVECAPTIONTEXT = 19 'Text of inactive window Const COLOR_BTNHIGHLIGHT = 20 '3D highlight of button Const COLOR_2NDACTIVECAPTION = 27 'Win98 only: 2nd active window color Const COLOR_2NDINACTIVECAPTION = 28 'Win98 only: 2nd inactive window color Private Sub Form_Load() 'Get the caption's active color col& = GetSysColor(COLOR_ACTIVECAPTION) 'Change the active caption's color to red t& = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255, 0, 0)) MsgBox "The old title bar color was" + Str$(col&) + " and is now" + Str$(GetSysColor(COLOR_ACTIVECAPTION)) End Sub

أحسن الله إليك أخي عبد الله وجعله في ميزان حسناتك

الإخوة الأعزاء قمت بعمل فورم ووضعت لها كود أظن أنه صحيح لكنه لم يعمل يرجى الإطلاع وتوجيهي للخطأ تكرماً Book4 ().rar

جزاك الله خيراً أخي الشهابي

للرفع رفع الله قدركم وزادكم علماً

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

أحسن الله إليك أخي أبو حنين، وجزاك عني كل خير، وبارك لك فيما أعطاك

أخي الكريم راجع هذه المشاركة لعلك تستفيد منها وهي للمبدع عبد الله باقشير جزاه الله كل خير. http://www.officena.net/ib/index.php?showtopic=28585

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

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

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

ما شاء الله جزاكم الله عنا كل خير منكم نتعلم ونستفيد، بارك الله في جميع جهودكم

شكراً لك أستاذنا الكريم، ولكن هناك ملاحظة بسيطة لو سمحت : إذا لم تدخل السنة تعطي النتيجة 29 وليس 28 فشهر فبراير هذه السنة كان 28 يوم تقبل شكري وامتناني

إذا عدلنا الكود ليصبح بالكل التالي: xx = Day(DateValue("03/01/" & Year(Date)) - 1) فالنتيجة تصبح 28 كل شكري وامتناني أخي بن علية

أخي جزاك الله كل خير ولكن النتيجة عندي تعطي 2 لست أدري ما هو السبب، مع أني عندما أفتح الملف تكون النتيجة 28 ولكن عندما أقوم بالتعديل فتعطي النتيجة 2 سوف أحاول أن أبحث عن السبب شكراً لك على جهودك

أخي بن علية جزاك الله خير أنا أعلم أنه يمكن حساب عدد أيم الشهر بطرق مختلفة فأنا على سبيل المثال أستخدم المعادلة التالية : (DAY(DATE(Year;Month+1;1)-1= ولكن أنا أسأل إن كان بالإمكان تعديل الكود الذي كتبته ليتمكن من حساب عدد أيام شهر فبراير بشالكل الصحيح أقدر لك إهتمامك وشكراً لمرورك.