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

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
رمضان بكري Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil تجميعة أكواد VBA بشكل حصري ومجاناً لمنتدى أكاديمية الصقر اكسيل اسئله واجابات



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


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


نتائج البحث عن ردود العضو :Dreamier
عدد النتائج (16) نتيجة
19-02-2019 03:43 صباحا
icon الفورم السحرى للمبدع الاستاذ شوقى ربيع | الكاتب :Dreamier |المنتدى: اكسيل شروحات فيديو
 بارك الله فيك وجزاك الله خيرا
16-02-2019 12:44 مساء
icon خطأ فى كود حذف عن طريق اليوزرفورم | الكاتب :Dreamier |المنتدى: اكسيل اسئله واجابات
 شكرا استاذنا ياسر

جزالك الله خيرا وبارك الله فيك 142

تم ارفاق الملف فهو تجربيى فقط للكود

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


 
15-02-2019 10:36 مساء
icon خطأ فى كود حذف عن طريق اليوزرفورم | الكاتب :Dreamier |المنتدى: اكسيل اسئله واجابات
 شكرا لك استاذ ياسر ارجو من شخصكم الكريم تعديل الكود الاتى ايضا حيث تظهر الرساله و لا يتم الحذف
Dim FindString As String
    Dim Rng As Range
    FindString = TextBox3.Value
    If Trim(FindString) <> "" Then
        With Sheets("Sheet1").Range("a9:a1000")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
msg = MsgBox("Would you like to delete " & DeletedRows & " Rows?", vbYesNo, "Confirm")
  esleIf msg = vbYes Then
                Application.Goto Rng, True
                ActiveCell.EntireRow.Delete Shift:=xlUp

            
                MsgBox "تم حذف البيان"
If msg = vbNo Then
  Exit Sub
            End If
        End With
    End If
15-02-2019 11:07 صباحا
icon خطأ فى كود حذف عن طريق اليوزرفورم | الكاتب :Dreamier |المنتدى: اكسيل اسئله واجابات
 
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
  For Each f In ws.Range("a2:a1000")
  If f = TextBox1.Text Then
  ws.Select
  f.Select
  Exit For
  End If
  Next f
  Next ws
  ActiveCell.EntireRow.Delete


الكود بدون رساله تاكيد قبل الحذف

فقط اريد اضافه رساله تاكيد قبل حذف الصف
09-02-2019 06:51 مساء
icon فورم اضافة وتعديل وحذف وبحث | الكاتب :Dreamier |المنتدى: اكسيل شروحات ودروس
 جزاك الله خيرا
09-02-2019 06:29 مساء
icon فورم اضافة وبحث وحذف وتعديل واغلاق وطباعة بدون ازرار | الكاتب :Dreamier |المنتدى: اكسيل شروحات فيديو
 جزاك الله خيرا
08-07-2018 09:55 صباحا
icon الداله الجديده المعرفه VLOOKUPAlsqr - حسام خطاب | الكاتب :Dreamier |المنتدى: اكسيل شروحات ودروس
 صقر الاكسيل استاذنا حسام دائما مبدع بارك الله فيك وجعله في ميزان حسناتك

والشكر واصل لاستاذ اسلام علي اسلوب شرحه المميز و الراقي

بالتوفيق 142
 
27-04-2018 10:22 صباحا
icon تعبئة الكمبوبوكس طبقا للكتابه مثل بحث جوجل | الكاتب :Dreamier |المنتدى: اكسيل شروحات ودروس
 بارك الله فيك استاذ حسام 142
 
18-04-2018 10:11 مساء
icon حصري : كورس : Excel VBA - بالعربي | الكاتب :Dreamier |المنتدى: اكسيل شروحات ودروس
 كورس مفيدا جدا

بارك الله فيك 142
08-04-2018 04:26 مساء
icon ايجاد اقل قيمة بشرط- حسام خطاب | الكاتب :Dreamier |المنتدى: اكسيل شروحات ودروس
  صقر الاكسيل اسم علي مسمي

بارك الله فيك وزاد الله من علمه
02-04-2018 11:00 مساء
icon دالة ISColor لإختبار لون الخلية | الكاتب :Dreamier |المنتدى: اكسيل شروحات ودروس
 بارك الله فيك استاذ اسلام 142
01-04-2018 10:02 مساء
icon حدف كلمه من جملة | الكاتب :Dreamier |المنتدى: اكسيل اسئله واجابات
 كود روعه استاذ ياسر

استخدام الكود روعه الصراحه يمكن حذف اول النص او تكرار بعض كلماته و المطلوب تحقق حذف اخر النص

 بارك الله فيك و جزاك الله كل الخير وزاد الله من علمه 3 123

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





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

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