decimal control Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Public Function DecControl(KeyAscii As Integer, Text As TextBox, ByVal NOOFDEC As Integer) As Integer
If KeyAscii = 8 Then
    DecControl = KeyAscii
    Exit Function
End If
If NOOFDEC = 0 Then
    If InStr(1, "0123456789-", Chr(KeyAscii)) = 0 Then
        DecControl = 0
        Exit Function
    Else
        DecControl = KeyAscii
        Exit Function
    End If
Else
    If InStr(1, "0123456789.-", Chr(KeyAscii)) = 0 Then
        DecControl = 0
        Exit Function
    End If
End If

If Len(Text) - Text.SelStart > NOOFDEC And Chr(KeyAscii) = "." Then
    DecControl = 0
    Exit Function
End If
If KeyAscii  8 Then
If InStr(1, Text, ".")  0 And Chr(KeyAscii) = "." Then
    DecControl = 0
    Exit Function
End If
Dim pos As Integer
Dim RET As Integer
pos = InStr(1, Text.Text, ".")
If pos = 0 Then
    If InStr(1, "0123456789.-", Chr(KeyAscii)) = 0 Then
        RET = 0
    Else
        RET = KeyAscii
    End If
Else
    'IF AFTER DECIMAL
    If Text.SelStart + 1 > pos Then
        a = Len(Text.Text) - InStr(1, Text, ".")
        If a >= NOOFDEC Then
            RET = 0
        Else
            RET = KeyAscii
        End If
    Else
        RET = KeyAscii
    End If
End If
Else
    RET = KeyAscii
End If
DecControl = RET

End Function

No	Macro Name
1	decimal control
2	true-false control on a given sheet / page
3	excel operators hk
4	Create your own extensions and functions in excel
5	deleting the menu bar and creating a custom menu
6	add zero after a comma
7	Detection of regional settings in Excel: decimal separator Day symbol and code that displays the day in a message box currency code
8	translate the number / number into English (in dollars and cents)
9	Remove Decimals from Numbers: This code helps you remove all digits of the digits in the selected range.
10	decimal total
11	Adding decimal numbers in textbox
12	cut cancel & open copy
13	cut cancel & open copy
14	reporting problem
15	cut copy paste enabled
16	When I right click in any cell in excel, I want the "print" command to exit
17	cut copy paste cancel
18	add and delete menus
19	saving and sorting alphabetically
20	delete sheet / page & block naming

Excel Free Macros (VBA)

Decimal Control

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords