Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44285 / 76732

←次へ　｜　前へ→


	【37468】Re:文字列指定について

Kein - 06/5/8(月) 20:48 -


	引用なし

	パスワード

ワークシート上の１列分のセルの文字列を、いくつか横に繋げてテキストファイルに
出力することを想定しているのでしょーか ?
ならば仮に A1 以下A列の最終入力行までの値を、１行に３つ並べるとして

Sub Mk_MyText()
　 Dim Mx As Long
　 Dim Buf As String, MySt As String
　 Dim MyR As Range, C As Range
　 Const MyF As String = "C:\temp\Test.txt"
　
　 If Dir(MyF) <> "" Then Kill MyF
　 Set MyR = Range("A1", Range("A65536").End(xlUp))
　 With MyR.Offset(, 255)
　　　.Formula = "=LEN($A1)"
　　　Mx = WorksheetFunction.Max(.Cells) + 1
　　　.ClearContents
　 End With
　 Buf = String(Mx, "A")
　 Open MyF For Output Access Write As #1
　 For Each C In MyR
　　　LSet Buf = C.Value
　　　MySt = Buf & Buf & Buf
　　　Print #1, MySt
　 Next
　 Close #1: Set MyR = Nothing
　 Shell "Notepad.exe " & MyF, vbMaximizedFocus
End Sub

ただし、LSetステートメントを使っているので、
空白を埋める文字はスペースになります。

0 hits

▼

【37455】文字列指定について ヒロ 06/5/8(月) 15:19