|
▼SS さん:
ありがとうございます
早速試してみました。
機能的には、思っていることが実現できました
ただ、文字を入力していって、10桁目を過ぎないと、
改行してくれないのでしょうか?
例えば、3桁文字を入れて、次に改行したくても、今のマクロだと
改行ができないのです
スペースを入れて、次の改行って感じになってしまうんですけど、
解決策ってありますか?
すみません・・・
ここまで、教えてもらいながら、、、ずうずうしく聞いてしまって・・・
もしよろしければ、アドバイスお願いします
>横から失礼します。
>興味があったので作ってみましたが機能的には合っていますか?
>
>Private Sub TextBox1_Change()
> Dim i As Long, j As Long
> Dim txt1 As String, txt2 As String
> Dim TAry As Variant
> Dim n As Integer
>
> 'UserForm上のEvent無効化不可対策
> If TextBox1.Tag = "False" Then Exit Sub
> '文字数設定
> n = 10
> txt1 = TextBox1.Text
> '文字列の整理"vbCrLf"の消去
> TAry = Split(txt1, vbCrLf)
> For i = 0 To UBound(TAry, 1)
> txt2 = txt2 & TAry(i)
> Next i
> '文字列の改行"vbCrLf"の追加
> For i = Len(txt2) To 1 Step -1
> If i Mod n = 0 Then
> txt2 = Left(txt2, i) & vbCrLf & Right(txt2, Len(txt2) - i)
> End If
> Next i
> 'UserForm上のEvent無効化不可対策
> Call Set_Text(txt2)
>End Sub
>
>Private Sub Set_Text(ByVal s As String)
> With TextBox1
> .Tag = "False"
> .Value = s
> .Tag = ""
> End With
>End Sub
>
>>▼Jaka さん:
>>
>>ありがとうございました
>>
>>Jakaさんに教えてもらったものを生かして、試行錯誤考えてはいるんですが、
>>どうも、うまくできないです。
>>
>>桁数の制御って、どうやったらうまくできるのでしょうか?
|
|