محمد الموافى

جزاك الله خيرا أخى ابو عبدالبارى هذا هو المطلوب شكرا لك

شكرا استاذى الفاضل على اهتمامك هذا بالنسبة للشيت ما اريده بالنسبة للفورم وهذا هو المرفق البحث باول حرف.rar

السلام عليكم ورحمة الله وبركاته ما اريده هو بمجرد كتابة الحرف يظهر فى اللست بوكس كل الاسماء التى تبدأ فقط بهذا الحرف وليس كل الاسماء التى بها الحرف وشكرا لسعة صدركم البحث باول حرف.rar

السلام عليكم ورحمة الله وبركاته اولا كل الشكر الى الاساتذة فى هذا المكان الذى تعلمنا منه هذه اول تجربة لى فى عمل بحث واستعلام بما تعلمته من الاخوة هنا وسؤالى هل يمكن اختصار هذا الكود فى كواد واحد من خلاله احدد البحث مرة بالفرع ومرة بالرقم ومرة بالاسم جربت كمبوبوكس ولم يفلح ارجو الافادة متابعة الفروع.rar

شاكر لحضرتك على كلماتك فعلا عندك حق فى كل ما قلته

شكرا استاذ احمد على اهتمامك هذا الملف حملته من المنتدى واستفدت منه كثير لكن حتى تعم المنفعة لم افهمه البحث بمعيارواحد.rar

Option Explicit '****************************************************** '****************************************************** ' اسم ورقة البيانات Private Const Mysh_Name As String = "DATA" '------------------------------------------------------ ' رقم عمود البحث Private Const MyFind_Column As Integer = 1 '------------------------------------------------------ ' ارتفاع الكنترول Private Const iHeight As Integer = 20 '****************************************************** '****************************************************** Private Sub kh_Find(MyText As String) Dim MyHght, MyTp Dim Last As Integer, ii As Integer, T As Integer '=========================================== With Me.Frame1 MyTp = .Controls(0).Top + .Controls(0).Height + 2 T = .Controls.Count End With '=========================================== With Worksheets(Mysh_Name) Last = .Cells(.Rows.Count, MyFind_Column).End(xlUp).Row For ii = 2 To Last If CStr(.Cells(ii, MyFind_Column)) Like IIf(Me.Check_Text.Value, "", "*") & MyText & "*" Then MyHght = .Rows(ii).RowHeight If MyHght < iHeight Then MyHght = iHeight kh_Add_Controls Me.Frame1, MyTp, MyHght, .Cells(ii, MyFind_Column).Row, T MyTp = MyTp + MyHght + 2 End If Next End With If MyTp >= Me.Frame1.Height Then Me.Frame1.ScrollHeight = MyTp '=========================================== End Sub Private Sub kh_Add_Controls(MyCont As Control, MyTop, MyHeight, iRo As Integer, MyCount As Integer) 'On Error Resume Next Dim MyTxt As Control Dim i As Integer For i = 1 To MyCount Set MyTxt = MyCont.Add("Forms.TextBox.1", Cells(iRo, i).Address, True) With MyTxt .Move MyCont.Controls(i - 1).Left, MyTop, MyCont.Controls(i - 1).Width, MyHeight .MultiLine = True '=========================================== .ControlSource = "'" & Mysh_Name & "'!" & Range(.Name).Address '=========================================== End With '======================================== With Worksheets(Mysh_Name).Cells(iRo, i) MyTxt.TextAlign = Me.kh_TextAlign(.HorizontalAlignment) MyTxt.Font.Bold = .Font.Bold MyTxt.Font.Size = .Font.Size MyTxt.FontName = .Font.Name End With '======================================== Next i '================== Set MyTxt = Nothing '================== 'On Error GoTo 0 End Sub Patrive Sub kh_Remove() On Error Resume Next Dim MyCon As Control Me.Frame1.ScrollHeight = 0 For Each MyCon In Me.Frame1.Controls If TypeName(MyCon) = "TextBox" Then Me.Frame1.Controls.Remove MyCon.Name End If Next MyCon On Error GoTo 0 End Sub Private Sub Button_Find_Click() kh_Remove If Len(Trim(Me.TextBox_Find.Text)) Then kh_Find Me.TextBox_Find End If End Sub Private Sub TextBox_Find_Change() kh_Remove End Sub Function kh_TextAlign(MyAlign) As Integer Dim Ag Dim A As Integer For A = 1 To 3 Ag = Choose(A, -4131, -4108, -4152) If Ag = MyAlign Then kh_TextAlign = A: Exit Function Next kh_TextAlign = 1 End Function

جزاك الله خيرا شرح بطريقة مبسطة للمبتدئين وانا منهم جعله الله فى ميزان حسناتك احترامى

للرفع

بالبحث فى هذا الصرح العلمى وبفضل الله ثم ما قدمه الاساتذة من علم هنا عملت فلترة فى الشيت وحددت الفورم ارجو من الاخوة الاساتذة الاطلاع ولكن ما اريده هو ان يظهر رؤس الاعمدة بلون مختلف وتكون ثابتة عند تحريك الاسكوربار وفى حالة التعديل فى الفورم يتم التعديل ايضا فى الشيت وفى حالة اردت تغيير البحث بالاسم يظهر بمجرد كتابة اول حرف وشكرا لسعة صدركم تأمين.rar

