VBA樹林– category –

経緯 VBAでプログラムを書いています。 「G2からG100のセルにカーソルを合わせたら、プログラムが走る」 という仕様にしたくて、今回やってみました。 コード 早速コードです。VBAエディタを開いてください。 左側にあるプロパティエクスプローラーで、コ...

経緯 VBAでプログラムを書いています。 ExcelでSheetを複製して、使い回していました。 マウスを使うと、工程が多いので、ボタンを作って、簡潔にできないか、 今回、勉強しました。 コード ExcelのSheetに図形で「複製」とボタンを作ります。マクロを登録...

経緯 VBAでプログラムを書いています。 Excelsheetに値を記入するところが、セルA1、セルC4、セルＦ３とあり、 いちいちマウスや矢印キーで移動するのがめんどうくさいので、 入力(Enter)を押したら、カーソルが飛ぶ仕様を 今回、勉強しました。 コード A1...

経緯 VBAでプログラムを書いています。 初期化というか、ボタンを押したら、指定したセルの値を削除したくて、 今回、勉強しました。 コード A1セルとB1から10行目とC列全部の文字を消すという想定です。 以下がコードです。 Private Sub CommandButton_De...

経緯 ユーザーフォームを使って、プログラムを書いてます。 出来上がったユーザーフォームをExcelsheetから呼びだしくて、 今回、勉強しました。 コード まず、Sheetに図形でボタンを作ります。 VBAエディタ内の標準モジュールに以下のように記述します。...

経緯 ユーザーフォームを使って、プログラムを書いてます。 いつ、ユーザーフォームを入力したのか、値は何だったのか、記録を残したくて、 今回、勉強しました。 コード 以下がコードです。ユーザーフォームがあり、そこにテキストボックスが２つあります...

経緯 ユーザーフォームを使って、プログラムを書いてます。 プログラムが出来上がって、実行したら、ユーザーフォームがそのまま残っているのが、 気になったので、 今回は、プログラムを実行したら、ユーザーフォームが消える仕様にしました。 Unload Me...

経緯 VBAでプログラム書いていて、 値をセルにランダムで入ったら、いいなと思い、 今回作ってみました。 コード 早速、コードです。Array()に値を入れたい所のセルを書いています。"mori"という値をランダムでArrayで指定したセルに入るようにしています...

経緯 VBAでプログラム書いていて、 各sheetに同じプログラムを記入していた。 プログラムの量も多くなるし、仕様を変えるとき、Sheet全部を書き換えないといけなくなるので、めんどくさかった。 なので、今回はThisWorkbookにプログラムを書いて処理できな...

経緯 列の値を入力して、Enterキーを押すと、カーソルが下に動いていた。 カーソルが横に動くと、便利なことあるので やってみました。 コード 早速、コードです。B列の入力するととなりのC列にカーソルが動く、C列の入力するとＤ列に。。。。という想定で...

経緯 申請書をExcelで作ったあと、メールを送信していた。 宛先も本文も一緒なので、いちいちメールをコピペするのがめんどくさかったので、今回メール送信を自動化してみました。 想定 Excelで申請ファイルがあります。 Sheet1に申請のテンプレが記入され...

経緯 共有サーバーを使っていて、 例えば、森が先にファイルを開いていて、 次に林が開いて、編集作業をすると不具合があった。 なので、今回それの解決した方法をつづります。 設定 設定は、 「森がファイルを開いてます。(見てるだけ) 次に林がファイル...

経緯 sheetにグラフがたくさんあるので、それをすべて消すプログラムをVBAで作ってみました。 コード。 早速、コードです。sheet名は”ダッシュボード”です。 SSub CopyGraphsToDashboard() Dim dashboardSheet As Worksheet Set dashboardSheet = ThisWork...

経緯 ダッシュボードのようなものを作りたくて、ダッシュボードのsheetにボタンを押して、それを押すと、任意のsheetからグラフを取得し、ダッシュボードに展開するような仕様したくて、 今回、勉強しました。 コード ダッシュボードというsheetにボタンが...

経緯 Excelのパワークエリでデータを更新した後、拾ってきたデータが意図した型になっていなくて、困っていました。 手動で”F2”+"Enter"で意図した型に変わりました。 データを更新したときに、意図した型にする方法をいろいろ調べたのですが、今の私には...

経緯 Excelのパワークエリでデータを更新する時に"データタグ"で”すべての更新”をクリックするのが、めんどくさいので、 VBAを使って、ボタンで押せるようにしました。 コード 早速、コードを書きます。 Sub RefreshAllConnections() ' すべての接続を更新...

経緯 Excelで外部のExcelファイルを開くプログラムを作ったのですが、画面いっぱいにExcelファイルが開いて邪魔でした。 なので、今回それを解決します。 ScreenUpdatingプロパティを"False"にする 外部のExcelファイルをバックグラウンドで開くには、Exce...

経緯 エクセルのVBA（Visual Basic for Applications）は、データの自動処理に非常に便利なツールです。今回は、指定された名前のリストからランダムに名前を選択し、それらを特定のセルに配置する方法について解説します。この技術は、例えばランダムなグ...

経緯 エクセルのVBA（Visual Basic for Applications）は、日々の作業を効率化するための強力なツールです。今回は、外部のエクセルファイルからランダムにデータを取得し、現在の作業中のシートにそのデータを反映させる方法を紹介します。この技術は、大...

経緯 ExcelのVBAで指定されたセルの隣のセルにデータベースからランダムに文字を取得して埋めるマクロを作成する方法を 今回、勉強しました。 コード まず、Excelのデータベースがどこにあるかを確認する必要があります。例として、A1:A100の範囲にデータ...

経緯 PowerPointに貼り付けたエクセルのグラフを任意の場所に貼りたいと思い、 今回、勉強しました。 .Leftや.Topを使う。 .Leftや.Topを使うとグラフの位置を決めれますよ。 では、コードです。 ' オブジェクトの位置を設定 myShape.Left = 100 ' スライ...

経緯 PowerPointに貼り付けたエクセルのグラフを「図」として貼り付けたくて、 今回、勉強しました。 .PasteSpecialを使う。 PasteSpecialを使用すると、グラフをメタファイル形式(図形として)で貼り付けることができます。 では、コードです。以下のコー...

環境 Windowsの仕様 エディション:Windows 10 Pro バージョン:20H2 経緯 PowerPointに貼り付けたエクセルのグラフのサイズを変えたくて、 今回、勉強しました。 コード PowerPointのスライド上でオブジェクトのサイズを特定の値（この場合、高さ5cm、幅8cm...

経緯 エクセルでグラフを作りました。それをPowerPointに貼れたら、便利だなと思い、 今回、勉強しました。 コード まずコードです。フォルダにテンプレのPowerPointファイルがあり、それを読んで、グラフを貼り付けるといった仕様です。 Sub ExportGraphT...

経緯 VBAで同じような処理でとても長くなったので、ループできないか考えてみました。 コード まずコードです。最終行を検出して、いろんな列の２列目にある数値を最終行までコピーしています。 Sub CopyFormulasDown() Dim ws As Worksheet Dim lastRow A...

経緯 VBAでカウントダウンタイマーとやらを作ってみたくて、今回作ってみました。 コード 以下はコードです。以下が手順です。図形を作ってその中の数値がカウントダウンする仕様です。 Excelワークシートに図形を挿入: ワークシートに図形（例えば長方形...

経緯 WindowsのWordで書類を書いてました。 書類にはテーブルがあり、日付と担当者が以下のようになっています。 日付担当者11月27日森12月1日12月11日12月22日12月29日1月7日1月13日1月20日 名前のリストを作って、担当者の列に次々羅列するコードを勉強...

経緯 WindowsのWordで書類を書いてました。 書類にはテーブルがあり、日付と担当者が以下のようになっています。 日付担当者11月27日森12月1日小森12月11日中森 11月27日はもう過ぎていらないので、これを消すコードを勉強してました。 コード 以下はコー...

経緯 WindowsのWordで書類を書いてました。書類にはファイルを更新した日を記入しなければならなくて、 毎回、記入していて面倒な作業でした。 なので、今回、自動化してみました。 Format(Date, "yyyy年m月d日")を使う Format(Date, "yyyy年m月d日")を使...

経緯 文字列の値を取得したくて、今回、 勉強しました。 Split()を使う Split()を使うとうまくいきました。 以下はコードです。fileNameという変数があり、”_”で分割して、値を取得しています。 Dim fileName As String Dim parts() As String Dim desired...