کتاب برنامه نویسی VBA در اکسل نوشته فرشید میدانی

دوره‌های آموزش اکسل پیشرفته مقدماتی برنامه نویسی فرساران

نویسنده موضوع: کمک :) در جستجو در همه شیت ها و حذف  (دفعات بازدید: 154 بار)

naser1357

  • کاربر فعال
  • ***
  • ارسال: 163
  • جمع امتیازها: +3/-1
می خواهم با وارد کردن شما ره کارگاه ، از همه شیت ها حذف شود


ORDOUEI

  • کاربر تازه‌وارد
  • *
  • ارسال: 8
  • جمع امتیازها: +1/-0
با سلام کد زیر استفاده شود
Private Sub CommandButton3_Click()

  Application.ScreenUpdating = False
'excel.saeed@gmail.com
Dim i As Integer

X = Sheets.Count
 
Dim ss1 As String

  ss1 = TextBox1.Value

For o = X To 1 Step -1

Worksheets(o).Activate

last = Cells(Rows.Count, "A").End(xlUp).Row 'Delete rows
   

    For i = last To 2 Step -1

     ' "B" Soton jostejo textbox
' harf (B) ba Harf Soton mored nazar taviz shavad
     
 If (Cells(i, "B").Value) = ss1 Then

               
                Cells(i, "B").EntireRow.Delete
        End If
 
  Next i

Next o
 
 Application.ScreenUpdating = True


End Sub

naser1357

  • کاربر فعال
  • ***
  • ارسال: 163
  • جمع امتیازها: +3/-1
ضمن س‍اس. اما چگونه هر تکس باکسی اضافه می کنم بدون اینکه برایش کدی را در نظر بگیرم خودکار تکمیل می شود؟ کدوم قسمت کد فوق به تکمیل خودکار تکس باکسهاس

ORDOUEI

  • کاربر تازه‌وارد
  • *
  • ارسال: 8
  • جمع امتیازها: +1/-0
با سلام
شما در یوزرفرم تکس باکس داشتید و یک دکمه تکس باکس 1 و کد را در یک دکمه وارد نمایید.
موفق باشید