Comment limiter une cellule à l'entrée des numéros de

J'ai un fichier excel, de la validation d'une colonne à l'entrée de chiffres seulement, mais il est formaté comme si le nombre est inférieur à 18 les zéros sont ajoutés. Mais maintenant, le nombre après le 15 chiffres, il sera de conversion de 0 ex: "002130021300020789", le neuf est modifié comme 0. Après la conversion de la colonne de texte, de son acceptation, mais je ne suis pas en mesure d'ajouter les zéros et de ne pas pouvoir limiter l'entrée onlu numéros.

Reconnaissant de toute aide.. merci à l'avance.

+ 1 Bonne Question 🙂

OriginalL'auteur user1049518 | 2012-06-21

  1. 2

    MS Article: Excel suit la Spécification IEEE 754 sur la façon de stocker et de calculer les nombres à virgule flottante. Excel les magasins en seulement 15 chiffres significatifs dans un certain nombre, et les changements de chiffres après la quinzième place à des zéros.

    Pour obtenir votre numéro de mise en forme et aussi de s'assurer que l'utilisateur ne saisit que des numéros, vous pouvez le faire. Je suis en supposant que vous êtes de la validation du texte dans la Plage A1. Veuillez modifier selon le cas.

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Whoa

    Application.EnableEvents = False

    If Not Intersect(Target, Range("A1")) Is Nothing Then
        '~~> If entered text is not a number then erase input
        If Not IsNumeric(Range("A1").Value) Then
            MsgBox "invalid Input"
            Application.Undo
            GoTo LetsContinue
        End If

        Range("A1").Value = "'" & Format(Range("A1").Value, "000000000000000000")
    End If

LetsContinue:
    Application.EnableEvents = True
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume LetsContinue
End Sub

    SUIVI

    Si vous êtes de copier et de coller ensuite, vous aurez à premier format de la Gamme G11:G65536 manuellement le TEXTE et ensuite utiliser ce code

    INSTANTANÉ (Lors du Collage des Valeurs Numériques)

    Comment limiter une cellule à l'entrée des numéros de

    INSTANTANÉ (Lors du Collage Non des Valeurs Numériques)

    Comment limiter une cellule à l'entrée des numéros de

    CODE

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Whoa

    Dim cl As Range

    Application.EnableEvents = False

    If Not Intersect(Target, Range("G11:G" & Rows.Count)) Is Nothing Then
        For Each cl In Target.Cells
            '~~> If entered text is not a number then erase input
            If Not IsNumeric(cl.Value) Then
                MsgBox "invalid Input"
                Application.Undo
                GoTo LetsContinue
            End If

            cl.Value = "'" & Format(cl.Value, "000000000000000000")
        Next
    End If

LetsContinue:
    Application.EnableEvents = True
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume LetsContinue
End Sub
    Thaks pour vos suggestions et le code de l'aide. Mais quand je suis face les données d'une autre feuille, après le collage, les valeurs après 15 chiffres sera la conversion de zéros et comment valider l'ensemble de la colonne G11:g65536.
    Vous pouvez capturer copier coller dans la feuille de calcul événement de changement de... Laissez-moi vous donner un exemple 🙂
    Post Mis À Jour 🙂
    Un bounch de grâce Siddharth.. Vous êtes beaucoup aidé ..Merci beaucoup
    +1 très bonne explication avec des clichés! Ce que j'ai aimé aussi, c'est que vous avez inclus le lien pour en virgule flottante IEEE qui va certainement aider les débutants

    OriginalL'auteur Siddharth Rout

  2. 1

    D'abord, vous pouvez modifier le format de la cellule de texte

    Range("A1").NumberFormat = "@"

    Ensuite, vous pouvez ajouter des zéros 

    cellvalue2 = Format(cellvalue1, "000000000000000")  // for numeric fields

                   or 
             = TEXT(cellvalue1,"000000000000000")    // for textfields
    +1 une Autre façon de contourner cette limitation 🙂

    OriginalL'auteur AurA