حذف ردیفها

**abootorab** · 2015/04/20, 01:30

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

سلام من به کلیه عوامل و اعضاء سایت دوست داشتنی انجمن اکسل ایران
من یک سئوالی داشتم خواهشمندم به اون جواب بدبد ، بسیار سپاسگذارم.ممنون میشم پاسخ بدید
من یک فایل اکسل دارم (فایل پیوستی) که در شیت اول ستون اول آن تعدادی ارقام ثبت شده و همچنین یک command buton در اون صفحه وجود دارد من میخواهم به این command button کدی داده بشود تابا اجراردیف های همنام آن در شیت 2 کلاً پاک شود.واضحتر اینکه مثلا در اجرا اول ردیف57 شیت دوم پاک بشه وبعد ردیف 72 شیت دوم والی ....ردیف1001 شیت دوم .

با درود
دوست عزیز سوالتون زیاد واضح نیست، منظور از پاک شدن اینه که اطلاعات اون ردیف حذف و خالی بشه یا اینکه کلا این ردیف حذف بشه و ردیفهای بعد یک ردیف به بالا شیفت پیدا کنند؟
اگر هدف شما حالت دوم باشه باید به این نکته توجه داشته باشین که با حذف یک ردیف و شیفت پیدا کردن ردیفهای بعدی به بالا، دیگه اطلاعات ردیف مثلا 72 ابتدایی (قبل از حذف) شما به ردیف 71 انتقال داده شده و به همین ترتیب الی آخر....
یه کم بیشتر و واضح تر در مورد خواستتون توضیح بدین تا دوستان بتونن بهتر و راهکار مناسب تری به شما ارائه بدهند.

**khakzad** · 2015/04/20, 09:48

سلام
این کد رو به button مورد نظر assign کنید

کد:

Sub del()
For Each c In Sheet1.Range("a2:a11")
   Sheet2.Rows(c & ":" & c).clear
   
Next
End Sub

پ.ن: در مورد حذف ردیف ها هم به نکته جناب abootorab دقت کنید. اگر حذف بشه دیگه شماره ردیف ها با شماره های مورد نظر شکا نمی خوننه مگر با اینکه ردیف به ردیف تعداد ردیف های حذف شده رو در کد اضافه کنید

**sunstar** · 2015/04/21, 00:22

سلام

بله منظور من حالت دو بود یعنی یک ردیف کلاً حذف بشه و ردیف های پایینتر به بالا شیفت پیدا کنن اگه راهنمایی کنین ممنون می شم

**abootorab** · 2015/04/21, 08:49

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

سلام

بله منظور من حالت دو بود یعنی یک ردیف کلاً حذف بشه و ردیف های پایینتر به بالا شیفت پیدا کنن اگه راهنمایی کنین ممنون می شم

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

کد PHP:


Sub Clear_Rows_Click()
    Dim c As Range
    For Each c In Sheet1.Range("A:A")
        If IsEmpty(c) Then Exit Sub
        If Val(c) <> 0 Then Sheet2.Rows(c).Delete Shift:=xlUp
    Next
End Sub

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

کد PHP:


Sub Clear_Rows_Click()
    num = WorksheetFunction.CountA(Sheet1.Columns(1))
    For i = num To 2 Step -1
        Sheet2.Rows(Sheet1.Cells(i, 1)).Delete Shift:=xlUp
    Next
End Sub

**khakzad** · 2015/04/21, 10:04

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

اینم ی راه دیگه:
من اومدم یک ستون کنار شماره ردیف ها اضافه کردم و شماره ردیف بعد از حذف بالایی ها رو بدست اوردم (اینو میشه داخل کد هم گنجوند، ولی برای اینکه فرآیند کار رو متوجه بشید داخل فایل گذاشتم)
همون طور که میبینید اولین ردیف همون 57. اما ردیف بعد که شماره 72 هست، با توجه به حذف یک ردیف تا الان، 72 سابق تبدیل میشه به 71 جدید. همینطور الی اخر

کد تغییر نکرد. فقط بجای ستون اول، ستون دوم رو می خوونه

ساده ترین روشی که میشد رو گفتم. حالا این شماره ردیف های جدید رو میشه با تعریف متغیر و هر بار اضاافه کردن بهش هم تعریف کرد.

سوالی بود در خدمتم

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