oosta Excel اوستا اکسل

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

oosta Excel اوستا اکسل

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

oosta Excel اوستا اکسل

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

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

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

نرم افزار نرم افزار برنامه ریز هفتگی مدارس توسط اکسل و با برنامه نویسی VBA ساخته شده است.



daya demo 1

این نرم افزار در نسخه اولیه خود دارای قابلیت های زیر می باشد

  • ایجاد برنامه درسی هفتگی
  • دریافت زمان های پیشنهادی مدرس ها
  • دریافت دروس پیشنهادی مدرس ها
  • سفارشی کردن پایه ها و رشته های درسی
  • افزودن خودکار دروس در زمان ایجاد کلاس (لازم نیست دروس را به کلاس اضافه نمایید، برنامه از روی پایه و رشته دروس را اضافه می نماید)
  • حذف و اضافه زنگ های یک روز 
  • چاپ برنامه آموزشگاه
  • چاپ برنامه کلاسی
  • چاپ برنامه مدرس
  • چاپ برگه غایبین هر کلاس با تاریخ و نام مدرس و درس برای هر زنگ
  • برنامه در زمان برنامه ریزی جهت تعداد ساعت درس، تعداد ساعت مدرس و تداخل مدرس ها اخطار لازم را می دهد


  • قابلیت تعریف تا 20 رشته و 100 کلاس و حتی بالاتر!
جلیل عباسی سیوکی
۰۱ خرداد ۹۵ ، ۱۱:۰۵ ۱ نظر

نرم افزار محاسبه کیلومتراژ مأمورین راه آهن جمهوری اسلامی ایران توسط اکسل و با برنامه نویسی VBA ساخته شده است.


شروع پروژه:1387

ساخت برنامه ساده اولیه: 1387

بهره برداری اولیه در ناحیه راه آهن طبس: 1387

طراحی و ساخت برنامه تحت شبکه: 1394

بهره برداری برنامه چند کاربره تحت شبکه در ناحیه راه آهن طبس: بهار 1395

معرفی به معاونت راه آهن در تهران: فروردین 1395 (در حال بررسی، امیدواریم این زحمات چندساله به ثمر بنشیند)



کیلومتراژ مامورین راه آهن


بخش ها: 

  • مأمورین
  • کارنامه ها
  • مأموریت ها
  • پیک و پیک ویژه
  • گزارشات
  • پارامترها
  • پشتیبان گیری
  • بروزرسانی

خصوصیات:

  • ورودی انواع مأموریت ها (باری، مسافری، مسافری ویژه، رزرو، کشیک و ...)
  • محاسبه تمام اتومات کیلومتراژ کارنامه
  • محاسبه فراخوان زیر استراحت
  • محاسبه اتومات خوابگاه و استراحت
  • محاسبه اتومات پیک و پیک ویژه
  • محاسبه کیلومتراژ از مبدأ تا مقصد بصورت اتومات براساس فاصله و گراف
  • تغییر تمام محاسبات بعد از حذف یا تغییر
  • گزارش های ویژه محاسبه ساعت مفید و غیر مفید
  • امکان تغییر مبناهای کیلومتر مثلاً کیلومتر امداد
  • نصب تحت شبکه و در صورت درخواست با مقداری تغییر بصورت آنلاین و در شبکه اینترنت
  • امکان تعریف و تغییر دسترسی های هر کاربر
  • و بسیاری از امکانات دیگر که لازمه محاسبه کیلومتراژ مأمورین قطار می باشد.

توسط اوستا اکسل

جلیل عباسی سیوکی
۲۸ ارديبهشت ۹۵ ، ۱۹:۳۸ ۱ نظر

 دریافت فایل اکسل
عنوان: 250 میانبر اکسل
حجم: 17.3 کیلوبایت
توضیحات: تعداد 250 میانبر صفحه کلید در اکسل

جلیل عباسی سیوکی
۲۸ ارديبهشت ۹۵ ، ۱۹:۰۳ ۰ نظر

اکسل به سادگی می تواند به پایگاه داده MySQL دسترسی داشته و عملیات های مختلف را برای خواندن، ایجاد، تغییر و حذف داده ها انجام دهد.

بدین منظور لازم است که ابتدا برنامه به پایگاه داده متصل شود و دستورات تراکنشی برای دسترسی و ویرایش اطلاعات ارسال شود.


Public cn As ADODB.Connection

Public rs As ADODB.Recordset

Public strSql As String

'Connection module:

Public Function connectDB()

    Dim strServer_Name As String

    Dim strDB_Name As String

    Dim strUser_ID As String

    Dim strPassword As String

    With Sheet2

        strServer_Name = .Range("B2").Value

        strDB_Name = .Range("B3").Value

        strUser_ID = .Range("B4").Value

        strPassword = .Range("B5").Value

    End With

    Set cn = New ADODB.Connection

    Set rs = CreateObject("ADODB.Recordset") 'EBGen-Daily

    Server_Name = strServer_Name

    Database_Name = strDB_Name ' Name of database

    User_ID = strUser_ID 'id user or username

    Password = strPassword 'Password

    Port = "3306"

    conStr = "DRIVER={MySQL ODBC 5.2 Unicode Driver};SERVER=" & _

            Server_Name & ";PORT=" & Port & ";DATABASE=" & Database_Name & _

            ";UID=" & User_ID & "; PWD=" & Password & "; Option=3"

    cn.Open conStr

End Function


'

'Sub module():

خواندن از دیتابیس

Sub request()

    Dim fTimeEnd As Date

    Dim fTimeStart As Date

    Call connectDB

    fTimeStart = Timer

    strSql = "SELECT * FROM tb1"  ' tb1 نام جدول

    Set rs = New ADODB.Recordset

    rs.Open strSql, cn, adOpenDynamic

    With Sheet1.Range("A1")

        .ClearContents

        .CopyFromRecordset rs

    End With

    fTimeEnd = Timer

    Sheet1.Cells(1, 3) = Format$((fTimeEnd - fTimeStart) * 100!, "0.00 "" Centiseconds Elapsed""")

    cn.Close

    Set cn = Nothing

End Sub

سروری که از آن استفاده می کنید لازم است پورت 3306 باز باشد

و اجازه دسترسی ریموت به دیتابیس را در پنل هاست بدهید

ابتدا درایور اتصال به MySQL را بر روی ویندوز نصب نمایید 

 درایور X64 را از دریافت کنید

عنوان: درایور اتصال به mysql
حجم: 4.21 مگابایت
توضیحات: درایور اتصال به mysql 

لطفا سوالات خود را ارسال نمایید تا پاسخ لازم را بفرستیم

در مثال فوق زمان خواندن را هم محاسبه می کند تا بتوانید با مقایسه سرورهای مختلف، بهترین انتخاب را داشته باشید.

سرور پیشنهادی ما که پورت 3306 باز دارد، mashhadhost.com  می باشد.

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

دریافت فایل اکسل
عنوان: کدهای صفحه کلید
حجم: 134 کیلوبایت
توضیحات: کدهای صفحه کلید

جلیل عباسی سیوکی
۱۹ بهمن ۹۴ ، ۱۰:۲۵ ۰ نظر
دریافت جدول کد اسکی فایل اکسل
عنوان: جدول کد اسکی
حجم: 152 کیلوبایت
توضیحات: جدول کد اسکی

 

 دریافت جدول کد اسکی فایل ورد
عنوان: جدول کد اسکی 
حجم: 178 کیلوبایت
توضیحات: جدول کد اسکی


دریافت جدول کد اسکی فایل PDF
عنوان: جدول کد اسکی
حجم: 380 کیلوبایت
توضیحات: جدول کد اسکی


دریافت جدول کد اسکی فایل XPS
عنوان: جدول کد اسکی
حجم: 263 کیلوبایت
توضیحات: جدول کد اسکی


