Ich erlaube Benutzern, Daten in ein Excel-Blatt einzugeben. Ich möchte, dass die von ihnen eingegebenen Daten ganz einfache Zahlen sind. Wenn der Benutzer Kommas mit seiner Nummer eingibt, ignoriert Excel das Komma und hat nur die gesamte einfache Nummer für die Zeilendaten. Gibt es eine Möglichkeit, das zu tun? Ich denke, eine Möglichkeit, den Datentyp der Zeile zu ändern?

0
Takafu Keyomama 18 Apr. 2018 im 15:13

4 Antworten

Beste Antwort

Dies wird nicht genau das tun, was Sie wollen, da es ihnen nicht erlaubt, das Komma einzugeben, anstatt das Komma zu entfernen.

  1. Wählen Sie den Zellenbereich aus
  2. Wählen Sie auf der Registerkarte Daten die Option Datenüberprüfung aus.
  3. Wählen Sie in der Dropdown-Liste Zulassen die Option "Ganze Zahl".
  4. Konfigurieren Sie in der Dropdown-Liste Daten und anderen Optionen den Filter so, dass der gewünschte Typ der ganzen Zahl zugelassen wird (wählen Sie beispielsweise für positive Zahlen "größer als" und dann 0.
  5. Füllen Sie auf der Registerkarte "Fehlerwarnung" des Popups die Fehlermeldung "Bitte geben Sie nur eine ganze einfache Zahl ein" aus.
  6. OK klicken
1
Greg Viers 18 Apr. 2018 im 12:27
  1. Klicken Sie mit der rechten Maustaste auf die Zeilennummer
  2. Zelleigenschaften
  3. Benutzerdefiniert
1
Dries Marzougui 18 Apr. 2018 im 12:19
  • Öffnen Sie den VBEditor mit Strg + F11 .
  • Sie sehen so etwas wie das Bild unten;
  • Drücken Sie Strg + R , wenn Sie es nicht sehen.

enter image description here

  • Fügen Sie bei ThisWorkbook diesen Code ein:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey ","
End Sub

Private Sub Workbook_Open()
    Application.OnKey ",", "NotAllowed"
End Sub
  • Wählen Sie dann ThisWorkbook> Rechte Maustaste> Hinzufügen> Modul.
  • Fügen Sie in eine Module Folgendes ein:

Public Sub NotAllowed()
    MsgBox ("Not allowed to use the "","" key!")
End Sub

Wann immer jemand , sieht, sieht er:

enter image description here

1
Vityata 18 Apr. 2018 im 12:27

Dieses Makro entfernt aktiv Kommas sowohl in Daten als auch in der Formatierung von eingegebenen Daten in einem bestimmten Bereich. Sie müssen mit der rechten Maustaste auf den Blattnamen klicken und "Code anzeigen" auswählen, um das Ereignis hinzuzufügen.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NO_COMMAS_REGION As Range
    Set NO_COMMAS_REGION = Range("A:A") ' Replace this with whatever the region is where you want to prevent commas


   For Each cell In Target
        If Not (Application.Intersect(cell, NO_COMMAS_REGION) Is Nothing) Then
            If InStr(cell.Value, ",") > 0 Then
                cell.Value = Replace(cell.Value, ",", "")
            End If
            cell.NumberFormat = "0"
        End If

    Next cell
End Sub
0
Greg Viers 18 Apr. 2018 im 12:38