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

[rosesefid]

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

[rosesefid]

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

[Behnam]

ببینید دوست عزیز،مگه شما 7900 ردیف داده ندارید؟خب یه ستون اضافه کنید اول دیتاتون،تو اون ستون شماره بزنید،از 1 تا 7900،حالا این شماره ها رو کپی کنید و به انتهای همین اعداد اضافه کنید،سری دوم اعداد دیگه جلوشون خالیه،وقتی حالا سورت کنید یک در میان بین ردیف هاتون خالی میوفته،از آخر هم میتونید باز اون ستون رو پاک کنید،همین
اگه نتونستید قسمت کوچکی از فایلتون رو آپلود کنید براتون انجام بدم

[rosesefid]

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

[Pbapba]

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

[iranweld]

با سلام


ماکرو ذیل را در فایل پیوست چک کنید

Sub test()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To z1

If Range("A" & i) = 1 Then

k = k + 1

t = i

End If


If k > 1 And Range("A" & i) = 1 Then

z1 = z1 + 1

Rows(i & ":" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("A" & i).Interior.ColorIndex = 4

i = i + 1

End If

Next

z2 = Cells(Rows.Count, "A").End(xlUp).Row


For i = 1 To z2

If Range("A" & i) = 1 Then

h = i

k = k + 1

End If

If k > 0 And Range("A" & i) = "" Then


Range("A" & i) = "=Sum(A" & h & ":A" & i - 1 & ")"


End If


If k > 0 And Range("A" & i) = Range("A" & z2) Then

Range("A" & z2 + 1).Interior.ColorIndex = 4


Range("A" & z2 + 1) = "=Sum(A" & h & ":A" & z2 & ")"


End If


Next


End Sub 

[healthingclinic]

ممنونم آقای نیما من تونستم با راهنمایی های شما از محیط ماکرو استفاده کنم

[Pbapba]

با سلام


ماکرو ذیل را در فایل پیوست چک کنید

Sub test()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To z1

If Range("A" & i) = 1 Then

k = k + 1

t = i

End If


If k > 1 And Range("A" & i) = 1 Then

z1 = z1 + 1

Rows(i & ":" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("A" & i).Interior.ColorIndex = 4

i = i + 1

End If

Next

z2 = Cells(Rows.Count, "A").End(xlUp).Row


For i = 1 To z2

If Range("A" & i) = 1 Then

h = i

k = k + 1

End If

If k > 0 And Range("A" & i) = "" Then


Range("A" & i) = "=Sum(A" & h & ":A" & i - 1 & ")"


End If


If k > 0 And Range("A" & i) = Range("A" & z2) Then

Range("A" & z2 + 1).Interior.ColorIndex = 4


Range("A" & z2 + 1) = "=Sum(A" & h & ":A" & z2 & ")"


End If


Next


End Sub 

بسیار عالی و خوبه عمل میکنه اگر ممکنه فرمولی بفرمایید چون من میخوام ردیف های اصلی بمونه و در یک ستون جدید این حالت پیش بیاد و در ضمن یک ردیف بیشتر ایجاد نشه چون با اجرای ماکرو هر بار یک ردیف جدید ایجاد میشه
ولی خدایی ازت ممنونم که پاسخ دادی
و این توضیح را هم اضافه کنم هدف من از اینکه گفتم جمع قبلی ها فقط ایجاد یک ردیف بعد از اتمام اعداد هر دسته هست چون احتیاج به یک ردیف خالی دارم .
به عکس ذیل توجه کنید در اصل اون ردیف اضافه را میخوام که جمع رشته برریال را بتونم وارد کنم