فایل تبدیل مبناهای مختلف عددی به یکدیگر بصورت تمرین - اینجا

فلوچارت های  تبدیل عدد به مبناهای دیگر - مبنای 2 و... سطح متوسط - اینجا


با گرفتن کلید Alt بهمراه تایپ کد هر عدد می توان کاراکتر مورد نظر را تایپ نمود.


اگر می خواهید با کاراکترهای اسکی جدول بسازید می توانید از کاراکترهای زیر استفاده نمایید


جدول اسکی


جدول اسکی:

جدول اسکی کامل

جلیل عباسی سیوکی
۱۷ بهمن ۹۴ ، ۰۸:۴۶ ۰ نظر
بهتره از حلقه for برای پیمایش یک شیت استفاده نکنید بدلیل اینکه در حجم بالای اطلاعات سرعت کار را پایین می آورد.
روش خود اکسل برای جستجو را آورده ایم تا مورد استفاده علاقمندان قرار گیرد.


val  مقدار عددی که بدنبال آن می گردد
ws نام sheet
col ستونی که بدنبال مقدار می گردد مانند "A"
firstCellAsCol  اگر ستون عنوان داشته باشد و یا بخواهید از سطر خاصی شروع کند شماره اولین سطر را وارد نمایید


نتیجه یک مقدار منطقی است

Public Function searchValueIsExist(val As Long, ws As Worksheet, col As String, firstCellAsCol As Integer) As Boolean
    Dim boolVal As Boolean
    boolVal = False
    Dim lrow As Long
    lrow = ws.Cells(ws.Rows.Count, col).End(xlUp).row
    Dim c As Range
    Dim str1 As String
    str1 = col & firstCellAsCol & ":" & col & lrow
    With ws.Range(str1)
        Set c = .Find(val, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            boolVal = True
        End If
    End With
    searchValueIsExist = boolVal
End Function

موفق باشید

اوستا اکسل

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

آیا باور می کنید که اکسل با اکسس برای راهبری حجم زیاد داده و اشتراک گذاری اطلاعات کل کل می کند

excel

صفحه گسترده اکسل نیز می تواند بجای بانک داده و حتی خیلی بهتر از اکسس بکار گرفته شود.


اشتراک گذاری فایل اکسل

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


اشتراک گذاری فایل اکسل


اشتراک گذاری فایل اکسل


حال می توانید مانند یک پایگاه داده اشتراک گذاری شده از اکسل استفاده نمایید

برای اطلاعات بیشتر از این موضوع در قسمت نظرات سوال خود را بگذارید.


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

اگر هر کاربری بدلیل قطع شبکه و یا بسته شدن ناخواسته نامش در این لیست وجود دارد که در حال حاضر فایل را باز نکرده می توانید این کاربر را از لیست حذف نمایید.

ضمناً ما تابعی نوشته ایم که کاربرانی که فایل توسط آن ها مورد استفاده قرار نمی گیرد و دیگر ارتباطی با این فایل ندارند را به صورت اتومات حذف می کند. برای راهنمایی و دریافت اطلاعات می توانید پیام خود را بفرستید.


جلیل عباسی سیوکی
۱۱ بهمن ۹۴ ، ۲۰:۲۳ ۱ نظر

شما می توانید یک پایگاه داده Access را به اشتراک بگذارید. بسته به نیاز خود و در دسترس بودن منابع، راه های مختلفی وجود دارد. در این مقاله، ما یک نگاهی به روش اشتراک گذاشتن یک پایگاه داده با روش تقسیم کردن آن می پردازیم.

ما خلاصه ای صحبت های میچر میر Michelle Meyer  را درباره اکسس و استفاده های کاربران از قابلیت جداسازی فایل اکسس آورده ایم تا با اکسس و اشتراک گذاری داده ها بیشتر آشنا شوید.

البته این متن توسط مترجم (خودم) به زبان راحت تر و خلاصه تر بیان شده و برای بیان شیواتر موضوع حذف و اضافاتی در کلمات آن صورت گرفته است:

یکی از بزرگترین تصورات غلط در مورد مایکروسافت این است که پیچیدگی رسیدگی نمی کند. با توجه به یک محیط چند کاربر، بسیاری از متخصصان همچنان فکر میکنند که در یک محیط چند کاربر نمی توانند اکسس را به کار گیرند. این فرض اشتباه تاسف بار و پر هزینه است.

 در رابطه با مایکروسافت اکسس، فقط به نظر من به عنوان یک برنامه نویس با بیشتر از  20 سال تجربه،  بهترین قوانین عملیاتی هستند که توسط مایکروسافت تعریف شده است. به طور کلی، اگر یک سری مسائل به درستی در نظر گرفته شوند، مایکروسافت اکسس به خوبی در یک محیط چند کاربر عمل خواهد کرد.

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

تقسیم پایگاه شما: با تقسیم دسترسی، عملکرد پایگاه داده خود را، در یک محیط چند کاربر، به طرز چشمگیری بهبود خواهید بخشید. به طور کلی تقسیم یک پایگاه داده دسترسی به توابع ذخیره سازی داده ها جدا از توابع پردازش داده ها است. ذخیره سازی داده ها با جداول اداره می شود. پردازش داده ها از طریق فرم (برای ورود داده ها)، گزارش ها و دیگر اشیاء پردازش اداره می شود.

اجزاء تقسیم یک پایگاه داده، الف) جزء ذخیره سازی است مانند جداول ب) فرم ها، گزارشها و دیگر اجزاء.

