أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





اظهار اسم المستخدم

السلام عليكم ورحمة الله وبركاته في صفحة الرئيسية U4 ارغب في اظهار اسم للمستخدم من عمود c في صفحة الصلاحيات وجزاكم ا ..


موضوع مغلق


30-06-2021 03:55 مساء
mostah
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 162
الدولة : الامارات العربية المتحدة
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 4
قوة السمعة : 222
 offline 

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

في صفحة الرئيسية U4 ارغب في اظهار اسم  للمستخدم من عمود c  في صفحة الصلاحيات 

وجزاكم الله كل خير


أفضل إجابة مقدمة من hassona229 وهي:
وعليكم السلام ورحمه الله وبركاته
الكود
Private Sub Worksheet_Change(ByVal Target As Range)

للورقه باسم (الرئيسية) امسح ما يوجد بها
في form1  :

  يوجد هذا السطر
With Range("D:D")

عدله الى
With Sheet1.Range("D:D")
وهذه الاسطر

MsgBox ("أهلا وسهلا بك في برنامج مسطاح"), vbOKOnly
form1.Hide
form2.Show
عدلها الى

MsgBox ("أهلا وسهلا بك في برنامج مسطاح"), vbOKOnly
form1.Hide
Sheet7.Range("u4").Value = Application.WorksheetFunction.VLookup(rngUser.Offset(0, -1).Value, Sheet1.Range("c2:c100"), 1, False)
Sheet7.Range("I4").Value = Date
Sheet7.Range("E4").Value = Application.WorksheetFunction.Text(Sheet7.Range("I4").Value, "dddd")
Sheet7.Range("P4").Value = Time
form2.Show



 
عرض الإجابة



توقيع :mostah
نسأل الله أن يرزقنا جميعًا العلم النافع والعمل الصالح، والرزق الطيب الواسع الذي يغنينا به عن خلقه إنه جواد كريم وصلى الله وسلم على نبينا محمد، وعلى آله وصحبه أجمعين.

زكاة العلم تعليمه
 

04-07-2021 06:55 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif اظهار اسم المستخدم
وعليكم السلام ورحمه الله وبركاته
الكود
Private Sub Worksheet_Change(ByVal Target As Range)

للورقه باسم (الرئيسية) امسح ما يوجد بها
في form1  :

  يوجد هذا السطر
With Range("D:D")

عدله الى
With Sheet1.Range("D:D")
وهذه الاسطر

MsgBox ("أهلا وسهلا بك في برنامج مسطاح"), vbOKOnly
form1.Hide
form2.Show
عدلها الى

MsgBox ("أهلا وسهلا بك في برنامج مسطاح"), vbOKOnly
form1.Hide
Sheet7.Range("u4").Value = Application.WorksheetFunction.VLookup(rngUser.Offset(0, -1).Value, Sheet1.Range("c2:c100"), 1, False)
Sheet7.Range("I4").Value = Date
Sheet7.Range("E4").Value = Application.WorksheetFunction.Text(Sheet7.Range("I4").Value, "dddd")
Sheet7.Range("P4").Value = Time
form2.Show



 

05-07-2021 10:31 صباحا
مشاهدة مشاركة منفردة [2]
mostah
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 162
الدولة : الامارات العربية المتحدة
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 4
قوة السمعة : 222
 offline 
look/images/icons/i1.gif اظهار اسم المستخدم
كود ممتاز
جزاك الله خير
توقيع :mostah
نسأل الله أن يرزقنا جميعًا العلم النافع والعمل الصالح، والرزق الطيب الواسع الذي يغنينا به عن خلقه إنه جواد كريم وصلى الله وسلم على نبينا محمد، وعلى آله وصحبه أجمعين.

زكاة العلم تعليمه
 

05-07-2021 11:31 صباحا
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif اظهار اسم المستخدم
الحمد لله الذي بنعمته تتم الصالحات 
وجزاكم مثله اخى الكريم 



الكلمات الدلالية
اظهار ، المستخدم ،


 










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

الساعة الآن 02:28 صباحا