Yasser Fathi Albanna

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

وهذا كود حماية ورقة العمل عن طريق نوع القيمة Sub SetProtection() On Error GoTo errorHandler Dim myDoc As Worksheet Dim cel As Range Set myDoc = ActiveSheet myDoc.Unprotect For Each cel In myDoc.UsedRange If Not cel.HasFormula And _ Not TypeName(cel.Value) = "Date" And _ Application.IsNumber(cel) Then cel.Locked = False cel.Font.ColorIndex = 5 Else cel.Locked = True cel.Font.ColorIndex = xlColorIndexAutomatic End If Next myDoc.Protect Exit Sub errorHandler: MsgBox "Error" End Sub

وهذ كود رسالة ترحيب Sub ConcatenateExample() Dim FName As String, SName As String FName = "Engineer" SName = "Yasser" MsgBox "Welcome " & FName & " " & SName End Sub

السيد الفاضل وجدت هذه الأكواد من فترة ولكن أريد شرح لها وهل يمكن الإستفادة منها Sub WhichLibrary() 'Excel's Round function MsgBox Application.WorksheetFunction.Round(10.2356, 2) 'VBA's Round function MsgBox Round(10.2356, 2) End Sub Sub StringExample1() Dim strString As String strString = "Microsoft Excel VBA" 'Returns 17 (17th character starting from first character) MsgBox InStr(1, strString, "V", vbTextCompare) 'Returns 7 (7th character from left starting ‘at the sixth position) MsgBox InStr(6, strString, "o", vbTextCompare) End Sub Sub StrngExample2() MsgBox Format(12.5 * 1.175, "£0.00") End Sub

وهذا الكود وجدته ولكن لا أعرف فائدته Sub RandomNumber() Dim intNumber As Integer intNumber = Int((100 * Rnd) + 1) MsgBox intNumber End Sub

وهذا كود الفرق بين تاريخين مشاركة منى ومش عارف هذا الكود موجود من قبل أم لا أعتزر إن كان موجود من قبل Sub DateExample2() Dim dtmStartDate As Date dtmStartDate = #5/2/2010# MsgBox DateDiff("m", dtmStartDate, Date) & " Months" End Sub

أحببت أن أشارك معكم هذا العمل العظيم وجدت هذا العمل ضمن بحثى داخل الإنترنت ولكن بالإنجليزى يا ريت ينال إعجابكم ويستفاد منه الجميع VBAcodeLibrary.rar

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

سلمت يداك أستاذ الجموعى وذادك الله من العلم الكثير والكثير

أشكرك أخى الفاضل ابو بهاء المصري وكل عام وحضرتك بخير

وحضرتك بألف صحة وسلامة أ / أبو محمد عباس وشكرا لكلماتك العطرة

أشكرك أخى خزانى وكل عام وحضرتك بخير وشكرا لدعائك الطيب

كل عام والجميع بألف صحة وسلامة 2015.zip

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

تسلم إيدك يا أستاذ / بن مصر ولك خالص الشكر والتقدير وشكرا لتعبك معايا

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

أخى الفاضل Ibn_eygpt الشكر والتقدير لإهتمامك ولكن هل فى إمكانية لتفعيل الأزرار نفسها لتقوم بنفس المهمة كما فى الشيت الذى أرفقته فى البداية ولك خالص الشكر والتقدير

السادة أعضاء أعظم منتدى تحية طيبة وبعد مرفق شيت إكسيل به 20 شيت بهم أزرار أريد ربطهم بالصفحة الرئيسية والعكس ربط الصفحة الرئيسية بكل شيت للتنقل ما بين الصفحة الرئيسية وكل شيت على حدا مع تسمية الأزار فى الصفحة الرئيسية بإسم الشيت المنتقل إليه مع شرح إمكانية تغيير إسم الشيت فى الصفحة الرئيسية وفى الشيت نفسة إما بالأكواد وإما بالماكرو ولكننى حاولت بالماكرو ولم أنجح ولسيادتكم خالص الشكر والتقدير مع وافر التحية Sales Reports.rar

أخى أ / محمود الشريف سلمت يداك وهذا تطبيق على الكود + إضافة حضرتك على كود الأستاذ القدير ياسر خليل حفظه الله تطبيق كود تصفير الرصيد.rar

بارك الله فيك أ / محمود الشريف مرفق تطبيق للكود تطبيق للكود.rar

بارك الله فيك أستاذ حسام شرح ممتاذ ربنا يجعله فى ميذان حسناتك

وهذه مشاركة منى أيضا وكل عام وأسرة المنتدى وأعضاء المنتدى الكرام بخير 2015.rar

بارك الله فيك أخى وأستاذى القدير ياسر خليل وكل عام وحضرتك بألف صحة وسلامة

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

ألف ألف مبروك أستاذ / ياسر خليل ومن تقدم إلى تقدم بإذن الله