برای بتوانیم لیست ماههای شمسی در اکسل و همچنین نام روزهای هفته را داشته باشیم میتوانیم به دو صورت عمل کنیم که در ادامه هر دوی آنها را آموزش خواهم داد . با استفاده از این اموزش رایگان و ترفند ارائه شده می توانید سرعت کار خو با نرم افزار اکسل را بسیار افزایش دهید.
فهرست محتوا
روش اول ، کاستوم لیست Custom List
این قابلیت در دل خود اکسل و تنظیمات آن وجود دارد که در دوره مقدماتی هم به آن پرداخته بودیم و برای اینکه بتوانیم کاری کنیم که هر زمان کلمه فروردین را نوشتیم و درگ کردیم به صورت خودکار نام سایر ماههای سال هم نوشته شود و یا اگر کلمه شنبه را نوشتیم و درگ کردیم نام بقیه روزهای هفته هم نمایش داده شود .
- یک بار به طور دقیق نام ماههای شمسی و همچنین روزهای هفته بنویسید
- به تنظیمات اکسل و تب Advanced بروید
- تا انتها اسکرول کنید تا گرینه Custom List را ببیند
- روی Edit Custom List کلیک کنید
- داخل باکس خالی مقابل نوشته Import List From Cell قرار بگیرید
- روی فلش کوچک کلیک کنید محدوده ای که نام ماههای شمسی را وارد کرده اید انتخاب کنید.
- روی Import کلیک کرده و سپس OK کنید
- برای نام روزهای هفته هم همین کار را تکرار کنید
با انجام مراحل بالا روی کامپیوتر جاری هرجا کلمه فروردین را وارد کنید می توانید درگ کنید تا اسفند به صورت خودکار وارد شود .
روش دوم لیست ماههای شمسی در اکسل با یک کلیک
روش دوم برای اینه لیست ماههای شمسی در اکسل را داشته باشیم این است که در Personal Macro کدهایی را وارد کنیم که در ویدیو بالا هم مشاهده کردید . برای این منظور مراحل زیر را دنبال کنید .
- وارد تب Developer شوید .
- روی گزینه Record Macro کلیک کنید
- در پنجره باز شده حتما گزینه Perrsonal را انتخاب کرده و OK کنید
- حالا روی گزینه Stop کیک کنید تا روند ضبط ماکرو متوقف شود
- حالا با زدن کلیدهای Alt + F11 وارد قسمت کد نویسی شوید.
- در سمت چپ روی گزینه VBAPROJECT(PERSONAL.XLSB) کلیک کنید
- روی ماژول موجود کلیک کرده و کدهای زیر راآنجا قرار دهید.
Public Sub monthNamesV()
Dim i As Integer
For i = i To 11
ActiveCell.Value = Choose(i + 1, ChrW(1601) & ChrW(1585) & ChrW(1608) & ChrW(1585) & ChrW(1583) & ChrW(1740) & ChrW(1606), ChrW(1575) & ChrW(1585) & ChrW(1583) & ChrW(1740) & ChrW(1576) & ChrW(1607) & ChrW(1588) & ChrW(1578), ChrW(1582) & ChrW(1585) & ChrW(1583) & ChrW(1575) & ChrW(1583), ChrW(1578) & ChrW(1740) & ChrW(1585), ChrW(1605) & ChrW(1585) & ChrW(1583) & ChrW(1575) & ChrW(1583), ChrW(1588) & ChrW(1607) & ChrW(1585) & ChrW(1740) & ChrW(1608) & ChrW(1585), ChrW(1605) & ChrW(1607) & ChrW(1585), ChrW(1570) & ChrW(1576) & ChrW(1575) & ChrW(1606), ChrW(1570) & ChrW(1584) & ChrW(1585), ChrW(1583) & ChrW(1740), ChrW(1576) & ChrW(1607) & ChrW(1605) & ChrW(1606), ChrW(1575) & ChrW(1587) & ChrW(1601) & ChrW(1606) & ChrW(1583))
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Public Sub monthNamesH()
Dim i As Integer
For i = i To 11
ActiveCell.Value = Choose(i + 1, ChrW(1601) & ChrW(1585) & ChrW(1608) & ChrW(1585) & ChrW(1583) & ChrW(1740) & ChrW(1606), ChrW(1575) & ChrW(1585) & ChrW(1583) & ChrW(1740) & ChrW(1576) & ChrW(1607) & ChrW(1588) & ChrW(1578), ChrW(1582) & ChrW(1585) & ChrW(1583) & ChrW(1575) & ChrW(1583), ChrW(1578) & ChrW(1740) & ChrW(1585), ChrW(1605) & ChrW(1585) & ChrW(1583) & ChrW(1575) & ChrW(1583), ChrW(1588) & ChrW(1607) & ChrW(1585) & ChrW(1740) & ChrW(1608) & ChrW(1585), ChrW(1605) & ChrW(1607) & ChrW(1585), ChrW(1570) & ChrW(1576) & ChrW(1575) & ChrW(1606), ChrW(1570) & ChrW(1584) & ChrW(1585), ChrW(1583) & ChrW(1740), ChrW(1576) & ChrW(1607) & ChrW(1605) & ChrW(1606), ChrW(1575) & ChrW(1587) & ChrW(1601) & ChrW(1606) & ChrW(1583))
ActiveCell.Offset(0, 1).Select
Next i
End Sub
Public Sub dayNamesV()
Dim i As Integer
For i = i To 6
ActiveCell.Value = Choose(i + 1, ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607), ChrW(1740) & ChrW(1705) & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607), ChrW(1583) & ChrW(1608) & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607), ChrW(1587) & ChrW(1607) & " " & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607), ChrW(1670) & ChrW(1607) & ChrW(1575) & ChrW(1585) & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607), ChrW(1662) & ChrW(1606) & ChrW(1580) & " " & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607), ChrW(1580) & ChrW(1605) & ChrW(1593) & ChrW(1607))
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Public Sub dayNamesH()
Dim i As Integer
For i = i To 6
ActiveCell.Value = Choose(i + 1, ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607), ChrW(1740) & ChrW(1705) & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607), ChrW(1583) & ChrW(1608) & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607), ChrW(1587) & ChrW(1607) & " " & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607), ChrW(1670) & ChrW(1607) & ChrW(1575) & ChrW(1585) & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607), ChrW(1662) & ChrW(1606) & ChrW(1580) & " " & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607), ChrW(1580) & ChrW(1605) & ChrW(1593) & ChrW(1607))
ActiveCell.Offset(0, 1).Select
Next i
End Sub
با انجام مراحل بالا لیست ماههای شمسی در اکسل با یک کلیک قابل اضافه شدن می باشد و می باشد در صورت دلخواه می توانید آیکون آنها را به ریبون بالای اکسل اضافه نمائید ، که آموزش آن هم درویدیو بالای این مطلب وجود دارد.
اضافه کردن گزینه ها به ریبون اکسل
همانطور که گفته شد و همچنین در ویدیو آموزشی لیست ماههای شمسی در اکسل هم نمایش دادیم می توانید در صورت تمایل کلیدهای مربوط به نمایش ماههای سال و یا روزهای هفته را به فیال اکسل خود اضافه نمایئد و برای این کار کافیست مراحل زیر را انجام دهید.
