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

جرب هذا الكود Option Explicit Sub Create_Hyper() Dim wsSheet As Worksheet Dim lnRow As Long Application.ScreenUpdating = False ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sheets("Sheet1").Range("H5:H" & Rows.Count).ClearContents lnRow = 5 For Each wsSheet In Sheets If wsSheet.Name <> "Sheet1" Then With Sheets("Sheet1") .Hyperlinks.Add .Cells(lnRow, "H"), "", _ SubAddress:="'" & wsSheet.Name & "'!A1", _ TextToDisplay:="Goto:" & wsSheet.Name End With lnRow = lnRow + 1 End If Next wsSheet Salim_button Application.ScreenUpdating = True End Sub '============================= Sub select_sheet() Sheets("Sheet1").Select End Sub '============================= Sub Salim_button() Dim x%: x = Sheets.Count Dim i% For i = 1 To x If Sheets(i).Name <> "Sheet1" Then Sheets(i).Buttons.Delete With Sheets(i).Buttons.Add(218.5, 1.5, 170, 31) .OnAction = "select_sheet" .Font.Name = "Calibri" .Font.FontStyle = "Bold Italic" .Font.ColorIndex = 3 .Characters.Text = " SALIM SAY: Go_To_SHEET1" End With End If Next End Sub الملف مرفق Hyper_to_sheets.xlsm

نعم يمكن ذلك

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

الاخوة الزملاء السلام عليكم ورحمة الله وبركاتة برنامج مجاني علي الاكسيل لاقرار ضريبة القيمة المضافة برنامج سهل وبسيط خصائص البرنامج غلق جميع الخلايا التي تحتوي علي معادلات حفظ البيانات بمجرد الخروج العودة للقائمة الرئيسية في كل مرة يتم فتح البرنامج فيها استخدام اوامر الطباعه في الشيت الخاص بالاقرار التقارير إقرار ضريبة القيمة المضافة نموذج10 الخاص بكل شهر التحليل الشهري لفواتير المبيعات والمشتريات تفريغ الاقرارات user : How To Excel password: hte إقرار ضريبة القيمة المضاف 2.0.rar

السلام عليكم وضع رقم سري على النموذج بطريقتين اظهار السجل المخفي والسماح بالكتابة وفك الاغلاق الرقم السري 12345 اتمنى لكم الفائدة pass_code.accdb

السلام عليكم اخي العزيز اذا كنت تريد جعل الخط Bold بالنموذج بعد التحديث ضع الكود التالي وكذلك تغيير لون الخلفية للنص Private Sub text2_AfterUpdate() Me.text2.FontBold Me.text2.BackColor = 14024153 End Sub

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

السلام عليكم مصدر السجل txt1 و txt2 الحقول txt2 هو الحقل الذي يكون النص فيه عريض =[txt1] & "<br><b>" & [txt2] & "</b>" او اذا كان في نفس السطر =[txt1] & " <b> " & [txt2] & "</b>" بالتوفيق إن شاء الله

السلام عليكم جرب المرفق إن كنت قد فهمت المطلوب جيدا.... بن علية حاجي Akssat.xlsx

انظر المرفق ::بالتوفيق:: DB2 (2).rar

جرب هذا الكود Option Explicit Sub find_comm() Dim My_Sh As Worksheet Set My_Sh = Sheets("المطلوب") Dim r%, I%, K%, Col%, m%, com$, Ro% m = 5: Col = 2 My_Sh.Range("a5").CurrentRegion.Offset(1).ClearContents For I = 1 To Sheets.Count If Sheets(I).Name <> My_Sh.Name Then My_Sh.Cells(Ro + 5, 1) = Sheets(I).Name: Ro = Ro + 1 r = Sheets(I).Cells(Rows.Count, 2).End(3).Row If r < 5 Then GoTo next_i For K = 5 To r On Error Resume Next com = Sheets(I).Cells(K, 2).Comment.Text If Err.Number = 0 Then My_Sh.Cells(m, Col) = Cells(K, 2).Address Col = Col + 1 End If Next K End If m = m + 1: Col = 2 next_i: Next I End Sub الملف مرفق Salim_المطلوب - .xlsm

تفضل أخى استمارة التقييم.rar

السلام عليكم يمكن بالاضافة لحلول اخي صباح واخي ابو احمد يمكن استخدام الدوال التالية =DAY(DATE(YEAR(A2),MONTH(A2)+1,1)-1) =DAY(DATE(YEAR(A2),MONTH(A2)+1,)) =DAY(EOMONTH(A2,0)) ويمكن عن طريق الاكواد استخدام الكود التالي: [d1] = Day(DateSerial(Year([a2]), Month([a2]) + 1, 0))