VBATips

改行コードを続けて2回入力したいなど、複数回入力したい場合があります。 もちろん vbCrLFなどの改行コードを入力すれば済むのですが、 定数をうまく使用することで、コードの書く時間を短縮。可読性で工...

文字列内にダブルクォーテーションを入れたい場合があります。 Chr(34)で処理をしてもよいのですが、よく使うのであれば、 ショートカット（パーツ化）として、使用できるようにしています。 文字列をダブ...

セル結合の結合範囲(行/列)を調べたい MergeAreaプロパティでセルが結合しているかどうか判断ができます。 セルが結合された行数や列数の判断はItemプロパティを上手く利用します。 セル結合の結...

全角のダブルクォーテーションを簡単に入力したい VBAコード上で全角のダブルクォーテーションを入力しようとすると面倒です。 面倒な理由は以下。 全角ダブルクオーテーションをキーボードで入力すると、以下...

文字列が「半角/全角」「大文字/小文字」を区別しない 文字列が半角なのか、全角なのか、半角全角混在なのか判別したいケースがあります。 関数によっては全角含まれていてもOKだったり、NGだったりする為、...

文字列が「半角」「全角」「混在」か判断したい 文字列が半角なのか、全角なのか、半角全角混在なのか判別したいケースがあります。 関数によっては全角含まれていてもOKだったり、NGだったりする為、 自身で...

文字列が「半角」か「全角」か判断したい 文字列が数値かどうか判断するisNumeric関数では、 全角文字もTrueとなるため、半角かどうか判断したい場合があります。 文字列が「半角」か「全角」か判断...

数値が0の行の行削除を行いたい 売上集計や在庫集計などで0の行を削除したい場合があります。 ExcelVBAで処理させ、業務効率化を図りましょう。 数値が0の行の行削除を行うコードサンプル A列が空白...

実行時エラー11「0 で除算しました」が表示される ExcelVBAで以下エラーが発生する場合があります。 実行時エラー '11': 0 で除算しました。 単純に0で除算(割り算)した為、エラーが表示...

セル文字が「空白」or「0の値」or「数式の0」か判別したい VBA請負開発中に少しはまった部分です。 0と空白セルによって処理を分けたいのですが、単純に比較ができませんでした。備忘録として残します。...

使い方 Ctrl + Shift + Qで「文字を残してセル結合」させます。 エクセルのどの画面でも、キーボードショートカットで「文字を残してセル結合」が出来ます。 エクセルでセル結合や解除する場合、...

yyyy.mm.dd形式、yyyy/mm/dd形式に相互変換したい エクセルで移行用のデータをもらった時、必要な書式になっていない場合があります。 特にyyyy.mm.dd形式だと日付とは認識されず、...

yyyymmdd形式、yyyy/m/d形式に相互変換したい エクセルで移行用のデータをもらった時、必要な書式になっていない場合があります。 特にyyyymmdd形式だと日付とは認識されず、isDate...

「数字」を「漢数字」に変換したい 数値データを漢数字に変更するには、RangeオブジェクトのNumberFormatLocalプロパティを使用します。 変換する種類は以下があります。 書式 変換前 変...

フォルダ内のファイルを全て削除する マクロでファイルを作成したのち、削除したい場合があります。 削除する面倒な処理を一括処理、ヒューマンエラーを起こさない為にも、マクロ化します。 フォルダ内のファイル...

使い方 上記をお好きなモジュール内にコピペしてください。 実際に使用する時は以下のような形で使用してください。 注意点 閏年の概念も処理対象とする為、「月」と「日」を引数として渡します。 関連記事 年...

使い方 上記をお好きなモジュール内にコピペしてください。 実際に使用する時は以下のような形で使用してください。 注意点 フルパスで指定しなかった場合はカレントフォルダ内を探索します。 サブフォルダを含...

使い方 上記をお好きなモジュール内にコピペしてください。 実際に使用する時は以下のような形で使用してください。 結果イメージ 指定ブックに「指定した名称のシート」が存在していればTrue 指定ブックに...

別ブックや別シートのセルを選択したい VBAで別ブックや別シートのセルを選択したい場合があります。 正しく処理しないと実行時エラー '1004': Range クラスの Select メソッドが失敗し...