すべての Microsoft 製品 Global Microsoft 365 Teams Windows Surface Xbox セール 法人向け サポート ソフトウェア Windows アプリ AI OneDrive Outlook Skype OneNote Microsoft Teams PC とデバイス Xbox を購入する アクセサリ VR & 複合現実 エンタメ Xbox Game Pass Ultimate Xbox Live Gold Xbox とゲーム PC ゲーム Windows ゲーム 映画とテレビ番組 法人向け Microsoft Cloud Microsoft Security Azure Dynamics 365 一般法人向け Microsoft 365 Microsoft Industry Microsoft Power Platform Windows 3
EOFとは、最終レコードよりも後ろに移動しようとするとTRUEになるプロパティです。全レコードを参照するには、Do~LoopでEOFがTRUEになるまで、レコードを前に移動します。 レコードの移動方法は「Recordsetでレコード移動させる 」のページを参照してください。 RecordsetとEOFで全レコードを参照するVBA 下のMyEofプロシージャを作成しました。 実行すると、顧客マスターテーブルをRecordsetで開き、全レコードの会社名とTELをイミディエイトウィンドウに表示します。 ・ Do Until rs.EOF でレコードの最後までループします。 ・ rs.MoveNext で次のレコードに移動します。 Sub MyEof() Dim db As Database Dim rs As Recordset Dim i As Long Set db = CurrentDb
追加クエリ・更新クエリ・削除クエリといったアクションクエリをVBAから実行するには、主に次のようなケースによって処理方法を使い分けます。 アクションクエリが”クエリ”としてデータベースに保存されている場合 SQL文をVBAで動的に組み立てて処理する場合 ■DoCmdオブジェクトのOpenQueryメソッドを使った方法 ※この方法は、アクションクエリが”クエリ”としてデータベースに保存されている場合に使います。 ※SetWarningsをFalseとすることで、アクションクエリ実行前の確認メッセージを表示させずに、そのまま即実行させることができます。 ■SQL文で指定する場合(Databaseオブジェクトの「Execute」メソッドを使用) Dim dbs As Database Dim strRate As String Dim strSQL As String Beep strRate
Option Compare ステートメントでは、モジュール内で文字列を比較する方法を決定します。Option Compare には次の 3 種類の設定があります。 Option Compare Binary 文字列比較は大文字と小文字を区別して行われます。Microsoft Access 以外の Microsoft Office アプリケーションにおける既定の設定です。Access における既定の設定は Option Compare Database です。 Option Compare Text 文字列比較に大文字と小文字の区別はありません。この設定をモジュールの既定にするには、このステートメントをモジュールの宣言セクションに追加します。 Option Compare Database 文字列比較は、指定されたロケールの並び順序によって実行されます。既定では大文字と小文字を区別しません
列を挿入する 複数列を挿入する 別シートの列に挿入する 列を挿入する Columns の引数に列番号または列名を指定すると、その列に挿入できます。 列「A」に挿入するには Columns(1).Insert または Columns("A").Insert を入力します。 Columns(1).Insert ' A 列に挿入 Columns("A").Insert ' A 列に挿入 ' Columns(3).Insert ' C 列に挿入 Range の引数にセル名を指定すると、そのセルを取得できます。EntireColumn からその列を取得できます。 セル「B2」の列に挿入するには Range("B2").EntireColumn.Insert を入力します。
Copy メソッドではコピーしたシートを指定したシートの前、あるいは後ろに挿入するかを引数で指定します。 引数のシートを指定するときは Before や After の後にコロンとイコール := をつけて指定します。この := は、引数の順序に関係なく、特定の引数へ値を設定するときに用います。また、Before と After を同時に使用することはできません。 もし引数に何も指定しなかった場合は、新規のブックにコピーされます。 以下は、Sheet1 を Sheet2 の後の位置にコピーする例です。
ファイルをコピーする(FileCopyステートメント) (Excel 97/2000/2002/2003/2007/2010/2013/2016) ツイート ファイルをコピーするには、FileCopyステートメントを使います。 ▼FileCopyステートメントの構文 FileCopy コピー元, コピー先 次のコードは「C:\Tmp\Test.txt」を「C:\Work」フォルダにコピーします。 Sub Sample1() FileCopy "C:\Tmp\Test.txt", "C:\Work\Test.txt" End Sub 「コピー先」にはフォルダ名ではなく、ファイル名を指定する点に留意してください。 次のようにするとエラーになります。 FileCopy "C:\Tmp\Test.txt", "C:\Work\" ■テンプレートをもとにファイルを複製する「コピー先」にはファイル名を
「ァィゥェォャュョ」などの拗促音を通常の文字「アイウエオヤユヨ」に変換する例です。 次のサンプルFunctionプロシージャを使うと、引数strKanaの文字列内に含まれる拗促音が変換されて返されます。 ここでは、いったん引数を半角カナに変換して、1文字1バイトの状態にします。そして、それぞれの文字のASCIIコードをAsc関数で順番に調べ、拗促音の範囲の値であれば対応する文字へとChr関数で変換しています。 Function ConvStrTest(strKana As String) As String Dim intAscCode As Integer Dim iintLoop As Integer '全角カナを半角カナに変換 strKana = StrConv(strKana, vbNarrow) '拗促音を変換 For iintLoop = 1 To Len(strKana) i
アメリカ生まれのExcelにはこういったワークシート関数は用意されていないようなので、VBA(Visual Basic for Applications)でユーザー定義関数を作ってみてはいかがでしょう。 ▼拗音・促音を大きなかな文字にするユーザー定義関数 Function UpperSutegana(strOrg As String) As String Const cstLower = "ぁぃぅぇぉっゃゅょゎァィゥェォッャュョヮ" Const cstUpper = "あいうえおつやゆよわアイウエオツヤユヨワ" Dim strRet As String Dim intLoop As Integer Dim strChar As String Dim intChar As Integer strRet = "" For intLoop = 1 To Len(strOrg) strChar =
文字列の連結、分割、抽出など、文字列操作って使うことがよくありますよね? VBAでも様々な関数が用意されています。 この記事では、文字列の操作に関して
定数vbWideと定数vbNarrowは、国別情報が中国、韓国、日本の場合に適用されます。引数vbKatakanaと引数vbHiraganaは、国別情報が日本の場合に適用されます。 引数 string を指定したあとで、カンマ(,)を入力すると、次の引数 conversion で指定できる定数がリストに表示されます。 サンプル 次の例は、文字列を変換した結果を表示します。 Sub Sample() Dim str As String str = "abcDEFGHI" MsgBox StrConv(str, vbUpperCase) 'ABCDEFGHIを表示します MsgBox StrConv(str, vbLowerCase) 'abcdefghiを表示します MsgBox StrConv(str, vbProperCase) 'Abcdefghiを表示します MsgBox StrCo
戻り値は Shift_JIS の文字コードです。 引数「文字列」の 1 文字目の文字コードを返します。 引数「文字列」が半角のときは 0 ~ 255 の範囲を返します。ASCII コードと同じ値です。全角のときは -32768 ~ 32767 の範囲を返します。 Shift_JIS に存在しない文字の文字コードは ? の 63 を返します。これを利用して、その文字が Shift_JIS の文字か Unicode 文字かを判定できます。 引数「文字列」が空文字の時は「エラー 5 プロシージャの呼び出し、または引数が不正です。」が発生します。 取得した文字コードを文字に変換するには「Chr 関数」を使用します。 AscW 関数 戻り値は Unicode (UTF-16) の文字コードです。Long 型で取得するには CUInt 関数を作成します。 引数「文字列」の 1 文字目の文字コードを返し
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く