إبراهيم ابوليله
-
Posts
2851 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
7
نوع المحتوي
التقويم
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو إبراهيم ابوليله
-
طب انت ايه رأيك يقى ان انا مش هضيف رقم 1 ده خالص لا على المصفوفه ولا داخل الحلق التكراريه Sub mokhtest() Dim arr arr = Array("A", "B", "C", "D") ReDim Preserve arr(1 To 4) As Variant For i = LBound(arr) To UBound(arr) Cells(3, i).Value = arr(i) Next End Sub تقبل تحياتى -
اخى مختار منور صاحى ليه لحد دلوقتى ياراجل على العموم حل موفق ولكنى اعتقد ان الى ف دماغ اخونا ياسر ازاى يتم التنفيذ بدون حلقات تكراريه على العموم نستنى بقى لحد ما اخونا ياسر يصحى من النوم تقبل تحياتى
-
اريد طريقة اضافة spread sheet في userform
إبراهيم ابوليله replied to اشرف النعاس's topic in منتدى الاكسيل Excel
انا المشكله دى بتصادفنى كتير الويندوز الى ف البيت عندى بتحصل معاه المشكله دى ولكن الويندوز الى ف الشغل بيشتغل تمام على العموم جرب مش هتخسر حاجه غير الفورمات وتنزيل النسخه من جديد تقبل تحياتى -
المشكله اخى ياسر ان الكىبورد بتاعتى كل زراير ال f معطله لاتعمل فلن اتمكن من مشاهده ما ينتج عنه الضغط على زر f8 ولكنك سألت مافائده السطر ReDim Preserve Arr(1 To 4) As Variant لو تم حزف هذه السطر فلن يتم ترحيل اخر قيمه فى المصفوفه الى هيا d الى الشيت ولكن بعد اضافة هذا السطر تم اعاده تحجيم المصفوفه لتقرأ على انها تبدأ من 1 الى 4 عناصر وبالتالى يتم ترحيل العنصر الرابع الى الشيت دون الحاجه الى كتابة الرقم 1 تقبل تحياتى
-
اريد طريقة اضافة spread sheet في userform
إبراهيم ابوليله replied to اشرف النعاس's topic in منتدى الاكسيل Excel
انا بقى مقتنع ان العيب فى الويندوز بس اخونا ياسر ياجدعان عنده شويه معلومات ايوووووووووووووووووووووووووووووووووه ياجدع تسلم الدماغ دى تقبلوا تحياتى -
ماشى ياعم ياسر ينفع معاك الكود ده ولا ايه Sub Fillrangeusingarray() Dim Arr As Variant Arr = Array("A", "B", "C", "D") ReDim Preserve Arr(1 To 4) As Variant Range("A3").Resize(1, UBound(Arr)) = Arr End Sub تقبل تحياتى
-
اخى مختار ايه ياعم انت معزب نفسك ليه والاستاذ ياسر طبعا احنا متأكدين انه نده معلومات كتير عن الموضوع ده بس انا بحب البساطه دايما علشان كده فكرت اعملها بالشكل ده Sub Fillrangeusingarray() Dim Arr Arr = Array("A", "B", "C", "D") Range("A3").Resize(1, 4) = Arr End Sub او بالشكل ده Sub Fillrangeusingarray() Dim Arr Arr = Array("A", "B", "C", "D") Range("a3:d3").Value = Arr End Sub تقبلو تحياتى
-
اخى ياسر اعتقد انك مجبتش جديد يعنى المعلومات دى معظمنا بيعرفها ولكن انا شخصيا كنت اجهل معرفة الكثير من المحتوى الذى تفضلت بشرحه ولذلك فانا مصر على متابعة هذا الموضوع لانك بصراحه تبجر المتابع انه يستفيد والله مش عارف اشكرك ازاى بس كل الى ققدر اعمله انى اققولك زادك الله من فضله وعلمه وجعلك نافعا بعلمك تقبل تحياتى
-
اخى مختار بالفعل كل النقاط التى تفضلت بذكرها ستجعلنا نتقن التعامل مع المصفوفات خصوصا حينما يقدمها لنا استاذ بحجم وقدر استاذنا ياسر تقبل تحياتى
-
اريد طريقة جلب البيانات فاتورة
إبراهيم ابوليله replied to محمد عبدالسلام's topic in منتدى الاكسيل Excel
اخى محمد عزرا على نسيان ارفاق الرابط فى المشاركه السابقه تصفح الرابط التالى ان شاء الله ستجد فيه ما تريد http://www.officena.net/ib/topic/57179-اهداء-الى-المنتدى-شرح-كيفية-عمل-فاتوره-على-الكسيل-بدون-فورم/?page=1 والنموذج الخاص بالفاتوره ستجده على الرابط الاتى http://www.officena.net/ib/topic/55762-نموذج-لفاتوره-بدون-فوروم-حفظ-تعديل-حزف/#comment-352547 تقبل تحياتى -
اخى ياسر ايه الحكايه روحت فين وبعدين انت مقولتلناش هل خلاص كده ننام بقى ولا نفضل صاحين منتظرين الحلقه الى جايه تقبل تحياتى
-
اريد طريقة جلب البيانات فاتورة
إبراهيم ابوليله replied to محمد عبدالسلام's topic in منتدى الاكسيل Excel
اخى محمد وبعد اذن اخى الفاضل خالد راجع الرابط الاتى ان شاء الله تجد فيه ما تريد تقبلوا تحاتى -
مشكورا اخى ياسر
-
على العموم مشكورا اخى ياسر بس المشكله ان انا بشتغل على برامج مبينفعش معاها ويندوز 7 او 8 لازم xp وده لان البرامج دى بتكون تقيله جدا لما بشتغل عليها من ويندوز غير xp .............................................. بس على العموم هجرب مش هخسر حاجه غير الفورمات وتنزيل الويندوز خش عليا بقى بالرابط ياريس تقبل تحياتى
-
اخى ياسر مشكور والله على الجهد الكبير المبذول فى توصيل العلم الينا بارك الله فيك وزادك من فضله وعلمه تقبل تحياتى
-
على فكره انا عندى ويندوز7 جربت استخدمه ملقيتش فيه مشكله خالص واضح ان المشكله فى ويندوز xp لانى تقريبا مسطب نفس الاوفيس على نسختين الويندوز واضح انى مش محتاج بقى يا اخ ياسر لرابط اوفيس لا انا عايس رابط ويندوز xp تقبل تحياتى
-
المهم يا اخ ياسر الكود ده CRC32: 04BF8BBE MD5: D57E91F7B533406049231AB7C6B75F49 SHA-1: 98451FEB0A5A1F58322D450B0EE2891D6FCDCADA هنعمل بيه ايه وطريقه استخدامه ازاى
-
جارى التحميل ياريس مع انى كنت افضل نسخه 2010 لانها خفيفه حبتين تقبل تحياتى
-
اخر قيمة مطابقة لقيمة البحث -- LOOKUP
إبراهيم ابوليله replied to خالد الرشيدى's topic in منتدى الاكسيل Excel
اخى خالد السلام عليكم ورحمة الله وبركاته ........... برنس والله ماشاء الله عليك اجمل ما فيك انك واضح وصريح تقبل تحياتى -
اخى ياسر مشكورا على المساعده والاهتمام ولكن مش فاهم يعنى ايه وإليك معلومات الهاش الخاصة بكل نسخة ■ File hashes from iso: ♦ 32 bit: CRC32: 04BF8BBE MD5: D57E91F7B533406049231AB7C6B75F49 SHA-1: 98451FEB0A5A1F58322D450B0EE2891D6FCDCADA وهل لها علاقه بالموضوع ولا ايه النظام تقبل تحياتى
-
ماشى يااستاذ ياسر نعيد الاجابه لتتوافق مع السؤال Sub OneDimensionalArray5() Dim Arr Arr = Range("A1:A15") Cells(5, "K").Resize(UBound(Arr), 1) = Arr End Sub تقبل تحياتى
-
اخى ياسر للاسف لم يفلح الامر معى ياريت لو تتكرم وترفع لى النسخه الى عندك على اى سيرفر او تقولى على مكان انزل منه النسخه تقبل تحياتى
-
اخى ياسر هذا على حسب فهمى للسؤال Sub OneDimensionalArray5() Dim Arr Arr = Range("A1:A6") Cells(1, 3).Resize(UBound(Arr), 1) = Arr End Sub تقبل تحياتى
-
اخى ياسر مشكورا على المعلومات الجامده دى تقبل تحياتى
-
اخى ياسر الموضوع ده تعبنى جدا لدرجة الارهاق بصراحه نفسى اوصل فيه لحل انا مش عارف ليه لما لما باقوم باظهار صندوق الادوت واعمل كليك يمين واختار Additional Controls لايظهر معى شئ هل هذا عيب فى نسخة الاوفيس ام فى الويندوز ارجو الافاده
