أبو چيداء

لو اردت ان اجعل الحماية على عدة اعمدة غير متتالية فما الكود مثلا العمود A,F,S,Z فماذا الحل

المشكلة الاولى اذا كانت النتيجة فى الليست بوكس فى صف واحد وليست اكثر من صف تأتر النتيجة تحت بعضها وليست فى صف واحد(فى المرفقات) المشكلة الثانية ولكنها ليست فى هذا الشيت والكود فى الاسفل والمشكلة انها لوالليست بكوس الاولى بها اربعة سطور تاتى النتيجة فى الليست بوكس الثانية النتيجة مسبوقة باربعة سطور خاليين فما الحل Private Sub TextBox1_Change() Set ws1 = Sheets("sheet1") Set ws2 = Sheets("sheet2") Set ws3 = Sheets("sheet3") Dim arr() Dim arr2() Me.TextBox2 = "" Me.TextBox4 = "" Me.TextBox5 = "" Me.TextBox7 = "" Me.TextBox8 = "" Me.TextBox9 = "" Me.TextBox10 = "" Me.TextBox13 = "" Me.TextBox14 = "" Me.TextBox15 = "" ListBox1.Clear ListBox2.Clear LR = ws1.Cells(Rows.Count, 1).End(xlUp).Row LR2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row LR3 = ws3.Cells(Rows.Count, 1).End(xlUp).Row Set Rng1 = ws1.Range("A2:A" & LR) Set Rng2 = ws2.Range("A2:A" & LR2) Set Rng3 = ws3.Range("A2:A" & LR3) X = Val(Me.TextBox1) '======================================= On Error Resume Next For Each cl In Rng1 If cl = X Then Me.TextBox2 = cl.Offset(0, 1) Me.TextBox4 = cl.Offset(0, 3) Me.TextBox5 = cl.Offset(0, 2) Me.TextBox7 = cl.Offset(0, 4) Me.TextBox8 = cl.Offset(0, 5) Me.TextBox9 = cl.Offset(0, 6) Me.TextBox10 = Format(cl.Offset(0, 8), "# ") Exit For End If Next For Each clll In Rng3 If clll = X Then i = i + 1 ReDim Preserve arr(1 To 2, 1 To i) arr(1, i) = clll.Offset(0, 19) arr(2, i) = clll.Offset(0, 23) End If Next R = UBound(arr, 1): RR = UBound(arr, 2) Me.ListBox2.List = Application.WorksheetFunction.Transpose(arr) For Each cll In Rng2 If cll = X Then i = i + 1 ReDim Preserve arr2(1 To 5, 1 To i) arr2(1, i) = cll.Offset(0, 2) arr2(2, i) = Format(cll.Offset(0, 3), "yyyy/mm/dd") arr2(3, i) = Format(cll.Offset(0, 4), "yyyy/m/dd") arr2(4, i) = cll.Offset(0, 5) arr2(5, i) = Format(cll.Offset(0, 6), "0%") End If Next R = UBound(arr2, 1): RR = UBound(arr2, 2) Me.ListBox1.List = Application.WorksheetFunction.Transpose(arr2) Set sh2 = Sheets("Appraisal") LR4 = sh2.[A10000].End(xlUp).Row For Each cl In sh2.Range("A2:A" & LR4) If Val(Me.TextBox1) = cl Then Me.TextBox13 = cl.Offset(0, 35) Me.TextBox14 = cl.Offset(0, 36) Me.TextBox15 = cl.Offset(0, 37) End If Next End Sub هام جدا3.zip

