VisualBasic for Applicationsの略。 マイクロソフト社製の各Office製品に附属している、それぞれのアプリケーション（Excel、Accessなど）の操作に特化したVisualBasicの亜種。
文字列の中から文字列を検索して削除する方法を解説します。目的に合わせて以下の3つを使い分けます。 Replace関数で指定文字列を""に置換する Substitute関数で指定文字列を""に置換する Instr関数で見つかった位置の前方を取る(=後方を消す) Replace関数で指定文字列を""に置換する 複数回指定文字列が登場する場合 第n文字目以降のみを削除 最初の1つだけを削除する 第n個目の文字列を削除する 見つかった文字列の前後を削除する 指定文字列より右側を削除 指定文字列より左側を削除 文字列から文字列を削除 複数のセルに一括実行する Replace関数で指定文字列を""に置換す…
シート上の図形やオブジェクトの種類を調べる、Typeプロパティを解説します。 基本構文 Typeプロパティの返り値一覧 サンプルコード(シート内のテキストボックスだけを削除) 基本構文 Dim 図形 As Shape Set 図形 = Worksheets("○○").Shapes("シェイプ名") Debug.Print 図形.Type ' 図形の種類が数値で表示されます。 Typeプロパティの返り値一覧 Shapeとして取得できる図形の種類には、 以下に示す通りグラフやフォームコントロールも含まれています。 返り値 定数名 図形の種類 -2 msoShapeTypeMixed 1 msoA…
VBAの組込関数「WeekDay関数」と、 ワークシート関数「WEEKDAY関数」の違いを解説します。 同じところ 違うところ 使い分け 同じところ どちらも日付を受け取って曜日を「数字」で返す関数です。以下のコードは同じ「3（水曜日）」を返します。 曜日No = WeekDay(#2025/4/1#) 曜日No = WorksheetFunction.WeekDay(#2025/4/1#) 曜日を日曜1～土曜7のような数値で受け取ることで、 カレンダーの作成などに使用する関数です。 違うところ 両関数とも第2引数で「何曜日を1とするか」を設定できるのですが、 この第2引数の設定値が異なります…
●VBAを楽しむ日● ●Excel● 今回もお越しいただきありがとうございます。 今回はホントに久しぶりなんですが、VBAの紹介です。 VBAが趣味といってもいいくらい好きなのですが、あまりブログでは紹介してません。 興味ない人には「？」って感じだと思います。 darucoro9216kun.hatenablog.com ●VBAでカレンダー 最終的には色を付けたりして、こんなカレンダーが作りたい時の考え方です。 表を観やすくするのは後でいろいろ調べたら出来るので、先ずはシンプルにプロシージャの記述をしてみたいと思います。 VBAはExcelがあれば誰でも出来ちゃうってのがいいですねぇ～。 ●…
日付から曜日を取得する方法を解説します。MonやTue、月・火などの曜日名が欲しい場合はFormat関数を、 曜日番号を取得したい場合はWeekDay関数を使用します。 Format関数を使用して曜日名を取得する Weekday関数を使用して曜日番号を取得する おまけ：WeekDayName関数 Format関数を使用して曜日名を取得する 日付から曜日名を取得するには、以下のコードを実行します。 Sub 日付から曜日を取得する() Dim 日付 As Date 日付 = Date Dim 曜日 As String 曜日 = Format(日付, "aaa") ' 水 曜日 = Format(日…
今日はFor Eachステートメントで遊んでみようと思います。 Forステートメントのカウンタを途中で変更する Forステートメントの終了条件を途中で変更する For Eachステートメント中のシート変数を途中で変更する For Eachステートメントの取得先シートを消してみる For Eachで回しているシートを途中で増やしてみる 今までの検証をWorkbooksで試す 今までの検証を配列(Array)で試す 今までの検証をCollectionで試す。 今までの検証をDictionaryで試す 今までの検証をShapeで試す Forステートメントのカウンタを途中で変更する 本題のFor Ea…
文字列中のひらがなをカタカナにしたり、 カタカナをひらがなに変換する方法を解説します。StrConv関数を使用し、引数にvbHiragana/vbKatakanaを渡します。 ひらがなをカタカナに変換する カタカナをひらがなに変換する 半角カナへの対応 ひらがなをカタカナに変換する ひらがなをカタカナに変換するコードがこちらです。 Dim 元文字列 As String 元文字列 = "あいう123アイウ" MsgBox StrConv(元文字列, vbKatakana) ' アイウ123アイウ このコードのようにStrConv関数の第二引数に「vbKatakana」を渡すことで、 ひらがなをカ…
2025年6月28日(土)21:00～「第3回 和風スパゲティ勉強会」を開催いたしました！ ご参加いただいた皆さまありがとうございました(´∀｀) 第3回のテーマは「こんなのあるなら先に言ってよ機能大全」ということで、 他の方法でも実装できるため知名度が低い しかし実は簡単に使えて、しかも便利！ という機能を集めて紹介しました！ 今回の勉強会はYoutubeLiveでも配信をしており、 Live配信のアーカイブを下記よりご視聴いただけます。 使用した資料一式も下記リンクよりダウンロードいただけますので、 あわせて復習にお役立てください。 和風スパゲティ勉強会#3「こんなのあるなら早くいってよ機…
文字列中の半角カナを全角カナに変換する場合は、 StrConv関数を使用し、半角を全角にする引数vbWideを指定します。しかしこのvbWideはすべての半角文字を全角文字にしてしまうため、 半角英字や半角数字まですべて全角になってしまいます。これを回避し、半角カナだけを全角カナにする方法を紹介します。 ソースコード コードの解説 ワークシートでの活用 おまけ：関数名について ソースコード 半角英数をそのままに半角カナを全角カナに変換するには、 以下のコードを実行します。 ' 半角カナ→全角カナ の変換関数 Function StrConv半角カナ→全角カナ(ByVal 元テキスト As St…
文字の種類(数字/アルファベット/カナ)を判別する方法を解説します。 主にLike演算子を利用します。 Like演算子の使い方についてはこちらの記事を参照ください。www.limecode.jp 文字が数値か判定する 文字がアルファベットか判定する 文字がひらがな/半角カナ/全角カナか判定する 文字が数値か判定する 文字が数値か判定するには、以下のいずれかのコードを実行します。 ' サンプルとしてあるセル値の1文字目を判定する Dim 判定文字 As String 判定文字 = Left(Range("A1"), 1) ' 文字通り数値か判定 If IsNumeric(判定文字) Then '…
papasensei365.com
qiita.com
b.hatena.ne.jp
earningmoney.hatenablog.com
www.excelspeedup.com
www.javadrive.jp
risa.hatenablog.com
forest.watch.impress.co.jp
atmarkit.itmedia.co.jp
