با سلام خدمت کاربران عزیز آی تی سواد
اضافه کردن آپوستروف در مقابل اعداد می تواند اعداد را تبدیل به فرمت متن کند، اگر چندین سلول وجود داشته باشد که نیاز باشد به آنها آپوستروف اضافه کنید، چگونه می توانید این کار را در اکسل انجام دهید به جز قرار دادن آن به صورت یک به یک ؟
تبدیل عدد به متن در اکسل با آپاستروف کد VBA:
کد ساده زیر به شما کمک می کند تا قبل از هر عدد با یک انتخاب، آپوستروف وارد کنید. لطفاً به صورت زیر عمل کنید:
۱- محدوده ای از اعداد را که می خواهید آپستروف اضافه کنید انتخاب کنید.
۲- کلید Alt + F11 را نگه دارید تا پنجره Microsoft Visual Basic for Applications باز شود.
۳ – روی Insert> Module کلیک کنید و کد زیر را در پنجره Module پیست کنید.
کد VBA: وارد کردن آپوستروف در مقابل اعداد با یک بار
|
1 2 3 4 5 6 |
Sub Addapostrophe() 'updateby Extendoffice 20151207 For Each cell In Selection cell.Value = "'" & cell.Value Next cell End Sub |
۴- پس از پیست کردن کد، کلید F5 را برای اجرای این کد فشار دهید، و آپوستروف با یکبار اعمال این کد در مقابل اعداد وارد خواهد شد.
ترجمه شده از سایت www.extendoffice.com
ممنون از همراهی شما کاربران عزیز آی تی سواد
اشتراک گذاری