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


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


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


نتائج البحث عن ردود العضو :الصقر
عدد النتائج (709) نتيجة
22-09-2018 03:30 مساء
icon vba i*nputbox password ياخذ شكل * | الكاتب :الصقر |المنتدى: اكسيل اسئله واجابات
 تفضل هذا الكود
Option Explicit
Private Declare Function CallNextHookEx _
                Lib "user32" (ByVal hHook As Long, _
                              ByVal ncode As Long, _
                              ByVal wParam As Long, _
                              lParam As Any) As Long
Private Declare Function GetModuleHandle _
                Lib "kernel32" _
                Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function SetWindowsHookEx _
                Lib "user32" _
                Alias "SetWindowsHookExA" (ByVal idHook As Long, _
                                           ByVal lpfn As Long, _
                                           ByVal hmod As Long, _
                                           ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Function SendDlgItemMessage _
                Lib "user32" _
                Alias "SendDlgItemMessageA" (ByVal hDlg As Long, _
                                             ByVal nIDDlgItem As Long, _
                                             ByVal wMsg As Long, _
                                             ByVal wParam As Long, _
                                             ByVal lParam As Long) As Long
Private Declare Function GetDlgItem Lib "user32.dll" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Private Declare Function GetClassName _
                Lib "user32" _
                Alias "GetClassNameA" (ByVal hwnd As Long, _
                                       ByVal lpClassName As String, _
                                       ByVal nMaxCount As Long) As Long
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
                                       (ByVal hwnd As Long, ByVal nIndex As Long, _
                                       ByVal dwNewLong As Long) As Long
       Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
                                    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const EM_LIMITTEXT As Long = &HC5
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private Const HC_ACTION = 0
Private Const GWL_STYLE = (-16)
Private Const ES_NUMBER = &H2000
Private hHook     As Long
Private lMaxLen   As Long
Private lPassChar As Long
Private bNumbersOnly As Boolean
Public Function NewProc(ByVal lngCode As Long, _
                        ByVal wParam As Long, _
                        ByVal lParam As Long) As Long
    Dim RetVal As Long
    Dim strClassName As String
    Dim lngBuffer As Long
    Dim lWnd As Long
    If lngCode < HC_ACTION Then
        NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam)
        Exit Function
    End If
    strClassName = String$(256, " ")
    lngBuffer = 255
    If lngCode = HCBT_ACTIVATE Then
        RetVal = GetClassName(wParam, strClassName, lngBuffer)
        If Left$(strClassName, RetVal) = "#32770" Then
            If lPassChar > 0 Then
                SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, lPassChar, &H0
            End If
            If lMaxLen > 0 Then
                SendDlgItemMessage wParam, &H1324, EM_LIMITTEXT, lMaxLen, &H0
            End If
            If bNumbersOnly Then
                lWnd = GetDlgItem(wParam, &H1324)
                If Not lWnd = 0 Then
                    SetWindowLong lWnd, GWL_STYLE, GetWindowLong(lWnd, GWL_STYLE) Or ES_NUMBER
                End If
            End If
        End If
    End If
    CallNextHookEx hHook, lngCode, wParam, lParam
End Function
Public Function InputBoxEx(Prompt As String, _
                           Optional Title As String = "", _
                           Optional Default As String = "", _
                           Optional XPos, _
                           Optional YPos, _
                           Optional HelpFile, _
                           Optional Context, _
                           Optional MaxLen As Long = 0, _
                           Optional PasswordChar As String = "", _
                           Optional NumbersOnly As Boolean = False, _
                           Optional ByRef CancelledByUser As Boolean = False) As String
    Dim lngModHwnd As Long
    Dim lngThreadID As Long
    hHook = 0
    lMaxLen = 0
    lPassChar = 0
    bNumbersOnly = NumbersOnly
    If MaxLen > 0 Then
        lMaxLen = MaxLen
    End If
    If Not PasswordChar = "" Then
        lPassChar = Asc(PasswordChar)
    End If
    If lPassChar > 0 Or lMaxLen > 0 Or bNumbersOnly = True Then
        lngThreadID = GetCurrentThreadId
        lngModHwnd = GetModuleHandle(vbNullString)
        hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
    End If
    InputBoxEx = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)
    If Not hHook = 0 Then
        UnhookWindowsHookEx hHook
    End If
    CancelledByUser = (StrPtr(InputBoxEx) = 0)
End Function

مع استخدام "i*nputBoxEx" هذه العباره بدلا من "i*nputBox" بتاع الاكسيل
22-09-2018 12:40 مساء
icon سؤال تاكد من صحة القائمة التدفقات النقدية | الكاتب :الصقر |المنتدى: منتدى المحاسبة
 دا فيديو رائع يمكن ان تستعين به فى طلبك ولو توقف معك شئ اطرح المشكله هنا

