حد نصاب معاملات کوچک، متوسط و بزرگ درسال 96

در جلسه هیات دولت نصاب معاملات در سال ۱۳۹۶ تعیین شد.

هیئت وزیران در جلسه ۳/۲/۱۳۹۶ به پیشنهاد شماره … وزارت امور اقتصادی و دارایی و به استناد تبصره (۱) ماده (۳) قانون برگزاری مناقصات -مصوب ۱۳۸۳- و ماده (۴۲) قانون الحاق برخی مواد به قانون تنظیم بخشی از مقررات مالی دولت (۲) -مصوب ۱۳۹۳- تصویب کرد:

الف- نصاب معاملات موضوع ماده (۳) قانون برگزاری مناقصات به شرح زیر تعیین می شود:

۱- معاملات کوچک: معاملاتی که تا سقف مبلغ دویست و بیست میلیون (۲۲۰٫۰۰۰٫۰۰۰) ریال باشد.

۲- معاملات متوسط: معاملاتی که مبلغ معامله بیشتر از سقف معاملات کوچک بوده و از مبلغ دو میلیارد و دویست میلیون (۲٫۲۰۰٫۰۰۰٫۰۰۰) ریال تجاوز نکند.

۳- معاملات بزرگ: معاملاتی که مبلغ برآورد اولیه آنها بیش از دو میلیارد و دویست میلیون (۲٫۲۰۰٫۰۰۰٫۰۰۰) ریال باشد.

ب- نصاب معمالات موضوع بند (الف) به مواردی که معامله به صورت مزایده انجام می شود، تسری می یابد.

تبدیل متن به عدد در اکسل به کمک VBA

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

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

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

Sub ConvertTextToNumber()
Dim ws As Worksheet
Dim r As Range
For Each ws In Sheets
On Error Resume Next
For Each r In ws.UsedRange.SpecialCells(xlCellTypeConstants)
If IsNumeric(r) Then r.Value = Val(r.Value)
Next
Next
End Sub

IF های تو در تو در اکسل

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

مقدار سلول A13 برابر است با:

• A: اگر مقدار سلول A1 از ۰ تا ۲۰ باشد.
• B: اگر مقدار سلول A1 از ۲۰ تا ۴۹ باشد.
• G: اگر مقدار سلول A1 از ۵۰ تا ۸۴ باشد.
• E: اگر مقدار سلول A1 از ۸۵ تا ۱۰۰ باشد.

در مساله ی بالا، در سلول A13 به تناسب اینکه چه عددی بین ۰ تا ۱۰۰ در سلول A1 نوشته شده باشد پیامی درج میگردد. با استفاده از ساختار if های تو در تو میتوان فرمول زیر را نوشت:

IF(A1>=50;IF(A1>=85;”E”;”G”);IF(A1>=20;”B”;”A”))

در فرمول بالا بجای آرگومان دوم و سوم از توابع if استفاده شده، حال در فرمول بالا در هریک از آرگومان ها دوم و سوم برای ریز تر کردن بازه ها میتوان مجدداً از ساختارهای if دیگر نیز استفاده کرد و به همین ترتیب تا تعداد ۶۴ تابع if تو در تو میتوان در فرمول نویسی تابع if در اکسل لحاظ نمود.

رمز گذاری بر روی vba

برای اینکه بخواهید محیط ویژوال بیسیک (vba) فایل اکسل خود را رمزگذاری کنید به این روش عمل کنید :

ابتدا پس از باز کردن فایل اکسل و زدن کلیدهای ترکیبی (alt+F11) ، وارد منوی tools شده و گزینه VBAProject Properties... را انتخاب کنید

پس از باز شدن پنجره زیر ، بر روی تب protection کلیک کنید
سپس با تیک زدن بر روی lock project for viewing و در کادرهای فرم ، رمز عبور مورد نظر را وارد کنیدپس از کلیک کردن بر روی دکمه ok ، فایل اکسل را ذخیره و فایل را ببندید. پس از باز کردن فایل اکسل و زدن کلید های ترکیبی (alt+F11)  ، کادری نمایش داده می شود که با وارد کردن رمز عبور خود وارد محیط vba خواهید شد

پاک کردن اطلاعات شیت با استفاده از کد vba

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

سپس با زدن دکمه new بر روی پنجره ای که باز شده است ، وارد محیط vba اکسل شوید و کد زیر را در رویداد کلیک دکمه کپی کنید :

Dim soal As Integer

("آیا شما می خواهید اطلاعات داخل شیت را خالی کنید؟", vbYesNo + vbQuestion, "خالی کردن اطلاعات")

If soal = vbYes Then

    Cells.ClearContents

Else

بعد از خارج شدن از محیط vba بر روی دکمه ایجاد شده کلیک کنید و با باز شدن پنجره سوال و انتخاب دکمه yes تمام اطلاعات داخل شیت پاک خواهد شد.