جابجایی مقادیر دو سلول در اکسل با استفاده از vba

با این مثال شما می توانید مقادیر موجود در دو سلول را با استفاده از vba جابجا کنید.

برای این کار ابتدا در سلول A1 و B1 مقادیر زیر را وارد کنید :

سپس از تب DEVELOPER بر روی گزینه INSERT کلیک کرده و گزینه BUTTON را انتخاب و بر روی صفحه اکسل خود دراگ کنید :

و سپس با دبلیو کلیک کردن بر روی متن دکمه ایجاد شده نام آن را به "انجام عملیات" تغییر دهید :

سپس با راست کلیک بر روی دکمه و انتخاب گزینه ASSING MACRO و باز شدن این پنجره و انتخاب گزینه NEW وارد محیط VBA شوید :

در محیط برنامه نویسی و در رویداد BUTTON یک متغیر با نام TEMP از نوع BOUBLE تعریف کنید :

Dim temp As Double

مقدار TEMP را برابر با سلول A1 قرار بدهید :

temp = Range("A1").Value

مقدار موجود در سلول A1 را برابر با سلول B2 به صورت زیر تعریف می کنیم:

Range("A1").Value = Range("B1").Value

سپس در خط آخر برنامه نویسی سلول B1 را برابر با TEMP تعریف می کنیم :

Range("B1").Value = temp

بعد از بستن محیط VBA و با کلیک کردن بر روی دکمه انجام نتیجه عملیات را خواهید دید...