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

اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا




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

Preview

الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :احمد شريف
عدد النتائج (23) نتيجة
07-11-2020 01:47 مساء
icon ترقيم تلقائى | الكاتب :احمد شريف |المنتدى: اكسيل اسئله واجابات
 بسم الله ما شاء الله  الله اكبر حضرتك رهيب فعلا مهما اقول مش هقدر اوفى قدر حضرتك انا قدرت احل النصف الاول هو ترقيم الجدول ولكن ليس بهذا الابهار اللى حضرتك عملته اما الباقى فكان لى ضربا من المستحيل جزاك الله كل خير يا استاذ ياسر 
18-10-2020 08:58 صباحا
icon تفعيل الاوفيس بالاصدارات 2013-2016-2019 بدون برامج | الكاتب :احمد شريف |المنتدى: منتدى برامج الكمبيوتر
 جزاك الله خيرا
 
05-10-2020 10:57 صباحا
icon كومبوبوكس لمجموعة نطاقات | الكاتب :احمد شريف |المنتدى: اكسيل اسئله واجابات
 الله يبارك فى حضرتك يا استاذ محمد جزالك الله كل خير وجعله فة ميزان حساناتك
22-09-2020 01:24 مساء
icon انشاء قائمة منسدلة تعتمد بيانتها على عمود اخر | الكاتب :احمد شريف |المنتدى: اكسيل اسئله واجابات
 جزيل الشكر لحضرتكم
11-09-2020 04:26 مساء
icon الجمع بين اكثر من صفحة لكن بشرط | الكاتب :احمد شريف |المنتدى: اكسيل اسئله واجابات
 حبيبى يا أستاذ ياسر يعلم الله مدى معزتك فى قلبى شكرا لحضرتك على حلولك التى تتسم دائما بالعبقرية جعلك الله دائما فى عون الناس 
استاذ ياسر هل من طريقة اخرى عادية أيضا لحل التمرين 
07-02-2020 11:45 مساء
icon نسيق اعمدة | الكاتب :احمد شريف |المنتدى: اكسيل اسئله واجابات
 تمام يا استاذى تلميذك شاطر برضو
الكود كنت غلطان فيه فى حاجة بسيطة لكن بفضل الله تمت السيطرة على الكود
الكود بعد التعديل شكرا يا استاذى على مساهمتك الرائعة دائما الله 
Sub cr()
Dim r As Integer, k As Integer
Application.ScreenUpdating = False
For r = 1 To 50
Rows(r).RowHeight = IIf(r Mod 2 = 1, 15, 25)
Next r
For k = 1 To 120
If k Mod 2 Then
Columns(k).AutoFit
Else
Columns(k).ColumnWidth = 2
End If
Next k
Application.ScreenUpdating = True
End Sub



 
16-01-2020 06:39 صباحا
icon مدموج :استخدام حلقات تكرارية فى حالة عدم تساوى الاسطر | الكاتب :احمد شريف |المنتدى: اكسيل اسئله واجابات
 السلام عليكم استاذ حســـين ممكن حضرتك شرح مبسط للكود لأنى لم اتعامل بعد مع  Private Sub Worksheet_Change(ByVal Target As Range)
بالأضافة انى لم اتعامل مع offset ايضا 
شرح مبسط للكود عشان اقدر انفذه وشكرا لأهتمام حضرتك
07-01-2020 12:41 صباحا
icon انشاء شيت بالكامل بواسطة vba | الكاتب :احمد شريف |المنتدى: اكسيل اسئله واجابات
 

السلام عليكم الاستاذة الكرام احاول انشاء ملف اكسيل عبارة عن صفحتين الاولى بالمعادلات العادية والثانية نفس الصفحة الاولى لكن بواسطة vba للاختصار
1- تنفيذ معادلة لمعرفة اليوم انفذها بطريقة formula يظهر السطر بالكامل باللون الاحمر مع التعليم على التنسيق dddd
2- تنفيذ نفس المعادلة لكن بطريقة application ال vba لايظهر لى اى مشكلة بالكود لكن الناتج خطاء (حاجة تجنن)
3- الغريب فى الامر ان طريقة formula فى اول مرة انفذ فيها الكود كانت ناجحة بس تعمل ايه فى الطمع لما عرفت ان application بنطلع الناتج دون اظهار المعادلة فى شريط المعادلات عملت فبها بيل جيتس ونفذت ب application طلعت خطأ معايا قولت ارجع لأصلك يا واد يا احمد وخلينا فى الطريقة اللى نجحت معاك راح المعادلة بالكامل باللون الاحمر

