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

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




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

Preview

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


نتائج البحث عن ردود العضو :EM_ACC
عدد النتائج (192) نتيجة
15-02-2021 09:17 صباحا
icon استخراج الرقم الاقل | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 اخى واستاذى سليم
مشكورا بارك الله فيك
حل رائع ايضا
تقبل تحياتى
 
15-02-2021 02:11 صباحا
icon استخراج الرقم الاقل | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 
أستاذنا الفاضل مشكورا بارك الله فيك
الكود اتى بالفعل بالنتيجه الصحيحه 
ولكنى كنت ابحث عن كيفية تنفيذ الكود بطريقة الحلقه التكراريه 
FOR NEXT
وحاولت باستخدام هذا الكود ولكنه كان ياتى باخر قيمه 

Sub H()
For R = 2 To 100
x = Sheets("3").Range("C2").Value
If Sheets("3").Cells(R, 1) < x Then
MsgBox Sheets("3").Cells(R, 1).Value
Sheets("3").Cells(R, 1).Select
Exit Sub
End If
Next
End Sub

فهل من طريق للتعديل على هذا الكود وجعله يعمل بالصورة الصحيحة
 
Sub H() For R = 2 To 100 x = Sheets("3").Range("C2").Value If Sheets("3").Cells(R, 1) < x Then MsgBox Sheets("3").Cells(R, 1).Value Sheets("3").Cells(R, 1).Select Exit Sub End If Next End Sub
 
07-12-2020 09:25 مساء
icon 01 _ مقدمة عن لغة البرمجة البايثون Python Language Programming وإعداد أول برنامج بهذه اللغة | الكاتب :EM_ACC |المنتدى: قسم لغة python
 اخى الفاضل
ابو البراء
متابعينك
فى انتظار المزيد
تقبل تحياتى
12-11-2020 01:28 مساء
icon سلسلة دروس الفيجوال بيسك دوت نت | الكاتب :EM_ACC |المنتدى: قسم لغة VB.NET
 بارك الله فيك اخى ياسر
فى انتظار المزيد
 
12-11-2020 01:19 مساء
icon بعض الاكواد المهمة في الفيجوال بيسك دوت نت | الكاتب :EM_ACC |المنتدى: قسم لغة VB.NET
 اخى ياسر
مشكورا
بارك الله فيك
نتمنى وجود سلسله من الدروس
او تطبيق عملى على مشروع صغير
تقبل تحياتى
29-10-2020 10:57 صباحا
icon ساعة رقمية داخل فورم | الكاتب :EM_ACC |المنتدى: اكسيل شروحات ودروس
 اخى الفاضل
مشكورا
بارك الله فيك
تقبل تحياتى
 
08-10-2020 12:39 مساء
icon برنامج خاص بالحضانات | الكاتب :EM_ACC |المنتدى: اكسيل مشاريع جاهزه
 الاخت الفاضله
عزرا على الخطأ الغير مقصود
تقبلى تحياتى
اما بالنسبه لكيفيه تحويل برنامج الاكسيل ملف تنفيذى
يرجى مراجعة الرابط الاتى
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
01-10-2020 12:42 مساء
icon برنامج خاص بالحضانات | الكاتب :EM_ACC |المنتدى: اكسيل مشاريع جاهزه
 مشكورا على المرور
ولكن شرح كيفية تصميم البرنامج
سيحتاج لوقت طويل
ومجهود كبير
حاول انت تعلم كيفية التصميم بنفسك
وعندما تقف امام نقطة يصعب عليك تجاوزها
ابحث عنها فى الانترنت
او ارفقها للخوه الاعضاء لمناقشتها وتعلم كيف
يتم تجاوزها
هكذا تعلمنا
تقبل تحياتى
01-10-2020 12:17 مساء
icon مشكلة اغلاق او اخفاء ملفات الاكسيل المفتوحة عند اغلاق البرنامجمشكلة اغلاق او اخفاء ملفات الاكسيل المفتوحة عند اغلاق البرنامج | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 استخدم هذا الكود فى حالة الضغط على زر الدخول

Private Sub CommandButton1_Click()
If TextBox1.Value = "asd" And TextBox2.Value = 123 Then


If Application.Workbooks.Count > 1 Then
    ThisWorkbook.Windows(1).Visible = True
Else
    Application.Visible = True
End If

Unload Me
Else
Application.Visible = True

If Workbooks.Count = 1 Then
ActiveWorkbook.Saved = True
Application.Quit
Else
Application.ActiveWindow.Close SaveChanges:=False
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)

End If

End If
End Sub

وفى حدث المصنف
استخدم هذا الكود عند فتح الملف

If Application.Workbooks.Count > 1 Then
ThisWorkbook.Windows(1).Visible = False
Else
Application.Visible = False
End If
End Sub
08-09-2020 05:41 مساء
icon برنامج خاص بالحضانات | الكاتب :EM_ACC |المنتدى: اكسيل مشاريع جاهزه
 مشكورا على الاستجابه
تقبل تحياتى
07-09-2020 09:36 مساء
icon   أساسيات و خصائص البايثون - Python | الكاتب :EM_ACC |المنتدى: قسم لغة python
 منتظرين باقى الدروس
07-09-2020 11:24 صباحا
icon نبذة مختصرة عن التصفية المتقدمة Advanced Filter | الكاتب :EM_ACC |المنتدى: موضوعات ياسر خليل أبو البراء
 مشكورا على المعلومات القيمه
بارك الله فيك
تقبل تحياتى

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





الساعة الآن 10:15 مساء

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