میخواهیم کل ستون هارا به فورمت عدد تبدیل کنیم.
کد زیر را استفاده میکنیم:
Sub ConvertTextToNumber() Dim ws As Worksheet Dim r As Range For Each ws In Sheets On Error Resume Next For Each r In ws.UsedRange.SpecialCells(xlCellTypeConstants) If IsNumeric(r) Then r.Value = Val(r.Value) Next Next End Sub
مقدار سلول A13 برابر است با:
در مساله ی بالا، در سلول A13 به تناسب اینکه چه عددی بین ۰ تا ۱۰۰ در سلول A1 نوشته شده باشد پیامی درج میگردد. با استفاده از ساختار if های تو در تو میتوان فرمول زیر را نوشت:
IF(A1>=50;IF(A1>=85;”E”;”G”);IF(A1>=20;”B”;”A”))
در فرمول بالا بجای آرگومان دوم و سوم از توابع if استفاده شده، حال در فرمول بالا در هریک از آرگومان ها دوم و سوم برای ریز تر کردن بازه ها میتوان مجدداً از ساختارهای if دیگر نیز استفاده کرد و به همین ترتیب تا تعداد ۶۴ تابع if تو در تو میتوان در فرمول نویسی تابع if در اکسل لحاظ نمود.
برای اینکه بخواهید محیط ویژوال بیسیک (vba) فایل اکسل خود را رمزگذاری کنید به این روش عمل کنید :
ابتدا پس از باز کردن فایل اکسل و زدن کلیدهای ترکیبی (alt+F11) ، وارد منوی tools شده و گزینه VBAProject Properties... را انتخاب کنید
ابتدا به تب developer رفته و از گزینه زیر یک دکمه بر روی صفحه اکسل خود درگ کنید.
سپس با زدن دکمه new بر روی پنجره ای که باز شده است ، وارد محیط vba اکسل شوید و کد زیر را در رویداد کلیک دکمه کپی کنید :
Dim soal As Integer
("آیا شما می خواهید اطلاعات داخل شیت را خالی کنید؟", vbYesNo + vbQuestion, "خالی کردن اطلاعات")
If soal = vbYes Then
Cells.ClearContents
Else
بعد از خارج شدن از محیط vba بر روی دکمه ایجاد شده کلیک کنید و با باز شدن پنجره سوال و انتخاب دکمه yes تمام اطلاعات داخل شیت پاک خواهد شد.
اگر بخواهیم داده ها و اطلاعاتی که به صورت سطری ثبت کردیم را به صورت ستونی یا بالعکس دربیاریم به این صورت عمل می کنیم :
پس از باز کردن نرم افزار اکسل ، سلول های مربوط به سطر یا ستون رو به حالت انتخاب درآورده و با راست کلیک بر روی آن گزینه copy را انتخاب ، سپس بر روی یک سلول که خالیست راست کلیک کرده و گزینه past spicial را انتخاب و پس از تیک زدن بر روی گزینه Transpose دکمه ok را میزنیم.
تمام اطلاعاتی که به صورت سطری و یا ستونی است را به حالت مخالف آن نمایش می دهد.