oosta Excel اوستا اکسل

فاز یک --> فلوچارت

oosta Excel اوستا اکسل

فاز یک --> فلوچارت

oosta Excel اوستا اکسل

در این سایت ما سعی داریم همه چیز درباره برنامه سازی و کار با محیط های مختلف اکسل داشته باشیم
ما از آموزش فلوچارت شروع کردیم که مبنا و مبانی اولیه است.

فلوچارت ها معمولا با جواب هستند
در مسایل و فلوچارت هایی که جواب ندارند می توانید مشارکت نمایید.

از شهریور ماه 1400 یکسری پروژه های کاربردی در قالب برنامه بفروش میرسد

۵ مطلب با موضوع «برنامه نویسی :: VB ویژوال بیسیک» ثبت شده است


برنامه اکسل برای جواب بازی فندق 3 و 4 حرفی ها!

جواب برنامه فندق

دریافت
عنوان: جواب برنامه فندق

جلیل عباسی سیوکی
۲۶ آذر ۰۰ ، ۱۳:۴۰ ۰ نظر

 

توابع تاریخ شمسی و  تبدیل عدد به حروف در اکسل

در جدول زیر لیست مهمترین این توابع فارسی در اکسل را مشاهده می‌کنید.

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


جلیل عباسی سیوکی
۲۰ آذر ۹۴ ، ۱۲:۵۸ ۰ نظر