اعداد سه رقمی و تعداد بخش پذیری آن ها (به ترتیب بیشترین تعداد بخش پذیری):

عدد: 840  تعداد بخش پذیری: 32      (عدد 840 بر اعداد 1, 2, 3, 4, 5, 6, 7, 8,10, 12, 14, 15, 20, 21, 24, 28, 30,35, 40, 42, 56, 60, 70, 84, 105, 120,140, 168, 210, 280, 420, 840 بخش پذیر است)

عدد: 720  تعداد بخش پذیری: 30

عدد: 960  تعداد بخش پذیری: 28

عدد: 900  تعداد بخش پذیری: 27

عدد: 360  تعداد بخش پذیری: 24

1- بین اعداد سه رقمی کدام عدد بیشترین بخش پذیری را دارد آن عدد را به همراه تعداد بخش پذیری نمایش دهد.

      دریافت فلوچارت

     حجم: 180 کیلوبایت

     حجم: 147 کیلوبایت

فلوچارت های برنامه سازی رده متوسط سطح یک و دو با فایل جواب بصورت PDF می توانید آن ها را دریافت نمایید:

1-  عدد 3540 چند تا مقسوم علیه دارد؟

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

2- حاصل عبارت 120+117+ ... + 9+6+3  چه عددی می شود؟

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

 3- بین اعداد 400 تا 600 کدام عدد بیشترین بخش پذیری را دارد؟

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

4- مثلث عددی زیر را بسازد. (به دو سمت مثبت و منفی رشد نماید)

     دریافت فلوچارت

     حجم: 167 کیلوبایت

فلوچارت های برنامه سازی رده مقدماتی سطح 3 با فایل جواب بصورت PDF می توانید آن ها را دریافت نمایید:

1- دو عدد دریافت نموده و از عدد کوچکتر تا عدد بزرگتر نمایش دهد. (عدد کوچکتر می تواند عددی اولی یا دومی باشد)

           مثال: اعداد ورودی 45 و 34 و نمایش از چپ به راست  34,35,36,37,38,39,40,41,42,43,44,45

           دریافت فلوچارت با استفاده از دو حلقه (Loop)
           حجم: 223 کیلوبایت

           دریافت  فلوچارت با استفاده از یک حلقه (Loop) 

           (برای ما ارسال نمایید تا بنام خودتان منتشر نماییم)

2- با استفاده از حلقه به تعداد 5 عدد دریافت نموده و جمع اعداد، میانگین، کمترین و بیشترین عدد را نمایش دهد.

           دریافت فلوچارت

          حجم: 202 کیلوبایت

3- تعدادی عدد دریافت نموده (تعداد اعداد ورودی نامشخص) و میانگین اعداد را نمایش دهد.

وقتی برنامه خاتمه پیدا می کند که کاربر عدد منفی وارد نماید. (عدد منفی که در آخر وارد شده جز اعداد برای محاسبه معدل به حساب نمی آید)

          دریافت فلوچارت

          حجم: 188 کیلوبایت

.

بهتره از حلقه 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

موفق باشید

اوستا اکسل

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

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

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

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

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

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

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

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

شما می توانید یک پایگاه داده 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"