ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




マクロ

【VBA】オートシェイプ上にデジタル時計を表示するマクロを作成したかったのですが…どなたか教えてくださいm(__)m

どうも、ゴリラストロングです。 今回はVBAで、オートシェイプ上にデジタル時計を表示するマクロを作成してみました。 と、言いたいところなのですが、うまく作成できませんでした。 現在時刻をオートシェイプ上に表示することはできたのですが、その時刻を…

【VBA】ガントチャートをブロック矢印で作成するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、ガントチャートをブロック矢印で作成するマクロを作成してみました。 【VBA】ガントチャートを作成するマクロ 適当なマクロブックを作成し、シート1に「入力」というシート名で上記の表を作成してください。 ま…

【VBA】特定のウェブサイト内の全てのリンクにアクセスするマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、特定のウェブサイト内の全てのリンクにアクセスするマクロを作成してみました。 <概要> 【VBA】特定のウェブサイト内の全てのリンクにアクセスするマクロ <ソースコード> Sub 特定のウェブサイト内の全ての…

【VBA】指定ブックの指定シートの指定セルを選択するマクロを作成してみました。

どうも、ゴリラストロングです。 本日は久しぶりにエクセルマクロを作ってみました。 指定ブックの指定シートの指定セルを選択するマクロです。 以下の画像のようにマクロが格納されたブックを作成しました。 【VBA】指定ブックの指定シートの指定セルを選択…

【VBA】英数字のデータを半角小文字に統一するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、英数字のデータを半角小文字に統一するマクロを作成してみました。 <元データ> <マクロ実行後> <ソースコード> Sub main() Dim ws As Object Set ws = ThisWorkbook.Worksheets(1) Dim lastrow As Long l…

【VBA】名前を姓と名に分割するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、名前を姓と名に分割するマクロを作成してみました。 <元データ> <マクロ実行後> <ソースコード> Sub main() Dim ws As Object Set ws = ThisWorkbook.Worksheets(1) Dim lastrow As Long lastrow = ws.Ce…

【VBA】生年月日から年齢を算出するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、生年月日から年齢を算出するマクロを作成してみました。 <元データ> <マクロ実行後> <ソースコード> Sub main() Dim ws As Object Set ws = ThisWorkbook.Worksheets(1) Dim lastrow As Long lastrow = w…

【VBA】月別のシートにデータを抽出するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、月別のシートにデータを抽出するマクロを作成してみました。 <元データ> こちらが転記元のデータです。 こちらが転記先です。 4~6月分のシートがあります。 動作としては、 ・入会日から月を求める。 ・求…

【VBA】別のワークシートからデータを抽出するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、別のワークシートからデータを抽出するマクロを作成してみました。 <元データ> 「検索」シートの入社年と氏名を入力すると、対象者の情報をVlookupで引っ張ってくるという動作です。 <マクロ実行後> 動作と…

【VBA】データを重複なしで無作為に抽出するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、データを重複なしで無作為に抽出するマクロを作成してみました。 <元データ> E列にRandBetween関数で無作為にNoを抽出します。 その際、重複の番号があったらエラーメッセージを出します。 エラーメッセージ…

【VBA】検索値をもとに別表を検索するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、検索値をもとに別表を検索するマクロを作成してみました。 <元データ> A3セルに社員番号を入力すると、その値をキーにしてVLOOKUP関数で各データを参照します。 なおA3セルの入力はINPUTBOXを使って入力しま…

【VBA】平日と土日に分けて集計するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、平日と土日に分けて集計するマクロを作成してみました。 <元データ> C列にWEEKDAY関数で曜日の数値を求め、それをキーにしてSUMIFで集計します。 <マクロ実行後> 動作としては以上です。 <ソースコード> …

【VBA】曜日別に集計するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、曜日別に集計するマクロを作成してみました。 <元データ> C列に曜日番号を求めます。 その番号をキーにして、F列にSUMIF関数で集計します。 <マクロ実行後> 動作としては以上です。 <ソースコード> Sub m…

【VBA】下位〇%以上を合格と判定するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、下位〇%以上を合格と判定するマクロを作成してみました。 <元データ> F列にPercentRank_Inc関数を用いて該当の数値が全体のどの位置に相当するか百分率で求めます。 求めたその数値が0.3以上なら「合格」と…

【VBA】未入力の項目があるときにメッセージを表示するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、未入力の項目があるときにメッセージを表示するマクロを作成してみました。 <元データ> B列に未入力の項目があったら、C列に「未入力です」と出力し、C1セルにその項目をまとめて出力します。 <マクロ実行…