وعليكم السلام ورحمة الله وبركاته بعتذر عن التأخير فى الرد لظروف النت هذا مثال عما اريده فى ملف حركة خاص بالعملاء الحركة تتكرر وما اريده اظهار جميع حركات العميل بمجرد البحث انا عملته باليست بوكس كما تعلمت من هذا المنتدى الطيب بأهله وما اريده هو عرض البيانات على frame لان البيانات الا بعرضه مستورده من اوراكل لانى مستخدم اوراكل وبالتجربة ان افضل طريقة للعرض على الفرام وليس الليست بوكس فلو امكن شرح استخدام الفرام او كود البحث واكن شاكرا لكم

فى ملف حملته من الموقع شبيه بنفس طلبى لكن ما اريده معرفة او شرح كود البحث والنتيجة فقط وشكرا البحث بمعيارواحد.rar

شكرا استاذى الفاضل على اهتمام حضرتك ما اريده هو اظهار الصفوف كلها التى يظهر بها الرقم فهذا الفورم يظهر حركة واحدة اى صف واحد ولكن اريد ظهور كل الصفوف التى بها رقم العميل اريدها على frame مطابق للشيت من حيث الخط والحجم وشكرا لسعة صدرك

للرفع

السلام عليكم ورحمة الله وبركاته تعلمت من موضوع علمنى اصطاد الفورم للأستاذ صقر جزاه الله خيرا وحاولت التطبيق على الفرام وارجو المساعدة كما بالملف المرفق البحث بالرقم ويظهر لى الاسم وتاريخ الميلاد والقيمة التأمينية والعمر وجملة القيمة التأمينية لرقم البحث تأمين.rar

شكرا لحضرتك استاذ ياسر وجزاك الله خيرا تمام هذا المطلوب شكرا لحضرتك وعلى اهتمامك يفى المطلوب حل حضرتك والاستاذ ياسر شكرا لحضرتك وفعلا كما ذكرت هنا يوجد العباقرة حينما اردت تعلم برمجة الاكسل لانى فى حاجة اليها مع الاوراكل كانت هنا المدرسة الطيبة بأهلها وكرمهم على طلبى العلم وجزاك الله خيرا لاهتمامك واهتمام الاخوة الاعزاء الاستاذياسر والاستاذ سليم وحضرتك استاذ عبدالله اشكركم جمعيا فالحلول الثلاثة مع تقاربها فهى تفى سؤالى ادام الله عليكم نعمة الصحة والعافية ورزقكم من علمه

السلام عليكم ورحمة الله وبركاته عندى ملف مرفق خاص بالتأمين المطلوب الترحيل الى ورقة 2 بشرط ال تحت 60سنة ام العمر فوق 60سنة لا يرحل وشكرا لسعة صدركم تأمين.rar

شكرا استاذى الفاضل على اهتمامك هو فى ربط اتصال بين قاعدة البيانات كما بالصورة رقم 1 وهذا ينشأ الى بعد ربط الاتصال والكود لجلب البيانات من اوراكل وهذا بكتبه انا لاحدد الجدول وهورقم 2

شكرا استاذ ياسر على اهتمامك المشكلة فى ربط الاتصال اوراكل بالاكسل الفكرة هى جلب بيانات من الاوراكل الى الاكسل لان الاكسل بيساعدنى على تنسيق البيانات كما اوضحت بكتب كود اوراكل فى الاكسل فى البيانات -- اتصالات -وفى الخصائص بكتب كود اوراكل لجلب البيانات فى نظام 32 شغال معايه تمام الاب توب جاى معاه نسخة 64 بايت حاولت كثيرررر ما ضبط والملف مرفق test.rar

السلام عليكم ورحمة الله وبركاته لدى قاعدة بيانات اوراكل وافضل استخراج البيانات عن طريق الاكسل لانه من خلال الاكسل اتمكن من عمل الاضافات من معادلات الذى ادين بالفضل لهذا المنتدى العلمى الطيب بأهله فى تعلم الاكسل المشكلة انه يعمل معى مع ويندوز 32 ولكن مع نظام 64 لايعمل تحديث للبيانات

السلام عليكم ورحمة الله وبركاته ارجو المساعدة حيث لدى عمل متكرر فى اعداد تقارير المراجعة فهناك نماذج جداول داخل التقرير ثابتة من مراجعة المخزون والمهمات الثابتة والخزينة اعد هذا التقرير لفروع كثيرة فهل من نموذج ثابت اكتب فيه ويتم التغيير اتوماتيك من خلال vba حيث عندى خبرة بسيطة فى vba اكسل ولكنى اعد التقارير على الورد فهل يمكن عمل نماذج على vba لملئ تلك الجداوال بالتقرير من خلال تحديد القسم يوجد مثال مرفق لنموذج مثال مبسط لتقرير.rar

شكرا لك استاذى الفاضل وجزاك الله خيرا وجعله فى ميزان حسناتك تمام

ارجو الرد لمن لديه الافادة

السلام عليكم ورحمة الله وبركاته ارجو المساعدة فى كود بحث فى الفورم بين تاريخين حسب التاريخ بالملف المرفق وشكلرا لسعة صدركم البحث بين تاريخين.rar

شكرا استاذى الفاضل جزاك الله كل الخير هذا المطلوب تمام جعله الله فى ميزان حسناتك