پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

موضوع: replace

  1. #1


    آخرین بازدید
    27 _ 05 _ 2012
    تاریخ عضویت
    April_2012
    نوشته ها
    22
    امتیاز
    3
    سپاس
    0
    سپاس شده
    2 در 2 پست

    replace

    با سلام. در كد زير در تمام شيت اول به دنبال كلمه اي ميگردد و آن را با كلمه اي (كه منبع آن شيت دوم ستون اول است)جايگزين ميكند. آيا ميتوان كد زير را طوري تغيير داد كه نتيجه ي حاصل از replace را به جاي ستون سلكت شده در ستون دلخواه ديگر قرار دهد؟

    [align=left]Sub replace()
    On Error Resume Next
    Dim d As Range
    For Each d In Sheet2.Range("a1:a900")
    If d.Value <> ""then
    Sheets("Sheet1").Select
    Cells.Replace What:=d.Value, Replacement:=d.Offset(0, 1).Value, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    end if
    Next d

    End Sub[/align]
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    01 _ 05 _ 2016
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1436
    سپاس
    129
    سپاس شده
    548 در 155 پست

    s.cheraghi به Yahoo ارسال پیام

    RE: replace

    با سلام

    شما می تونید یک متغیر از نوع Range را تعریف کرده( به عنوان محدوده دلخواه جستجو) و سپس این محدوده را توسط فرمان زیر مشخص کنید

    set A = application.inputbox()

    در نهایت حلقه for را به ازای هر d درون A جایگزین کنید

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


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

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

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

موضوعات مشابه

  1. replace سلول در محدوده ي مورد نظر كاربر
    توسط maryam62 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 10
    آخرين نوشته: 26 _ 05 _ 2012, 15:49
  2. Find and Replace
    توسط hamedehsanzadeh در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 3
    آخرين نوشته: 18 _ 10 _ 2011, 16:08
  3. Find & Replace
    توسط mrexcel در انجمن آموزش ابزارهاي اكسل
    پاسخ ها: 1
    آخرين نوشته: 24 _ 09 _ 2011, 00:16
  4. Find and Replace
    توسط hamedehsanzadeh در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 1
    آخرين نوشته: 28 _ 07 _ 2011, 14:06

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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