[حل شده] اضافه کردن تعدادی مساوی ردیف بین ردیف های یک شیت و hideکردن آنها

[فرزانه 5803]

با سلام
برای اضافه کردن چندیدن ردیف یا ستون بین ردیفهای یک شیت به تعداد مساوی چه کار باید کرد؟
به عنوان مثال من 200 ردیف با داده دارم که میخوام با یک حرکت 10 ردیف بین تمامی ردیف ها اضافه شود
و یا برعکس آن میخوام گاهی همین ردیف های خالی رو که بین ردیف های با داده هست hide کنم چه کار باید کنم چون تک تک کار کردن بسیار زمان گیر هست

[amir_ts]

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

[LEFT]

Sub test1()
Dim j As Long, r As Range
j = InputBox("å ÊÚÏÇÏ ÑÏíÝ ãÇíá Èå ÇÖÇÝå ˜ÑÏä åÓÊíÏ¿")
Set r = Range("A1")
Do
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert
Set r = Cells(r.Row + j + 1, 1)
If r.Offset(1, 0) = "" Then Exit Do
Loop


End Sub




[/LEFT]

از این کد برای مخفی کردن ردیف های خالی بین اطلاعات میتونید استفاده کنید:

[LEFT]

Sub test2()
Dim i As Integer
Application.ScreenUpdating = False
 lr = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
 Dim s As String
 For i = 1 To Range("A1:A" & lr).Count
     s = i & ":" & i
     If IsEmpty(Cells(i, 1).Value) Then
         Rows(s).Select
         Selection.EntireRow.Hidden = True
    End If
 Next
 Application.ScreenUpdating = True


End Sub


[/LEFT]

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

[LEFT]

Sub test3()
Dim i, lr As Integer
Application.ScreenUpdating = False
lr = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
For i = 1 To lr
Rows(i).Select
         Selection.EntireRow.Hidden = False
         Next i
Application.ScreenUpdating = True
End Sub


[/LEFT]

[فرزانه 5803]

با سپاس
واقعا تشکر میکنم از سخاوت و حوصله ای که به خرج دادید
من از اکسل به صورت حرفه ای مثل شما استفاده نکرده بودم و فقط در حد تنظیم جدوال و لیست هایی که مورد نظر بود ،چون از برنامه همکاران سیستم سالها استفاده میکردم که امکان هر نوع گزارش گیری و انتقال به اکسل وجود داشت
این کد ها رو با قرار دادن در سلول باید استفاده کنم؟مثل فرمول؟
البته من کد های شما رو copy , paste کردم
لطفا به من نخندید چون من تا حالا از توابع و کد ها نیازی نبوده که استفاده کنم
فایلی که ارسال کردید بسیار عالیه
اما دقیقا برام توضیح بدید که چه کار باید دقیقا انجامبدم که بتونم این کد ها رو بنویسم
در مورد دریافت فایل تبدیل عدد به حروف add in رو انجام دادم اما در آخر زمانی که از browse فایل رو انتخاب میکنم
rar is not valid add in


لطفا راهنمایی کنید