|
POP さん、こんばんわ。
>現在は改行と1行の文字数をもとに文字列を分割してセルに設定しているのですが
>もっとかんたんに例えばテキストボックスの2行目だけをセルに貼り付けることなどできるんでしょうか?
ボタンをクリックするとアクティブセルに2行目の文字列が入ります。
フォームにテキストボックスとコマンドボタンを配置して、以下のコードを記述します。
Private Sub CommandButton1_Click()
'
With TextBox1
.SetFocus
If .LineCount > 1 Then '複数行の時のみ
.CurLine = 1 '2行目
p1 = .SelStart
'改行コードで折り返している場合に対応
If Asc(Mid(.Value, p1 + 1, 1)) = 10 Then NN = 2 Else NN = 1
'
If .LineCount > 2 Then
.CurLine = 2 '3行目
p2 = .SelStart
Else
p2 = Len(.Value)
End If
Application.ActiveCell.Value = _
Application.WorksheetFunction.Clean(Mid(.Value, p1 + NN, p2 - p1))
End If
End With
End Sub
こんな感じです。
※試してみたら総当りする必要がなかったので方法を変えました。
|
|