إبراهيم ابوليله

اخى مختار منور صاحى ليه لحد دلوقتى ياراجل على العموم حل موفق ولكنى اعتقد ان الى ف دماغ اخونا ياسر ازاى يتم التنفيذ بدون حلقات تكراريه على العموم نستنى بقى لحد ما اخونا ياسر يصحى من النوم تقبل تحياتى

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

المشكله اخى ياسر ان الكىبورد بتاعتى كل زراير ال f معطله لاتعمل فلن اتمكن من مشاهده ما ينتج عنه الضغط على زر f8 ولكنك سألت مافائده السطر ReDim Preserve Arr(1 To 4) As Variant لو تم حزف هذه السطر فلن يتم ترحيل اخر قيمه فى المصفوفه الى هيا d الى الشيت ولكن بعد اضافة هذا السطر تم اعاده تحجيم المصفوفه لتقرأ على انها تبدأ من 1 الى 4 عناصر وبالتالى يتم ترحيل العنصر الرابع الى الشيت دون الحاجه الى كتابة الرقم 1 تقبل تحياتى

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

ماشى ياعم ياسر ينفع معاك الكود ده ولا ايه 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 تقبلو تحياتى

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

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

اخى محمد عزرا على نسيان ارفاق الرابط فى المشاركه السابقه تصفح الرابط التالى ان شاء الله ستجد فيه ما تريد http://www.officena.net/ib/topic/57179-اهداء-الى-المنتدى-شرح-كيفية-عمل-فاتوره-على-الكسيل-بدون-فورم/?page=1 والنموذج الخاص بالفاتوره ستجده على الرابط الاتى http://www.officena.net/ib/topic/55762-نموذج-لفاتوره-بدون-فوروم-حفظ-تعديل-حزف/#comment-352547 تقبل تحياتى

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

اخى محمد وبعد اذن اخى الفاضل خالد راجع الرابط الاتى ان شاء الله تجد فيه ما تريد تقبلوا تحاتى

مشكورا اخى ياسر

على العموم مشكورا اخى ياسر بس المشكله ان انا بشتغل على برامج مبينفعش معاها ويندوز 7 او 8 لازم xp وده لان البرامج دى بتكون تقيله جدا لما بشتغل عليها من ويندوز غير xp .............................................. بس على العموم هجرب مش هخسر حاجه غير الفورمات وتنزيل الويندوز خش عليا بقى بالرابط ياريس تقبل تحياتى

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

على فكره انا عندى ويندوز7 جربت استخدمه ملقيتش فيه مشكله خالص واضح ان المشكله فى ويندوز xp لانى تقريبا مسطب نفس الاوفيس على نسختين الويندوز واضح انى مش محتاج بقى يا اخ ياسر لرابط اوفيس لا انا عايس رابط ويندوز xp تقبل تحياتى

المهم يا اخ ياسر الكود ده CRC32: 04BF8BBE MD5: D57E91F7B533406049231AB7C6B75F49 SHA-1: 98451FEB0A5A1F58322D450B0EE2891D6FCDCADA هنعمل بيه ايه وطريقه استخدامه ازاى

جارى التحميل ياريس مع انى كنت افضل نسخه 2010 لانها خفيفه حبتين تقبل تحياتى

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

اخى ياسر مشكورا على المساعده والاهتمام ولكن مش فاهم يعنى ايه وإليك معلومات الهاش الخاصة بكل نسخة ■ 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 لايظهر معى شئ هل هذا عيب فى نسخة الاوفيس ام فى الويندوز ارجو الافاده

اخى ياسر فكرت اجمع الكودين فى كود واحد Sub kh_Array1() Dim arr(7, 7) As String arr(0, 0) = "sat" arr(1, 0) = "san" arr(2, 0) = "mon" arr(3, 0) = "tu" arr(4, 0) = "wen" arr(5, 0) = "th" arr(6, 0) = "fra" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' arr(0, 0) = "sat" arr(0, 1) = "san" arr(0, 2) = "mon" arr(0, 3) = "tu" arr(0, 4) = "wen" arr(0, 5) = "th" arr(0, 6) = "fra" Range("a1").Resize(7, 7).Value = arr End Sub تقبل تحياتى