اضافه كردن رديف

**Alireza** · 2014/01/22, 17:11

سلام
بنظرم بهتره از vba کمک بگیرید.

**Nima** · 2014/01/22, 17:30

نوشته اصلی توسط Alireza2011

سلام
بنظرم بهتره از vba کمک بگیرید.

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

کد:

Sub test()
Dim j As Long, r As Range
    j = 2
    Set r = Range("A1")
    Do
        Range(r.Offset(2, 0), r.Offset(2, 0)).EntireRow.Insert
        Set r = Cells(r.Row + 3, 1)
        If r.Offset(1, 0) = "" Then Exit Do
    Loop
End Sub

**rosesefid** · 2014/01/25, 08:48

من تا حالا ماكرو كار نكردم ميشه بگين بايد چي كار كنم؟

**Amir Ghasemiyan** · 2014/01/25, 10:51

نوشته اصلی توسط rosesefid

من تا حالا ماكرو كار نكردم ميشه بگين بايد چي كار كنم؟

در محيط اكسل كليدهاي تركيبي Alt+f11 رو بزنيد. وارد محيطي ميشيد كه اسمش ويژوال بيسيك هست.
حالا از منوهاي بالا گزينه insert رو بزنيد و module رو انتخاب كنيد. سمت راست صفحه، قسمت سفيد رنگ بزرگي ايجاد ميشه. كدهاتون رو داخل اون قسمت بنويسيد

**maziardm** · 2014/01/25, 12:10

با سلام و روز خوش به تمامی دوستان
امیر جان این ماژول رو نوشتیم بعد باید چی کار کنیم. من سیوش کردم و از وی بی ای اومدم بیرون. حالا باید چی کار کرد. با تشکر

**khakzad** · 2014/01/25, 12:51

سلام
با این سوال شما یک کاربرد از paste special کشف کردم و بسیار خرسندم

یک راه قبلا وجود داشت برای اضافه کردن ردیف. ولی یک درمیون.به این شکل که کنار داده ها ستون اضافه می کردیم (من برای ستون شامل 10 عدد مثال می زنم که واضح باشه)
یک ستون اضافه می کنیم.از اولین ردیف یک سری عددی اضافه می کنیم.اینجا میشه 1 تا 10 (چون 10 ردیف داده داریم).بعد همون ها رو کپی می کنیم انتهای همون ستون.یعنی یک سری ده تایی دیگه اضافه می شه. با این تفاوت که دیگه جلوی سری دوم داده نداریم و خالی هست. حالا میایم اون ستون رو sort م یکنیم.می بینیم که اعداد مرتب شدند و ردیف های خالی یک در میون ظاهر شدند

حالا برای سوال شما باید اعداد رو به این شکل وارد کنیم و بعدش فقط یک سری به زیر داده ها اضافه کنیم. درسته؟ پس :
1
1
2
2
3
3
4
4
.
.
. تا اخر (تا جایی که داده هست)
و
1
2
3
4
.
.
.
پایین داده ها و sort
حالا نکته ای که مطرح هست وارد کردن داده هاست به ترتیب های مختلف.
برای حالت اول که بسیار ساده هست. با دبل کلیک و یا استفاده از series می تونید داد ها رو به ترتیب ایجاد کنید.
اما اینجا برای وارد کردن عدد به این سبک به شیوه زیر عمل کنید:
اول یکی درمیون عددد 1 و 2 وارد کنید بعد طبق شکل محدوده ابی رو انتخاب کنید و درگ کنید. تا اینجا اعداد یکی در میون داریم.حالا برای اینکه بینشون هم عدد بیاریم این کار جالب رو انجام میدیم

. اعداد رو توی یک ستون دیگه کپی کنید .بعد بیاید روی a2 کلیک کنید. کلیک راست===>paste special و گزینه skip blank رو تیک بزنید و Ok.
حالا اعداد رو به شکلی که می خوایم داریم.

ادامش هم یک سری دیگه عدد می زنیم. چون یک ردیف می خوایم اضافه کنیم سری معمولی می زنیم.اگر دو تا بخوایم باید همون داده ها رو ادامه بدیم.
در نهایت به این شکل می رسیم.

فقط sort مونده.

این یک روش بسیار ساده و کلی هست.برای انواع و اقسام حالت ها کاربرد داره.همچنین برای اضافه کردن ستون ها.......
امیدوارم کامل و واضح توضیح داده باشم
سوالی بود د رخدمتم

**rosesefid** · 2014/01/29, 12:20

مرسي ولي واقعيتش خيلي سر درنياوردم!!!! :D البته توضيحات شما كامل بودها شايد من .....!!!

خب من الان چطوري سورت كنم كه بين هر رديف يه رديف خالي بوجود بياد؟!!!! فايل من 2335 رديف داره 23 ستون!!!!

**Behnam** · 2014/01/29, 12:37

اعداد رو همونجور که خانم خاکزاد گفت وارد کنید بعد همون ستون رو سورت کنید،از تب data برید ، A TO Z رو بزنید
اتفاقی که میوفته اعداد مشابه ای که تولید کردید پشت سر هم قرار میگیره و چون مثلا 1 دومی ردیفی خالی بود پس بین 1 و 2 یک ردیف خالی بوجود میاد

**rosesefid** · 2014/01/29, 12:41

من همين كارو كردم به شكل دوم هم رسيدم ولي خب مثلا جلوي 2 اول و دوم داده دارم سورت هم كه ميكنم همه اعداد ترتيبشون درسته ديگه چيزي تغيير نميكنه

**rosesefid** · 2014/01/29, 12:45

اينم يه قسمت از فايل من

فایل های پیوست شده

رديف.xlsx (9.7 کیلو بایت, مشاهدات 19)

**rosesefid** · 2014/01/29, 12:49

واااااااااااااااااي خودم كشف كردم!!! هورااااااااااااااااااااااااا خيلي هم راحت اصلا نياز به اين چيزا نبود

كافيه شماره ردف رو يه بار ديگه زير همون وارد كنيم بعد سورت كنيم!!

**rosesefid** · 2014/01/29, 13:04

متوجه شدم مرسي آخه توضيحات خانم خاكزاد يه كوچولو پيچيده بود الان خودم تونستم انجام بدم

**Pbapba** · 2018/10/29, 10:42

سلام من یک چنین مشکلی دام ولی با خوندن این مطالب بازهم نتونستم حلش کنم ممنون میشم دوستان و استاتید محترم راهنمایی بکنند
من ستون دارم که در اون اعداد برای دسته ای مختلف به ترتیب نمایش داده میشه مثلا
1
2
3
1
2
3
4
1
2
1
2
3
4
5
1
....
هدف این هست که بتونم جدول شرطی برا اینها درست کنم و مشکل اینجاست که باید بعد از اتمام هرکدوم و قبل از شروع 1 بعدی یک ردیف خالی بشه برای نماش جمع قبلی ها
من اومدم و یک ستون کمکی اضافه کردم که اخرین عدد هر دسته را نشون بده الان باید چکار کنم که این دو ستون با هم یکی بشه تا بتونم عددی که در ستون نهایی هست و درستون اول نیست را خالی کنم .ببینید من باید در ستون بعدی دو تا ستون زرد را ترکیب و پشت سر هم داشته باشم

کامنت

اضافه كردن رديف