oosta Excel اوستا اکسل

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

oosta Excel اوستا اکسل

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

oosta Excel اوستا اکسل

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

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

لینک گروه پرسش و پاسخ در تلگرام:
https://t.me/joinchat/CCrOQRL0g-iG3tIeTxPmPQ

۱۲ مطلب با کلمه‌ی کلیدی «آموزش اکسل» ثبت شده است


طرح افزایش کارمزد بر اساس افزایش تولید

طرح افزایش کارمزد بر اساس افزایش تولید

عدد پله ها تعداد تولید هستند


دریافت فایل اکسل آماده
حجم: 11.3 کیلوبایت
توضیحات: طرح افزایش کارمزد بر اساس افزایش تولید

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

یک نمونه کار جدید استفاده از excel و ساخت نمودار D3 هست

برای ساخت شجره نامه انسانی می باشد

دیاگرام

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


البته کاربردهای دیگری هم دارد!

دریافت فایل
حجم: 92.8 کیلوبایت


راهنمای استفاده:

جلیل عباسی سیوکی
۰۵ مهر ۹۷ ، ۰۸:۳۹ ۰ نظر

شروع دوره دوشنبه 8 مرداد 1397

3 تا 5 عصر روزهای دوشنبه و چهارشنبه بمدت 6 هفته


آدرس: مشهد، ابتدای وکیل آباد 

تماس: 05138900223

آموزش اکسل مشهد

جلیل عباسی سیوکی
۰۶ مرداد ۹۷ ، ۱۹:۴۰ ۰ نظر

شروع دوره دوشنبه 28 خرداد 1397

4و نیم تا 6 و نیم عصر روزهای زوج بمدت یک ماه 

آدرس: مشهد، ابتدای وکیل آباد 

تماس: 05138900223

آموزش اکسل

جلیل عباسی سیوکی
۲۲ خرداد ۹۷ ، ۲۰:۰۹ ۰ نظر

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

این برنامه تا 702 ستون اول در اکسل نوشته شده است.

برای سفارش کامل با آیدی تیم اوستا اکسل با نام

 @Jalil_Abbasi 

در تلگرام تماس بگیرید.


Function charCol(num As Integer) As String

    ' one char  A_Z

    If num <= 26 Then

        charCol = Chr(64 + num)

    Else

        ' two char AA_ZZ

        If num <= 26 Then

            charCol = IIf(num Mod 26 = 0, _

            Chr(Int(64 + (num / 26) - 1)), _

            Chr(Int(64 + num / 26))) & _

            IIf(num Mod 26 = 0, Chr(64 + 26), _

            Chr(64 + num Mod 26))

        End If

    End If

End Function

جلیل عباسی سیوکی
۲۲ خرداد ۹۷ ، ۲۰:۰۱ ۰ نظر

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

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

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

برای اطلاع از آخرین تکنیک های ارتباطی با دیتابیس از طریق اکسل با تیم اوستااکسل تماس بگیرید


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

 دریافت فایل اکسل
عنوان: 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 کیلوبایت
توضیحات: کدهای صفحه کلید

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

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

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"

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