-
Posts
13,165 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
412
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو ياسر خليل أبو البراء
-
كود وضع اسم الصورة في تكست بوكس
ياسر خليل أبو البراء replied to صلاح الدين ابو حسين's topic in منتدى الاكسيل Excel
الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير وجزيت خيراً أخي صلاح على دعائك الطيب تقبل تحياتي -
العودة لنفس الصف في الليست بوكس
ياسر خليل أبو البراء replied to نايف - م's topic in منتدى الاكسيل Excel
وعليكم السلام أخي الكريم نايف .... مش هزعلك وهقولك بردو ارفق ملف .. الملف لتوفير الوقت والجهد بدلاً من تصميم ملف ووضع الكنترولات عليه وقد لا يكون مطابق لما قمت بتوضيحه .. الملف المرفق هو أسهل طريق لقلب المساعد .. -
كود وضع اسم الصورة في تكست بوكس
ياسر خليل أبو البراء replied to صلاح الدين ابو حسين's topic in منتدى الاكسيل Excel
السلام عليكم أخي الكريم صلاح الدين اذهب لمحرر الأكواد Alt + F11 انقر دبل كليك على اسم الفورم المسمى add من نافذة المشروع انقر دبل كليك على زر الأمر المسمى "استعراض" قم بمسح الكود المرتبط بهذا الزر (الجزء التالي) Private Sub CommandButton3_Click() Image_path = Application.GetOpenFilename( _ FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _ Title:="اختر صورة") TextBox11.Value = Image_path 'ActiveWorkbook.Save If Image_path <> False Then Me.Lab_pic.Picture = LoadPicture(Image_path) End If End Sub ضع الكود التالي مكانه رابط الكود من هنا فبل تشغيل الفورم ، قم بالذهاب لأدوات Tools واختر Reference وأضف المكتبة التالية Microsoft Scripting Runtime الآن قم بتشغيل الكود وجرب النقر على زر استعراض .. لتحصل على اسم الصورة في التكست بوكس رقم 11 -
عملية جرد المخزن .الخبراء لو تكرمتم
ياسر خليل أبو البراء replied to bosshk5's topic in منتدى الاكسيل Excel
أخي الكريم هلا أرفقت بعض النتائج المتوقعة ليسهل الوصول لحل فأنا أو غيري لا يفهم طبيعة عملك (تحدث بلغة الإكسيل) ، والأفضل إرفاق شكل النتائج المتوقعة -
كود وضع اسم الصورة في تكست بوكس
ياسر خليل أبو البراء replied to صلاح الدين ابو حسين's topic in منتدى الاكسيل Excel
وعليكم السلام أخي صلاح الدين الرجاء تغيير اسم الظهور للغة العربية يا صلاح الدين السوري ارفق ملفك لتتضح صورة طلبك وللعمل عليه تقبل تحياتي -
كود تحويل المعادلة في ادخال البيانات
ياسر خليل أبو البراء replied to علي حيدر's topic in منتدى الاكسيل Excel
أخي الكريم علي هل أنت بحاجة لكل هذا الكم الهائل من الأعمدة ؟ ألم تفكر في طريقة أخرى تقلص بها عدد الأعمدة ليسهل عليك التعامل مع الملف ؟؟ مجرد اقتراح حاول تعيد هيكلة الملف بشكل آخر يسهل عليك التعامل معه -
حذف الكلمات المكررة داخل خلية واحدة
ياسر خليل أبو البراء replied to redamohamed's topic in منتدى الاكسيل Excel
رائع أخي سليم دالة ممتازة ورائعة وفيها مرونة أكثر حيث أنه يمكن تحديد الفاصل بين الكلمات تقبل تحياتي -
استخراج صورة من اليوزرفورم الى الهارديسك
ياسر خليل أبو البراء replied to مختار حسين محمود's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته أخي الحبيب مختار .. كم يسعدني أنك استعدت نشاطك الرائع والممتع بالمنتدى وكم أعشق موضوعاتك الحصرية .. واصل بلا فواصل ومشكور على ذكر اسمي ووضع صورة البروفايل الخاص بي في الملف المرفق تقبل وافر تقديري واحترامي- 8 replies
-
- 1
-
- صورة
- اليوزرفورم
-
(و1 أكثر)
موسوم بكلمه :
-
تحويل المعادلات الي اكواد
ياسر خليل أبو البراء replied to سامي عبد الحميد's topic in منتدى الاكسيل Excel
أخي الكريم سامي العمل بشكل عام والمشكلة بشكل عام ربما لا تجد الاستجابة المناسبة لها تناول نقطة محددة ومشكلة محددة ليستطيع الأخوة الأعضاء تقديم المساعدة المطلوبة إن شاء الله ماذا تقصد بالتحويل في الخلية ... هل تقصد التعامل مع خلية واحدة فقط فيها معادلة ... وليس التعامل مع نطاق بالكامل؟ الأفضل طرح موضوع مستقل مرفق معه ملف لكي لا تتداخل الموضوعات -
جرب نسخ الكود من المشاركة التالية Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Sh As Worksheet Dim iLastRow As Long If Target.Cells.Count <> 1 Then Exit Sub End If With ComboBox1 .LinkedCell = "": .Clear: .Visible = False End With If Not Intersect(Target, Range("C3:C779")) Is Nothing Then Set Sh = Sheet2 iLastRow = Sh.Cells(Rows.Count, "A").End(xlUp).Row With ComboBox1 .Top = Target.Top: .Left = Target.Left .Width = Target.Width: .Height = Target.Height .LinkedCell = Target.Address .List = Sh.Range("A1:A" & iLastRow).Value .Visible = True: .Activate End With SendKeys "%{DOWN}" End If If Not Intersect(Target, Range("D3:D779")) Is Nothing Then Set Sh = Sheet2 iLastRow = Sh.Cells(Rows.Count, "B").End(xlUp).Row With ComboBox1 .Top = Target.Top: .Left = Target.Left .Width = Target.Width: .Height = Target.Height .LinkedCell = Target.Address .List = Sh.Range("B1:B" & iLastRow).Value .Visible = True: .Activate End With SendKeys "%{DOWN}" End If End Sub لو حدثت نفس المشكلة لديك قم برفع الملف بعد وضع الكود داخله
-
طريقة تحويل ملف اكسل الى csv أو VCF
ياسر خليل أبو البراء replied to mabeed's topic in منتدى الاكسيل Excel
السلام عليكم أخي الكريم يوسف ممكن تراسلني على الخاص على الفيس بوك الخاص بي yakh777@yahoo.com لأرى ما يمكنني تقديمه لك تقبل تحياتي- 60 replies
-
- mobile numbers
- vcf
-
(و1 أكثر)
موسوم بكلمه :
-
تحويل المعادلات الي اكواد
ياسر خليل أبو البراء replied to سامي عبد الحميد's topic in منتدى الاكسيل Excel
العفو أخي سامي هل أفادك الموضوع واستطعت تطبيقه على ملفك ..؟ إذا كانت الإجابة بنعم فيرجى وضع ما توصلت إليه ليستفيد منه الجميع تقبل تحياتي (والرجاء تغيير اسم الظهور للغة العربية) -
أخي الكريم أبو حنف كود البحث مبني على خلية واحدة فقط وهي الخلية C1 في ورقة العمل Sheet1 حيث يتم جلب البيانات بناءً على قيمة هذه الخلية بالنسبة للنقطة الثانية الشرط هو تساوي الرقم الموجود في الخلية C1 في ورقة العمل Sheet1 والتي يمثلها المتغير Ws (الشطر الأيمن من السطر) بالقيمة أو الخلية في العمود الأول وقد يكون هذا هو إجابة سؤالك الأول حيث يمثل الرقم 1 في الشطر الأيسر رقم عمود البحث وهو العمود A ... حلقة تكرارية لكل صف من صفوف ورقة العمل التي يتم البحث فيها ، والبحث في العمود الأول أرجو أن تكون قد اتضحت الصورة قليلاً واسأل ولا تخجل ، وحتى لو كررت السؤال فلن أمل حاول تفهم كيف تسير الأمور ..استخدم مفتاح F8 لتتبع أسطر الكود سطر بسطر ومحاولة معرفة ما يجري تقبل تحياتي
-
لكم الله يا مسلمين .. قلوبنا معكم أيها المسلمون في شتى بقاع الأرض .. اللهم فرج كرب كل مسلم اللهم آمين أترك شرح الشروط بالتفصيل للأخ الغالي منير لبيب تقبلي تحياتي
-
حذف الكلمات المكررة داخل خلية واحدة
ياسر خليل أبو البراء replied to redamohamed's topic in منتدى الاكسيل Excel
أخي الكريم اضغط Alt + F11 للدخول لمحرر الأكواد ثم قم بنسخ الدالة المعرفة بالكامل ، واذهب لملفك وادخل لمحرر الأكواد ثم قم بإدراج موديول جديد ثم الصق الدالة واستخدمها لمعرفة المزيد حول البديات قم بزيارة الموضوع التالي بداية الطريق لإنقاذ الغريق -
أختي الكريمة عوداً حميداً غبت عن المنتدى فترة ليست بالقصيرة بالنسبة لسؤالك الرقم 1111 هو شرط وليس نطاق أو مرجع حيث أن نطاق الشرط يوجد في ورقة الأسماء في النطاق L2:L2800 الشرط هو 1111 ... والنطاق المشار إليه توجد به معادلة تجميع للصف والفصل والنوع والديانة ..
-
حذف الكلمات المكررة داخل خلية واحدة
ياسر خليل أبو البراء replied to redamohamed's topic in منتدى الاكسيل Excel
أخي الكريم يرجى عدم تكرار الموضوعات بدون داعي ، كما يرجى وضع عناوين مناسبة للموضوع ليعبر عن الطلب تم تغيير العنوان من "استفسار" إلى العنوان المبين بالنسبة لسؤالك تم استخدام دالة معرفة لهذا الغرض ، حيث يمكنك استخدامها في ورقة العمل بشكل طبيعي مثل أي دالة من دوال الإكسيل المعروفة حمل الملف المرفق من هنا