inputbox에서 모든 텍스트를 제거 하시겠습니까?

Question

숫자 만 남기고 입력 상자에서 모든 문자를 제거하려면 어떻게해야합니까?

공백을 제거하고 13 자리로 줄이는 매크로가 있지만 텍스트 문자를 모두 제거해야합니다.

Answer 1

나는 아직도 regexp이 갈 길이라고 생각합니다.

Function removeAlpha(strData As String) As String 

    strData = Replace(strData, " ", "") 

    With CreateObject("vbscript.regexp") 
     .Pattern = "[A-Za-z]" 
     .Global = True 
     removeAlpha = .Replace(strData, "") 
    End With 

End Function 

그리고 시험에

:이 소리

Sub TestClean() 
    Const strTest As String = "qwerty123 456 uiops" 
    MsgBox removeAlpha(strTest) 
End Sub 

Answer 2

regular expression를 사용하는 또 다른 방법은 다음과 같습니다

Public Sub removeCharacters() 

    For Each RANGE_UNASSIGNED In Worksheets(1).Range("A1:A" & Worksheets(1).Range("A1").End(xlDown).Row) 
    STRING_OUTPUT = "" 
     For INTEGER_STEP = 1 To Len(RANGE_UNASSIGNED.Value) 
      STRING_TEMPORARY = Mid(RANGE_UNASSIGNED.Value, INTEGER_STEP, 1) 
       If STRING_TEMPORARY Like "[a-z.]" Or STRING_TEMPORARY Like "[A-Z.]" Then 
        STRING_xOUTPUT = "" 
       Else 
        STRING_xOUTPUT = STRING_TEMPORARY 
       End If 
       STRING_OUTPUT = STRING_OUTPUT & STRING_xOUTPUT 
     Next INTEGER_STEP 
     RANGE_UNASSIGNED.Value = STRING_OUTPUT 
    Next RANGE_UNASSIGNED 
End Sub 

이것은 당신의 세포 (들)에서 모든 알파 문자를 제거해야합니다. 필요한 경우 추가 문자를 제거 할 수 있습니다.

Answer 3

IsNumeric에 기반한 접근 방식.

Sub Keep_If_IsNumeric() 

For j = 1 To Cells(Rows.Count, "A").End(xlUp).Row 

Set c = Cells(j, 1) 

strc = "" 

For i = 1 To Len(c.Value) 

n = Mid(c.Value, i, 1) 

If Not IsNumeric(strc & n & "0") Then 

    Else 

    strc = strc & n 

End If 

Next 
c.Offset(, 1) = strc 
c.Offset(, 2) = Val(Replace(strc, ",", ".")) 

Next 
End Sub