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

موضوع: تبدیل در اکسل

  1. #1


    آخرین بازدید
    2015/06/20
    تاریخ عضویت
    September 2013
    نوشته ها
    49
    امتیاز
    16
    سپاس
    0
    سپاس شده
    7 در 7 پست
    تعیین سطح نشده است

    تبدیل در اکسل

    با سلام
    می خواهم یک ستون 500 سطری را به 10 ستون 50 ردیفی تبدیل کنم
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsx 20000.xlsx اطلاعات (16.7 کیلو بایت, 12 نمایش)
    ویرایش توسط Hamid.Mcse90 : 2013/12/29 در ساعت 10:54

  2.  

  3. #2


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    از ماکرو زیر استفاده کنید:
    کد:
    Sub SplitInto50CellsPerColumn()
    
    
        Dim X As Long, LastRow As Long, vArrIn As Variant, vArrOut As Variant
        
        LastRow = Cells(Rows.Count, "A").End(xlUp).Row
        
        vArrIn = Range("A1:A" & LastRow)
        
        ReDim vArrOut(1 To 50, 1 To Int(LastRow / 50) + 1)
        
        For X = 0 To LastRow - 1
            vArrOut(1 + (X Mod 50), 1 + Int(X / 50)) = vArrIn(X + 1, 1)
        Next
        
      Range("B1").Resize(50, UBound(vArrOut, 2)) = vArrOut
      
    End Sub
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************



  4. #3


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    یک راه دیگه هم استفاده از فرمول هست به شکل زیر البته:

    فرض کنید که ستون شما در a شامل 600 ردیف هستش که می خواید به ستونهای 50 ردیفی تبدیل بشه حالا با یه حساب ساده
    600/50 میشه 12 یعنی ما به 12 ستون نیاز داریم خوب حالا به فشار کلیدf5 یا ctrl+g به ابزار go to میریم اینجا باید رنج مورد نظر رو انتخاب کنید که اگه طبق حساب ما 12 تا ستون باشه و با توجه به اینکه ستون اصلی در a قرار داره باید در قسمت رفرنس b1:m50 رو انخاب کنیم بعد از زدن اینتر میبینید که محدوده انتخاب شده حالا باید فرمول رو وارد کنیم برای اینکار با فشردن f2 اولین سلول محدوده سلکت شده در حالت ادیت قرار میگیره که میتونیم فرمول رو وارد کنیم البته فرمول ما چون به صورت آرایه هستش بعد از past کردن با زدن دکمه ترکیبیshift+enter فرمول به تمام محدوده اجرا میشه:
    کد:
    =index($a$1:$a$7000,row(b1)+(50*(columns($b$1:b$1)-1)))
    موفق باشید.
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************



  5. #4


    آخرین بازدید
    2015/06/20
    تاریخ عضویت
    September 2013
    نوشته ها
    49
    امتیاز
    16
    سپاس
    0
    سپاس شده
    7 در 7 پست
    تعیین سطح نشده است

    سلام این روش نشد

  6. #5


    آخرین بازدید
    2015/06/20
    تاریخ عضویت
    September 2013
    نوشته ها
    49
    امتیاز
    16
    سپاس
    0
    سپاس شده
    7 در 7 پست
    تعیین سطح نشده است

    موبایلتو واسم می فرستی بپرسم ازتون سپاس

  7. #6


    آخرین بازدید
    2022/12/14
    تاریخ عضویت
    March 2011
    محل سکونت
    کرج
    نوشته ها
    650
    امتیاز
    1619
    سپاس
    2,246
    سپاس شده
    1,589 در 465 پست
    سطح اکسل
    80.00 %

    Alireza به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط Hamid.Mcse90 نمایش پست ها
    سلام این روش نشد
    سلام
    فکر میکنم توی روش بکار گیری ماکرو اشکال دارید واگرنه روش دوستمون قطعا جواب میده
    تنها راهي که به شکست مي انجامد، تلاش نکردن است


  8. سپاس ها (2)



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

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

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

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

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

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

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

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

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