پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 6 , از مجموع 6

موضوع: پاک کردن ردیف با شرط

  1. #1


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    800
    امتیاز
    1684
    سپاس
    594
    سپاس شده
    1,259 در 438 پست
    تعیین سطح نشده است

    پاک کردن ردیف با شرط

    با سلام
    من ی سری ردیف دارم که میخوام فقط اون ردیف هایی که در ستون d متن نمی باشد اومد اون ردیف رو پاک کنه
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,812
    امتیاز
    6436
    سپاس
    8,164
    سپاس شده
    5,190 در 1,505 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    نحوه کار را میشه بیشتر باز بکنید
    شما نوشته هاتون آماده هست بعد می خواهید این شرط اعمال بشه یا نه همون موقع که زدید مجاز نیست بعد اینتر زدید عمل حذف شدن انجام بشه یا شایدم طور دیگه ؟


  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,222
    امتیاز
    2665
    سپاس
    1,411
    سپاس شده
    2,121 در 671 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط absorkhi نمایش پست ها
    با سلام
    من ی سری ردیف دارم که میخوام فقط اون ردیف هایی که در ستون d متن نمی باشد اومد اون ردیف رو پاک کنه
    با سلام.
    خ
    کد PHP:
    Public rw As String
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    rw 
    Target.Address
    If Sheet1.Range(rw).Column And Sheet1.Range(rw).Row And Sheet1.Range(rw).Value "äãì ÈÇÔÏ" Then
    Rows
    (Sheet1.Range(rw).Row).Delete Shift:=xlUp
    End 
    If
    End Sub 
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/




  6. #4
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,812
    امتیاز
    6436
    سپاس
    8,164
    سپاس شده
    5,190 در 1,505 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    با تشکر از آقا جاوید
    اگه کد بالا را به شکل زیر بنویسیم همون موقع جواب میده ( البته کد که همونه فقط ایونتش فرق کرده )
    البنه بهتره که کلمه نمی باشد را به یه خونه ربطش بدیم اینطوری نتیجه بهتری می گیریم
    کد PHP:
    Public rw As String

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    rw 
    Target.Address
    If Sheet1.Range(rw).Column And Sheet1.Range(rw).Row And Sheet1.Range(rw).Value =sheet1.range("h1").value Then
    Rows
    (Sheet1.Range(rw).Row).Delete Shift:=xlUp
    End 
    If
    End Sub 


  7. سپاس ها (3)


  8. #5


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    800
    امتیاز
    1684
    سپاس
    594
    سپاس شده
    1,259 در 438 پست
    تعیین سطح نشده است

    با سلام
    میخوام بعد اینکه می باشد ها به شیت بعدی رفتن خودکار نمی باشد ها هم حذف بشن
    فايل هاي پيوست شده فايل هاي پيوست شده

  9. #6


    آخرین بازدید
    6 روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,491
    امتیاز
    12377
    سپاس
    8,959
    سپاس شده
    10,648 در 3,760 پست
    سطح اکسل
    100.00 %

    خب دوستان با توضيحاتي كه دوستمون برام دادن متوجه شدم كدهايي كه شما اساتيد قرار دادين كارشون رو راه نميندازه
    ايشون ميخوان سطرهايي كه عبارت «مي باشد» داره رو به شيت ديگه اي منتقل كنن و از شيت مبدا حذف كنن، ولي نه بطور اتومات بلكه با زدن يك دكمه

    خب دوست عزيز كدهاي مورد نياز شما اينا هستن. كدهاي خودتون رو پاك كنيد و اينا رو جايگزين كنين:

    کد:
    Sub amir()
    Dim cel As Range
    Application.ScreenUpdating = False
    For Each cel In Range("D:D")
        If cel.Value = "" Then
            w = cel.Row
            Exit For
        End If
        If cel.Row > 2 And cel.Value = Range("D2").Value Then
            Sheet1.Select
            Rows(cel.Row).Copy
            Sheet2.Select
            If Range("A3").Value = "" Then
                Rows("3:3").Insert Shift:=xlDown
            ElseIf Range("A4").Value = "" Then
                Rows("4:4").Insert Shift:=xlDown
            Else
                Range("A3").End(xlDown).Select
                ActiveCell.Offset(1, 0).Range("A1").Select
                Rows(Selection.Row).Insert Shift:=xlDown
            End If
        End If
    Next cel
    Sheet1.Select
    While 1
    flag = 1
    For i = 3 To w
        If Range("D" & i).Value = Range("D2").Value Then
            Rows(Range("D" & i).Row).Delete Shift:=xlUp
            flag = 0
        End If
    Next i
    If flag = 1 Then Exit Sub
    Wend
    Application.ScreenUpdating = True
    End Sub
    فايل نمونه هم پيوست كردم مشاهده بفرماييد
    فايل هاي پيوست شده فايل هاي پيوست شده

  10. سپاس ها (1)



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

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

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

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

ردیف exceliran.com

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

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

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

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