اخى العزيز ابراهيم ابو ليلة الليست بوكس فى شيت اخر بها عمودين فقط فما الرقم الذى اكتبه مثل الكود(X = Me.ListBox2.Column(3 مع العلم ان رقم العمودين الذن فى الليست بوكس على احتساب ان العمود A رقم واحد ترتيبهم العمود رقم 20 والعمود رقم 24 مع العلم اننى اريد ان اظلل الصف باكمله

شكرا جزيلا ولكنى اريد ان اعرف ما معنى ذلك 'Me.Label6 = Me.ListBox2.Column(3) X = Me.ListBox2.Column(3

اين عمالقة المنتدى

اريد كوماند للسطر المختار فى الليست بوكس لتغير لون هذا السطر فى الشيت الاصلى هام جدا3.rar

اخى ياسر الكود يعمل جيدا ولكنى اضفت ليست بوكس 2 ليأخذ داتا من شيت اخر ولكنه ياخذ نفس الداتا من الشيت الاخر

Set ws1 = Sheets("HR DB") Set ws2 = Sheets("3 Y History") Set ws3 = Sheets("Plan 2015") Dim arr() Me.TextBox2 = "" Me.TextBox4 = "" Me.TextBox5 = "" Me.TextBox7 = "" Me.TextBox8 = "" Me.TextBox9 = "" Me.TextBox10 = "" ListBox1.Clear ListBox2.Clear LR = ws1.Cells(Rows.Count, 1).End(xlUp).Row LR2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row LR3 = ws3.Cells(Rows.Count, 1).End(xlUp).Row Set Rng1 = ws1.range("A2:A" & LR) Set Rng2 = ws2.range("A2:A" & LR2) Set Rng3 = ws3.range("A2:A" & LR3) x = Val(Me.TextBox1) '======================================= On Error Resume Next For Each cl In Rng1 If cl = x Then Me.TextBox2 = cl.Offset(0, 1) Me.TextBox4 = cl.Offset(0, 3) Me.TextBox5 = cl.Offset(0, 2) Me.TextBox7 = cl.Offset(0, 4) Me.TextBox8 = cl.Offset(0, 5) Me.TextBox9 = cl.Offset(0, 6) Me.TextBox10 = Format(cl.Offset(0, 8), "# ") Exit For End If Next For Each clll In Rng3 If clll = x Then i = i + 1 ReDim Preserve arr(1 To 2, 1 To i) arr(1, i) = clll.Offset(0, 20) arr(1, i) = clll.Offset(0, 23) End If Next R = UBound(arr, 1): RR = UBound(arr, 2) Me.ListBox2.List = Application.WorksheetFunction.Transpose(arr) For Each cll In Rng2 If cll = x Then i = i + 1 ReDim Preserve arr(1 To 5, 1 To i) arr(1, i) = cll.Offset(0, 2) arr(2, i) = Format(cll.Offset(0, 3), "yyyy/mm/dd") arr(3, i) = Format(cll.Offset(0, 4), "yyyy/m/dd") arr(4, i) = cll.Offset(0, 5) arr(5, i) = Format(cll.Offset(0, 6), "0%") End If Next R = UBound(arr, 1): RR = UBound(arr, 2) Me.ListBox1.List = Application.WorksheetFunction.Transpose(arr) End Sub

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Const SW_SHOWMAXIMIZED As Long = 3 Private Const SW_SHOWNORMAL As Long = 1 Sub CommandButton4_Click() Dim strPath As String strPath = "D:\" & "\" & TextBox1.Value & ".pdf" If ShellExecute(0&, "Open", strPath, 0&, 0&, SW_SHOWNORMAL) < 33 Then MsgBox "Couldn't open PDF file.", vbInformation End If End Sub

اريد كود لفتح ملف PDF داخل الفورم واسم الملف هو نتيجة textbox1

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

بالمرفقات ملف به العمود الاول محمى بالكود ولكنى اريد ان اعدل على هذا الكود والمطلوب هو:- لا يطلب منى الباسورد الا اذا قمت بالتعديل على الخلية او عدة خلايا بمعنى لو خلية مكتوب بها رقم واحد وقمت بعمل كوبى لخلية مكتوب بها نفس الرقم وعملت لصق فيها لا يطلب منى الباسورد لانها نفس النتيجة اما لو كانت العكس بها رقم 2 وقت بنسخ فيها التى بها رقم واحد فيطلب الباسورد لانه سوف يحدث تغير من واحد الى 2 ارجوا اكون وفق للتوضيح الموضوع هام جدا حماية العمود الأول.rar

حول مربع نص

اريد التفاف النص

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

اخى محمد انا لا اقصد هذا هذا الكود معى بالفعل فى مرفقات المشاركة الاولى فى المو

عمالقة اوفيسنا السلام عليكم ورحمة الله وبركاته اريد حماية العمود بالكود مثل الذى بالمرفقات بالمشاركة السابقة ولن اريد اذا كانت نفس النتيجة فلا يظهر الباسورد بمعنى لو اردت ان اكتب فى الخلية A1 كلمة محمد يطلب منى الباسورد اما اذا كانت بها محمد اصلا فلا يطلب منى شىء بمهنى اخر الباسورد يظهر فى التعديل فقط وشكرا

شكرا لك اخى شوقى

كيف اجعل المتغير هو Textbox1.value

كيف اجعل المتغير هو Textbox1.value

الطلوب بالمرفقات صورة شخصية.zip

Image1.Picture = LoadPicture("http://ilike-eg.suz.itcgr.net/hr/communities/training/Share/Training/Technical/Operational Folders/Summer Training 2014/Photo" & "\" & TextBox1.Value & ".jpg") lمع العلم ان لو غيرت اللينك باخر داخلى يعمل بشكل طبيعى فما الحل

الملف المرفق من إنشاء الاستاذ ابراهيم ابوليله ولكنه لا يعمل على اكسيل 2010 ارجوا تعديل الكود ليعمل على جميع اصدارات اكسيل وشكرا حماية العمود الأول.rar

الكود لا يعمل على اكسيل 2010

كيف استطيع تغير لون multipage داخل الفورم