VBA– tag –
-
指定されたセルの隣のセルにデータベースからランダムに文字を取得して埋めるマクロを作成【VBA】
【経緯】 ExcelのVBAで指定されたセルの隣のセルにデータベースからランダムに文字を取得して埋めるマクロを作成する方法を 今回、勉強しました。 【コード】 まず、Excelのデータベースがどこにあるかを確認する必要があります。例として、A1:A100の範囲... -
PowerPointに貼り付けたエクセルのグラフを任意のところに貼る【VBA】
【経緯】 PowerPointに貼り付けたエクセルのグラフを任意の場所に貼りたいと思い、 今回、勉強しました。 【.Leftや.Topを使う。】 .Leftや.Topを使うとグラフの位置を決めれますよ。 では、コードです。 ' オブジェクトの位置を設定 myShape.Left = 100 '... -
PowerPointに貼り付けたエクセルのグラフを「図」として貼ろう【VBA】
【経緯】 PowerPointに貼り付けたエクセルのグラフを「図」として貼り付けたくて、 今回、勉強しました。 【.PasteSpecialを使う。】 PasteSpecialを使用すると、グラフをメタファイル形式(図形として)で貼り付けることができます。 では、コードです。以... -
PowerPointに貼り付けたエクセルのグラフのサイズを変えよう【VBA】
【環境】 Windowsの仕様 エディション:Windows 10 Pro バージョン:20H2 【経緯】 PowerPointに貼り付けたエクセルのグラフのサイズを変えたくて、 今回、勉強しました。 【コード】 PowerPointのスライド上でオブジェクトのサイズを特定の値(この場合、高... -
エクセルで作ったグラフをPowerPointに貼り付けよう【VBA】
【経緯】 エクセルでグラフを作りました。それをPowerPointに貼れたら、便利だなと思い、 今回、勉強しました。 【コード】 まずコードです。フォルダにテンプレのPowerPointファイルがあり、それを読んで、グラフを貼り付けるといった仕様です。 Sub Expo... -
ループしよう。【VBA】
【経緯】 VBAで同じような処理でとても長くなったので、ループできないか考えてみました。 【コード】 まずコードです。最終行を検出して、いろんな列の2列目にある数値を最終行までコピーしています。 Sub CopyFormulasDown() Dim ws As Worksheet Dim l... -
カウントダウンタイマーを作りたい。【VBA】
【経緯】 VBAでカウントダウンタイマーとやらを作ってみたくて、今回作ってみました。 【コード】 以下はコードです。以下が手順です。図形を作ってその中の数値がカウントダウンする仕様です。 Excelワークシートに図形を挿入: ワークシートに図形(例え... -
【VBA】リストにある名前をテーブルに羅列したい【Word】
【経緯】 WindowsのWordで書類を書いてました。 書類にはテーブルがあり、日付と担当者が以下のようになっています。 日付担当者11月27日森12月1日12月11日12月22日12月29日1月7日1月13日1月20日 名前のリストを作って、担当者の列に次々羅列するコードを... -
【VBA】テーブルで今日以前の列は削除する【Word】
【経緯】 WindowsのWordで書類を書いてました。 書類にはテーブルがあり、日付と担当者が以下のようになっています。 日付担当者11月27日森12月1日小森12月11日中森 11月27日はもう過ぎていらないので、これを消すコードを勉強してました。 【コード】 以... -
【VBA】今日の日付を取得して、行に記入する【Word】
【経緯】 WindowsのWordで書類を書いてました。書類にはファイルを更新した日を記入しなければならなくて、 毎回、記入していて面倒な作業でした。 なので、今回、自動化してみました。 【Format(Date, "yyyy年m月d日")を使う】 Format(Date, "yyyy年m月d... -
文字列の”_”で分けて、その値を取得したい【VBA】
【経緯】 文字列の値を取得したくて、今回、 勉強しました。 【Split()を使う】 Split()を使うとうまくいきました。 以下はコードです。fileNameという変数があり、”_”で分割して、値を取得しています。 Dim fileName As String Dim parts() As String Dim... -
【VBA】プログラムを実行すると、Outlookの新規メールが開き、宛先、CC、メール文が埋まっていて、実行しているファイルが添付されて、メール送信手前まで自動化する【Word】
【経緯】 WindowsのWordで毎回、同じ内容、同じ宛先に送っている作業があったので、 それをVBAを使って自動化してみました。 【コード】 早速、コードを書きます。やってることはタイトルのままです。 Sub SendEmailWithOutlookAsDocx() Dim objOutlook As... -
セーブ履歴を記録したい【VBA】
【経緯】 Excelファイルで記入ミスが起こり、誰が記入したのかわかりません。 なので、今回はセーブ履歴が残る方法を、 勉強しました。 【'BeforeSave'インベントを使う】 'BeforeSave'イベントを使うとできました。「セーブしたら、”セーブ履歴”シートに... -
フォントの色を変えたい【VBA】
【経緯】 Excelでフォントの色を変えたくて、 今回勉強しました。 【.Font.Color = RGB()を使う】 .Font.Color = RGB()関数を使うとできました。 以下がコードです。 ' 指定のセルにファイル名を設定し、文字色を赤にする With Cells(1, 1) .Font.Color = ... -
文字が含まれているかを見る【VBA】
【経緯】 Excelで「ある文字の羅列のなかに、指定した文字が入っているか」を確認したくて、 今回勉強しました。 【InStr()関数を使う】 InStr()関数を使うとうまくいきました。 以下がコードです。 Dim raretsu, shitei As String raretsu = "ノルウェー... -
音を出す。【VBA】
【経緯】 Excelで「メッセージだけだと、警告として弱いので、音も出せないか」と思い、 今回勉強しました。 【Beep関数を使う】 Beep関数を使うと音だ出ます。以下がコードです。 Beep こんな感じです。 私はIf文で分岐したときに、Falseの処理の初めにBe... -
ファイルを閉じるときに、セルA1の値がセルB1に含まれているかをチェック【VBA】
【経緯】 Excelで「エクセルファイルを閉じた時、セルA1の中にセルB1の値が入っているか」をチェックしたくて、 今回勉強しました。 【Workbook_BeforeCloseイベントを使う】 WOrkbook_BeforeCloseイベントを使うとExcelが閉じた時の処理ができます。 This... -
セルの中が空白かどうか【VBA】
【経緯】 Excelで「セルの中が空白だったら、メッセージが出る」仕様にしたくて、 今回勉強しました。 【If A = "" then End Ifを使う】 早速、コードです。 Private Sub blank_judge() Dim a1 As String ' A1の値を取得してチェック a1 = ThisWorkbook.Wo... -
選択されている行に色をつける【VBA】
【経緯】 Excelのデータの列が多すぎて、どの行を見ていたのか見失うことがあったので、 行に色付けたいと思い、 今回勉強しました。 【ワークシートのイベントを使う】 まず、コードです。そのままコピペして使えると思います。 Private PreviousRow As R... -
Wordのテーブルの(2,2)の値を読んで、その値を指定したExcelの中にあるか検索する方法。【VBA】
【経緯】 WordにはExcelみたいに”A1”とか”F6”とかなくて、どうやったら、狙った位置に文字や数字が入力できるのか、 今回勉強しました。 【InStr()関数を使う】 Instr()関数を使うとうまくいきました。 InStr()関数はExcelでいうFind()関数です。 以下がコ... -
Wordのテーブルの座標に文字を入力したい。【VBA】
【経緯】 WordにはExcelみたいに”A1”とか”F6”とかなくて、どうやったら、狙った位置に文字や数字が入力できるのか、 今回勉強しました。 【テーブル1を読んで、そのテーブルの座標をとる】 私が操作したいWordファイルではテーブルを使っていたので、まず... -
Wordでもマクロ(VBA)が使いたい。【VBA】
【経緯】 Wordにも開発タグがあることを知り、Wordでもマクロ(VBA)を使う方法を、 今回勉強しました。 【基本、Excelと一緒】 基本的にExcelと一緒でリボンで開発タグを追加して、マクロを登録する感じです。 手順を書きます。 マクロを記録する 1.1. 「ビ... -
Split関数を使って、文字列を分割して、文字を取得したい。【VBA】
【経緯】 A1の文字をVBAのコード分割できないか、 今回勉強しました。 【「Split()」を使う】 まず、コードを書きます。A1の文字は「サッカー、8月1日、8時から、学校グラウンド」とします。 ' セルの内容をコンマで分割 splitValues = Split("A1", "、") ... -
フォルダの中のExcelファイルを取得して、そのファイルのD行をリストにしたい。【VBA】
【経緯】 タイトルのままですが、VBAでフォルダの中のExcelファイルを取得して、そのファイルのD行をリストにしたくて、 今回勉強しました。 【Do while Loopを使う】 まず、コードを書きます。 Sub GetExcelFiles() Dim FolderPath As String Dim FileNam... -
パソリPC-S300で読み取ったデータをExcelに出力したい【VBA】
【経緯】 非接触ICカードリーダーを使って、そのカードの中の数値でいろいろできないか試したくて、 今回勉強しました。 【ドライバーをインストール】 はじめに以下のドライバーをダウンロードして、https://www.sony.co.jp/Products/felica/consumer/sup... -
B列になにか記入したら、A列に今日の日付が入る【VBA】
【経緯】 タイトルのままですが、B列になにか記入したら、A列に今日の日付が入るようにしたくて、 今回勉強しました。 【「Worksheet_Change」イベントを使う】 まず、コードを書きます。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As... -
セルを編集不可にする方法【VBA】
【経緯】 Excelで特定のセルに入力できないようにしようとしました。「セルをロックして、シードの保護で…」ってやるのは時間がかかるので、同じようなことがVBAでできないか、 今回勉強しました。 【「Worksheet_Change」イベントを使う】 まず、コードを... -
「未知の実行時エラーです。」VBSScript Scriptファイル実行できない【VBA】
【経緯】 VBSScript Scroptファイルを作成して、実行しようとしていましたが、「未知の実行エラーです。」と出たので、 今回勉強しました。 【「VBAプロジェクトオブジェクトモデルへのアクセスを信頼する」にチェック】 Excelのセキュリティ設定がマクロ... -
マクロにしたファイルを開くとき、毎回、マクロを有効にするか聞かれるのがうざい。【VBA】
【経緯】 マクロを作ってできた.xlsmファイルを開くとき、毎回、「マクロを有効にする」か聞かれるのがめんどくさいので、 今回勉強しました。 【自動的に有効にすることはできるがしない方がいい。】 Excelがマクロを自動的に実行するかどうかを制御する... -
セルに値を入力したら、列を一つセルを飛ばしたところを選択したい。【VBA】
【経緯】 VBAで「値を入力して、ひとつセルを飛ばしたところにまた値を入植したい」との要望を受けて、 今回勉強しました。 【Tartgetを使う】 まず、プログラムを書きます。これはA1セルに値を入力するとC1にセルがセレクトされるというコードです。 Priv...