• ベストアンサー

vbCrLf 読み方

ryokei14の回答

  • ryokei14
  • ベストアンサー率33% (1/3)
回答No.3

ブイー・ビー・キャリッジリターン・ラインフィード　とは言わず、 ぶいびーのカイギョウと言ってますね。　私の場合は。

vgfcdx
質問者

お礼

読み方が長いですもんね。 ありがとうございます。

この回答がついた質問に戻る
回答 全件
ベストアンサー
他の回答者と同じですが、単純に「ブイビーシーアールエルエフ」と読んでい…
そんな読み方はしないと思いますよ。 単に「ぶいびー、しーあーるえるえふ…
自分は、ブイビーシーアールエルエフと読んでますね。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VBAで改行の入ったデータの正規表現について

    vbaで複数行のデータの一部を抜き出そうと思っています。 下記のようにすると、抜き出したデータの先頭に改行がついてしまいます。 何かいい方法はないでしょうか。 data = "start" & vbCrLf　 & "ABC" & vbCrLf & "DEF" & vbCrLf & "GHI" & vbCrLf & "end" Set re = New RegExp re.Pattern = "start((.|\n)*?)end" re.MultiLine = True Set mc = re.Execute(data) For i = 0 To mc.Count - 1 MsgBox m.SubMatches(0) Next i 上記を実行すると vbCrLf　 & "ABC" & vbCrLf & "DEF" & vbCrLf & "GHI" & vbCrLf となってしまいます。 ”ABC”から抜き出す場合、正規表現をどう書けばいいのでしょうか。 よろしくお願いします。

  • アクセスのマクロ　改行したい

    マクロの アクション：メッセージボックス メッセージで、 一行目 二行目 と表示させるにはどうすればいいでしょうか？ メッセージに ・一行目vbCrLf二行目 ・一行目"&vbCrLf&二行目 ・"一行目"&vbCrLf&"二行目" としても、そのままの値が表示されるだけでした。 ググったのですが、 http://support.microsoft.com/kb/281670/ja のように、ＶＢＡの改行の方法しかヒットしません。 ご回答よろしくお願いします。

  • 改行をsplitで分けたい

    改行をsplitで分けたいと思っています。 そこで、改行コードを選択するのですが・・・ vbCR ,vbLF ,vbCRLFのどれを選べばいいのでしょうか？ もちろん改行コードは環境によって違うのはわかっています。 ウィンドウズのaccessなので、vbCR ,vbCRLFとで試してみました。 すると、どちらも問題無く分けることが出来ました。 しかし、きになるので・・・ 何か、改行で分けるときの定石みたいなのがあればお願いします。

  • vbscript内にvbscriptを記述

    option explicit on error resume next dim objie, objwshell set objwshell = createobject("wscript.shell") objwshell.appactivate "microsoft internet explorer" set objie = createobject("internetexplorer.application") objie.width = 380 objie.height = 100 objie.navigate "about:blank" objie.document.write "<html><head><title>終了処理</title><script language='vbscript'>" & vbcrlf objie.document.write "option explicit" & vbcrlf objie.document.write "function osu()" & vbcrlf objie.document.write " dim aaa" & vbcrlf objie.document.write " Set aaa = CreateObject('Wscript.Shell')" & vbcrlf objie.document.write " aaa.run 'wscript ログオフ.vbs', 1, true" & vbcrlf objie.document.write " set aaa = nothing" & vbcrlf objie.document.write "end function" & vbcrlf objie.document.write "</script></head>" & vbcrlf objie.document.write "<body bgcolor='#CCCCCC' style='overflow:hidden'><form name='form1'>" & vbcrlf objie.document.write "<input type='button' name='button1' value='ログオフ' onClick='osu()'>" & vbcrlf objie.document.write "</form></body></html>" & vbcrlf objie.visible = true objie.toolbar = false objie.statusbar = false objie.resizable = false set objwshell = nothing set objie = nothing 上記のプログラムを［．ｖｂｓ］という拡張子で保存。 これは、ｖｂｓファイルをクリックするとＩＥの画面が出て、ログオフのボタンをクリックするとログオフするというものなのですが、うまくいきません。 ｖｂｓの中にまたｖｂｓを記述しているからでしょうか？

  • VBAでテキストファイルに書き出し時の改行方法

    Excel　VBAでテキストファイルに書き出しをしたいと思っています。テキスト内で改行を指定したいと思うのですが、どのようにやったらよいでしょうか？ Dim str As String str = "ABC" & vbCrLf str = str & "DEF" & vbCrLf とやってもうまくいきません。何が悪いと考えられるでしょうか？

  • ADODBを使用してAccessのテーブルを操作する

    お世話になります。さっそくですが、質問です。 VB.NET 2008において、ADODBを使用して Microsoft AccessのテーブルにデータをINSERTしたいのですが、 トランザクション開始時に以下のエラーが発生します。 ----------------------------------------------------------- COMExceptionが発生しました。 {"オブジェクトが閉じている場合は、操作は許可されません。"} ----------------------------------------------------------- トランザクション開始前後の処理を以下に記します。 ----------------------------------------------------------- Private Function fcInsert_testTable(ByVal buff() As String) As Boolean '変数宣言 Dim _Connection As New ADODB.Connection Try 'トランザクションの開始 _Connection.BeginTrans() /* ←ここでエラー */ 'SQL文の作成 sql.Length = 0 sql.Append(" INSERT INTO ○○マスタ " & vbCrLf) sql.Append(" (項目１ " & vbCrLf) sql.Append(" ,項目２ " & vbCrLf) sql.Append(" ) " & vbCrLf) sql.Append(" VALUES ( " & vbCrLf) sql.Append(" NVL('" & buff(1) & "',' ')" & vbCrLf) sql.Append(" NVL('" & buff(2) & "',' ')" & vbCrLf) 'SQL文の発行 _Connection.Excecute(sql.ToString) ----------------------------------------------------------- 本現象の原因について、どなたかご存知の方がいらっしゃいましたら、 ご教授願えますでしょうか？

  • access VBA

    組み立てたSQL文を実行し、movelastするとエラーになります。 エラー番号：3071 SQLは、対象のテーブルよりキーを指定して抽出していますが、 そのテーブルにキーが２種類以上存在するとエラーになってしまいます。 なにが原因なのでしょうか。 STR_sql = "" STR_sql = STR_sql & " SELECT Mid([CM_KEY],2,2) AS A " & vbCrLf STR_sql = STR_sql & " , Mid(StrConv([NAIYO],8),31,3) AS B " & vbCrLf STR_sql = STR_sql & " FROM C_table " & vbCrLf STR_sql = STR_sql & "WHERE (((Left([CM_KEY],1))='K') " & vbCrLf STR_sql = STR_sql & " AND ((Len(Trim([CM_KEY])))=3)) " & vbCrLf STR_sql = STR_sql & " AND ((Mid(StrConv([NAIYO],8),45,8) <= " & STR_st_ymd & ")) " & vbCrLf STR_sql = STR_sql & " AND ((Mid(StrConv([NAIYO],8),53,8) >= " & STR_ed_ymd & ")); " & vbCrLf ※テーブルのフィールドは全てテキスト型です。

  • VBA

    Excel VBAでユーザーフォームを使ったアンケート入力フォームを作成しましたが、「確定」という名称のコマンドボタンをクリック実行時に別のExcelブック内の各セルにオプションボタンのキャプション（値）とテキストボックスの内容を反映（転記）させて、上書き保存させていく記述内容についてご教示頂けませんでしょうか。 具体的には、問(1)の回答は、別ブックのセルC5に反映させ、 問(2)の回答は、D5に反映、 問(3)の回答は、E5に反映、 問(4)の回答は、F5に反映、 問(5)の回答は、G5に反映、 問(6)の回答は、H5に反映、 その他のテキストは、I5に反映させる といった動作にさせるため、下記の内容で「標準モジュール」の構文と「フォーム」の構文を記述してみたのですが、このとおりどうさせるための具体的な構文が思い当たりません。 環境はExcel 2013です。どうにもならず困っているため、どうか宜しくお願い致します。 ～標準モジュールの構文～ 'ユーザーフォームに入力された転記先Book（アンケート回答結果.xlsx）の有無を確認 '及び転記先Book（アンケート回答結果.xlsxを開く事が可能な状況かどうかの確認 Sub Confirm_posting_place( _ ByVal myInformation As String, _ ByRef PostingOK As Boolean, _ ByRef StoragePath As String, _ ByRef PostFileName As String, _ ByRef PostSheetName As String) Dim buf As Variant StoragePath = "U:\Director" '転記先Bookファイルが存在するフォルダーのパス PostFileName = "アンケート回答結果.xlsx" '転記先Bookのファイル名 PostSheetName = "Sheet1" '転記先Bookのファイル上のワークシート名 buf = "" On Error Resume Next buf = Windows(PostFileName).Caption On Error GoTo 0 If buf = PostFileName Then PostingOK = Windows(PostFileName).Parent.Path = StoragePath Else PostingOK = True End If If Dir(StoragePath, vbDirectory) = "" Then PostingOK = False MsgBox "「アンケート回答入力フォーム」の投書内容の保存先のファイルがあるフォルダーとして" _ & "設定されているフォルダが見当たらないため、" & myInformation _ & vbCrLf & vbCrLf & "「アンケート回答入力フォーム」を利用される方は、このトラブル内容を" _ & "「アンケート回答入力フォーム」の開発者へ報告して対応してもらうようにして下さい。" _ , vbExclamation, "《トラブル報告》保存先ファイル不明" ElseIf Dir(StoragePath & "\" & PostFileName) = "" Then PostingOK = False MsgBox "「アンケート回答入力フォーム」の投書内容の保存先のファイルとして設定されている" _ & vbCrLf & vbCrLf & PostFileName & vbCrLf & vbCrLf & _ "が所定のフォルダー内には見当たらないため、" & myInformation _ & vbCrLf & vbCrLf & "「アンケート回答入力フォーム」を利用される方は、このトラブル内容を" _ & "「アンケート回答入力フォーム」の開発者へ報告して対応してもらうようにして下さい。" _ , vbExclamation, "《トラブル報告》保存先フォルダー不明" Else buf = Chr(0) On Error Resume Next buf = ExecuteExcel4Macro("'" & StoragePath _ & "\[" & PostFileName & "]" & PostSheetName & "'!R65536C256") On Error GoTo 0 If buf = Chr(0) Then PostingOK = False MsgBox "「アンケート回答入力フォーム」の投書内容の保存先として設定されている" _ & vbCrLf & vbCrLf & PostFileName & vbCrLf & vbCrLf & _ "というExcelBookの中には、投書内容の転記先として設定されている" _ & vbCrLf & vbCrLf & PostSheetName & vbCrLf & vbCrLf & _ "というシート名のシートが見当たらないため、" & myInformation _ & vbCrLf & vbCrLf & "「アンケート回答入力フォーム」を利用される方は、このトラブル内容を" _ & "「アンケート回答入力フォーム」の開発者へ報告して対応してもらうようにして下さい。" _ , vbExclamation, "《トラブル報告》保存先シート不明" ElseIf Not PostingOK Then Windows(PostFileName).Activate MsgBox "「アンケート回答入力フォーム」の投書内容の保存先のExcel Bookとして設定されている" _ & vbCrLf & vbCrLf & PostFileName & vbCrLf & vbCrLf & _ "と同名の別Book(保存先フォルダが異なるBook)が開いているため、 " _ & myInformation & vbCrLf & vbCrLf _ & "「アンケート回答入力フォーム」を利用される場合には、現在開かれている" & vbCrLf & vbCrLf _ & Left(PostFileName, InStrRev(PostFileName, ".") - 1) & vbCrLf & vbCrLf & _ "というWindowのExcel Bookを閉じても問題がないか否かを確認し、" _ & "特に問題がない場合には、そのWindowのExcel Bookを閉じてから、" _ & "このフォームを開き直して下さい。" _ , vbExclamation, "保存先ファイルへのアクセス不能" End If End If End Sub ～フォームの構文～ の内容については、文字数制限で収まりきれないため、この後すぐ私のユーザー名で新規質問の方で続きを書き込みいたしますので、そちらをご覧ください。

  • VBAの構文

    Access2002を使用しています。 VBAにて、クエリの結果をメール本文に書き出したいのですが 宜しくお願いします。 【使用するクエリ】 クエリ名：果物クエリ（選択クエリ） フィールド項目：日付、注文者、発送先、電話番号、品名、数量 【現在の内容】 Private Sub コマンド1_Click() On Error GoTo Err_コマンド1_Click Dim stDocName As String Dim strsubject As String Dim strmailto As String Dim strmailto2 As String Dim strtext0 As String Dim strText1 As String Dim strText2 As String Dim strText3 As String Dim strText4 As String Dim strText5 As String Dim strtext6 As String Dim strtext7 As String Dim strtext8 As String Dim strtext9 As String strmailto = Me.電子メール_アドレス strsubject = "商品発送のお知らせ" strText1 = Me.氏名 & " 様" strText2 = "いつもお世話になります、第一青果です。" strText3 = "以下の商品を発送致しましたのでご確認下さいませ。 " strtext0 = "---------------------------------" strText4 = "何でも新鮮！" strText5 = "第一青果" strtext6 = "担当：山田　太郎" strtext7 = "mailto:info@808yaoya.net" strtext8 = "http://808yaoya.net" strtext9 =　★ここからクエリ内の「品名」と「数量」を書き出したい！★ ★以下、現在はレポートをエクセルファイルにして添付するようにしている★ stDocName = ChrW(32013) & ChrW(21697) & ChrW(12524) & ChrW(12509) & ChrW(12540) & ChrW(12488) DoCmd.SendObject acReport, stDocName, , strmailto, , , strsubject, strText1 & vbCrLf & vbCrLf & strText2 & _ vbCrLf & strText3 & vbCrLf & vbCrLf & strtext0 & vbCrLf & strText4 & vbCrLf & strText5 & vbCrLf & strtext6 & vbCrLf & _ strtext7 & vbCrLf & strtext8 & vbCrLf & strtext0　& vbCrLf & strtext9, True Exit_コマンド1_Click: Exit Sub Err_コマンド1_Click: MsgBox Err.Description Resume Exit_コマンド1_Click End Sub

  • Access 2010で実行時エラー3061

    Access 2010でDoCmd.SendObjectを使用してメールを自動生成したいのですが、実行時エラー3061でとまってしまいます。デバッグすると、Set RS = DB.OpenRecordset("30DaysQuery")でとまっています。生成するメールは1通、その本文に複数データを列記という形です。イメージとしてはこんな感じです。→<http://www.tsware.jp/tips/tips_464.htm> 大した知識もなく作っています。言葉足らず、情報足らずの点があれば、ご指摘ください。よろしくお願いします。 Private Sub EmailReminder_Click() Dim DB As Database Dim RS As Recordset Dim Subject As String Dim Body As String Subject = "Audit Corrective Actions" Body = "Good Morning Sir/Ma'am," & vbCrLf _ & "This is an auto generated email." & vbCrLf _ & "In response to a recent audit, your attention is needed for the following item(s)." & vbCrLf & vbCrLf _ & "Please advise when these actions are completed. If you have any questions please feel free to contact our office. Thank you for your help and cooperation in this matter. Have a nice day." & vbCrLf & vbCrLf _ & "Corrective Actions:" & vbCrLf _ Set DB = CurrentDb() Set RS = DB.OpenRecordset("30DaysQuery") Do Until RS.EOF Body = Body & "------------------------------------------------------" & vbCrLf _ & "[Due Date: " & RS!DueDate & "] [Agency: " & RS!Agency & "] [Report: " & RS!Report# & "]" & vbCrLf _ & "Corrective Action: " & RS!CorrectiveAction & vbCrLf _ & "Recommendation: " & RS!Recommendation & vbCrLf RS.MoveNext Loop DoCmd.SendObject , , acFormatTXT, RS!Email, "***@bbb.com", , Subject, Body, True RS.Close Resume Next End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する