نمایش نتایج: از شماره 1 تا 7 , از مجموع 7

موضوع: حذف ردیفها

  1. #1


    آخرین بازدید
    2022/05/09
    تاریخ عضویت
    December 2013
    محل سکونت
    ارومیه
    نوشته ها
    132
    امتیاز
    30
    سپاس
    58
    سپاس شده
    16 در 12 پست
    تعیین سطح نشده است

    Clap حذف ردیفها

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

  2.  

  3. #2


    آخرین بازدید
    2018/05/03
    تاریخ عضویت
    October 2014
    محل سکونت
    جنوب
    نوشته ها
    351
    امتیاز
    3436
    سپاس
    2,033
    سپاس شده
    1,229 در 331 پست
    تعیین سطح نشده است

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


  4. #3


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,034
    امتیاز
    4508
    سپاس
    2,467
    سپاس شده
    4,096 در 1,241 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام
    سلام
    این کد رو به button مورد نظر assign کنید
    کد:
    Sub del()
    For Each c In Sheet1.Range("a2:a11")
       Sheet2.Rows(c & ":" & c).clear
       
    Next
    End Sub
    پ.ن: در مورد حذف ردیف ها هم به نکته جناب abootorab دقت کنید. اگر حذف بشه دیگه شماره ردیف ها با شماره های مورد نظر شکا نمی خوننه مگر با اینکه ردیف به ردیف تعداد ردیف های حذف شده رو در کد اضافه کنید

  5. سپاس ها (2)


  6. #4


    آخرین بازدید
    2022/05/09
    تاریخ عضویت
    December 2013
    محل سکونت
    ارومیه
    نوشته ها
    132
    امتیاز
    30
    سپاس
    58
    سپاس شده
    16 در 12 پست
    تعیین سطح نشده است

    سلام

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

  7. #5


    آخرین بازدید
    2018/05/03
    تاریخ عضویت
    October 2014
    محل سکونت
    جنوب
    نوشته ها
    351
    امتیاز
    3436
    سپاس
    2,033
    سپاس شده
    1,229 در 331 پست
    تعیین سطح نشده است

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

    بله منظور من حالت دو بود یعنی یک ردیف کلاً حذف بشه و ردیف های پایینتر به بالا شیفت پیدا کنن اگه راهنمایی کنین ممنون می شم
    با درود
    دوست عزیز از این کد میتونید استفاده کنید ولی همینطور که قبلا عرض کردم باید به نکته جایگزینی سطرها دقت داشته باشین.
    کد PHP:
    Sub Clear_Rows_Click()
        
    Dim c As Range
        
    For Each c In Sheet1.Range("A:A")
            If 
    IsEmpty(cThen 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 
    num To 2 Step -1
            Sheet2
    .Rows(Sheet1.Cells(i1)).Delete Shift:=xlUp
        Next
    End Sub 


  8. #6


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,034
    امتیاز
    4508
    سپاس
    2,467
    سپاس شده
    4,096 در 1,241 پست
    سطح اکسل
    85.00 %

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

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

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


    سوالی بود در خدمتم
    فايل هاي پيوست شده فايل هاي پيوست شده

  9. سپاس ها (2)


  10. #7


    آخرین بازدید
    2022/05/09
    تاریخ عضویت
    December 2013
    محل سکونت
    ارومیه
    نوشته ها
    132
    امتیاز
    30
    سپاس
    58
    سپاس شده
    16 در 12 پست
    تعیین سطح نشده است

    از راهنمایی عزیزان وبزرگواران بی نهایت ممنونم


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد