VBA– tag –
-
プログラムを実行したら、ユーザーフォームを消す。【VBA】
経緯 ユーザーフォームを使って、プログラムを書いてます。 プログラムが出来上がって、実行したら、ユーザーフォームがそのまま残っているのが、 気になったので、 今回は、プログラムを実行したら、ユーザーフォームが消える仕様にしました。 Unload Me... -
値をセルにランダムで入れたい【VBA】
経緯 VBAでプログラム書いていて、 値をセルにランダムで入ったら、いいなと思い、 今回作ってみました。 コード 早速、コードです。Array()に値を入れたい所のセルを書いています。"mori"という値をランダムでArrayで指定したセルに入るようにしています... -
ThisWorkbookで各sheetの操作をしたい。【VBA】
経緯 VBAでプログラム書いていて、 各sheetに同じプログラムを記入していた。 プログラムの量も多くなるし、仕様を変えるとき、Sheet全部を書き換えないといけなくなるので、めんどくさかった。 なので、今回はThisWorkbookにプログラムを書いて処理できな... -
値を入力したら、カーソルが横に動く【VBA】
経緯 列の値を入力して、Enterキーを押すと、カーソルが下に動いていた。 カーソルが横に動くと、便利なことあるので やってみました。 コード 早速、コードです。B列の入力するととなりのC列にカーソルが動く、C列の入力するとＤ列に。。。。という想定で... -
メール送信自動化(Outlook)【VBA】
経緯 申請書をExcelで作ったあと、メールを送信していた。 宛先も本文も一緒なので、いちいちメールをコピペするのがめんどくさかったので、今回メール送信を自動化してみました。 想定 Excelで申請ファイルがあります。 Sheet1に申請のテンプレが記入され... -
だれがファイルを開いているか知りたい【VBA】
経緯 共有サーバーを使っていて、 例えば、森が先にファイルを開いていて、 次に林が開いて、編集作業をすると不具合があった。 なので、今回それの解決した方法をつづります。 設定 設定は、 「森がファイルを開いてます。(見てるだけ) 次に林がファイル... -
sheetにあるグラフを全部消したい【VBA】
経緯 sheetにグラフがたくさんあるので、それをすべて消すプログラムをVBAで作ってみました。 コード。 早速、コードです。sheet名は”ダッシュボード”です。 SSub CopyGraphsToDashboard() Dim dashboardSheet As Worksheet Set dashboardSheet = ThisWork... -
ボタンを押すと、グラフが展開される【VBA】
経緯 ダッシュボードのようなものを作りたくて、ダッシュボードのsheetにボタンを押して、それを押すと、任意のsheetからグラフを取得し、ダッシュボードに展開するような仕様したくて、 今回、勉強しました。 コード ダッシュボードというsheetにボタンが... -
【パワークエリ】”F2″+”Enter”をすべてのセルに行う【VBA】
経緯 Excelのパワークエリでデータを更新した後、拾ってきたデータが意図した型になっていなくて、困っていました。 手動で”F2”+"Enter"で意図した型に変わりました。 データを更新したときに、意図した型にする方法をいろいろ調べたのですが、今の私には... -
外部のExcelファイルをバックグラウンドで開く【VBA】
経緯 Excelで外部のExcelファイルを開くプログラムを作ったのですが、画面いっぱいにExcelファイルが開いて邪魔でした。 なので、今回それを解決します。 ScreenUpdatingプロパティを"False"にする 外部のExcelファイルをバックグラウンドで開くには、Exce... -
エクセルVBAでランダムに名前を選んでセルに配置する方法【VBA】
経緯 エクセルのVBA（Visual Basic for Applications）は、データの自動処理に非常に便利なツールです。今回は、指定された名前のリストからランダムに名前を選択し、それらを特定のセルに配置する方法について解説します。この技術は、例えばランダムなグ... -
エクセルVBAで外部ファイルからデータをランダムに取得する方法【VBA】
経緯 エクセルのVBA（Visual Basic for Applications）は、日々の作業を効率化するための強力なツールです。今回は、外部のエクセルファイルからランダムにデータを取得し、現在の作業中のシートにそのデータを反映させる方法を紹介します。この技術は、大... -
指定されたセルの隣のセルにデータベースからランダムに文字を取得して埋めるマクロを作成【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のスライド上でオブジェクトのサイズを特定の値（この場合、高さ5cm、幅8cm... -
エクセルで作ったグラフをPowerPointに貼り付けよう【VBA】
経緯 エクセルでグラフを作りました。それをPowerPointに貼れたら、便利だなと思い、 今回、勉強しました。 コード まずコードです。フォルダにテンプレのPowerPointファイルがあり、それを読んで、グラフを貼り付けるといった仕様です。 Sub ExportGraphT... -
ループしよう。【VBA】
経緯 VBAで同じような処理でとても長くなったので、ループできないか考えてみました。 コード まずコードです。最終行を検出して、いろんな列の２列目にある数値を最終行までコピーしています。 Sub CopyFormulasDown() Dim ws As Worksheet Dim lastRow A... -
カウントダウンタイマーを作りたい。【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 desired... -
【VBA】プログラムを実行すると、Outlookの新規メールが開き、宛先、CC、メール文が埋まっていて、実行しているファイルが添付されて、メール送信手前まで自動化する【Word】
経緯 WindowsのWordで毎回、同じ内容、同じ宛先に送っている作業があったので、 それをVBAを使って自動化してみました。 コード 早速、コードを書きます。やってることはタイトルのままです。 Sub SendEmailWithOutlookAsDocx() Dim objOutlook As Object ... -
セーブ履歴を記録したい【VBA】
経緯 Excelファイルで記入ミスが起こり、誰が記入したのかわかりません。 なので、今回はセーブ履歴が残る方法を、 勉強しました。 'BeforeSave'インベントを使う 'BeforeSave'イベントを使うとできました。「セーブしたら、”セーブ履歴”シートにどんどん... -
フォントの色を変えたい【VBA】
経緯 Excelでフォントの色を変えたくて、 今回勉強しました。 .Font.Color = RGB()を使う .Font.Color = RGB()関数を使うとできました。 以下がコードです。 ' 指定のセルにファイル名を設定し、文字色を赤にする With Cells(1, 1) .Font.Color = RGB(255,... -
文字が含まれているかを見る【VBA】
経緯 Excelで「ある文字の羅列のなかに、指定した文字が入っているか」を確認したくて、 今回勉強しました。 InStr()関数を使う InStr()関数を使うとうまくいきました。 以下がコードです。 Dim raretsu, shitei As String raretsu = "ノルウェーの森" shi... -
音を出す。【VBA】
経緯 Excelで「メッセージだけだと、警告として弱いので、音も出せないか」と思い、 今回勉強しました。 Beep関数を使う Beep関数を使うと音だ出ます。以下がコードです。 Beep こんな感じです。 私はIf文で分岐したときに、Falseの処理の初めにBeep関数を... -
ファイルを閉じるときに、セルA1の値がセルB1に含まれているかをチェック【VBA】
経緯 Excelで「エクセルファイルを閉じた時、セルA1の中にセルB1の値が入っているか」をチェックしたくて、 今回勉強しました。 Workbook_BeforeCloseイベントを使う WOrkbook_BeforeCloseイベントを使うとExcelが閉じた時の処理ができます。 ThisWorkbook... -
セルの中が空白かどうか【VBA】
経緯 Excelで「セルの中が空白だったら、メッセージが出る」仕様にしたくて、 今回勉強しました。 If A = "" then End Ifを使う 早速、コードです。 Private Sub blank_judge() Dim a1 As String ' A1の値を取得してチェック a1 = ThisWorkbook.Worksheets...
