اينم يه قسمت از فايل من
اينم يه قسمت از فايل من
واااااااااااااااااي خودم كشف كردم!!! هوراااااااااااااااااااااا ااا خيلي هم راحت اصلا نياز به اين چيزا نبود
كافيه شماره ردف رو يه بار ديگه زير همون وارد كنيم بعد سورت كنيم!!
ببینید دوست عزیز،مگه شما 7900 ردیف داده ندارید؟خب یه ستون اضافه کنید اول دیتاتون،تو اون ستون شماره بزنید،از 1 تا 7900،حالا این شماره ها رو کپی کنید و به انتهای همین اعداد اضافه کنید،سری دوم اعداد دیگه جلوشون خالیه،وقتی حالا سورت کنید یک در میان بین ردیف هاتون خالی میوفته،از آخر هم میتونید باز اون ستون رو پاک کنید،همین
اگه نتونستید قسمت کوچکی از فایلتون رو آپلود کنید براتون انجام بدم
هرچیز که در جستن آنی، آنی
متوجه شدم مرسي آخه توضيحات خانم خاكزاد يه كوچولو پيچيده بود الان خودم تونستم انجام بدم
سلام من یک چنین مشکلی دام ولی با خوندن این مطالب بازهم نتونستم حلش کنم ممنون میشم دوستان و استاتید محترم راهنمایی بکنند
من ستون دارم که در اون اعداد برای دسته ای مختلف به ترتیب نمایش داده میشه مثلا
1
2
3
1
2
3
4
1
2
1
2
3
4
5
1
....
هدف این هست که بتونم جدول شرطی برا اینها درست کنم و مشکل اینجاست که باید بعد از اتمام هرکدوم و قبل از شروع 1 بعدی یک ردیف خالی بشه برای نماش جمع قبلی ها
من اومدم و یک ستون کمکی اضافه کردم که اخرین عدد هر دسته را نشون بده الان باید چکار کنم که این دو ستون با هم یکی بشه تا بتونم عددی که در ستون نهایی هست و درستون اول نیست را خالی کنم .ببینید من باید در ستون بعدی دو تا ستون زرد را ترکیب و پشت سر هم داشته باشم
با سلام
ماکرو ذیل را در فایل پیوست چک کنید
کد PHP:
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
ویرایش توسط iranweld : 2018/10/29 در ساعت 10:41
ممنونم آقای نیما من تونستم با راهنمایی های شما از محیط ماکرو استفاده کنم
بسیار عالی و خوبه عمل میکنه اگر ممکنه فرمولی بفرمایید چون من میخوام ردیف های اصلی بمونه و در یک ستون جدید این حالت پیش بیاد و در ضمن یک ردیف بیشتر ایجاد نشه چون با اجرای ماکرو هر بار یک ردیف جدید ایجاد میشه
ولی خدایی ازت ممنونم که پاسخ دادی
و این توضیح را هم اضافه کنم هدف من از اینکه گفتم جمع قبلی ها فقط ایجاد یک ردیف بعد از اتمام اعداد هر دسته هست چون احتیاج به یک ردیف خالی دارم .
به عکس ذیل توجه کنید در اصل اون ردیف اضافه را میخوام که جمع رشته برریال را بتونم وارد کنم
ویرایش توسط Pbapba : 2018/10/29 در ساعت 14:48
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)