改行ごとの頭に空白を入れるには???
- 以前、リンクさせた文字列を任意の位置で改行させたい…として質問をしたところ、以下のようなマクロを作成してくださった方がいらっしゃいます。
- １行目のみではなくて、改行ごとに，頭に１文字空白を入れたかったのですが、どこをどのように直したら良いのか、教えてください。
- 指定文字数で折り返し。（先頭に全角空白を挿入）
- ベストアンサー
改行ごとの頭に空白を入れるには???
以前、リンクさせた文字列を任意の位置で改行させたい…として質問をしたところ、 以下のようなマクロを作成してくださった方がいらっしゃいます。 私の説明が悪かったのですが、 １行目のみではなくて、改行ごとに，頭に１文字空白を入れたかったのですが、 どこをどのように直したら良いのか、教えてください。 '指定文字数で折り返し。（先頭に全角空白を挿入） Public Function Orikaeshi(Bunsyo As String, ParamArray aryNagasa() As Variant) Dim L As Integer 'カウンタ Dim mojisuu As Integer '１行文字数 Dim wkBunsyo As String '処理用変数 Bunsyo = " " & Bunsyo For L = 0 To UBound(aryNagasa()) If L = 0 Then mojisuu = aryNagasa(L) Else mojisuu = aryNagasa(L) - aryNagasa(L - 1) End If wkBunsyo = wkBunsyo & Left(Bunsyo, mojisuu) & vbLf Bunsyo = Mid(Bunsyo, mojisuu + 1) Next wkBunsyo = wkBunsyo & Bunsyo Orikaeshi = wkBunsyo End Function
- iillyy
- お礼率67% (35/52)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
下から６行目を wkBunsyo = wkBunsyo & Left(Bunsyo, mojisuu) & vbLf & " " とすれば良いと思います。（行末に& " "を追加する） 試していないので違ってたらすみません。
関連するQ&A
- VBAにより作成した関数の返り値をセル内で改行したいのですが、どうした
VBAにより作成した関数の返り値をセル内で改行したいのですが、どうしたら良いのでしょうか？ Private Function txtdate(filepass As String) Dim fileNo As Integer Dim count As Integer Dim outline As String Dim buf fileNo = FreeFile Open filepass & ".txt" For Input As #fileNo ' Do Until EOF(fileNo) Line Input #fileNo, buf If count = 0 Then outline = outline & buf MsgBox outline Else outline = outline & vbLf & buf MsgBox outline End If count = count + 1 Loop Close #fileNo txtdate = outline End Function このような形でテキストファイルの中身を読み込んでセルに反映させるという事をおこないたいのですが、テキストの内容が2行以上の場合、帰ってくる値に改行を入れたいと思っております。 17行目にそれらしくvblfを追加したのですがセルに上手く反映されません。msgboxで確認したところmsgboxでは問題無く改行が反映されているようなのですが… エクセルセル内で「=txtdate("適当なテキストファイルのパス名")」という形で関数を呼び出しています。 どなたか対処法教えていただければ幸いです。よろしくお願い致します。
- ベストアンサー
- Visual Basic
- 空白行を削除するマクロ
空白行を削除するマクロについて質問です。 「Aが空白の場合」ではなく「A～Lセルすべてが空白の場合」に行を削除したいです。 下記のマクロでは、Aが空白の場合に行がすべて削除されてしまいます。 Aが空白でも、BやLに数字や文字があれば、その行は残るようにしたいです。 このマクロをどう変化させれば、うまく作業が実行されますか？ マクロは初心者です。よろしくお願いいたします。 ・・・・・・・・・・・・・・・・・・・・・・・・・・・・ sub macro1() dim s as long dim e as long dim r as long s = 5 e = range("A65536").end(xlup).row for r = e to s step -1 if application.trim(cells(r, "A")) = "" then cells(r, "A").entirerow.delete shift:=xlshiftup end if next r end sub
- ベストアンサー
- Excel（エクセル）
- VB 2008: Do Whie...Loop文について
Function FileGetChar(ByVal f As String, ByVal p As Integer) As String Dim i As Integer = 1 Dim j As Integer = 0 Dim l As Integer Dim n As Integer = FreeFile() Dim c As Char If File.Exists(f) Then FileOpen(n, f, OpenMode.Random, OpenAccess.Read, , 1) l = FileLen(f) Do While (i + j <= l) FileGet(n, c, i + j) j = j - (Math.Abs(Asc(c)) > 255) i = i + 1 If i > p Then Exit Do Else c = "" End If Loop FileClose(n) End If Return c End Function [イミディエイトウインドウ] ? FileGetChar("D:\Temp\Test.txt",1) "1" ? FileGetChar("D:\Temp\Test.txt",2) "2" と、一応は動作しています。 l------->ファイル長 i+j----->読み込みのカレントポジション p------->読み込み指示ポジション 今、悩んでいるのはDo...Loop文中のIf Else End If の追放。 何か妙手があれば教えて頂きたい。
- ベストアンサー
- Visual Basic
- JIS codeでの文字数・桁数制限
Access97を使用しております。 VBのカテゴリに近いと思い質問させて下さい。 ＞JIS codeでの文字数・桁数制限を行いたいのですが、 条件がきつく困ってます。 条件.（JIS）20文字で改行 MAXが25桁まで入力可能 >>一応行数は改行数を数えることで、取得できてます。 Dim i As Integer Dim strChk As String Dim intCnt As Integer '2桁取得し改行を認識させる。 For i = 1 To Len(Me.内容) - 1 strChk = Mid$(Me.内容, i, 2) If strChk = Chr(13) & Chr(10) Then intCnt = intCnt + 1 End If Next i Me.ｔｘｔGyo = intCnt + 1 Exit Sub 文字数は通常1行であれば↓のようなコードですみますが、両方って・・・・; ＞改行マーク「Chr(13)&Chr(10)」迄が1行と考えるって事なんでしょうが初 心者には難しいくご教授お願い致します。 Dim strMoji As String Dim strChck As String strMoji = Me.内容 strChck = LenB(StrConv(strMoji, vbFromUnicode)) Me.txtMsg = "" If strChck >= 33 Then Me.txtMsg = "文字数がOverしてます。" Else Exit Sub End If
- ベストアンサー
- Visual Basic
- VBA 修正箇所について
（※）の行にエラーがでているのですが、何を指摘されているのか、どう直せば良いのかが分かりません。下記の情報だけで何かわかりますか？エラー名はインデックスが有効範囲にありませんです。 '******************************************************************************* '機能名 ：指定文字を含むシートを検索し、指定文字を含んだシート名を返す '引数 ：指定文字（String型） '戻り値 ：指定文字を含んだシート名を返す（String型） '備考 ：指定文字を含んだシート名が存在しない場合は"NotFound"が返される '******************************************************************************* Public Function gFnc_strSelectSheet(ByVal strTargetSheetName As String) As String Dim i As Integer, intChkFlg As Integer Dim strResult As String intChkFlg = 0 For i = 1 To Sheets.Count （※）If InStr(Worksheets(i).Name, strTargetSheetName) > 0 Then strResult = Worksheets(i).Name intChkFlg = 1 End If Next If intChkFlg = 0 Then strResult = gcnstrNotFound gFnc_strSelectSheet = strResult End Function
- ベストアンサー
- Visual Basic
- コマンドプロンプトで実行したら・・・
Function SpaceDelete(dt As String) As String Dim tmp As String Dim Aftr As String Dim i As Integer For i = 1 To Len(dt) tmp = Mid(dt, i, 1) If tmp <> " " And tmp <> " " Then Aftr = Aftr & tmp End If Next i SpaceDelete = Aftr End Function test.vbs(1,25) Microsoft VBScript コンパイル エラー： ')'がありません。とエラーがでます。 どこが問題かわかりません。 どなたか教えて頂けないでしょうか。 宜しくお願いします。
- 締切済み
- その他（プログラミング・開発）
- VB2008 ２バイト文字の化け字は当然！ Yes or No?
Function FileGetChar(ByVal f As String, ByVal p As Integer) As String Dim n As Integer = FreeFile() Dim c As Char = “” If File.Exists(f) Then FileOpen(n, f, OpenMode.Random, OpenAccess.Read, , 1) Seek(n, p) If Not EOF(n) Then FileGet(n, c) End If FileClose(n) End If Return c End Function このようにSeek関数とFileGet関数を利用する限りでは２バイト文字の化け字は避けられない！ 一体、この私の判断は正しいのでしょうか？ VB2008 Express Edition
- 締切済み
- Visual Basic
- 【VB.Net】バイト型配列に読み込んで改行区切り
教えて下さい。 ファイルをバイト型配列に読み込んで、ある固定長に区切(改行)って出力したいです。 以下簡単にサンプルとして作っているのが以下です。 【読み込みファイル.txt】 ---------------------------------------------------------------------------------- AB ---------------------------------------------------------------------------------- このテキストファイルの内容（byte型では、"41 42"）を１バイトづつに改行で区切りたいです。 【VB.Net】 ---------------------------------------------------------------------------------- Dim BUFSIZE As Integer = 1 ' 1バイトづつ処理 Dim buf(BUFSIZE) As Byte ' 読み込み用バッファ Dim readSize As Integer ' Readメソッドで読み込んだバイト数 Dim srcName As String = "C:\Temp\読み込みファイル.txt" ' 読み込みファイル名 Dim dstName As String = "C:\Temp\書き込みファイル.txt" ' 書き込みファイル名 Using src As New FileStream(srcName, FileMode.Open, FileAccess.Read) Using dest As New FileStream(dstName, FileMode.Create, FileAccess.Write) While True ' 1バイト読み込み readSize = src.Read(buf, 0, BUFSIZE) ' 読み込むものが無ければ終了 If readSize = 0 Then Exit While ' 改行いれたい部分(動かないけど、、、) buf = (0D,0A) ' 書き込み dest.Write(buf, 0, BUFSIZE) End While End Using End Using ---------------------------------------------------------------------------------- ↓ 理想の処理後 【書き込みファイル.txt】 ---------------------------------------------------------------------------------- A B ---------------------------------------------------------------------------------- 重要なのはバイト型で処理を行いたいです。（文字列ではない） すいませんがよろしくお願いします。
- ベストアンサー
- Visual Basic
- 文字列の最後が空白なら削除する
Sub test() Dim mystr As String mystr = "abc " If Right(mystr, 1) = " " Then Debug.Print Left(mystr, Len(mystr) - 1) End If End Sub これで、最後の１文字が空白なら削除できるのですが、 "abc "のように、最後に空白が２つある場合が対応できないのですが そういう場合でも対応できるコードはありますか？
- ベストアンサー
- オフィス系ソフト
- 【Excelマクロ】もっと頭の良い書き方って無いかな？
5行空白列があったらそこで処理を終わりたいんですが、もっといい書き方はないでしょうか？ 下記が私の考えた頭の悪いやり方です。 Sub macro() Dim i As Integer For i = 1 To 1000 If Cells(i, 1) = "" Then If Cells(i + 1, 1) = "" Then If Cells(i + 2, 1) = "" Then If Cells(i + 3, 1) = "" Then If Cells(i + 4, 1) = "" Then If Cells(i + 5, 1) = "" Then MsgBox (i - 1 & "行目で終わりです") Exit For End If End If End If End If End If End If Next End Sub
- ベストアンサー
- オフィス系ソフト
お礼
助かりました。 ありがとうございました。