پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 9 , از مجموع 9

موضوع: تکرار یک مقدار با تعداد مشخص در اکسل

  1. #1


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    October 2013
    نوشته ها
    86
    امتیاز
    12
    سپاس
    0
    سپاس شده
    14 در 14 پست
    تعیین سطح نشده است

    confused تکرار یک مقدار با تعداد مشخص در اکسل

    با سلام و خسته نباشید خدمت همه اساتید و دوستان
    بنده یک مشکلی در اجرای sub دارم بدین صورت که :
    میخواهم a1 را 24 بار تکرار کنم ، 24 بار تکرار میشه ولی هر بار 1 واحد اضافه میشه .
    نمیدونم مشکل فرمول کجاس ، لطفا کمکم کنید .
    اینم فرمول :
    Sub Macro1()
    '
    ' Macro1 Macro
    '


    '
    j = 1
    For i = 1 To 161
    Range("A" & i & ":G" & i).Copy
    Range("I" & j).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("I" & j & ":O" & j + 24), Type:=xlFillDefault
    j = j + 24
    Next i
    ActiveWorkbook.Save
    End Sub


    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    منظور از a1 اگر تو قطه کد
    کد PHP:
    Range("A" ":G" i
    هست ، خیلی واضحه شما شمارنده i رو به a اختصاص دادید بنابر این ستون a ردیف های 1 الی 24 را انتخاب میکنید برای ایکه سلول a1 ثابت باشه نباید براش شمارنده بذارید



  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    October 2013
    نوشته ها
    86
    امتیاز
    12
    سپاس
    0
    سپاس شده
    14 در 14 پست
    تعیین سطح نشده است

    سلام آقا مهدی ....لطفا فرمول اصلاح شده رو مینویسید

  6. #4


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    نقل قول نوشته اصلی توسط reza_1001 نمایش پست ها
    سلام آقا مهدی ....لطفا فرمول اصلاح شده رو مینویسید
    سلام به شما ، اون g هم باید ثابت باشه؟یعنی رنج a1:g1 ؟



  7. سپاس ها (1)


  8. #5


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    October 2013
    نوشته ها
    86
    امتیاز
    12
    سپاس
    0
    سپاس شده
    14 در 14 پست
    تعیین سطح نشده است

    بله باید ثابت باشه

  9. #6


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    بایستی به صورت زیر بنویسید
    کد PHP:

    for i=1 to 24
    range
    ("a1:g1").copy
    next i 



  10. سپاس ها (1)


  11. #7


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    October 2013
    نوشته ها
    86
    امتیاز
    12
    سپاس
    0
    سپاس شده
    14 در 14 پست
    تعیین سطح نشده است

    اقا مهدی فایل رو پیوست کردم ، لطفا ببینیدش ، بنده میخوام که a1 رو 24 بار تکرار کنه و سپس a2 رو 24 بار کنه و الی آخر .
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm sub.xlsm اطلاعات (126.1 کیلو بایت, 27 نمایش)

  12. سپاس ها (1)


  13. #8


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    از کد زیر میتونی استفاده کنی
    کد PHP:
    Sub InsertRows()
        
    Dim I As LongAs IntegerNb As Integer
        
        
    For Range("A65536").End(xlUp).Row To 1 Step -1
            
                 Nb 
    24
            
            
    For 1 To Nb 1
                Rows
    (j).Insert xlDown
                Rows
    (I).Copy
                Rows
    (j).PasteSpecial    '
            Next
            
        Next
      
        Range("A1").Select
        Application.CutCopyMode = False
    End Sub 




  14. #9


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    از کد زیر هم میتونی استفاده کنی
    کد PHP:

    Sub test
    ()
    Dim i As IntegerAs IntegerAs IntegerAs Integer
    Dim tedadcell 
    As Integer
    Dim tedadtekrar 
    As Integer
    tedadcell 
    20
    tedadtekrar 
    15
    0
    For 1 To tedadcell
      
    For j To tedadtekrar 1
      Cells
    (j1).Copy
      Cells
    (n4).PasteSpecial xlPasteValues
      Next i
      n 
    tedadtekrar 1
      Next j
     
    End Sub 





اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. محاسبه ضریب تعدیل در پروژه های عمرانی
    توسط hosseinamerey در انجمن مهندسي عمران و اكسل
    پاسخ ها: 5
    آخرين نوشته: 2015/11/19, 11:44
  2. تعدیل پروژهای عمرانی با اکسل
    توسط hosseinamerey در انجمن مهندسي عمران و اكسل
    پاسخ ها: 0
    آخرين نوشته: 2014/01/17, 21:30
  3. تعداد رقم در سلول
    توسط yhnujm در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 5
    آخرين نوشته: 2013/01/08, 10:59
  4. تعداد ارقام
    توسط rosesefid در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2012/11/20, 10:08
  5. تعریف یک دکمه برای اجرای ماکرو
    توسط ALIREZA00 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/10/24, 17:06

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است