VB 改行コード削除

Private Sub xtxtLCNO_LostFocus()
 
        '改行コード削除
    Dim plLCNO
 
    plLCNO = xtxtLCNO.Text
    plLCNO = Replace(plLCNO, """", "")
    plLCNO = Replace(plLCNO, vbCr, "")
    plLCNO = Replace(plLCNO, vbLf, "")
    plLCNO = Replace(plLCNO, vbCrLf, "")
    xtxtLCNO.Text = plLCNO
 
End Sub

コメントを残す

メールアドレスが公開されることはありません。