شوقي ربيع

السلام عليكم جرب هذا اعتقد انه يفي بلغرض Sub Test() Dim Wkb As Workbook Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = ThisWorkbook.Sheets("Sheet1") Set ws2 = ThisWorkbook.Sheets("MAIN") Workbooks.Add Set Wkb = ActiveWorkbook Wkb.Worksheets(1).Range(ws1.Range("A3:A15").Address).Value = ws1.Range("A3:A15").Value Wkb.Sheets.Add Before:=Worksheets(Worksheets.Count) Wkb.Worksheets(1).Range(ws2.Range("A3:A15").Address).Value = ws2.Range("A3:A15").Value ws2.Activate End Sub

السلام عليكم تحية كبيرة الى الاخوين وليد فتحي و حماده عمر هذا الكود يعطيك الذي تريده في نفس الخلية التي تكتب فيها الرقم .وفي أي خلية من ورقة العمل (غير محدود) Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then Select Case Target Case 1 Target = "Pre Foundation" Case 2 Target = "Foundation" Case 3 Target = "Emerging" Case 4 Target = "Established" Case 5 Target = "Accomplished" End Select End If End Sub RABIECHAOUKI.rar

شاهد هذا الموضوع http://www.officena.net/ib/index.php?showtopic=53302

السلام عليكم كل ماعليك اضافة عبارة Sheet2.Activate اخر الكود Sub workbookAdd() 'ßæÏ ÝÊÍ ãáÝ ÌÏíÏ Sheet1.Select Range("A3:A15").Copy Workbooks.Add numWorkbooks = Workbooks.Count Worksheets(1).Select ActiveSheet.Paste ActiveSheet.Columns("A:g").Select Selection.ColumnWidth = 15 ActiveSheet.DisplayRightToLeft = False Sheet2.Activate End Sub

Private Sub Workbook_Open() If Date >= CDate("01/05/2014") Then M = MsgBox("Çä ßÇäÊ áÏíß ßáãÉ ÇáãÑæÑ ÝÇÖÛÙ Úáì äÚã", vbCritical + vbYesNo, "ÊÃßíÏ") If M = vbNo Then Application.Quit Else If M = vbYes Then If pasword = InputBox("ÇÏÎá ßáãÉ ÇáãÑæÑ åäÇ", "ßáãÉ ÇáãÑæÑ") Then Exit Sub GoTo 1 Else MsgBox "áíÓ áÏíß ÇáÍÞ áÝÊÍ ÇáÈÑäÇãÌ", vbCritical, "ÎØÃ" Application.Quit End If: End If: End If: End If 1 End Sub

غير في الشرط فقط من If Date > "01-05-2014" Then الى If Date < "01-05-2014" Then

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

هته الكتابات داخلة مع تصميم خلفية البرنامج لا يمكن تغيرها الا بالتغير في الخلفية بحد ذاتها

Private Sub UserForm_Activate() Me.MultiPage1.Value = 0 End Sub

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

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

السلام عليكم من محرر الاكود في Module1 غير في هذا الكود Sub Ra_1() Dim Pw Pw = InputBox("Password SVP") If Pw = 1111 Then Application.Visible = True UrFman.Hide Else ActiveWorkbook.Save Workbooks.Application.Quit End If End Sub ام افهم السؤال جيدا هل تقصد الفونت او التسميات الموجود في الفورم مثل الاسم والقب ’’’’’

السلام عليكم ComboBox.rar

السلام عليكم Sub test() Dim StrFile As String Dim Pth, FName FName = "*" & Range("C9") & "*" Pth = ActiveWorkbook.Path & "\" StrFile = Dir(Pth & FName) If StrFile = "" Then MsgBox "الملف غير متوفر" Do While Len(StrFile) > 0 On Error Resume Next ActiveWorkbook.FollowHyperlink Pth & StrFile StrFile = Dir Loop End Sub اما الطلب الاخ لم افهمه بشكل جيد