4- معلش هطول عليكم شوية فى اخر نقطه عندى تاريخين تاريخ فى الخلية b3 والخلية g3 المفروض b4 =التاريخ الموجود فى g3 +1 وطبعا دى سهلة جدا بالطريقة العادية لكن عندما حاولت تطبيقها ب vba لم تنجح الا على خلية  واحدة فقط ولما عملت filldown اعطت نفس التاريخ مرفق لحضرتكم الملف
  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

09-01-2020 01:22 صباحا
icon كتابة المعادلات بواسطة vba - application- formula | الكاتب :احمد شريف |المنتدى: اكسيل اسئله واجابات
 استاذ سليم اشكر مجهودتك على تقديم الحلول لى لكن يبقى التسأول لماذا عند كتابة المعادلة بطريقة formula دون اضافة f على كلمة datedif
[P5].Formula = "=DateDif(Now() - O5, Now(), ""YM"")"
[Q5].Formula = "=DateDif(Now() - O5, Now(), ""MD"")"
[P6].Formula = "=DateDif(0, O5, ""ym"") & ""months"" & DateDif(0, O5, ""md"") & ""days"""
يظهر الناتج صحيحا تماما 
ولما استخدم طريقة application 
[P5] =application .DateDiff(Now() - O5, Now(), "YM")
[Q5]=application .DateDiff(Now() - O5, Now(), "MD")
[P6].=application .DateDiff(0, O5, "ym") & "months" & DateDiff(0, O5, "md") & ""days""
لا يستطيع الكود تنفيذه مع انى اضفت حرف ال f 
لماذانفذت بنجاح فى formula ولم تنفذ فى application معلش استاذ سليم لأنى بكرر سؤالى ما زلت مبتداء  وعارف ان حضرتك انك نوهت فى البداية ان vba لايعترف ب datedif ولكن يعترف ب datediff ارجو التفسير لأنه هام للغاية وشكرا لسعة صدرك
08-01-2020 08:33 مساء
icon كتابة المعادلات بواسطة vba - application- formula | الكاتب :احمد شريف |المنتدى: اكسيل اسئله واجابات
 استاذ سليم اشكرك على هذه المعلومة جزاك الله كل خير انا عمرى ما كنت اتخيل ان المعادلة لا تتوافق مع vba بالأضافة الى ان المعادلة محتاجة متغير ويكتب بشكل معين لكن بعد اذنك عندى سؤال فى هذا المثال لو تكرر بشكل متعلق بالتاريخ او اخر لازم احسب مدة الايام وبتعمل كام شهر او كام سنه و شهر ثم اكتب التاريخ على هذه الشاكلة فى vba بالأضافة الى ان هذا الكود لا ينفذ الا فى حالة تطبيق application
08-01-2020 01:20 مساء
icon تهنئة للمهندس عبد الكريم قرعوش بالترقية إلى عضو محترف | الكاتب :احمد شريف |المنتدى: المنتدى العام
 الف مبروك استاذ عبد الكريم انت تستحق عند جدارة
02-01-2020 03:00 مساء
icon اضافة اسماء صفحات الملف | الكاتب :احمد شريف |المنتدى: اكسيل اسئله واجابات
 شكرا للاستاذة الكرام على اهتمامكم بالموضع واعتذر عن عدم توضيح نقطة هامة فى الموضع وفى الملف المرفق هو ان عدد الاسماء 12 فى شيت اسمه الاسماء من شيت 2 الى 13 مسمى بارقام 1 /2 / 3 الى رقم 12 المطلوب هو تغير ارقام هذه الشيتات بالأسماء فقط والسؤال الذى اريد معرفته بشده هل هذا الامر ينفع تنفيذة بكود for - next و لا لازم foreach  لو ينفع الامر بكود for - next  يبقى كتر خير حضراتكم واعتذر مره اخرى عن عدم طرح الموضع بالشكل الملائم لفهمه تقبلوا اعتذارى مرفق لحضرتكم الملف المعدل   لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب 
استاذ ابراهيم الحداد اشكرك على هذا الكود الرائع ولكن عند ننفيذة تم اضافة الاسماء بعد الشيت رقم 12 وهذا خطاء منى لعدم توضيح المطلوب بالشكل الملائم 

الصفحة 1 من 2 < 1 2 > الأخيرة »





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

أعلن هنا
أعلن هنا
أعلن هنا