صفحه 3 از 3 نخستنخست 123
نمایش نتایج: از شماره 21 تا 24 , از مجموع 24

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

  1. #21


    آخرین بازدید
    2022/12/20
    تاریخ عضویت
    August 2015
    نوشته ها
    99
    امتیاز
    17
    سپاس
    20
    سپاس شده
    7 در 7 پست
    تعیین سطح نشده است

    بنده در فایلی که در سوال اول براتون فرستادم ،یک ماکرو دارم که وقتی روی عدد قرمز select ميكني و آن ماكرو را اجرا ميكني ، سطر مورد نظر را از محل انتخاب تا 14 ستون (که در ماکرو این اعداد قابل کنترول هستند) را در شیت 2 کپی میکنه (بایگانی میشوند) سطری که بایگانی میشه سلولهاش حاصل از لینک از سلولهای همان جداول هستند و وقی بایگانی میشوند دیگر به داده های جدول متناظر نیازی نیست و باید داده های جدول پاک بشوند ، در حقیقت کدی که شما زحمتشو کشیدید بایستی بعد انجام بایگانی سطر، اجرا بشه تا داده های جدول هم پاک بشوند یعنی هردو کد با یک دکمه اجرا بشود که با الطبع اول باید بایگانی صورت گیرد بعد پاک شدن جدول .

    به هرحال ببخشید که منظورم براتون خیلی واضح بیان نشده بود متشکرم
    ویرایش توسط taocom52 : 2016/04/02 در ساعت 10:45

  2.  

  3. #22


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    درسته. حالا کامل متوجه شدم
    کد macro1 که مربوط به بایگانی هست رو اینطوری اصلاح کنید:
    کد:
    Sub Macro1()
    Application.ScreenUpdating = False
    Dim C
    Dim i
    x = MsgBox("áØÝÇ ãØãÆä ÔæíÏ ˜å ÔãÇÑå Óåã ÑÇ ÏÑ ÓÊæä ÓÈÒ Ñä äÔÇä ÏÇÏå ÔÏå  ÇäÊÎÇÈ ˜ÑÏå ÇíÏ ÏÑ ÛíÑ ÇíäÕæÑÊ  Óåã ÔãÇ ÏÑÓÊ ÈÇíÇäí äÎæÇåÏ ÔÏ æ ÇÔ˜ÇáÇÊí ÏÑ ãÍÇÓÈÇÊ ÑíÇáí íÔ ÎæÇåÏ ÂãÏ", vbYesNoCancel, "massage box")
    If x = vbYes Then
    For Each C In Sheet2.Range("a1:a10000")
    If C = Empty Then
    For i = 0 To 14
    C.Offset(0, i) = Selection.Offset(0, i)
    Next i
    ExcelIran
    Exit Sub
    End If
    Next
    
    
                    ElseIf x = vbNo Then
    Range("a329").Select
    
    
    End If
    
    
    Application.ScreenUpdating = True
    End Sub
    کدهایی هم که قبلا خدمتتون دادم به این صورت اصلاح کنید:
    کد:
    Sub ExcelIran()
    ActiveSheet.Unprotect "123"
    Dim cel As Range
    Dim TableNum As Integer
    i = ActiveCell.Row
    If i <= 21 And i >= 19 Then
        TableNum = Range("A" & i).Value
        For Each cel In Sheet1.Range("B" & i & ":N" & i)
            cleared = clearcontent(cel.Value, TableNum)
        Next cel
    End If
    ActiveSheet.Protect "123"
    End Sub
    Function clearcontent(cel, TableNum As Integer)
    Dim C As Range
    Select Case TableNum
        Case 1
            For Each C In Range("B1:H14")
                If C.Value = cel Then
                    C.ClearContents
                    Exit For
                End If
            Next C
        Case 2
            For Each C In Range("J1:P14")
                If C.Value = cel Then
                    C.ClearContents
                    Exit For
                End If
            Next C
        Case 3
            For Each C In Range("R1:X14")
                If C.Value = cel Then
                    C.ClearContents
                    Exit For
                End If
            Next C
    End Select
    End Function

  4. سپاس ها (1)


  5. #23


    آخرین بازدید
    2022/12/20
    تاریخ عضویت
    August 2015
    نوشته ها
    99
    امتیاز
    17
    سپاس
    20
    سپاس شده
    7 در 7 پست
    تعیین سطح نشده است

    عالی بود مهندس ، تو ارتباط بین ماکروها واقعا مشکل داشتم که در این ماکرو اونو هم آموختم ممنون خسته نباشید

  6. #24


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

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


صفحه 3 از 3 نخستنخست 123

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

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

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

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

ماکروی پاک کردن

خالی کردن شیت ماکرو

خالی کردن اطلاعات شتون اکسل

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

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

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

دستور حذف کردن‌ هوشمند در اکسل

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

https:forum.exceliran.comshowthread.php9112-ماکرو-برای-پاک-کردن-هوشمند

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

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

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

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