در جدول زیر لیست مهمترین این توابع فارسی در اکسل را مشاهده میکنید.
J_TODAY | تاریخ شمسی امروز را با توجه به تاریخ ویندوز شما محاسبه و نمایش میدهد. |
J_WEEKDAY | محاسبه روز هفته به صورت عدد یا حروف (سه شنبه یا 3) |
J_ADDDAY | اضافه کردن یک عدد با یک تاریخ برای محاسبه تاریخ جدید |
J_DIFF | محاسبه تعداد روزهای بین دو تاریخ شمسی در اکسل |
J_JALALDATE | تیدیل تاریخ میلادی به تاریخ شمسی در اکسل |
J_GREGORIANDATE | تبدیل تاریخ میلادی به تاریخ شمسی در اکسل |
J_SUBDAY | کم کردن یک عدد با یک تاریخ برای محاسبه تاریخ جدید شمسی |
TBH | تبدیل تاریخ به حروف (هفدهم مرداد هزار سیصد نود سه) |
ABH | تبدیل یک عدد به حروف در اکسل |
دانلود فایل راهنما
دریافت
عنوان: توابع تاریخ شمسی و تبدیل عدد به حروف در اکسل
حجم: 1.42 مگابایت
TabasTel
شروع پروژه: 29 بهمن 1395 مشهد
در این پست سعی می کنیم یک دفترچه تماس با قابلیت های جدید بگذاریم. دو تا از قابلیت های جدید در این برنامه به شرح زیر است. امیدواریم بتوانیم در نسخه های جدیدتر این برنامه آن را بهینه تر نماییم.
1- هر ورودی تماس اعتبار داشته باشد و بعد از مدت اعتبار سیستم بصورت اتومات حذف نماید.
(مثلاً خیلی از افراد می خواهند شماره پیک را تا مدت زمانی خاص داشته باشند ولی وقتی غذا یا وسیله را از پیک دریافت نمودند، آن شماره و مشخصات ثبت شده را لازم ندارند!)
2- بتوان به تعداد دلخواه شماره تماس برای یک شخص ثبت کرد.
(محدودیت ثبت تعداد تماس نداشته باشد)
. به یاری پروردگار بزودی اولین نسخه را آپلود می کنیم.
نرم افزار محاسبه کیلومتراژ مأمورین راه آهن جمهوری اسلامی ایران توسط اکسل و با برنامه نویسی VBA ساخته شده است.
شروع پروژه:1387
ساخت برنامه ساده اولیه: 1387
بهره برداری اولیه در ناحیه راه آهن طبس: 1387
طراحی و ساخت برنامه تحت شبکه: 1394
بهره برداری برنامه چند کاربره تحت شبکه در ناحیه راه آهن طبس: بهار 1395
معرفی به معاونت راه آهن در تهران: فروردین 1395 (در حال بررسی، امیدواریم این زحمات چندساله به ثمر بنشیند)
بخش ها:
خصوصیات:
توسط اوستا اکسل
کپی یک TextBox در یک شیت
Sub copy_textboxInSheet(row1 As Integer, col1 As Integer)
Sheet2.Shapes("TextBox 1").Copy
Application.Goto Reference:=Worksheets("Sheet2").Cells(row1, col1), Scroll:=True
Sheet2.Paste
End Sub
سطر و ستون را بصورت عددی به این تابع بدهید تا در مکان مورد نظر textBox 1 را کپی نماید.
نکته: بین کلمه TextBox و عدد 1 که هر دو مربوط به نام TextBox می باشد یک فاصله قرار دارد و اگر آن را بچرخانید نقطه موس و بالا را در نظر می گیرد.
حذف همه TextBox ها از یک شیت بجز TextBox 1
Sub del_textboxInSheet()
Dim tb As Object
For Each tb In ActiveSheet.TextBoxes
If tb.Name <> "TextBox 1" Then
tb.Delete
End If
Next
End Sub
نکته: این تابع غیر از TextBox 1 بقیه را حذف می نماید.
حذف همه TextBox ها از یک شیت
Sub del_textboxInSheet()
Dim tb As Object
For Each tb In ActiveSheet.TextBoxes
tb.Delete
Next
End Sub