کمک برای ساخت ماکرو جهت کپی-پبست مقادیر در محدوده ی دلخواه انتخاب شده

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • zaq110

    • 2014/06/13
    • 17
    #1

    [حل شده] کمک برای ساخت ماکرو جهت کپی-پبست مقادیر در محدوده ی دلخواه انتخاب شده

    سلام
    فرض کنید چند ردیف نوشته داریم. مثلا از a1 تا h1 به ترتیب مقادیری زیر هم وارد شده
    تقاضا دارم کمک کنید ماکرویی بنویسم که اون مقادیر a1:h1 رو در هر جایی از اون شیت که کاربر با موس اون محدوده رو سلکت میکنه، پیست کنه

    مثلا کاربر محدوده x16:x24 رو سلکت کنه بعد روی button که ماکرو‌ رو ران میکنه کلیک کنه و مقادیر در اون ناحیه پیست بشن

    با تشکر
    برچسب ها: هیچ‌کدام
    • hadi1980

      • 2019/01/07
      • 237
      • 86.00
      #2
      سلام
      اولا ايني که مثال زديد چند رديف نيست و چند ستونه (A تا H)
      ولي با فرض اينکه منظورتون اين بوده که مثلا از A1 تا A8 به عنوان مرجع کپي استفاده بشوند کافيه اين 3 خط برنامه رو به دکمه‌تون نسبت بدهيد
      اينجوري هر سلولي که فعال باشه وقتي ماکرو ران ميشه (يا اون دکمه زده ميشه) مياد تو سلول فعال و 7 تا زير اون، سلولهاي A1 تا A8 رو کپي ميکنه
      کد:
      Range("A1:A8").Copy
ActiveSheet.Paste
Application.CutCopyMode = False

        کامنت

        • zaq110

          • 2014/06/13
          • 17
          #3
          نوشته اصلی توسط hadi1980
          سلام
          اولا ايني که مثال زديد چند رديف نيست و چند ستونه (A تا H)
          ولي با فرض اينکه منظورتون اين بوده که مثلا از A1 تا A8 به عنوان مرجع کپي استفاده بشوند کافيه اين 3 خط برنامه رو به دکمه‌تون نسبت بدهيد
          اينجوري هر سلولي که فعال باشه وقتي ماکرو ران ميشه (يا اون دکمه زده ميشه) مياد تو سلول فعال و 7 تا زير اون، سلولهاي A1 تا A8 رو کپي ميکنه
          کد:
          Range("A1:A8").Copy
ActiveSheet.Paste
Application.CutCopyMode = False
          ممنون از شما
          ولی الان یه مشکل دیگه دارم
          من اون مقادیر ستون ها رو با استفاده از vlookup توی اون سلول ها آوردم
          با این ماکرو مقادیر بصورت فرمول در جای سلکت شده اومد
          چطوری میشه که فقط بصورت value پیست بشن؟
          با تشکر

            کامنت

            • hadi1980

              • 2019/01/07
              • 237
              • 86.00
              #4
              سلامت باشيد
              اول اينکه از ضبط ماکرو هميشه استفاده کنيد چون ميتونه راهکار و کد موردنظر رو به شما نشون بده و مثلا من هم براي پيدا کردن جواب شما اينکار را کردم
              دوم اينکه براي اينکار لازمه خط وسط رو اصلاح کنيد بصورت paste special يعني اينجوري ميشه
              کد:
              Range("A1:A8").Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

                کامنت

                قبلی template بعدی
                چند لحظه..