【VBA】データに重複があるかどうか調べるマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、データに重複があるかどうか調べるマクロを作成してみました。 <元データ> データに重複があればB列に”重複”の文字を入力します。 <マクロ実行後> 動作としては以上です。 <ソースコード> Sub main() Dim…

【VBA】上位〇%に含まれるデータを検索するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、上位〇%に含まれるデータを検索するマクロを作成してみました。 <元データ> C1セルにPercentile_Inc関数で上位30%のボーダーラインを求めます。 あとはその数値より下か上かをIF文で条件分岐します。 <マ…

【VBA】偶数か奇数かで処理を分けるマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、偶数か奇数かで処理を分けるマクロを作成してみました。 <元データ> D列にIsEven関数で偶数か奇数かを判定し、その値をもとにC列にチーム名を入力します。 <マクロ実行後> 動作としては以上です。 <ソース…

【VBA】順位を指定した文字で表示するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、順位を指定した文字で表示するマクロを作成してみました。 <元データ> E列に順位を求めて、その数値をもとに「優勝」「準優勝」の文字を表示させます。 <マクロ実行後> 動作としては以上です。 <ソースコ…

【VBA】データに含まれるエラーの数を数えるマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、データに含まれるエラーの数を数えるマクロを作成してみました。 <元データ> D列にISERROR関数で、TRUEかFALSEかの判定をします。 その結果をCOUNTIF関数で計算します。 <マクロ実行後> 動作としては以上で…

【VBA】外れ値を除く平均を求めるマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、外れ値を除く平均を求めるマクロを作成してみました。 <元データ> E列に1000万円以上の金額を外れ値として除外する形で参照し、その平均を求めます。 <マクロ実行後> 1000万円以上の売上を除外した平均が求…

【VBA】指定した期間の移動平均を求めるマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、指定した期間の移動平均を求めるマクロを作成してみました。 <元データ> C1セルに任意の数値を入力します。 それでマクロを実行すると、入力した数値の期間分の移動平均が求められます。 ついでにグラフの作…

【VBA】世代別にデータを集計するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、世代別にデータを集計するマクロを作成してみました。 <元データ> D列にROUNDDOWN関数で年代を求め、その値をもとにG列にSUMIF関数で人数を計算します。 <マクロ実行後> 人数の計算が完了しています。 動作…

【VBA】指定した順位までの累計を求めるマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、指定した順位までの累計を求めるマクロを作成してみました。 <元データ> C列に順位を求めて、その値をもとに各順位までの数値を累計します。 <マクロ実行後> 動作としては以上です。 <ソースコード> Sub …

【VBA】偶数日/奇数日でデータを集計するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、偶数日/奇数日でデータを集計するマクロを作成してみました。 <元データ> C列に日付から日の部分だけを取り出し、それをD列で奇数偶数でTRUE/FALSE判定をして、SUMIF関数で人数を計算します。 <マクロ実行…

【VBA】月単位で集計するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、月単位で集計するマクロを作成してみました。 <元データ> C列に日付から月を求めて、その数値をもとにSUMIFでF列に計算結果を代入します。 <マクロ実行後> 月別に来客数を求めることができました。 動作と…

【VBA】指定した曜日のデータを集計するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、指定した曜日のデータを集計するマクロを作成してみました。 <元データ> このデータから日曜日の数値だけを合計します。 <マクロ実行後> C列に曜日の番号を求めます。 あとはこの番号をキーにしてSUMIF関数…

【VBA】VlookupとHLookup関数の使い方の例を作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、VlookupとHLookup関数の使い方の例を作成してみました。 <元データ> 動作としては、 ・商品名、単価をVlookupで引っ張ってくる。 ・数量を乱数で入力する。 ・合計をSum関数で出す。 ・売上評価をHlookup関数…

【VBA】行と列を入れ替える三つの手法を作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、行と列を入れ替える三つの手法を作成してみました。 <元データ> A3:C8のデータの行列を入れ替えます。 ①Transpose関数を用いた場合。 ②行列入れ替え(値のみ)貼り付けを用いた場合。 ③For文による二重ルー…

【VBA】Outlookの受信ボックスの中身をエクセルシートに転記するマクロを作成してみました。

どうも、ゴリラストロングです。 今回はVBAで、Outlookの受信ボックスの中身をエクセルシートに転記するマクロを作成してみました。 作成にあたっては一部こちらの書籍を参照させていただきました。 ExcelVBA逆引き大全 600の極意 Office365/2019/2016/2013/…