نمایش نتایج 1 تا 3 از 3

نام تاپیک: Replace در VBA

  1. #1

    Question Replace در VBA

    درود.
    میخام توی برنامه با زدن یک دکمه توی تمام شیت ها Replac کنم مثلا No رو به Mo توی تمام شیت ها ولی با این کد که خودم دارم فقط توی شیت فعال این کارو میکنه کدی هست که واسه تمام شیت ها این کارو کنه.

    Private Sub CommandButton1_Click()
    Sheets(i).Select
    Cells.Replace What:="No", Replacement:="Mo", LookAt:=xlPart, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
    End Sub

    راستی واسه VBA میخام با حلقه میشه یکی یکی شیت ها فعال کرد و این کارو کرد ولی دنبال یه راه بهترم کسی هست که بلد باشه.؟



  2. #2
    کاربر دائمی آواتار dataking
    تاریخ عضویت
    بهمن 1388
    محل زندگی
    شیراز
    پست
    159

    نقل قول: Replace در VBA

    سلام
    ماهیت کار تکراه چون تعداد دقیق دفعات معلوم نیست از تکرار استفاده کن
    با while , wend می شه این کار را کرد

  3. #3

    نقل قول: Replace در VBA

    عزیز من که گفتم خودم بلدم از حلقه استفاده کنم چیزی غیر از حلقه.

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •