محمد يحياوي قام بنشر أغسطس 22, 2011 الكاتب قام بنشر أغسطس 22, 2011 فورم عرض العناصر الفريدة دون تكرار في لستبوكس عرض الفريدة فقط.zip
محمد يحياوي قام بنشر أغسطس 23, 2011 الكاتب قام بنشر أغسطس 23, 2011 لن تكون مضطرا الى اخفاء اوراقك بعد اليوم... فهذا الكود البسيط يقيد المستخدم في استعمال اوراقك Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'تمكينها يمكن تغيير الرقم 1 الى رقم الورقة التي تريد ' كل الاوراق الاخرى مقيدة Worksheets(1).Activate End Sub تقييد المستخدم للاستعمال ورقة محددة.zip 1
عبدالله المجرب قام بنشر أغسطس 23, 2011 قام بنشر أغسطس 23, 2011 الكود يقوم بادراج صفوف معينه ابتداءً من اي صف نختاره وكل عام وانتم بخير وخواتم مباركة Sub officna() Set XX = Application.WorksheetFunction X1 = InputBox(" حدد رقم الصف المطلوب ادراج صفوف ابتداءً منه", "OFFICNA") If IsNull(X1) Or X1 = "" Then Exit Sub X2 = InputBox(" حدد عدد الصفوف المراد ادراجها", "OFFICNA") If IsNull(X2) Or X2 = "" Then Exit Sub X3 = XX.Sum(X1, X2) Rows(X1 & ":" & X3 - 1).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A" & X1).Select End Sub اخوكم ابو احمد ادراج عدد ميعين من الصفوف ابتداء من صف محدد.rar
محمد يحياوي قام بنشر أغسطس 25, 2011 الكاتب قام بنشر أغسطس 25, 2011 منع المستخدم من تحريك الفورم منع المستخدم من تحريك الفورم.zip
محمد يحياوي قام بنشر أغسطس 28, 2011 الكاتب قام بنشر أغسطس 28, 2011 اختفاء فورم بشكل متضائل و شفاف اختفاء فورم بشكل متضائل.zip
ياسر الحافظ قام بنشر سبتمبر 2, 2011 قام بنشر سبتمبر 2, 2011 العزيز / استاذنا " يحياوي " اشكرك في المرفقات كود فرز ومسح للمدخلات المكررة في صفحة من اعمال استاذنا العزيز عبد الله المجرب " ابو احمد " بتصرف ياسر وفقك الله ابو الحارث فرز ومسح المكرر.rar
محمد يحياوي قام بنشر سبتمبر 4, 2011 الكاتب قام بنشر سبتمبر 4, 2011 شكرا لك اخي الحبيب "ابا الحارث" و شكرا لاخينا الحبيب "ابو احمد" كود ارجاع الخط الافتراضي و مسح جميع التنسيقات Sub RemoveFormatsAndRestoreFont() Application.ScreenUpdating = False Selection.ClearFormats Application.ScreenUpdating = True End Sub الخط الافتراضي و حذف كل التنسيقات.rar
الـعيدروس قام بنشر سبتمبر 13, 2011 قام بنشر سبتمبر 13, 2011 السلام عليكم هذا كود رسالة ترحيب مع تاريخ اليوم هجري وميلادي هذا لقراءة الكود عند فتح المصنف Private Sub Workbook_Open() Call MACRO15 End Sub وهذا هو الكود Sub MACRO15() Dim thedate As String, thetime As String, greeting As String, fullname As String, firstname As String, ali As String Dim spaceinname As Integer, abood As String, alidroos As String, MY As String, thkr As String, thedat As String VBA.Calendar = vbCalGreg thedat = Format(Date, "long date") VBA.Calendar = vbCalHijri thedate = Format(Date, "long date") thetime = Format(Time, "medium time") abood = "التـاريخ هجري" ali = "التاريخ ميلادي" alidroos = "السـاعه" thkr = "لاتنسـى ذكــر الله" MY = "مع تحيـات أبو نصـار maicl2010ye@gmail.com" Select Case Time Case Is < TimeValue("12:00"): greeting = "السـلام عليكم صبــاح الخير" Case Is >= TimeValue("12:00"): greeting = "السـلام عليكم مســاء الخير" Case Else: greeting = "تصبح على خير" End Select fullname = Application.UserName spaceinname = InStr(1, fullname, "", 1) If spaceinname = 0 Then spaceinname = Len(fullname) firstname = Left(fullname, spaceinname) greeting = greeting MsgBox abood & thedate & vbNewLine & "=====================" & vbNewLine & vbCrLf & ali & thedat & vbNewLine & "=====================" & vbNewLine & vbCrLf & alidroos & thetime & vbNewLine & "=====================" & vbNewLine & vbCrLf & thkr & vbNewLine & "=====================" & vbNewLine & vbCrLf & MY & vbNewLine & "====================================" & vbNewLine, vbInformation, greeting End Sub وهذا المرفق والسلام عليكم كود رسالة ترحيب (التاريخ-الوقت-ملاحظات اخرى).rar 1
محمد يحياوي قام بنشر سبتمبر 17, 2011 الكاتب قام بنشر سبتمبر 17, 2011 الاخ الحبيب ابو نصار بارك الله فيك هذا كود ادراج ساعة رقمية في خلية او فورم يعني بثلاثة طرق clock in userform .rar 1
محمد يحياوي قام بنشر سبتمبر 19, 2011 الكاتب قام بنشر سبتمبر 19, 2011 كود غلق الملف الغير نشط بعد مدة من الزمن 30د مثلا يحدث في بعض المرات ان تترك الملف مفتوحا وفيه بعض البيانات المهمة و الحساسة و يمكن ان تطول مدة غيابك اذا ليس لك حل سوى هذا الكود و هو ينوب عنك في حفظ البيانات و غلق الملف ارجوا ان يحوز اعجابكم Private Sub Workbook_SheetActivate(ByVal Sh As Object) Call Timer End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Call Timer End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call yahp End Sub Public vartimer As Variant Sub Timer() Call yahp vartimer = Format(Now + TimeSerial(0, 30, 0), "hh:mm:ss") If vartimer = "" Then Exit Sub Application.OnTime TimeValue(vartimer), "yahm" End Sub Sub yahm() With Application .EnableEvents = False ActiveWorkbook.Save .Quit End With End Sub Sub yahp() On Error Resume Next Application.OnTime earliesttime:=vartimer, _ procedure:="yahm", schedule:=False On Error Goto 0 End Sub 3
ياسر الحافظ قام بنشر سبتمبر 20, 2011 قام بنشر سبتمبر 20, 2011 كود غلق الملف الغير نشط بعد مدة من الزمن 30د مثلا يحدث في بعض المرات ان تترك الملف مفتوحا وفيه بعض البيانات المهمة و الحساسة و يمكن ان تطول مدة غيابك اذا ليس لك حل سوى هذا الكود و هو ينوب عنك في حفظ البيانات و غلق الملف ارجوا ان يحوز اعجابكم اخي العزيز / الاستاذ محمـــــــــــد يحياوي ارفقت لك ملف بخصوص هذا الكود .... " لم يعمل معي " ربما لم استوعب الكود ... ارجو ان تساعدني والمرفقات ان شاء الله توضح المطلوب وفقك الله ابو الحارث غلق الملف اليا بعد مدة.rar
محمد يحياوي قام بنشر سبتمبر 20, 2011 الكاتب قام بنشر سبتمبر 20, 2011 أريد كود بحيث عندما أضعه في برنامجي لا يستطيع سرقته أي شخص ولا يستطيع فتحه في أي جهاز كمبيوتر مهما كان إلا بحضوري وعند تغيير جهاز الكمبيوتر تخرج له رسالة تقول لقد قمت بعملية غير شرعية لهذا البرنامج الرجاء الإتصال بصاحب البرنامج الاخ الحبيب "طاهر" الحماية في اكسل غير تامة و كلما ازداد الشخص خبرة تعلم كثيرا من طرق الحماية و بالمقابل سيكتشف ايضا الكثير من طرق كسر الحماية لذلك اخي الكريم لا تجهد نفسك كثيرا في البحث عن طرق الحماية فهناك عقبة كبيرة امام طرق الحماية و هي امان الماكرو اذا حلت هذه المشكلة يستحيل بعدها كسر حماية اي ملف اخي العزيز / الاستاذ محمـــــــــــد يحياوي ارفقت لك ملف بخصوص هذا الكود .... " لم يعمل معي " ربما لم استوعب الكود ... ارجو ان تساعدني والمرفقات ان شاء الله توضح المطلوب وفقك الله ابو الحارث الاخ الحبيب "ابو الحارث" هناك كودان الكود الاول يوضع في حدث Workbook_SheetActivate اما الكود الثاني يوضع في موديل عادي وهذا الملف للتجربة يغلق بعد 2د ارجوا ان اكود قد وصلت الفكرة ... وفقك الله اخي ابو الحارث غلف ملف غير نشط.rar 1
محمد يحياوي قام بنشر سبتمبر 27, 2011 الكاتب قام بنشر سبتمبر 27, 2011 اخونا الحبيب : يحياوي الكود الخاص بـ كود فرز ومسح للمدخلات المكررة يحتاج التدخل الجراحي .. من فضلك جرب خالص تقديري لك ولإخينا عبد الله المجرب ، الفكرة رائعة الاخ الحبيب "حسن" ارجوا ان يفي الملف بالغرض مسح المكرر.rar
محمد يحياوي قام بنشر سبتمبر 28, 2011 الكاتب قام بنشر سبتمبر 28, 2011 كود وميض نص "Blink" وميض نص.rar 1
عبدالله المجرب قام بنشر أكتوبر 1, 2011 قام بنشر أكتوبر 1, 2011 (معدل) الاستاذ الفاضل يحياوي المعذرة تم انشاء موضوع جديد يخص وميض النص بشروط وذلك للفائدة. هذا رابطه http://www.officena.net/ib/index.php?showtopic=38622 ابواحمد تم تعديل أكتوبر 1, 2011 بواسطه عبدالله المجرب
محمد يحياوي قام بنشر أكتوبر 2, 2011 الكاتب قام بنشر أكتوبر 2, 2011 الاخ الحبيب "ابو أحمد" شكرا لتفاعلك مع الموضوع هذا كود وميض نص مع عدة شروط و نطاق من عدة اعمدة وميض3 .rar 1
الـعيدروس قام بنشر أكتوبر 2, 2011 قام بنشر أكتوبر 2, 2011 السلام عليكم كود جعل التركيز على الشيت في حالة الفورم مفتوح هذا في حالة فتح الفورم عن طريق زر Sub OPEN_FPRM() UserForm1.Show vbModeless MyAppActive Application.hwnd End Sub وهذا الكود ينحط في موديل Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long Public Sub MyAppActive(Handle As Long) Dim lngStatus As Long lngStatus = SetForegroundWindow(Handle) End Sub وهذا بديل لكود فتح الفورم في حالة تريد فتح الفورم عن طريق خليه معينه Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("C3")) Is Nothing Then UserForm1.Show vbModeless MyAppActive Application.hwnd End If End Sub ولي طلب ارجو من لديه كود لجعل الفورم في المقدمه ولاكن في الويندوز عامه وليس في االاكسل فقط بمجرد ماافتح برنامج ترجع الفورمه فوقه وهكذا تحياتي وهذا مرفق تركيز على الشيت.rar
عبدالله المجرب قام بنشر أكتوبر 3, 2011 قام بنشر أكتوبر 3, 2011 هذا كود لجعل الفورم دوماً في المقدمة الكود من ابداعات الاستاذ يحياوي حفظه الله ورعاه اظهار الفورم دوما في المقدمة.rar
محمد يحياوي قام بنشر أكتوبر 3, 2011 الكاتب قام بنشر أكتوبر 3, 2011 كود وميض نص في مدى معين و يمكن تغيير معيار الشرط من داخل خلية وميض4.rar
بن علية حاجي قام بنشر أكتوبر 3, 2011 قام بنشر أكتوبر 3, 2011 (معدل) السلام عليكم ورحمة الله إخواني الكرام إن الأعمال التي تقدمونها جميلة ورائعة بارك الله فيكم وجازاكم خير الجزاء... قمت ببعض الإضافات والتغييرات على كود الوميض (باستعمال جزء من كود للأخ الكريم والحبيب خبور خير) بتصرف طفيف ليعمل الكود حسب الطلب الأخير أي لجعل الوميض يخص كلمة من خلية... وأضيف للورقة عمودان بهما معادلات للبحث عن موضع الكلمة التي نبحث عنها في خلايا العمود A مع حساب طولها (ضرورية لعمل الكود)... والكود لا يعمل إلا مع كلمة واحدة (الأولى في الخلية المعنية) ربما يجد لها إخواني حلا آخر حتى توميض كل الكلمات الموجودة في الخلية الواحدة... أخوكم بن علية وميض5.rar تم تعديل أكتوبر 3, 2011 بواسطه hben
محمد يحياوي قام بنشر أكتوبر 3, 2011 الكاتب قام بنشر أكتوبر 3, 2011 الاخ الحبيب "بن علية" دخولك الى الموضوع زاده زخما و ثراء ... اشكرك على الفكرة الرائعة و الكود جميل جدا ... بعد التعديل على الكود اصبحت كل كلمات الخلية تومض ... مع شكري و امتناني وميض6.rar
محمد يحياوي قام بنشر أكتوبر 5, 2011 الكاتب قام بنشر أكتوبر 5, 2011 كود اختيار الطابعة Application.Dialogs(xlDialogPrinterSetup).Show 2
محمد يحياوي قام بنشر أكتوبر 6, 2011 الكاتب قام بنشر أكتوبر 6, 2011 كود اظهار فورم عن طريق زر الفأرة الايمن اظهار فورم عن طريق زر الفأرة الايمن.rar 1
محمد يحياوي قام بنشر أكتوبر 7, 2011 الكاتب قام بنشر أكتوبر 7, 2011 طلب لاخي الحبيب "ابو نصار" ... جعل فورم في مقدمة البرامج مع التحكم في جعله في الخلفية ايضا اظهار الفورم دوما في المقدمة2 .rar
محمد يحياوي قام بنشر أكتوبر 8, 2011 الكاتب قام بنشر أكتوبر 8, 2011 بداية اشكر الاخ العزيز "طاهر" على الكلام الجميل و المشجع و اقول بارك لك في نفسك و اهلك و ولدك و زادك من علمه تريد ان تبحث عن كلمة او نص في خلية في ورقة او في جميع اوراق المصنف ... تحصل على جميع نتائج البحث في ورقة جديدة مع جميع ارتباطات الخلايا محل البحث بحث عن.rar
الردود الموصى بها