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


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


نتائج البحث عن ردود العضو :ناصر سعيد
عدد النتائج (34) نتيجة
06-09-2017 08:16 مساء
icon عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب | الكاتب :ناصر سعيد |المنتدى: اكسيل شروحات ودروس
 
Sub Filter()
'هذا الكود للاستاذ المحترم الصقر
'الهدف من الكود هو الفلتره باستخدام الماوس
'نم في 5/9/2017
'=========
    If ActiveCell = "" Then Exit Sub
    Selection.AutoFilter Field:=ActiveCell.Column - (ActiveCell.CurrentRegion.Column - 1), Criteria1:=ActiveCell
End Sub
Sub EndFilter()

    If ActiveCell = "" Then Exit Sub
        Dim ws As Worksheet
    Dim f As Filter
    Dim n As Long
    Set ws = ActiveSheet
    On Error GoTo 1
    For Each f In ws.AutoFilter.Filters
        If f.On Then n = n + 1
    Next f
1
    If n <= 1 Then
        ActiveSheet.AutoFilterMode = False
    Else
        Selection.AutoFilter Field:=ActiveCell.Column - (ActiveCell.CurrentRegion.Column - 1)
    End If
End Sub
'======================
'======================
' من هنا يوضع في حدث الصفحه المراد فلترتها
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'هذا الكود يوضع في حدث الورقه المطلوب فلترتها
If ActiveCell = "" Then Exit Sub
Cancel = True
Call Filter
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell = "" Then Exit Sub
Cancel = True
Call EndFilter
End Sub

جزاكم الله خيرا وبارك فيك استاذ الصقر
05-09-2017 04:23 مساء
icon سلسة اتعلم ازاى تصطاد VBA اكسيل - أكاديمية الصقر للتدريب | الكاتب :ناصر سعيد |المنتدى: اكسيل شروحات ودروس
 
بارك الله فيك وجزاك خيرا

05-09-2017 01:26 صباحا
icon مشكلة فى نطاق الطباعة | الكاتب :ناصر سعيد |المنتدى: اكسيل اسئله واجابات
 
Option Explicit

Private Sub Worksheet_Activate()
    MsgBox "Hello Excel Experts", 64
End Sub

ربنا يبارك فيك استاذ ياسر
05-09-2017 01:17 صباحا
icon اخفاء شريط الادوات لملف معين | الكاتب :ناصر سعيد |المنتدى: اكسيل شروحات ودروس
 بارك الله فيك وجزاك الله خيراً أيها العربي المبدع
بدايه الغيث قطره .. ربنا يبارك فيك
04-09-2017 11:17 مساء
icon إلغاء زر الإغلاق في أي فورم | الكاتب :ناصر سعيد |المنتدى: اكسيل شروحات ودروس
 
جزاك الله خيرا وبارك فيك استاذ ياسر خليل

04-09-2017 11:13 مساء
icon حساب السن | الكاتب :ناصر سعيد |المنتدى: اكسيل شروحات ودروس
 
Sub CalcDate()
Dim i As Long, LR As Long
LR = Range("A" & Rows.Count).End(xlUp).row
Sheets("DatedIff").Range("B3:D" & LR + 2).ClearContents
For i = 3 To LR
If Range("A" & i) <> "" Then
Cells(i, 2) = "=DATEDIF(""" & Range("A" & i) & """,""" & Range("H1") & """ , ""md"")"
Cells(i, 2).Value = Cells(i, 2).Value
Cells(i, 3) = "=DATEDIF(""" & Range("A" & i) & """,""" & Range("H1") & """, ""ym"")"
Cells(i, 3).Value = Cells(i, 3).Value
Cells(i, 4) = "=DATEDIF(""" & Range("A" & i) & """,""" & Range("H1") & """, ""y"")"
Cells(i, 4).Value = Cells(i, 4).Value
End If
Next
End Sub

برجاء من الاستاذ المحترم زيزو العجوز .. ان يشرح الاسطر حتى نتمكن من تطويع الكود في الملفات المختلفه ... وجزاك الله خيرا
او تضع المتغيرات التي يجب تغييرها في اول الكود
جزاك الله خيرا وبارك فيك
04-09-2017 11:04 مساء
icon الفرق بين دوال Countifs و Sumif و sumproduct | الكاتب :ناصر سعيد |المنتدى: اكسيل شروحات ودروس
 
جزاك الله خيرا استاذ محمد

04-09-2017 11:01 مساء
icon الفرق بين دوال count | الكاتب :ناصر سعيد |المنتدى: اكسيل شروحات ودروس
 
جزاك الله خيرا اسناذ محمد

04-09-2017 10:59 مساء
icon دالة معرفة لفصل اسم الأب عن الابن | الكاتب :ناصر سعيد |المنتدى: اكسيل شروحات ودروس
 
شكرا لعملاق الاكواد عبد الله باقشير صاحب هذا الكود
وكنت اود ان تذكر هذا في اول الكود .. حفاظا على حقوقه .. حتى يرسل الله لنا من يحافظ على حقوقنا
ولكني اعتقد انه سهو غير مقصود منك
جزاك الله خيرا
04-09-2017 09:53 مساء
icon تشفير أكواد VBA | الكاتب :ناصر سعيد |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: ناصر سعيد »
المشاركة الأصلية كتبت بواسطة: أباالحسن »
السؤال الخاص بالدور الثانى
موجه لمن بالضبط
(في موضوع الدور التاني كيف تعرف ماده الطالب المقصر ...)

موجه للاستاذ القدير ابا الحسن
جزاك الله خيرا

موجه للاستاذ القدير ابا الحسن
04-09-2017 09:29 مساء
icon تشفير أكواد VBA | الكاتب :ناصر سعيد |المنتدى: اكسيل اسئله واجابات
 للرفع
=========================
04-09-2017 03:06 مساء
icon انسى اللي فات واشتغل بالمصفوفات (سلسلة حلقات تعليمية) | الكاتب :ناصر سعيد |المنتدى: اكسيل شروحات ودروس
 الاستاذ ياسر خليل
حفظك الله ورعاك .. موضوع غايه في الاهميه
ارجو ان تجعل هذا الموضوع بعيدا عن مشاركات الاخرين يعني خلي لمشاركات الاخرين للرد على هذا الموضوع .... في مكان اخر
لتكون مجموعه من الدروس القيمه

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





الساعة الآن 12:23 صباحا