| |
▼かな さん：
横から失礼します。
興味があったので作ってみましたが機能的には合っていますか？
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さんに教えてもらったものを生かして、試行錯誤考えてはいるんですが、
>どうも、うまくできないです。
>
>桁数の制御って、どうやったらうまくできるのでしょうか？
|
|
SS
- 10/8/6(金) 16:44 -
