تعبئة (مدي من الخلايا) -عمود- بقيم عددية مداها ثابت

[ابو بهاء المصري]

منتدانا الغالي (اوفيسنا)

تحية طيبة وبعد

 

لي طلبات بسيطة ارجو من سيادتكم التكرم عليا بحلهما (وللعلم تعبت من البحث ولم اجد ما اطلبه) وخاصة الطلب الثاني ولم ابحث عن الثالث

الاول:

عندي عمود مداه من a10:a210 اريد ان املئه بضغطة زر بارقام مختلفة مداها من (1:12) عادي اعداد صحيحة ممكن اعداد عشرية ممكن ،وفي نفس الوقت املك القدرة علي افراغ ومسح محتويات هذا العمود (زر للتعبئة وزر للمسح)

الثاني :

اريد حينما اكتب بيان نصي في خلية ان يقوم بفرد الاسم حتي يملئ عرض الخلية بالكامل حيث نلاحظ في الاسماء اسم طويل واسم قصير فاريد ان تكون الاسماء مظبوطة بالمسطرة تحت بعضها كناحية جمالية فهل ممكن (كما يوجد في الوورد ) ارجو ان يكون طلب الثاني وصل لحضرتكم

 

الثالث : اريد ان ارفق صور في موضوعي او في استفساري داخل اي موضوع كيف ذلك

شاكر لكم تعبكم معي

نطاق.rar

[مختار حسين محمود]

كل سنة وأنت طيب يا أبا بهاء

الطلب الأول :

للتعبئة والمسح  :استخدم الكودين التاليين :

 Sub GenerateRandom()
 
 Range("A10:A210").FormulaR1C1 = "=RANDBETWEEN(1,12)"
     
 End Sub


 Sub DEL()
  
 Range("A10:A210") = ""
     
 End Sub

تحياتى

تم تعديل يونيو 26, 2015 بواسطه مختار حسين محمود

[ابو بهاء المصري]

استاذي : مختار حسين

صباح الخير والبركة

تقبل الله منك صلاتك وصيامك

اما بعد

Range("A10:A210").FormulaR1C1 = "=RANDBETWEEN(1,12)"

اعطاني مشكلة في هذا السطر واعتقد انه يخص الدالة randbetween التي لا تعمل علي اوفيس 2003

واستبدلت السطر السابق بالسطر التالي

 Range("A10:A210").FormulaR1C1 = "=FIXED(RAND()*12;0)"

فاعطاني ايضا نفس المشكلة

والمشكلة ليس توقف الكود عن العمل في كلا السطرين ولاكنه نفذ وكتب في الخلايا كلمة #name?

(FIXED(RAND()*12;0

وعلي الرغم ايضا ان الامر باعلي ينفذ منفردا دون مشكلة

فما السبب 

تقبل تحياتي لشخصك الكريم

تم تعديل يونيو 26, 2015 بواسطه ابو بهاء المصري

[ياسر خليل أبو البراء]

أخي الحبيب الغالي السباق بالخير مختار

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

 

أخي الكريم أبو بهاء المصري ..

لي عتاب بسيط .. يرجى ألا تكثر الطلبات في موضوع واحد .. ماذا يضرك إذا جعلت كل طلب في موضوع منفصل كي يجد الباحث فيما بعد بغيته إذا أراد البحث

إليك الملف التالي عله يفي بالغرض (وإن كنت من أنصار التحديث والتجديد ومواكبة العصر)

Sub GenerateRandom()
    Range("A10:A210").Formula = "=RandomNumbers(1,12)"
End Sub

Sub ClearRange()
    Range("A10:A210").ClearContents
End Sub

Public Function RandomNumbers(Lowest As Long, Highest As Long, Optional Decimals As Integer)
    Application.Volatile
    If IsMissing(Decimals) Or Decimals = 0 Then
        Randomize
        RandomNumbers = Int((Highest + 1 - Lowest) * Rnd + Lowest)
    Else
        Randomize
        RandomNumbers = Round((Highest - Lowest) * Rnd + Lowest, Decimals)
    End If
End Function

يمكنك توليد أرقام بها كسور وليست أرقام صحيحة فقط من خلال التعديل في المعادلة

=RandomNumbers(1,12,1)

كل عام وأنتم بخير

Random Numbers YasserKhalil.rar

[ابو بهاء المصري]

اخي الكبير: ياسر خليل ابو البراء

تحية تقدير واعزاز لشخصك الكريم

مقدما عتابك مقبول لانك من تساعد وانا من اطلب المساعدة واقسم بالله لتجدني اكثر الناس تقديرا لمن يمد لي يد العون في اي خدمة يقدمها الشخص لي 

اما بعد

طلبي الاساسي هو الاول

اما الثاني والثالث فهي مجرد معلومة كنت ارجو ان يخبرني احد عنها ببساطة دون الداعي الي ان اصنع اكثر من موضوع كما اشرت سيادتكم 

وعلي العموم لكا انت واخي :مختار حسين كل تقدير واحترام لفرط ادبكم وعظيم علمكم زادنا اله مما زادكم به

)(وإن كنت من أنصار التحديث والتجديد ومواكبة العصر) لم افهم ماذا تقصد بتلك الجملة

وشكرا موقعنا الغالي عليا اوفيسنا الحبيب

تم تعديل يونيو 26, 2015 بواسطه ياسر خليل أبو البراء

[ياسر خليل أبو البراء]

أخي الغالي أبو بهاء المصري

جزيت خيراً على كلماتك الرقيقة     

أقصد بالتحديث هو استخدام أوفيس 2007 فما فوق ... حيث أن أوفيس 2003 إمكانياته محدودة للغاية ، فما قدمه لك الأخ الحبيب مختار كان ليكفي لو أنك تستخدم إصدار أحدث

عموماً بالنسبة لطلبك الثاني لدي حل جزئي له ربما يروق لك .. فقط اطرحه في موضوع جديد حتى يساهم كل الأعضاء فيه إن شاء الله

وكل عام وأنت بخير

[ابو بهاء المصري]

بالنسبة لطلبك سمعا وطاعة وسوف اصنع موضوعا جديدا

اما الطلب الثالث في موضوعي فدا سهل بقي اي حد يجاوبني عليه في هذا الموضوع

واخيرا لك مني كل كلمات الشكر والتقدير لشخصكم الكريم