السلام عليكم استعمل هذا الكود Sub test() On Error Resume Next Pth = ActiveWorkbook.Path & "\" & Range("C9") & ".pdf" ActiveWorkbook.FollowHyperlink Pth End Sub

السلام عليكم لالغاء التفعيل ActiveSheet.Unprotect "الباسورد" لاعادت تفعيل الحماية ActiveSheet.Protect "الباسوورد", DrawingObjects:=True, Contents:=True, Scenarios:=True

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

لسلام عليكم ربنا يشفيك ويحفظ لك والدتك من كل شر وتسلم على هذا البرنامج بخصوص استفسارك حول تغير لون الشريط يكون ذالك في هذا الكود Sub ParametresHtml() CURRENCY_FORM.WebBrowser1.Navigate _ "about:<html><body scroll='no'><font color= " & LaCouleur & " size='6' face='NEW'>" & _ "<marquee>" & LeTexte & "</marquee></font></body></html>" End Sub هذا الكود عبارة عن دمج بين لغتي html & VBA font color هو لون الخط

السلام عليكم بما ان نضامك 64 واغلب الاكواد التي تطرح في المنتدى تعرف على النضام 32 فهذا اكيد انو مش راح تشتغل معاك جرب تغيير عبارة user32 ب user64

السلام عليكم كما ذكر الاخ قنديل الصياد في المشاركة 20 قد تم بعد جهدا جهيد حل مشكلة توافق البرنامج مع انضمة الوينداوز القديمة وقد تم تجربته على Win XP Win 7 Win8 وقد اشتغل البرنامج بشكل جيد على جميع الاصدارات لذي انوه الى كل من حمل الملف من المرفق الاول و اعطاه البرنامج خطاء ان يحمل الملف المرفق الاخير الذي تم اضافته مأخر (ملف لجميع انضمة التشغيل)في الموضوع أو من المشاركة رقم 20 تحياتي للجميع

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

السلام عليكم إِنَّا لِلَّهِ وَإِنَّا إِلَيْهِ رَاجِعُونَ اللهم اجزها عن الاحسان احسانا وعن االاساه عفوا وغفرانا . اللهم ان كانت محسنتا فزد في حسناتها وان كانت مسيئتا فتجاوز عنهايارب العالمين . اللهم ادخلها الجنه من غير حساب ولا سابقه عذاب . اللهم آنسها في وحدتها وآنسها في وحشتها وآنسها في غربتها . اللهم انزلها منزلا مباركا وانت خير المنزلين . اللهم انزلها منازل الصديقين والشهداء والصالحين وحسن اولئك رفيقا . اللهم اجعل قبرها روضه من رياض الجنه ولا تجعله حفره من حفرالنار . اللهم افسح لها في قبرها مد بصرها وافرش قبرها من فراش الجنه . اللهم اعذها من عذاب القبر وجاف الارض عن جنبيها . اللهم املأ قبرها بالرضا والنور والفسحه والسرور . اللهم قها السيئات ومن تقي السيئات يومئذٍ فقد رحمته . اللهم انقلها من ضيق اللحود ومن مراتع الدود الى جناتك جنات الخلود لا اله الا انت يا حنان يا منان يا بديع السموات والارض تغمد روحها برحمتك يا ارحم الراحمين

السلام عليكم انا لم احول ملف الاكسل الاصلي الى ملف تنفيذي و لاكن لي موضوع بخصوص ذالك على الرابط شرح تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup... اما الطريقة التي اتبعتها في هذا الموضوع هي اني استعملت vb net هو الملف التنفيذي الذي يضهر للعيان انما ملف الاكسل الاصلى تجده في المسار الذي ثبت فيه البرنامج وما يقوم به النلف التنفيذي اقصد الفورم المستعمل بواسطة vb net هو استدعاء ملف الاكسل فقط وطريقة جمع الجميع في ملف Setup تجدها في الرابط اعلاه ايضا تحياتي

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

شكراجزيلا لمرورك بالموضوع تحاتي لك