أبومروان

لإنشاء هذا التأثير باستخدام VBA، يجب عليك استخدام برنامج المعالجة المخصص للإجراء الذي يسمى "Change"، الذي ينفذ في الوقت الذي تغير الحقل النصي. يمكنك إنشاء هذا الإجراء باستخدام التالي: Private Sub TextBox1_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox2_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox3_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox4_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox5_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox6_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox7_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox8_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox9_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox10_Change() TextBox11.Value = "تم التغيير" End Sub

بارك الله فيك ي ا أستاذ @ابراهيم الحداد 🌹🌹🌹

الف مليون مبروك بالتوفيق دايما 🎊🎊🎊🎊

Private Sub UserForm_Initialize() Dim LastRow As Long Dim LastCol As Long Dim Criteria1 As String Dim Criteria2 As String Dim Result As String LastRow = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row LastCol = Sheet1.Cells(1, Sheet1.Columns.Count).End(xlToLeft).Column Criteria1 = Sheet1.Range("A2").Value Criteria2 = Sheet1.Range("B2").Value Result = Application.Vlookup(Criteria1 & Criteria2, Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(LastRow, LastCol)), 3, False) Me.TextBox1.Value = Result End Sub ممكن تجرب هذا الكود لعله يفيد وعدل عليه حسب الرغبه

Application.PrintOut Copies:=4, Printer:="HP Printer", Collate:=True

الله ينور عليك

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

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

السلام عليكم يدفعنى الاندهاش الى المعرفة ، فيشعرنى بجهلى سلسله شروحات أكثر من رائعة تحياتي لشخصك الكريم كيف جعلت الفورم لا يحمل سوا صوره واحده داخل محرر الاكواد لو أردنا اظهار باقي صفحات الانفوجرافيك داخل محرر الاكواد كيف نفعل؟

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

🌤منتظرين المزيد والمزيد من البرامج والمشروعات الابداعيه وممكن كمان اضافه خيار إرسال المرفق للواتساب بدل الميل 🌤 ‏

ارفق ملف وخبراء المنتدى سوف يقومون بالمساعدة أن شاء الله اعتقد بان هذا الموضوع قد يفيدك

استاذ @احمد غانم تحياتي لشخصك الطيب

يقول أبو الطيب المتنبي: عَـلَى قَـدْرِ أَهـلِ العَـزمِ تَأتِي العَزائِمُ وتَأتِي عَـلَى قَـدْرِ الكِـرامِ المَكـارِمُ و تَعظُـمُ فـي عَيـنِ الصّغِـيرِ صِغارُها وتَصغُـر فـي عَيـنِ العَظِيـمِ العَظـائِمُ مبدع بارك الله فيك وزادك الله من فضله

أفضل إجا لسلام عليكم 1. اذهب الى Start ثم Settings 2 . اختر Control Panel 3. Regional And Language Options 4. من تبويب Advanced في خانة الاختيار اختر اللغة العربية 5. ثم OK في محرر الاكواد من قائمة Tools ثم Option من تاب Editor Format ثم Font اختر نوع الخط هذا Courier New (Arabic)

ما اروع الأشخاص الذين يعتقدون أن كل شيء ممكن هم القادرون على الاكتشاف والابداع

بارك الله فيك استاذنا الكريم

بارك الله فيك استاذنا الكريم ومتابعين سلسلة الشروحات ومنتظرين المزيد بالتوفيق دائما للمبدع @ضاحي الغريب والقائمين على المنتدي العظيم

بارك الله فيك اخي الكريم

بارك الله فيك اخي الكريم

جزاك الله خيرا ورفع قدرك

ممكن تستخدم ...وهكذا Application.wait(now+time ("00.35"))

جزاك الله خيرا

Private Sub UserForm_Initialize() With Application .WindowState = xlMaximized Zoom = Int(.Width / Me.Width * 80) Width = .Width: Height = .Height Left = 0: Top = 0 End With End Sub ادخل علي هذا الموضوع