اهلا وسهلا بك فى بوابة الثانوية العامة ... سجل الان

العودة   بوابة الثانوية العامة المصرية > القرية الذكية > شروحات الحاسب

شروحات الحاسب (ممنوع وضع مواد خاضعة لحقوق النشر)

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
  #61  
قديم 04-11-2016, 05:59 PM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو متألق
 
تاريخ التسجيل: Sep 2008
المشاركات: 2,589
معدل تقييم المستوى: 12
alfa is on a distinguished road
New كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس

كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس
باستخدام
دالة date******
دالة mod
حلقة التكرار for...next
رابط ملف الشرح
https://drive.google.com/file/d/0Bw4...ew?usp=sharing

الكود
Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo 1
Dim i As Integer

For i = 1 To 31
Me.Controls("j" & i) = Format(Date******([Forms]![mf1]![mmm], 1, Me.Controls("d" & i)), "ddd")

Next i

For i = 1 To 30
Me.Controls("no" & i) = Format(Date******([Forms]![mf1]![mmm], 11, Me.Controls("d" & i)), "ddd")
Next i


For i = 1 To 31
Me.Controls("de" & i) = Format(Date******([Forms]![mf1]![mmm], 12, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 31
Me.Controls("oc" & i) = Format(Date******([Forms]![mf1]![mmm], 10, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 30
Me.Controls("se" & i) = Format(Date******([Forms]![mf1]![mmm], 9, Me.Controls("d" & i)), "ddd")
Next i


For i = 1 To 29
Me.Controls("f" & i) = Format(Date******([Forms]![mf1]![mmm], 2, Me.Controls("d" & i)), "ddd")
Next i
Dim ss As Integer
ss = [Forms]![mf1]![mmm] Mod 4
Me.f29.Visible = ss = 0


For i = 1 To 31
Me.Controls("ma" & i) = Format(Date******([Forms]![mf1]![mmm], 3, Me.Controls("d" & i)), "ddd")
Next i
For i = 1 To 30
Me.Controls("ap" & i) = Format(Date******([Forms]![mf1]![mmm], 4, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 31
Me.Controls("may" & i) = Format(Date******([Forms]![mf1]![mmm], 5, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 30
Me.Controls("yo" & i) = Format(Date******([Forms]![mf1]![mmm], 6, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 31
Me.Controls("yl" & i) = Format(Date******([Forms]![mf1]![mmm], 7, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 31
Me.Controls("og" & i) = Format(Date******([Forms]![mf1]![mmm], 8, Me.Controls("d" & i)), "ddd")
Next i
1:
End Sub
جارى رفع الفيديو
__________________
قناتى على يوتيوب
رد مع اقتباس
  #62  
قديم 05-11-2016, 09:51 AM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو متألق
 
تاريخ التسجيل: Sep 2008
المشاركات: 2,589
معدل تقييم المستوى: 12
alfa is on a distinguished road
افتراضي

الفيديو
https://www.youtube.com/watch?v=xwpO5KD-8wc
__________________
قناتى على يوتيوب
رد مع اقتباس
  #63  
قديم 19-12-2016, 07:28 PM
صبحي جمعه صبحي جمعه غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Aug 2016
المشاركات: 29
معدل تقييم المستوى: 0
صبحي جمعه is on a distinguished road
افتراضي

رائع جزاك الله خيرا
رد مع اقتباس
  #64  
قديم 19-12-2016, 07:30 PM
صبحي جمعه صبحي جمعه غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Aug 2016
المشاركات: 29
معدل تقييم المستوى: 0
صبحي جمعه is on a distinguished road
افتراضي

رائع رائع رائع
رد مع اقتباس
  #65  
قديم 19-12-2016, 07:32 PM
صبحي جمعه صبحي جمعه غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Aug 2016
المشاركات: 29
معدل تقييم المستوى: 0
صبحي جمعه is on a distinguished road
افتراضي

رائع رائع رائع رائع
رد مع اقتباس
  #66  
قديم 19-12-2016, 07:32 PM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو متألق
 
تاريخ التسجيل: Sep 2008
المشاركات: 2,589
معدل تقييم المستوى: 12
alfa is on a distinguished road
افتراضي

وفقكم الله
__________________
قناتى على يوتيوب
رد مع اقتباس
  #67  
قديم 23-12-2016, 04:27 PM
mas2808 mas2808 غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Dec 2016
المشاركات: 4
معدل تقييم المستوى: 0
mas2808 is on a distinguished road
افتراضي

شكرا لكم على المجهود المبذول
رد مع اقتباس
  #68  
قديم 23-12-2016, 04:35 PM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو متألق
 
تاريخ التسجيل: Sep 2008
المشاركات: 2,589
معدل تقييم المستوى: 12
alfa is on a distinguished road
افتراضي

وفقكم الله
شكرا لك أخى الفاضل
__________________
قناتى على يوتيوب
رد مع اقتباس
  #69  
قديم 22-03-2017, 12:48 PM
اسيل اشرف اسيل اشرف غير متواجد حالياً
موقوف
 
تاريخ التسجيل: Mar 2017
المشاركات: 26
معدل تقييم المستوى: 0
اسيل اشرف is on a distinguished road
افتراضي

شكرااااااااااااااا لكم علي هذا الموضوع الرائع
رد مع اقتباس
  #70  
قديم 22-03-2017, 03:00 PM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو متألق
 
تاريخ التسجيل: Sep 2008
المشاركات: 2,589
معدل تقييم المستوى: 12
alfa is on a distinguished road
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة اسيل اشرف مشاهدة المشاركة
شكرااااااااااااااا لكم علي هذا الموضوع الرائع
بارك الله فيك
__________________
قناتى على يوتيوب
رد مع اقتباس
  #71  
قديم 03-06-2017, 12:30 PM
مهـا صبرى مهـا صبرى غير متواجد حالياً
عضو مجتهد
 
تاريخ التسجيل: Jun 2017
المشاركات: 102
معدل تقييم المستوى: 1
مهـا صبرى is on a distinguished road
افتراضي

جزاك الله خيرا
رد مع اقتباس
  #72  
قديم 03-06-2017, 04:13 PM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو متألق
 
تاريخ التسجيل: Sep 2008
المشاركات: 2,589
معدل تقييم المستوى: 12
alfa is on a distinguished road
افتراضي

و جزاكم خيرا
بارك الله فيكم
__________________
قناتى على يوتيوب
رد مع اقتباس
  #73  
قديم 27-10-2017, 09:21 PM
بسسام بسسام غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Oct 2017
المشاركات: 26
معدل تقييم المستوى: 0
بسسام is on a distinguished road
افتراضي

شكرا على المعلومات المفيدة.
__________________
جوجل كروم
رد مع اقتباس
  #74  
قديم 08-11-2017, 01:14 AM
الصورة الرمزية alfa
alfa alfa غير متواجد حالياً
عضو متألق
 
تاريخ التسجيل: Sep 2008
المشاركات: 2,589
معدل تقييم المستوى: 12
alfa is on a distinguished road
افتراضي

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

العلامات المرجعية

أدوات الموضوع
انواع عرض الموضوع

ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا يمكنك اضافة مرفقات
لا يمكنك تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


جميع الأوقات بتوقيت GMT +2. الساعة الآن 02:33 PM.