oosta Excel اوستا اکسل

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

oosta Excel اوستا اکسل

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

oosta Excel اوستا اکسل

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

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

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

۱۱ مطلب با موضوع «اکسل :: پیشرفته» ثبت شده است


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

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

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

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

در این آموزش VLOOKUP اکسل برای مقایسه 2 ستون و یافتن موارد منطبق، یاد می گیرید که چگونه:

  • از تابع VLOOKUP استفاده کنید.
  • از تابع ISNA استفاده کنید.
  • با مقایسه 2 ستون تکرای و غیرتکراری ها در دو ستون را پیدا کنید

این آموزش VLOOKUP اکسل برای مقایسه 2 ستون و یافتن موارد منطبق با یک نمونه فایل کار اکسل همراه با داده ها و فرمول هایی است که من هنگام توضیح روند گام به گام زیر استفاده می کنم.

می توانید با کلیک بر روی دکمه زیر این نمونه کار را (به صورت رایگان) دریافت کنید.

دریافت
عنوان: پیدا کردن تکراری ها و مقایسه ی دو ستون در اکسل
حجم: 8.75 کیلوبایت
توضیحات: پیدا کردن تکراری ها و مقایسه ی دو ستون در اکسل
 

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

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

این برنامه تا 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 در تلگرام مراجعه نمایید.

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

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


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

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


شروع پروژه:1387

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

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

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

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

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



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


بخش ها: 

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

خصوصیات:

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

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

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

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

جلیل عباسی سیوکی
۲۸ ارديبهشت ۹۵ ، ۱۹:۰۳ ۰ نظر
بهتره از حلقه 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

موفق باشید

اوستا اکسل

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

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

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"

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

ALT+Enter

می توان از

Char(10)

نیز استفاده کرد.

مثال:

="Ali" & Char(10) & "Abbasi"

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

کپی یک 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


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