مساعدة في عرض الوقت و الساعة

[حراثي تواتي]

السلام عليكم اخواني الافاضل

هل بامكانكم مساعدتي في كود على اليوزر فورم لعرض الساعة في "Label5" و عرض الوقت في "Label6"

و في انتظار ردكم عن تساؤلي تقبلوا مني فائق عبارات الاحترام و التقدير

 

عرض الوقت و الساعة.rar

[الجموعي]

في حدت اليوزرم فورم

Private Sub UserForm_Initialize()

End Sub

أضف هذا الكود

Me.Label5.Caption = Format(Now, "hh:mm")

Me.Label6.Caption = Format(Date, "yyyy/mm/dd")

 

[حراثي تواتي]

7 دقائق مضت, الجموعي said:

في حدت اليوزرم فورم

Private Sub UserForm_Initialize()

End Sub

أضف هذا الكود

Me.Label5.Caption = Format(Now, "hh:mm")

Me.Label6.Caption = Format(Date, "yyyy/mm/dd")

 

شكرا اخي الكريم على الرد و الافادة

هذا الكود الذي جربته و ضبط معي

Private Sub UserForm_Activate()
Do
Me.Label59.Caption = Format(Now, "hh:mm:ss")
DoEvents
Loop
End Sub

 

[عبد العزيز البسكري]

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

أخي الفاضل و أستاذي العزيز " حراثي تواتي "

و بعد إذن الأخ الغالي الذي أتشرّف بمعرفته " الجموعي "

لاحظ أخي " حرّاثي تواتي " و انتبه لهذا المر جيّدًا و ضعها قاعدة أمام عينيك ما دمتَ تريد تعلم الفورم بحول الله .. لا تنسَ هذا الدّرس أبدًا لأنّه أساس بداية التعلّم :

لا يمكن .. أعيد مرة أخرى .. لا يمكن أبدًا .. كتابة حدث الإينيسياليز أو حدث الأكتيVات أو أي حدث آخر أكثر من مرّة على الفورم ..

باليوزرفورم هذا الذي أرسلته موجود حدث ال INITIALIZE مسبقا .. و لذلك عندما وضع الأخ الفاضل " الجموعي " الكوديْن و هما أيضًا بحدث الاينيسياليز ..

إذن ..

فقط أدخل الكودين داخل هذا ال INITIALIZE .. بدون إعادة كتابة الحدث أكثر من مرة مثلما ذكرت لك

فائق إحتراماتي

[حراثي تواتي]

6 دقائق مضت, عبد العزيز البسكري said:

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

أخي الفاضل و أستاذي العزيز " حراثي تواتي "

و بعد إذن الأخ الغالي الذي أتشرّف بمعرفته " الجموعي "

لاحظ أخي " حرّاثي تواتي " و انتبه لهذا المر جيّدًا و ضعها قاعدة أمام عينيك ما دمتَ تريد تعلم الفورم بحول الله .. لا تنسَ هذا الدّرس أبدًا لأنّه أساس بداية التعلّم :

لا يمكن .. أعيد مرة أخرى .. لا يمكن أبدًا .. كتابة حدث الإينيسياليز أو حدث الأكتيVات أو أي حدث آخر أكثر من مرّة على الفورم ..

باليوزرفورم هذا الذي أرسلته موجود حدث ال INITIALIZE مسبقا .. و لذلك عندما وضع الأخ الفاضل " الجموعي " الكوديْن و هما أيضًا بحدث الاينيسياليز ..

إذن ..

فقط أدخل الكودين داخل هذا ال INITIALIZE .. بدون إعادة كتابة الحدث أكثر من مرة مثلما ذكرت لك

فائق إحتراماتي

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

كنت قد غيرت الحدث

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

كيف يمكنني ترحيل صورة من اليوزر فورم الى خلية معينة في صفحة الاكسيل

حبذا مثال تطبيقي

و شكرا مسبقا

[عبد العزيز البسكري]

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

أخي الفاضل " حراثي تواتي "

هذه إحدى الطرق .. مع وُجوب وضع الصّور بنفس مجلد الاكسل

هناك طرق أخرى سأحاول إيجاد أفضلها و أبسطها بإذن الله

إحتراماتي

 

إرسال الصورة إلى الشيت.rar

[محمد حسن المحمد]

4 ساعات مضت, حراثي تواتي said:

شكرا اخي الكريم على الرد و الافادة

هذا الكود الذي جربته و ضبط معي

