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

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

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

naser1357

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

lamp

دانلود فهرست + فصل اول کتاب توابع و فرمول نویسی اکسل

خبر: کامل ترین کتاب توابع و فرمول نویسی در اکسل ترجمه تیم فرساران


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 و کد را در یک دکمه وارد نمایید.
موفق باشید