تكرار خلية بشكل رأسي بناء على رقم مدخل في خلية أخرى

[كريم أبو الفتوح]

السلام عليكم ورحمة الله وبركاته

تحية لكل أعضاء المنتدى المحترمين

في البداية أود أن أشكر كل من يساهم بالردود الفعالة والتي تعم الفائدة على الجميع ، وجزاكم الله خيرا

لدي ملف به خليتان أرغب في تكرار خلية منهم بشكل رأسي بناء على الخلية التي بجانبها والتي يكون فيها عدد مرات التكرار مع العلم أني سوف أستخدم خلايا كثير أود تكرارها

 

الملف مرفق للإطلاع ، وأرجو منكم تعاونكم ، ولكم جزيل الشكر

 

تكرار بناء على عدد.rar

تم تعديل أكتوبر 22, 2015 بواسطه كريم أبو الفتوح

[عمرو بزان]

أخي الكريم كريم أبو الفتوح 

أسعد الله صباحك بكل خير ورزقك ربي سعادة الدارين 

أستأذن أساتذتي في الرد على أستاذ كريم كما أرجوا أن يكون ما أرفقته لك هو حل لمشكلتك 

تقبل تحياتي أخي الفاضل

تكرار بناء على عدد.rar

[كريم أبو الفتوح]

أستاذي الكريم عمرو بزان

أولا أشكر لك اهتمامك وردك الكريم ، ولكن يبدو لي أني لم أستطع توضيع المقصود

أنا أرغب في إدخال العدد وبمجرد الضغط على مفتاح الإدخال يقوم بتكرار الوظيفة بناء على العدد المدخل

تم تعديل أكتوبر 22, 2015 بواسطه كريم أبو الفتوح

[عمرو بزان]

دعني أستوضح منك طلبك مرة اخرى 

بمعنى أنك كتابه رقم معين .. خمسه مثلا .. فتريد معادلة معينه مثلا تجلب لك كافة المهن التي تكررت خمس مرات ؟

[كريم أبو الفتوح]

لا يا أستاذ عمرو

 

أنا عندي كالتالي

A1        B1

Store Keeper       5

أنا أرغب بمجرد إدخال رقم ه في خانة الرقم يتم تكرار الوظيفة خمس مرات ورا بعض بحيث تكون

A1        B1

Store Keeper       5

Store Keeper         

Store Keeper         

Store Keeper         

Store Keeper         

وهلم جر دون التأثير على أي خلايا بالأسفل

 

أرجو أن أكون قمت بتوضيح الفكرة على النحو الجيد

 

 

 

[سليم حاصبيا]

اخي لكريم

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

و عندما تغيّر قيمة اي من الخليتين تنفذ المعادلة مباشرة

=IF(AND(ROWS($A$1:A1)<=$B$1,$A$1<>"",$B$1<>""),$A$1,"")

  

تم تعديل أكتوبر 22, 2015 بواسطه سليم حاصبيا

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

أخي الكريم كريم

إليك الكود التالي عله يفي بالغرض

Sub CopyData()
    Dim Rng As Range, xValue, xNum
    Dim InputRng As Range, OutRng As Range
    
    On Error Resume Next
    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("حدد النطاق المراد تكراره", "Officena", InputRng.Address, Type:=8)
    Set OutRng = Application.InputBox("حدد الخلية التي تريد وضع النتائج بها", "Officena", Type:=8)
    Set OutRng = OutRng.Range("A1")
    For Each Rng In InputRng.Rows
        xValue = Rng.Range("A1").Value
        xNum = Rng.Range("B1").Value
        OutRng.Resize(xNum, 1).Value = xValue
        Set OutRng = OutRng.Offset(xNum, 0)
    Next
End Sub

قم بتنفيذ الكود .. حدد النطاق المراد تكرار قيمه (على أن يكون في الخلية المجاورة عدد مرات التكرار) .. حدد أول خلية في نطاق النتائج .. انتهى

Repeat Cell Values X Times.rar

[سليم حاصبيا]

اخي ياسر

اثراء للموضوغ اليك هذا الكود

تستطيع ان تحدد اكثر من صف و اكثر من عامود للنكرار

 Sub repet()
    Dim myrg As Range
    Dim t As Integer
        Set myrg = Application.InputBox("Enter your data", Type:=8)
        t = Application.InputBox("Enter your number", Type:=1)
        myrg.Copy ActiveCell.Resize(t * myrg.Rows.Count, myrg.Columns.Count)
  End Sub
 

 

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

جميل جداً أخي الحبيب سليم

والأجمل الإعلان عن المتغيرات ..

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

هذا والله أعلى وأعلم

[أسامة البراوى]

السلام عليكم

بعد إذن أساتذتنا الافاضل، ولإثراء الموضوع من منظور مختلف

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

 تكرار بناء على عدد OB.rar

Sub RepeatCellValue()

    Dim I As Integer
    Dim A
    A = ActiveCell.Offset(0, 1).Value
    If IsNumeric(A) Then
        For I = 1 To A
                ActiveCell.Copy
                Selection.Insert Shift:=xlDown
        Next
        Application.CutCopyMode = False
    End If
End Sub

 

تكرار بناء على عدد OB.rar

[أسامة البراوى]

جميل جداً أخي الحبيب سليم

والأجمل الإعلان عن المتغيرات ..

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

هذا والله أعلى وأعلم

أخى العزيز ياسر

موضوع استخدام Integer أو Long بيكون حسب البيانات المطلوبة كما بالجدول التالى ..  ويفضل لو كان حاجة خفيفة تستعمل الأخف وهو Integer

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

 يعنى مثلا لو قاعدة بيانات بها من النوع Integer  هاتكون المساحة/ الحجم المطلوب لقاعدة البيانات نصف المطلوب للمتغير Long عن كل سطر من البيانات

 

VB Alias	Size	Range
Integer	32 bits (4 bytes)	-2,147,483,648 to 2,147,483,647
Long	64 bits (8 bytes)	-9,223,372,036,854,775,808 to 9,223,372,036,854,775,807

[محمد الريفى]

بعد اذن الاساتذه الكرام هذا حل اخر بمعادلة 

=IF((ROW(F9)-ROW($F$8))<=$G$8;$F$8;"")

 

 

تكرار بناء على عدد.rar

تم تعديل أكتوبر 23, 2015 بواسطه محمد الريفى

[كريم أبو الفتوح]

السادة الأفاضل المحترمين

أشكركم جميعا على هذا المجهود الرائع

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

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

الأخ الكريم كريم أبو الفتوح

الحمد لله أن تم المطلوب على خير .

من الأفضل في الرد أن تحلل الإجابات وتختار أفضلها لك ليكون مرجع لمن يسأل نفس مسألتك ..

ويمكن نقد مشاركات بعينها وتحليلها من حيث الإيجابيات والسلبيات

تقبل تحياتي