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

موضوع: حذف ردیف با دستور

  1. #1


    آخرین بازدید
    2023/12/21
    تاریخ عضویت
    June 2012
    نوشته ها
    111
    امتیاز
    20
    سپاس
    30
    سپاس شده
    20 در 13 پست
    تعیین سطح نشده است

    حذف ردیف با دستور

    با سلام و تشکر از تمامی اساتید گرامی :
    در یک فایل دو شیت موجود می باشد در شیت اول مثلاً در سلول a1 شماره ای وجود دارد که نیاز دارم با استفاده از دستوری به شیت دوم مراجعه شده چنانچه آن مقدار در ستون A موجود باشد تمام ردیف آن سلول پاک شود .
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2021/10/16
    تاریخ عضویت
    November 2012
    نوشته ها
    57
    امتیاز
    13
    سپاس
    3
    سپاس شده
    8 در 8 پست
    سطح اکسل
    42.00 %

    RE: حذف ردیف با دستور

    شما میتونید از این کد برای انجام کاری که میخواهید استفاده کنید.

    کد:
    Sub Macro1()
    '
    ' Macro1 Macro
    '
    
    '
    Sheets("Sheet1").Select
    a = Cells(1, 1)
    Sheets("Sheet2").Select
    b = Cells(1, 1)
    If a = b Then
        Sheets("Sheet2").Select
        Columns("a:a").Select
        Selection.Delete Shift:=xlToLeft
        End If
    End Sub

  4. #3


    آخرین بازدید
    2023/12/21
    تاریخ عضویت
    June 2012
    نوشته ها
    111
    امتیاز
    20
    سپاس
    30
    سپاس شده
    20 در 13 پست
    تعیین سطح نشده است

    RE: حذف ردیف با دستور

    با تشکر از دوست گرامی دستور فوق کامل نبود
    لازم به ذکر است شیت دوم حاوی اطلاعاتی مثلا ریز اقلام یک فاکتور فروش می باشد که بعد از انتقال از فرم اولیه به صورت ردیفی ذخیره شده است و اولین گزینه آن در ستون A شماره فاکتور می باشد ستون B تاریخ و ....
    حال می خواهم هنگامی که من در شیت اول شماره آن فاکتور را فرضاً در سلول A1 وارد نمودم با استفاده از دستوری ردیف آن فاکتور در شیت دوم مشخص شده و آن ردیف پاک شود .
    با تشکر اگر ممکن بود پاسخ را با فایل نمونه بگذارید .

  5. #4


    آخرین بازدید
    2021/10/16
    تاریخ عضویت
    November 2012
    نوشته ها
    57
    امتیاز
    13
    سپاس
    3
    سپاس شده
    8 در 8 پست
    سطح اکسل
    42.00 %

    RE: حذف ردیف با دستور

    در این فایل از خاصیت "find" برای پیدا کردن نوشته ما استفده کردم.

    Book4

  6. #5


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: حذف ردیف با دستور

    با درود فراوان

    در این کد شماره های که در شیت یک در ستون A نوشته شده را در شیت دو پیدا کرده و حذف میکند

    Sub Macro1()

    Dim c, g
    For Each g In Sheet1.Range("A1:A20")
    For Each c In Sheet2.Range("A2:A1000")
    If c.Value <> "" And c.Value = g.Value Then
    Sheet2.Rows(c.Row).Delete Shift:=xlUp
    End If
    Next c
    Next g
    End Sub

    نمونه فایل:
    [attachment=1086]
    فايل هاي پيوست شده فايل هاي پيوست شده

  7. سپاس ها (1)



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

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

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

موضوعات مشابه

  1. دستور حلقه جهت پاک کردن سلول
    توسط khorasan66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 9
    آخرين نوشته: 2013/12/18, 20:52
  2. ساختار صحیح دستورات شرطی در vb
    توسط امیر رضا دهقان در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2013/01/05, 09:40
  3. دستور پرينت
    توسط sohrabahmadi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/11/30, 08:57
  4. دستوری برای جمع زدن
    توسط mokaram در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 11
    آخرين نوشته: 2012/08/09, 17:36
  5. دستوری برای فیلتر کردن
    توسط farzin24622 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 5
    آخرين نوشته: 2011/12/28, 00:55

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

حذف دستور پرینت

لغو دستور پرینت

دستور شرطی حذف ردیف در اکسل

فرمول حذف ردیف در اکسل

دستور حذف پرينت

نحوه لغو دستور پرینت

کد حذفدر vba

دستور دیلیت کردن ردیف دلخواه در اکسل

طریقه پاک کردن ردیف در اکسل

دستور حذف سطر در اکسل

روش حذف ردیف در اکسل

حذف یک ردیف خاص در اکسل

کد ویژوال بیسیک برای شماره گذاری ردیف پر اکسل

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

دستور پاک کردن در اکسل

for each حذف رکورد در اکسل

حذف ردیف در اکسل

حذف یک ردیف با داشتن این شرط

فرمان های حذف سلول در ماکرو

حذف سلول در فاکتور

تابه delete در اکسل

دستور حذف در اکسل

حذف سلول با دستور if حذف سلول با دستور شرطی

اکسل دستور if حذف سلول

روش حذف دستور پرینت

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

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

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