投稿日 | : 2004/07/09(Fri) 17:25 |
投稿者 | : mar |
URL | : |
タイトル | : Re^2: 文字列の分割について |
> 詳しくは、ここの 文字列処理関係 の 文字列の長さを得る を参照下さい
> それとも分割と書いてあるところを見ると 4桁目に − を入れたいと言う事
> でしょうか? それなら下記では
> Private Sub Command1_Click()
> Dim yubinno As String
> yubinno = "1234567"
> If Len(yubinno) = 7 Then
> Debug.Print Format$(yubinno, "@@@-@@@@")
> ' Debug.Print Format$(yubinno, "000-0000")
> End If
> End Sub
ありがとうございます。その通りでした。
あと7桁以外の時にそのまま表示をつければいいですよね。
els eLen(yubinno) != 7 Then
こんな感じを追加でよろしいですか?
ほんとうにありがとうございます