بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
إبراهيم ابوليله
-
Posts
2,850 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
7
Community Answers
-
إبراهيم ابوليله's post in طلب .. كيف أحدد الاسم الذي تكرر في نتائج البحث was marked as the answer
اخى ابو الياس
هذه محاوله منى
اتمنى ان تفى بالغرض
اذا كان المحاوله ناجحه
يرجى قفل الموضوع باختيار افضل اجابه
ولا تنسى ان تضغط على محتوى اعجبنى
تقبل تحياتى
لست بوكس.rar
-
إبراهيم ابوليله's post in طلب مساعدة الخطأ في كود was marked as the answer
اخى ابا اسماعيل
جرب حزف هذه السطر
Option Explicit تقبل تحياتى
-
إبراهيم ابوليله's post in شرح هذا الكود و هل يمكن التجويد was marked as the answer
اخى صلاح
اعتقد ان انا كمان كنت متابع الموضوع
بس فى حاجه سهله
دور فى كتاباتك
على الموضوع
هيكون اسهل
تقبل تحياتى
-
إبراهيم ابوليله's post in سلسلة دروس التنسيق الشرطي Conditional Formatting للأستاذ إبراهيم أبو ليلة (إهداء للمنتدي) was marked as the answer
اخوانى الافاضل
ها قد انتهينا من شرح
مجموعة الدروس الخاصه بالبحث عن
طريق
conditional formatting
ارجو ان اكون قد وفقت فى الشرح
وان تكون هذه الدروس مفيده
مرفق شيت اكسيل به التطبيقات
تقبلو تحياتى
Conditional-Formatting.rar
-
إبراهيم ابوليله's post in مشكلة في ترحيل بيانات فاتورة بالكود was marked as the answer
اخى
تم التعديل
جرب المرفق
Invoice.rar
-
إبراهيم ابوليله's post in استفسار فى يوزر فورم مع كومبوبوكس was marked as the answer
اخى عبد الرجمن
الموضوع بسيط
قم باستبدال الكود الاتى
Private Sub CommandButton1_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("المشتريات") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Me.ComboBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox1.Value Me.ComboBox1.Value = "" Me.TextBox1.Value = "" Me.TextBox1.SetFocus End Sub بالكود التالى
Private Sub CommandButton1_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("المشتريات") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Me.ComboBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox1.Value Me.ComboBox1.Value = "" Me.TextBox1.Value = "" Me.ComboBox1.SetFocus End Sub وبذلك يكون الخطأ فى السطر التالى
Me.TextBox1.SetFocus تقبل تحياتى
-
إبراهيم ابوليله's post in طلب كود يمنع تكرار البيانات المدخلة في عمود معين بعد الترحيل was marked as the answer
أخى
قم بتغير الكود الخاص بك
الى الكود الاتى
Sub tarheel() LastRow = Range("A10000").End(xlUp).Row + 1 LR = Range("b10000").End(xlUp).Row + 1 For r = 5 To LR If Cells(r, 2) = Range("b2") Then MsgBox "This Item Name already exist, No shift will done": Exit Sub Next Cells(LastRow, 1).Value = Range("A2").Value Cells(LastRow, 2).Value = Range("B2").Value Cells(LastRow, 3).Value = Range("C2").Value Range("A2:C2").Select Selection.ClearContents Range("A2").Select End Sub تقبل تحياتى
-
إبراهيم ابوليله's post in طريقة عمل صفحه اساسيه في الاكسل ( Home Page ) was marked as the answer
اخى
اليك الكود المستخدم
Private Sub Workbook_Open() Sheet1.Select End Sub تقبل تحياتى
Book1.rar
-
إبراهيم ابوليله's post in تفقيط بالانكليزي والعربي was marked as the answer
اخى
تفضل ما تريده
-----------
ولكن لك منى دعوه لتغير اسم الظهور الى اللغه العربيه
التزاما بقواعد المنتدى
تقبل تحياتى
تفقيط.rar
-
إبراهيم ابوليله's post in ارجو المساعده فى معادلة جمع was marked as the answer
اخى ياسر
بجد الواحد ساعات دماغه بتقفل منه خالص
بس المهم انه ياقى الى يعديد فتحها
بارك الله فيك
تقبل تحياتى
-
إبراهيم ابوليله's post in المساعده فى تعديل كود تاريخ was marked as the answer
اخى ابوحنين
استبدل الكود بالكود الاتى
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False LR = Range("A" & Rows.Count).End(xlUp).Row If Target.Column = 1 Then Target.Offset(0, 1).Value = IIf(Target.Value <> "", Format(Now(), "yyyy/mm/dd"), "") End If LR1 = Range("n" & Rows.Count).End(xlUp).Row If Target.Column = 14 Then Target.Offset(0, 1).Value = IIf(Target.Value <> "", Format(Now(), "yyyy/mm/dd"), "") End If Application.ScreenUpdating = True End Sub تقبل تحياتى
-
إبراهيم ابوليله's post in المساعدة في تفعيل خاصية الحذف بفورم البحث was marked as the answer
السلام عليكم ورحمة الله وبركاته
اخى الكريم
هل تقصد هكذا
تقبل تحياتى
مساعدة.rar
-
إبراهيم ابوليله's post in مطلوب عمل text box تنسيق تاريخ was marked as the answer
السلام عليكم ورحمة الله وبركاته
اخى صلاح
جرب المرفق
تقبل تحياتى
date.rar
-
إبراهيم ابوليله's post in كود منع ظهور علامة اغلاق الفورم علي الفورم was marked as the answer
اخى محمود
---------------------
كل الشكر لاستاذنا شوقى ربيع
نسأل الله ان يديم عليه الصحه والعافيه
--------------------------------------------------
وايضا الشكر لك لتزكيرنا بالمواضيع الجميله
من الاساتذه الكبار
------------------------------------------
واسمح لى بالمشاركه
x.rar
-
إبراهيم ابوليله's post in مساعدة في تصحيح كود البحث عن طريق لست بوكس was marked as the answer
اخى
هل تقصد هكذا
مساعدة.rar
-
إبراهيم ابوليله's post in هل textbox يحفظ البيانات على شكل نص فقط ام يمكن حفظه كرقم في حال كان رقم was marked as the answer
اخى خالد
قم بكتابة كود التيكست على النحو الاتى
وجرب الكود
ME.TEXTBOX1.VALUE اذا لم تفلح معك هذه الطريقه
يرجى ارفاق ملف للعمل عليه
تقبل تحياتى
-
إبراهيم ابوليله's post in كيف انهاء الفورم والرجوع الى الورقة النشطة بالامر END او (X) was marked as the answer
اخى عيسى
ضع هذه الاكواد فى حدث الفورم
Private Sub CommandButton1_Click() Application.Visible = True End End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.Visible = True End Sub تقبل تحياتى
-
إبراهيم ابوليله's post in مطلوب كود تحويل الرقم الى 2 خانات عشرية لعمود في قائمة listbox was marked as the answer
اخى عيسى
--------
اذا كنت حصلت على ما تريد فاجعل الموضوع محلولا
باختيار افضل اجابه
-------------------
تقبل تحياتى
-
إبراهيم ابوليله's post in كيف يمكنني توسيع عمود في listbox was marked as the answer
اخى عيسى
ممكن ارفاق ملف للعمل عليه
اوجرب الكود الاتى
نفترض ان عدد الاعمد 3
بذلك يكون عرض
العمود الاول 50
والثانى 100
والثالث 50
With ListBox1 .ColumnWidths = "50;100;50" end with -
إبراهيم ابوليله's post in عمل فاتورة بالاكسل was marked as the answer
السلام عليكم ورحمة الله وبركاته
الاخت ام عبدالله
بارك الله فيكى
-------------------------------
اسمحو لى بالمشاركه بفكر بسيطه جدا
--------------------------------------
فقط قم بالضغط مرتين
داخل عمود رقم الصنف فى الفاتوره
ثم قم باختيار ما تريده
مباشرة من داخل الفورم
كما يمكنك الاستعانه بالبحث ان اردت
فاتورة بالاكسل-.rar
-
إبراهيم ابوليله's post in حساب عدد التاريخ بشرط في فوم was marked as the answer
اخى الجازع
هل تقصد هكذا
حساب عدد التاريخ بشرط.rar
-
-
إبراهيم ابوليله's post in هل من طريقة لعرض القائمة الأفقية ( صف ) في ComboBox2 was marked as the answer
اخى الجموعى
عزرا فقد كنت فى عجلة من امرى
تفضل
label-SS.rar
-
إبراهيم ابوليله's post in اريد كود يجبر المستخدم على ادخال معين فى التيكست بوكس was marked as the answer
الاخ والاستاذ شوقى
مشكورا على متابعة الموضوع
وتحيه للاستاذ الكبير
الذى لا يتاخر فى تقديم المعلومه
للاخرين
بارك الله فيك
-
إبراهيم ابوليله's post in خطأ يحدث اثناء تحريك الفورم(تهنيجه) was marked as the answer
اخى ابو حنين
مشكورا على الاهتمام
بارك الله فيك