22-09-2018 12:27 مساء
icon سؤال تاكد من صحة القائمة التدفقات النقدية | الكاتب :الصقر |المنتدى: منتدى المحاسبة
 فين المرفق للعمل عليه وفهم المطلوب ؟
22-09-2018 10:10 صباحا
icon كيفية اضافة فورم في لغة السي بلس بلس | الكاتب :الصقر |المنتدى: قسم لغة ++C
 

الله ينور يا عربى
شرح رائع وموضوع مهم 
123

22-09-2018 09:47 صباحا
icon 004 - شرح كود الترحيب بالتفصيل | الكاتب :الصقر |المنتدى: قسم لغة Java
 

جزاكم الله خيرا يا ابوبراء 3


22-09-2018 09:46 صباحا
icon سؤال تاكد من صحة القائمة التدفقات النقدية | الكاتب :الصقر |المنتدى: منتدى المحاسبة
 لا يوجد معادلات بالاكسيل تعمل ذالك 
22-09-2018 09:45 صباحا
icon المشكلة منع اخترق الاكسيل والملفات VBA حتي لو تم تغيير المسار | الكاتب :الصقر |المنتدى: اكسيل اسئله واجابات
 اخى الكريم الاكسيل لا يوجد به حمايه مطلقه
ولكن افضل فكره يصعب اختراقها هو ما تم فى هذا االرابط
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
عمل حمايه لملف الاكسيل من الخارج
ثانيا برنامج الاستاذ ياسر العربى exe  يكون مسئول فقط عن فتح ملف الاكسيل اوتوماتيك
وخلى اللى قالك انه فك حماية الملفات السابقه يجرب على هذا البرنامج وشوف الرد
19-09-2018 03:20 مساء
icon 001 - مقدمة عن لغة الجافا Java Programming | الكاتب :الصقر |المنتدى: قسم لغة Java
 

جزاك الله خير يا ابوبراء بداية موفقه اعانك الله
فى ميزان حسناتك باذن الله
142

19-09-2018 01:41 مساء
icon الفلترة بأكثر من شرط فى ليست بوكس | الكاتب :الصقر |المنتدى: اكسيل شروحات ودروس
 اذن لابد من استخدام الكلاس موديول
وانا ذكرت بالبدايه ان فكرة استخدام الفلتره المتقدمه بالشيت هى افضل الطريق واسرعها على الاطلاق وجربتها على برامج والنتائج مزهله 
19-09-2018 01:20 مساء
icon الفلترة بأكثر من شرط فى ليست بوكس | الكاتب :الصقر |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
الله ينور أخي الحبيب حسام .. جاري تجربة الكود رغم إني شايف إنه موجود في زر أمر والمطلوب يكون الفلترة بمجرد التغيير في التكست بوكس الموجودة ..

عادى يتم نسخ الكود فى كل حدث تغيير للتكست بوكس 
19-09-2018 01:07 مساء
icon الفلترة بأكثر من شرط فى ليست بوكس | الكاتب :الصقر |المنتدى: اكسيل شروحات ودروس
 اخى الحبيب اسلام فى مثل هذه الحالات الافضل هو استخدام خاصيه الفلتره المتقدمه بالاكسيل عن طريق ترحيل بيانات التكستات الى ورقة عمل ثم عمل كود الفلتره المتقدمه ثم رفع البيانات على اليست
وهذا مثال سابق قدمته حل لاحد الاعضاء 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
اما اليوم فكرت مستخدمش ورقة العمل ويكون من الكود مباشرة
جرب هذا الكود ان شاء الله يفى بالغرض
صمم زر على الفورم وضع هذا الكود
Private Sub CommandButton1_Click()
ListBox1.Clear
w = ListBox1.ListCount
With Sheet1
For i = 2 To 10
a = .Cells(i, 1).Value: b = .Cells(i, 2).Value: c = .Cells(i, 3).Value: d = .Cells(i, 4).Value: e = .Cells(i, 5).Value
Dim AA As String
AA = a & b & c & d & e
If InStr(AA, TextBox1.Value & TextBox2.Value & TextBox3.Value & TextBox4.Value & TextBox5.Value) > 0 Then
            ListBox1.AddItem
            ListBox1.List(w, 0) = a
            ListBox1.List(w, 1) = b
            ListBox1.List(w, 3) = c
            ListBox1.List(w, 4) = d
            ListBox1.List(w, 5) = e
              w = w + 1
End If
Next
End With
End Sub


دى فكره على السريع ويمكن تطويرها بس ضيق الوقت لدى وظروف انت تعلمها فهترك لكم الامر فى التطوير
142
18-09-2018 06:23 صباحا
icon إنشاء قوائم مخصصة داخل الاكسيل | الكاتب :الصقر |المنتدى: اكسيل شروحات ودروس
 

عمل رائع استاذ محمد جزاكم الله خيرا 142



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





الساعة الآن 11:56 مساء

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