(موضوع مميز ) بعض الاكواد المنفصلة قد تهم البعض

[محمد يحياوي]

فورم عرض العناصر الفريدة دون تكرار في لستبوكس

عرض الفريدة فقط.zip

[محمد يحياوي]

لن تكون مضطرا الى اخفاء اوراقك بعد اليوم...

فهذا الكود البسيط يقيد المستخدم في استعمال اوراقك

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    'تمكينها يمكن تغيير الرقم 1 الى رقم الورقة التي تريد

    ' كل الاوراق الاخرى مقيدة

    Worksheets(1).Activate

End Sub

تقييد المستخدم للاستعمال ورقة محددة.zip

[عبدالله المجرب]

الكود يقوم بادراج صفوف معينه ابتداءً من اي صف نختاره

وكل عام وانتم بخير وخواتم مباركة

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

[محمد يحياوي]

منع المستخدم من تحريك الفورم

منع المستخدم من تحريك الفورم.zip

[محمد يحياوي]

اختفاء فورم بشكل متضائل و شفاف

اختفاء فورم بشكل متضائل.zip

[ياسر الحافظ]

العزيز / استاذنا " يحياوي "

اشكرك

في المرفقات كود فرز ومسح للمدخلات المكررة في صفحة

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

وفقك الله

ابو الحارث

فرز ومسح المكرر.rar

[محمد يحياوي]

شكرا لك اخي الحبيب "ابا الحارث" و شكرا لاخينا الحبيب "ابو احمد"

كود ارجاع الخط الافتراضي و مسح جميع التنسيقات

Sub RemoveFormatsAndRestoreFont()

Application.ScreenUpdating = False

Selection.ClearFormats

Application.ScreenUpdating = True

End Sub

الخط الافتراضي و حذف كل التنسيقات.rar

[الـعيدروس]

السلام عليكم

هذا كود رسالة ترحيب مع تاريخ اليوم هجري وميلادي

هذا لقراءة الكود عند فتح المصنف

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

[محمد يحياوي]

الاخ الحبيب ابو نصار بارك الله فيك

هذا كود ادراج ساعة رقمية في خلية او فورم يعني بثلاثة طرق

clock in userform .rar

[محمد يحياوي]

كود غلق الملف الغير نشط بعد مدة من الزمن 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

[ياسر الحافظ]

كود غلق الملف الغير نشط بعد مدة من الزمن 30د مثلا

يحدث في بعض المرات ان تترك الملف مفتوحا وفيه بعض البيانات المهمة و الحساسة و يمكن ان تطول مدة غيابك

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

اخي العزيز / الاستاذ محمـــــــــــد يحياوي

ارفقت لك ملف بخصوص هذا الكود .... " لم يعمل معي "

ربما لم استوعب الكود ...

ارجو ان تساعدني والمرفقات ان شاء الله توضح المطلوب

وفقك الله

ابو الحارث

غلق الملف اليا بعد مدة.rar

[محمد يحياوي]

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

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

اخي العزيز / الاستاذ محمـــــــــــد يحياوي

ارفقت لك ملف بخصوص هذا الكود .... " لم يعمل معي "

ربما لم استوعب الكود ...

ارجو ان تساعدني والمرفقات ان شاء الله توضح المطلوب

وفقك الله

ابو الحارث

الاخ الحبيب "ابو الحارث" هناك كودان الكود الاول يوضع في حدث

Workbook_SheetActivate

اما الكود الثاني يوضع في موديل عادي

وهذا الملف للتجربة يغلق بعد 2د

ارجوا ان اكود قد وصلت الفكرة ... وفقك الله اخي ابو الحارث

غلف ملف غير نشط.rar

[محمد يحياوي]

اخونا الحبيب : يحياوي

الكود الخاص بـ كود فرز ومسح للمدخلات المكررة يحتاج التدخل الجراحي .. من فضلك جرب

خالص تقديري لك ولإخينا عبد الله المجرب ، الفكرة رائعة

الاخ الحبيب "حسن" ارجوا ان يفي الملف بالغرض

مسح المكرر.rar

[محمد يحياوي]

كود وميض نص "Blink"

وميض نص.rar

[عبدالله المجرب]

الاستاذ الفاضل يحياوي

المعذرة تم انشاء موضوع جديد يخص وميض النص بشروط وذلك للفائدة.

هذا رابطه

http://www.officena.net/ib/index.php?showtopic=38622

ابواحمد

تم تعديل أكتوبر 1, 2011 بواسطه عبدالله المجرب

[محمد يحياوي]

الاخ الحبيب "ابو أحمد" شكرا لتفاعلك مع الموضوع

هذا كود وميض نص مع عدة شروط و نطاق من عدة اعمدة

وميض3 .rar

[الـعيدروس]

السلام عليكم

كود جعل التركيز على الشيت في حالة الفورم مفتوح

هذا في حالة فتح الفورم عن طريق زر

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

[عبدالله المجرب]

هذا كود لجعل الفورم دوماً في المقدمة

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

اظهار الفورم دوما في المقدمة.rar

[محمد يحياوي]

كود وميض نص في مدى معين و يمكن تغيير معيار الشرط من داخل خلية

وميض4.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

إخواني الكرام إن الأعمال التي تقدمونها جميلة ورائعة بارك الله فيكم وجازاكم خير الجزاء... قمت ببعض الإضافات والتغييرات على كود الوميض (باستعمال جزء من كود للأخ الكريم والحبيب خبور خير) بتصرف طفيف ليعمل الكود حسب الطلب الأخير أي لجعل الوميض يخص كلمة من خلية... وأضيف للورقة عمودان بهما معادلات للبحث عن موضع الكلمة التي نبحث عنها في خلايا العمود A مع حساب طولها (ضرورية لعمل الكود)... والكود لا يعمل إلا مع كلمة واحدة (الأولى في الخلية المعنية) ربما يجد لها إخواني حلا آخر حتى توميض كل الكلمات الموجودة في الخلية الواحدة...

أخوكم بن علية

وميض5.rar

تم تعديل أكتوبر 3, 2011 بواسطه hben

[محمد يحياوي]

الاخ الحبيب "بن علية" دخولك الى الموضوع زاده زخما و ثراء ... اشكرك على الفكرة الرائعة و الكود جميل جدا ...

بعد التعديل على الكود اصبحت كل كلمات الخلية تومض ... مع شكري و امتناني

وميض6.rar

[محمد يحياوي]

كود اختيار الطابعة

Application.Dialogs(xlDialogPrinterSetup).Show

[محمد يحياوي]

كود اظهار فورم عن طريق زر الفأرة الايمن

اظهار فورم عن طريق زر الفأرة الايمن.rar

[محمد يحياوي]

طلب لاخي الحبيب "ابو نصار" ... جعل فورم في مقدمة البرامج مع التحكم في جعله في الخلفية ايضا

اظهار الفورم دوما في المقدمة2 .rar

[محمد يحياوي]

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

تريد ان تبحث عن كلمة او نص في خلية في ورقة او في جميع اوراق المصنف ...

تحصل على جميع نتائج البحث في ورقة جديدة مع جميع ارتباطات الخلايا محل البحث

بحث عن.rar