Private Sub UserForm_Activate()
Do
Me.Label59.Caption = Format(Now, "hh:mm:ss")
DoEvents
Loop
End Sub

 

 

4 ساعات مضت, حراثي تواتي said:

شكرا اخي الكريم على الرد و الافادة

هذا الكود الذي جربته و ضبط معي

Private Sub UserForm_Activate()
Do
Me.Label59.Caption = Format(Now, "hh:mm:ss")
DoEvents
Loop
End Sub

 

 

4 ساعات مضت, حراثي تواتي said:

شكرا اخي الكريم على الرد و الافادة

هذا الكود الذي جربته و ضبط معي

Private Sub UserForm_Activate()
Do
Me.Label59.Caption = Format(Now, "hh:mm:ss")
DoEvents
Loop
End Sub

 

 

4 ساعات مضت, حراثي تواتي said:

شكرا اخي الكريم على الرد و الافادة

هذا الكود الذي جربته و ضبط معي

Private Sub UserForm_Activate()
Do
Me.Label59.Caption = Format(Now, "hh:mm:ss")
DoEvents
Loop
End Sub

 

 

4 ساعات مضت, حراثي تواتي said:

شكرا اخي الكريم على الرد و الافادة

هذا الكود الذي جربته و ضبط معي

Private Sub UserForm_Activate()
Do
Me.Label59.Caption = Format(Now, "hh:mm:ss")
DoEvents
Loop
End Sub

 

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

أخي الكريم حراثي تواتي لقد ساعدك إخوتي الكرام باﻷكواد وفقا لطلبكlabel 5 &6 إلا أنك عرضت كود به label 59&60 فكيف لأكوادهم أن تلبي طلبك إذا كانت المعطيات تختلف عما طلبت منهم .

جزاكم الله خيرا على كل ما قدمتموه إخوتي الجموعي وعبد العزيز وحراتي والسلام عليكم ورحمة الله وبركاته. 

تم تعديل مارس 17, 2016 بواسطه محمد حسن المحمد

[حراثي تواتي]

2 دقائق مضت, محمد حسن المحمد said:

 

 

 

 

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

أخي الكريم حراتي لقد ساعدك إخوتي الكرام باﻷكواد وفقا لطلبكlabel 5 &6 إلا أنك عرضت كود به label 59&60 فكيف لأكوادهم أن تلبي طلبك إذا كانت المعطيات تختلف عما طلبت منهم .

جزاكم الله خيرا على كل ما قدمتموه إخوتي الجموعي وعبد العزيز وحراتي والسلام عليكم ورحمة الله وبركاته. 

شكرا اخي على الرد

ليس هناك مشكل ، فقط الصورة ماخوذة من برنامج اخر

احتاج الى كود ترحيل صورة من اليوزر فورم الى خلية معينة في الاكسل ان امكن

وشكرا مسبقا

[ياسر خليل أبو البراء]

أخي الكريم حراثي

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

جزيتم خيراً جميعاً على مساهماتكم الرائعة

تقبلوا جميعاً تحياتي

 

[زياد عبد الجليل]

في 17/03/2016 at 16:08, عبد العزيز البسكري said:

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

أخي الفاضل و أستاذي العزيز " حراثي تواتي "

و بعد إذن الأخ الغالي الذي أتشرّف بمعرفته " الجموعي "

لاحظ أخي " حرّاثي تواتي " و انتبه لهذا المر جيّدًا و ضعها قاعدة أمام عينيك ما دمتَ تريد تعلم الفورم بحول الله .. لا تنسَ هذا الدّرس أبدًا لأنّه أساس بداية التعلّم :

لا يمكن .. أعيد مرة أخرى .. لا يمكن أبدًا .. كتابة حدث الإينيسياليز أو حدث الأكتيVات أو أي حدث آخر أكثر من مرّة على الفورم ..

باليوزرفورم هذا الذي أرسلته موجود حدث ال INITIALIZE مسبقا .. و لذلك عندما وضع الأخ الفاضل " الجموعي " الكوديْن و هما أيضًا بحدث الاينيسياليز ..

إذن ..

فقط أدخل الكودين داخل هذا ال INITIALIZE .. بدون إعادة كتابة الحدث أكثر من مرة مثلما ذكرت لك

فائق إحتراماتي

لكن اخي عبد العزيز التوقيت لا يتغير في اليوزرفور عند تغير توقيت النظام مثلا اذا تغيرت الدقائق في النظام الدقائق في اليوزرفورم تبقى ثابتة ارجو المساعدة في جعل هذا الكود يتماشى مع ساعة النظام و شكرا