ساخت فهرست شیتها در اکسل با استفاده از کد vba

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

Sub Build_Sheet_Navigator_with_Goto_Button()
   ' On Error Resume Next
    Application.DisplayAlerts = False
    Application.DisplayAlerts = False

    Call Insert_Navigator_WorkSheet    'Inset Sheet_Navigator worksheet
    Call DeleteAllShapes   'first remove pervious Button
    Call Insert_Goto_Home_Button  ' Insert Buttons
    Call ShapePrint   'Does not Print Button
   
    Worksheets("Sheet_Navigator").Shapes("HomeBtn").Delete
    Worksheets("Sheet_Navigator").Range("A2").Clear
    Worksheets("Sheet_Navigator").Range("A2") = "فهرست مطالب"
    Worksheets("Sheet_Navigator").Activate

    Application.DisplayAlerts = False
    Application.ScreenUpdating = True


End Sub
Private Sub Insert_Goto_Home_Button()

    On Error Resume Next

    For Each sh In Worksheets

        With sh.Shapes.AddShape(msoShapeRectangle, 2, 2, 45, 15)
            .Name = "HomeBtn"
            .Fill.ForeColor.RGB = RGB(255, 0, 0)
            .TextFrame.Characters.Text = "Home"
            .Line.Visible = False
        End With

        sh.Hyperlinks.Add Anchor:=sh.Shapes("HomeBtn"), Address:="", SubAddress:="Sheet_Navigator!A1", ScreenTip:="Click Here to go Sheet_Navigator Worksheet"

    Next

End Sub
Private Sub Insert_Navigator_WorkSheet()

    On Error Resume Next


    Worksheets("Sheet_Navigator").Delete
    Worksheets.Add(Sheets(1)).Name = "Sheet_Navigator"


    For Each sh In Worksheets
        i = i + 1
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 1, 1), Address:="", SubAddress:="'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name
    Next

    With Columns("A:A")
        .EntireColumn.AutoFit
        HorizontalAlignment = xlLeft
    End With



End Sub
Private Sub DeleteAllShapes()

    On Error Resume Next

    For Each sh In Worksheets
        sh.Shapes("HomeBtn").Delete
    Next

End Sub
Private Sub ShapePrint()

'This Procedure set button print property to false which Button does not print

    On Error Resume Next
    Application.ScreenUpdating = False

    For Each sh In Worksheets
        sh.Activate
        sh.Shapes("HomeBtn").Select
        Selection.PrintObject = False
        sh.Cells(1, 1).Activate
    Next

End Sub

نکاتی در خصوص چک ضمانت

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

 طبق ماده ۱۳ قانون صدور چک، قانونگذار برای این چک‌ها ضمانت اجرایی قایل نیست؛ در حقیقت در مواردی از جمله اینکه «در صورتی که ثابت شود چک سفید امضا داده شده»، «هر گاه در متن چک وصول وجه آن منوط به تحقق شرطی شده باشد»، «چنانچه در متن چک قید شده باشد که چک بابت تضمین انجام معامله یا تعهدی است»، «هرگاه بدون قید در متن چک ثابت شود که وصول وجه آن منوط به تحقق شرطی بوده یا چک بابت تضمین انجام معامله یا تعهدی است» و «در صورتی که ثابت شود چک بدون تاریخ صادر شده یا تاریخ واقعی صدور چک مقدم بر تاریخ مندرج در متن چک باشد» صادرکننده چک قابل تعقیب کیفری نیست.

 شرایط پرداخت وجه چک‌ تضمین

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

دارنده چک می‌تواند علیه کسی که دستور عدم پرداخت داده شکایت کند و هر‌گاه خلاف ادعایی که موجب عدم پرداخت شده است، ثابت شود، دستوردهنده علاوه بر مجازات مقرر در ماده ۷ این قانون به پرداخت تمامی خسارات وارده به دارنده چک محکوم خواهد شد همچنین ذی‌نفع کسی است که چک به نام او صادر یا ظهرنویسی شده یا چک به او واگذار شده یا چک در وجه حامل به او واگذار شده است.

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

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

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

قابلیت جدید اضافه شده به سامانه معاملات فصلی

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

مودیان مالیاتی می‌توانند اطلاعات مرتبط به خرید یا فروش ثبت شده توسط دیگران را شما را از سال ۹۴ در این سامانه مشاهده نمایند.

همچنین مودیان مالیاتی می‌توانند در صورت وجود هرگونه مغایرت و اشتباه در اطلاعات ثبت شده می توان از طرف مقابل درخواست اصلاح اطلاعات ثبت شده را نمایید.

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

حد نصاب معاملات کوچک، متوسط و بزرگ درسال 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