پس از جداسازی یک پایگاه داده Access  به دو قسمت تقسیم می شود. یک فایل باطن (جداول داده) و یک فایل ظاهر (نرم افزار داده ها).


در مقاله زیر که توسط مایکروسافت انتشار یافته است شما می توانید برای جداسازی یک بانک اطلاعاتی اکسس از آن راهنمایی بگیرید.

Split an Access database


جلیل عباسی سیوکی
۱۱ دی ۹۴ ، ۰۸:۳۹ ۰ نظر

اگه قصد دارید نام صفحه ها یا شیت های اکسل دیده نشود یا نتوانند صفحه ای اضافه کنند.

ActiveWindow.DisplayWorkbookTabs = False


اگه قصد دارید منو های اکسل دیده نشود.

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"


اگه قصد دارید اسکرول افقی اکسل دیده نشود.

ActiveWindow.DisplayHorizontalScrollBar = False


اگه قصد دارید اسکرول عمودی اکسل دیده نشود.

ActiveWindow.DisplayVerticalScrollBar = False


اگه قصد دارید شماره های عمودی و حروف افقی اکسل دیده نشود.

ActiveWindow.DisplayHeadings = False


اگه قصد دارید خطوط پیش فرض خانه های یک صفحه از اکسل دیده نشود.

ActiveWindow.DisplayGridlines = False


اگه قصد دارید اکسل به صورت تمام صفحه دیده شود.

Application.DisplayFullScreen = True


اگه قصد دارید نوار وضعیت افقی پایین اکسل دیده نشود.

Application.DisplayStatusBar = Not Application.DisplayStatusBar


اگه قصد دارید پنجره بصورت حداکثر دیده شود.

Application.WindowState = xlMaximized


اگه قصد دارید در این فایل اکسل پنجره بصورت حداکثر دیده شود.

ActiveWindow.WindowState = xlMaximized


اگه قصد دارید نوار فرمول اکسل دیده نشود.

Application.DisplayFormulaBar = False


اگه قصد دارید نوار زوم پایین دیده نشود و کاربر نتواند زوم را تغییر دهد.

ActiveWindow.Zoom = 100


اگه قصد دارید در نوار عنوان نام اکسل دیده نشود و بجای آن متن دلخواه خود را بنویسید.

Application.Caption = "DayaAfzar.ir"

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