مشکل در کدهای ماکرو !!!!!!!

**vahid_1368** · 2016/02/28, 20:07

یکی کمکم کنه لطفا !!!

**amir_ts** · 2016/02/28, 21:02

با سلام
دوست عزیز شما باید ماژول فایل پیوستی جناب iranweld در پست شماره 7 تاپیک زیر به داخل فایل جدید کپی کنید مشروط به اینکه ساختارش دقیقا مشابه همین فایل باشه .
همچنین شیت دوم رو هم ایجاد کنید و در سلول a1 کلمه مورد جستجو رو قرار بدید.

[حل شده] راهنمایی جهت حذف یک سطر !!

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

10_1.xls (84.0 کیلو بایت, مشاهدات 10)

**vahid_1368** · 2016/02/29, 01:04

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

با سلام
دوست عزیز شما باید ماژول فایل پیوستی جناب iranweld در پست شماره 7 تاپیک زیر به داخل فایل جدید کپی کنید مشروط به اینکه ساختارش دقیقا مشابه همین فایل باشه .
همچنین شیت دوم رو هم ایجاد کنید و در سلول a1 کلمه مورد جستجو رو قرار بدید.

[حل شده] راهنمایی جهت حذف یک سطر !!

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

**amir_ts** · 2016/02/29, 21:23

با سلام
ابتدا شیت دوم هم تو فایل مربوطه ایجاد کنید.(کلمه مورد جستجو برای پاک کردن ردیف در سل a1 شیت دوم قرار داره)
در فایل مربوطه کلید Alt+F11 رو فشار دهید.
از منوی inset گزینه module رو انتخاب کنید.
کد های زیر رو داخل اون کپی کنید.
تو همون صفحه آیکن save رو بزنید و بعد پیغام no رو بزنید و در صفحه نمایش داده شده در زیر نام فایل در قسمت save as type: گزینه Excel Macro-Enable workbook رو انتخاب کنید که کدها رو ذخیره کنه.
با کلید Alt+F11 به شیت اکسل برمیگردید از تب Developer از قسمت Contorols>Insert یک Button اضافه میکنید.
در روی Button کلیک راست کنید و Assign Macro رو انتخاب کنید و در برگه ای که باز شد در لیست نام ماکرو که در اینجا TEST2 هست انتخاب میکنید.

اگر تب Developer رو هم ندارید از لینک زیر برای فعال کردن استفاده کنید.

آموزشي: فعال كردن تب Developer در اكسل

کد:

[LEFT]
Sub TEST2()
For Each cell In ActiveSheet.Range("E:E").SpecialCells(xlCellTypeConstants)
        cell.Value = WorksheetFunction.Trim(cell)
        
        Cells.Replace What:=ChrW(1610), Replacement:=ChrW(1740), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:=ChrW(1603), Replacement:=ChrW(1705), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    
    Next cell
    test
End Sub


Sub test()

Application.ScreenUpdating = False

xx = Sheet2.Range("A1").Value

Range("a1").Select


On Error Resume Next

    Cells.Find(What:=xx, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        
      x = ActiveCell.Row
      
      y = ActiveCell.Row
      
       
       If x <> 1 And y <> 1 Then
        Rows(x).Delete
             Else
              Exit Sub
                  End If
       
test

Application.ScreenUpdating = True

End Sub

[/LEFT]

مشکل در کدهای ماکرو !!!!!!!

[حل شده] مشکل در کدهای ماکرو !!!!!!!

کامنت

کامنت

کامنت

کامنت