[vba] タグが付いた質問
VBA(Visual Basic for Applications)は、Microsoft Officeに搭載されたプログラミング言語です。インタプリタ型言語であり、コンパイルは不要です。Micorosoft OfficeのマクロはVBAで記述されます。
195
件の質問
0
票
1
回答
2万
閲覧数
ODBCでオラクルサーバーへ接続する際にエラーが出てしまいます。
初めての質問です。
EXCELVBAを使用し、オラクルサーバに接続する際にエラーコード3076「アプリケーション定義またはオブジェクトの定義エラー」が出てしまいます。
エラーを解消する方法をいくつか試してみたのですが上手くいきませんでした。
お仕事の関係で最近EXCELVBAを勉強し始めたのですが、私の周りに詳しい方がおりませんでしたので質問させていただきました。
データベース:...
0
票
3
回答
159
閲覧数
VBAの分岐処理について
VBAの関数すべてに分岐処理を入れてしまったのですが、これをすっきりさせる方法はないでしょうか?
ファイルAの処理 ファイルBの処理
Function ブックを開く(ファイル*)
select case ファイルA
//ファイルAの時のみの処理
case ファイルB
//ファイルAの時のみの処理
end select
//ブックを開く処理
...
0
票
0
回答
220
閲覧数
outlookのVBA でマクロを作成しましたが、仕分け設定の「スクリプトを実行する」に作成したマクロが出てきません。
"実行例1" のようにマクロを作成しましたが、電子メールの仕分け設定(処理選択画面)で「スクリプトを実行する」を選択したところ、作成したマクロが出てこない状況です。
また、コードを書き加えたところ作成したマクロが「スクリプトを実行する」に出てきますが、
マクロの実行ができません("実行例2" を参照)。
すでに試したことは3つです。
...
0
票
0
回答
251
閲覧数
EXCEL VBAでMicrosoft Word XX.X OBject Libraryが参照できない
EXCEL VBAでMicrosoft Word XX.X OBject Libraryを呼び出して、Wordで文書を作成するマクロを作成しました。これをVBA_1とします。
これは、問題なく動作していました。
ある日、別のVBAで同じようなWord Libraryを呼び出して文書を作成するVBAを作成しました。これをVBA_2とします。これを起動したところ、コーディングにミスがあったらしく、...
0
票
0
回答
47
閲覧数
パワーポイントのリンクされた背景画像をVBAで再現するには?
パワーポイントでは、リンクされた画像を背景に設定できますが、これをVBAで再現する方法が調べても判りませんでした。
ご教示頂けますでしょうか?
0
票
0
回答
164
閲覧数
WEBスクレイピングのログイン処理
WEBスクレイピングでログインまで自動化したいのですが、ログインボタンの要素が見つからず困っています。
canvas要素上の処理であることは確認できましたが、どうログイン処理を記述するかで詰まりました。
座標を具体的に指定して組めはしましたが、異なる端末環境で使用する予定の為あまり意味がありません。
JSから数値取得して座標指定するといったことはできるのでしょうか?
VBA/...
0
票
0
回答
127
閲覧数
EXCEL カスタムリボン:ドロップダウンリストを選択前に値に戻したい
Excelでカスタムリボンのドロップダウンリストに選択肢1,選択肢2があり、変更するとそれぞれのマクロが実行します。
選択肢1が選択されている状態から選択肢2を選択したときにシートの状態がマクロ実行に適していない場合、ドロップダウンリストを選択肢1の状態に戻したいのです。
なお、選択肢1のテキストは別シートに保存してあります。
お手数ではございますが、ご教示いただければ幸いに存じます。
0
票
0
回答
128
閲覧数
VBA Cellsのドットの後ろの入力で入力候補が出ません。
お世話になっております。
VBAの Cells(....).Selectを入力する際に、.の後ろのSelectが入力候補がでず、エラーになります。
Rangeなどではそのような事は起きません。
なぜでしょうか?
よろしくお願いいたします。
0
票
1
回答
263
閲覧数
ブロック崩しゲームの制作を試みたのですが、オーバーフローのエラーが出ました。なぜですか?
書いたコードとシートの画像です
Dim vx, vy, dt, x, y As Single
Dim k, n, v As Integer
Dim b_px(100), b_py(100), b_vx(100), b_vy(100) As Single
Dim losted() As Single
Sub ball()
dt = Cells(2, 5)
vx = Cells(5, ...
0
票
0
回答
537
閲覧数
ユーザーフォームでWebBrowserをクリックするとExcelが強制終了する
VBAでユーザーフォームを作成し、そこにWebBrowserコントロールを貼り付けています。
WebBrowserでは、以下のコードでインターネット上の画像のURLにNavigateさせて、ユーザーフォーム上で画像を表示できるようにしております。
WebBrowser.Navigate "画像のURL"
こちら問題なく表示されるのですが、表示されたあと、...
0
票
2
回答
1,508
閲覧数
エクセルVBAからjavaを呼び出す方法
現在、エクセルVBAからjava処理を呼び出したいと考えています。
以下のようなコードを用意したのですが、うまく動きません。
調べるとjarに対して、マニフェストファイルへの記載が必要?とのことなのですが、
ここでは、jar -xvf Sample.jarで解凍したマニフェストファイルに Main-Class: Sample を記載して、もう一度圧縮すればいいのでしょうか?
圧縮コマンドは jar ...
0
票
1
回答
508
閲覧数
マクロで1行おきに2行セルを挿入したいがうまく動きません
1行おきに2行空白のセルを挿入したいのですが、下記のマクロでは1行おきに1行しか挿入できません。他の列はそのままで、C列のみ、そのような処理をしたいと思っております。
恐らく、ここが違うのだと思いますが、
ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown
自力では解決できず。ご教示いただけますと幸いです!
現状のコード
...
0
票
0
回答
575
閲覧数
ExcelマクロからPythonスクリプトが実行できない
下記に示すコードでExcelのデータをランダムフォレストを用いて解析しようとしたらExcelマクロの方で下記のようなエラーが発生してしまいました。
恐らくDataFilePathが上手く取得できていないものと考えられますが、定義の部分で絶対パスを定義してみたりしたのですが、実行できません。
何か対処法ご存じの方いらっしゃたらご助言お願い致します。
現状のソースコード
Excelマクロ
Sub ...
0
票
1
回答
465
閲覧数
エクセルで右隣のセルの値をコメントとして挿入したいのですが。ループ出来ず悩んでいます。
ループしない以外は、成功しております。ただ、For i = ActiveCell.End(xlDown).Rowが構文エラーとなってます。決まった範囲ではないので、選択しているセルから最後の行までループしたく。
また、右隣(コメントの値となるセル)が空白の場合はスルーする処理も追加できたら幸いです。宜しくお願い致します。
Sub 右隣のセルをコメントとして挿入()
Dim r As Range
...
0
票
1
回答
118
閲覧数
エクセルファイルで選択したセルのみコメントを表示させたい。
エクセルファイルで選択したコメントのみ表示させたくマクロ作成中ですが、全然できず・・。
”Set pComment = Selection.Cells” これで、自分が選択したセルだけ対応してね~って指示したいんですが、ずっとエラーで、ネットで検索してもなぜかでてこず。範囲は指定しないとダメ的なサイトは見つけましたが・・・。どなたかお力を貸してください。特定のファイルではなく、...
0
票
0
回答
195
閲覧数
空のCOMクラスライブラリ(C#)を、VBAから初期化してから解放すると、Excelが再起動する(短時間では再起動しない)
お世話になります。
ExcelのVBAから、C#で作成したCOMライブラリを使用したく、
先ず、C#のコードを以下の様にしました。
(VS2019を管理者権限にて起動し、新規プロジェクトより、C#-クラスライブラリ(.netframework 4.8)にて、AAA.csとして実装)
using System;
using System.Runtime.InteropServices;
...
0
票
1
回答
259
閲覧数
Excel VBA 他シートの内容が反映されない
解決したいこと
Excel VBA 他シートの抽出したデータ内容が反映されない
発生している問題・エラー
他のシートからエクセルシートのデータ抽出を行いたいのですが、‘=’を用いたデータの反映が行われません。同一セルの中に他のデータを入れているのが問題なのでしょうか。
実際のコード:
BASEDATE >= TO_DATE(‘元のシート!G7’,‘YYYY/MM/DD’)
自分で試したこと
...
0
票
1
回答
578
閲覧数
VBA 2次元の動的ジャグ配列
目的:
2次元の動的ジャグ配列を作りたい
2次元目のみを後から拡張したい
1次元配列をvariant形で宣言し、中にまた1次元配列を格納する方針を取りました。
3つの方法を試しましたが、どれもエラーになってしまいました。
正しい方法を教えてください。
方針1:
2次元目を直接redimで拡張する
Sub main()
Dim arr(10) As Variant
arr(0) = ...
0
票
0
回答
1,623
閲覧数
C#で作ったクラスライブラリをVBAで使用しようとすると『クラスが登録されていません』となってしまう
VisualStudio2019を使用しています。
https://www.shujima.work/entry/2020/05/10/162356
こちらのサイトをもとに、ExcelなどのVBAで使用できるクラスライブラリ(COM)を
C#で作成してみました。
管理者で作成もし、実際にVBA側に参照の追加もでき、いざ実行すると、『クラスが登録されていません』と
エラーになってしまうのですが、...
0
票
1
回答
192
閲覧数
Excel VBAで、ループを持つ関数を再入可能にする方法 (実装は一箇所のみで、独立して実行する方法)
あるシート内で、ボタンのクリックによって開始する関数があります。
その関数は、別のボタンのクリックによって停止しない限り無限に終了しない関数です。
上記のシートを複数用意して、複数の無限ループをシートごとに動かしたいです。
シートをコピーすれば関数(VBE)もコピーされるのでそれも1つの手ですが、変更があった時に同じ変更を全てに適用しなければならなくなるので、関数をモジュールに移動して、...
0
票
1
回答
646
閲覧数
VBA 値の取得と配列への格納について
以下のコードでセルの値を配列に格納する処理をおこなっていますが、Debug.Print ary(j, 1) で確認しても値が表示されない(取得できていない)ようです。
ary = Array(Cells(j, "E").Value, Cells(j, "F").Value, Cells(j, "G").Value, Cells(j, &...
0
票
1
回答
182
閲覧数
VBA 配列の処理について
使用しているセル範囲を配列に格納し、
処理を行おうとしていますが、if文で文字列の比較ができていない状態です。
If r(i, 2) Like "MB*" Then を If r(i, 2).value Like "MB*" Then
としてみても、「オブジェクトが必要です」というエラーになってしまいます。
どういうことでしょうか?
r = Range(&...
0
票
1
回答
398
閲覧数
VBA 高速化について
VBAでデータの整形、整理を行っていますが、
とにかく処理が遅くて困っております。
調べたところ、セルに直接書き込む処理を減らすため
配列を使い、セルに直接書き込む回数を減らすことで
速度の改善が可能とのことが分かりました。
そこで、一旦、テキストファイルを読み込んで表示されたセル範囲を
regionArr = Range("A1").CurrentRegionとし、...
0
票
0
回答
145
閲覧数
VBA エクセルシートでの計算結果を蓄積して、シート上に戻すプログラムの方法
質問事項は、モンテカルロ法のエクセルでの計算とVBAの組み合わせです。
売上高に乱数を入れて変化をさせ、その変化した5期分の売上高を元に成長率を計算するエクセルシートを作成しました。
その結果の成長率を1000回試行した結果を以って、モンテカルロ法でボラティリティを出すことをしたいです。
その1000回試行を、エクセルシートの計算を使いながら(エクセル上で経費の差引等がされています)、...
0
票
0
回答
532
閲覧数
Excel2013 と 2016 VSTO アドイン VisualC# での開発において特定処理でExcelが0xc0000374で終了する
Excel2013 と 2016 VSTO アドイン VisualC# での開発において特定処理でExcelが0xc0000374で終了する
お世話になります
Excelのアドイン作成において特定処理でExcelが落ちることがわかったのですが、
原因や対処方法がわからず行き詰まっております。
最小限の処理で再現させることまでできたので質問させてください。
環境
Windows 10 Pro ...
0
票
1
回答
192
閲覧数
フォルダー内の値をすべて取得するコード
フォルダ内の値をすべて取得する方法を教えてください。
下記のマクロだとブックの一番最初の値だけを取得してしまいます。
取得した値をすべて転記したいのですが方法を教えてください。
Sub 単体テスト仕様書マクロ()
Dim wFile As String
Dim wFilePath As String
Dim i As Long
'...
0
票
1
回答
134
閲覧数
同じイベントを"SheetChange"として保存したときと"Open"として保存したときに”Open”として保存した方にだけエラーが出る
Windows11/Excel2019/Macro
それぞれのシートの”A1”の値が0.2以下であればそのシートタブを青色にし、0.1以上0.2未満であれば緑色にし、0.1未満0.01以上であればオレンジ色にし、最終的にそれ未満の場合には初期設定の色にするイベントを”ThisWorkbook”に”SheetChange”として下記の通り保存しました。
Private Sub ...
0
票
1
回答
296
閲覧数
VBA 正規表現でHTMLのリンクタグ(aタグ)の属性を、別タグにして『rel=”noopener noreferrer”』を付加するように変換したい。
ExcelVBAで、HTMLを自動出力するソフトを作っています。
リンクタグを全て別タグ(別ウインドウ)で開かせるように
変換したいと思っています。また、セキュリティ対策に自動で
rel=”noopener noreferrer”が追加されるようにしたいのですが、
正規表現が不慣れなものでどのようにパターンを書けばいいのかが
解りません。
HTML内のすべてのaタグでかまわないので、...
0
票
0
回答
110
閲覧数
エクセル2000で作成したアニメーション用VBAを2010で動かしたい
エクセル2000で作成したアニメーション用のVBAですが、
最近のエクセル2010ではアニメーション表示はVBAのコードが変更されているためか動きません。
エクセル2000でないと動きませんが、2010でも動くようにするには何処を変更すれば良いのか分かりませんでした。
ご知見を伺いたく投稿しました。
Private Sub CommandButton1_Click()
Dim ND, NEX, i ...
0
票
1
回答
165
閲覧数
UserFrom1の変数をUserFromフォーム2に受け渡す方法
UserFrom1のCommandButton1をクリックした際に、変数Aに10を代入。(変数Aはパブリック変数)その後UserFrom2.Showで、UserFrom2を表示させ、UserFrom2のMsgBoxに、変数Aの内容を表示させるにはどの様なコードになりますでしょうか?
現在、UserFrom2内のプログラムで、MsgBox UserFrom1.Aとしていますが、10が表示されません。
0
票
0
回答
542
閲覧数
Excel VBAからPython関数を実行する際のデバッグ方法について
https://fastclassinfo.com/entry/run_python_from_vba/#2-BPython
あたりを参考に、Excel VBA から、python関数を呼び出そうとしています。
この通りにやったところ、ごく小規模なPythonプログラムは動かせるようになりました。(Pythonから、エクセルシートにデータを書き込むなど)
...
0
票
0
回答
119
閲覧数
VBA ボタン押す→ファイル参照→ファイル名表示→次へボタン→選択した音声ファイル再生
タイトルにあるような動作をするプログラムを作りたいです。
VisualStudio2017をつかって作成しています。
デザインのところで、ボタン(ファイル参照)、テキストボックス、ボタン(次へ)の3つを配置しています。
ネットで検索したもののよくわからずじまいでした。。。
GetOpenFilenameをつかうのかな…?程度の理解です。
調べようにも調べ方が悪いのか一向に進まないので、...
0
票
1
回答
535
閲覧数
ExcelVBAを用いて、新聞PDFデータ内のワードを検索して、ヒットしたならば、検索ワードにヒットしたPDFデータをExcelに抽出したい
Acrobat Reader Proを用いて、VBAで書いているのですが、どうもうまくいきません。
PDFをXML変換してから、Excelに抽出しようとしたんですが、XMLファイルが新聞の内容を上手く変換できていなくて、できませんでした。
大まかな方針を示していただけたら、嬉しいです。
また、コードも添付していただけたら、さらにうれしいです。
よろしくお願いします。
0
票
0
回答
596
閲覧数
PowerPointのスライドショーの画面切替タイミングをスライド毎に決められた時間でVBAで自動入力する方法はありますか?
VBAの全くの初心者です。今回、初めて参加させて頂きます。
よろしくお願い致します。
PowerPointのスライドショー画面切り替え時間をVBAで一度に入力可能なサンプルコードを探しております。
今まではPowerPointのリハーサルで画面の切り替え時間を調整しておりました。
今回はあらかじめ、決められたスライド毎の時間をリハーサル、またはPowerPointで画面入力することなく、...
0
票
1
回答
180
閲覧数
配列ブロック(AddMInsertBlock)の書き方
AUTOCADからの移行作業を行っております
AUTOCADでは動作していたのですがIJCADでは下記のエラーが出ます
実行時エラー '-2147467259(8004005)':
'AddMInsertBlock'メソッドは失敗しました:'IGcadModelSpeace'オブジェクト
作業はブロックを1定の幅で並べるという物です(枠を作る)
...
0
票
1
回答
662
閲覧数
フォルダを指定するダイアログを出して、選択したフォルダのファイルをすべて読み込む用に変更したら、400エラーが出てしまいました。
元々は、マクロが入っているフォルダの中にある、エクセルフォイルを読み込んで、
処理を進めていくプログラムだったのですが、自分で、任意のフォルダを選択して、
その中に、入っているすべてのファイルの値を取得できるように変えたら、400エラーが出てしまいました。
ご教授お願いいたします。
Sub 単体テスト仕様書マクロ()
Dim wFile As String
Dim wFilePath ...
0
票
0
回答
627
閲覧数
VBAのセルの値と同じ名前のシート名をセットするとインデックスが有効範囲にありませんとエラーになる
一覧表のA列のセルの値(確認用No)と同じ名前のシートにデータを自動転記したい。
処理中の対象レコードが、どのシートに転記されるのかを判定するコードを書いたがインデックスが有効範囲にありませんとエラーになってしまう。
Set wstNo = Worksheets(.Cells(r, "A").Value) '...
0
票
1
回答
454
閲覧数
ACADからIJCADにVBAを移植調査中ですが、 IJCAD VBA で、他の図面のブロックを呼び出して配置する場合の設定方法を教えてください。
'================================ 他図面からのブロックコピー 有無の確認 ==========================
'下記AUTOCAD(2020)での設定ですが、IJCAD(2020 PRO) の場合はどのように設定すれば良いのか
'教えてください。
'ちなみに、これをIJCADで実行すると途中で、エラーとなってしまいます。
'...
0
票
0
回答
1,424
閲覧数
ListViewのチェックボックスを外した時のイベントは取得できない、で正しいでしょうか?
ListViewのチェックボックスを外した時のイベントは取得できない、で正しいでしょうか?ItemCheckはチェックを付けた時だけしか感知しませんでした。
やりたいことは、チェックボックスのON/OFFによって、変更があった行だけの情報を内部データに更新したいと思っています。
ItemClickというイベントだと、チェックボックスをチェックボックス以外の行の部分をクリックすると感知しますが、...
0
票
1
回答
464
閲覧数
VBAでバブルソートのアルゴリズムが実行できない:インデックスが有効範囲にありません
以下の画像の通りにしたいんです。
それから、データは
上にある画像のようにA1-100に並べてあります。
そのために、このコード:
Sub specialSort()
Dim i As Integer
Dim j As Integer
Dim inc As Integer
Dim randomData(100) As Integer
Dim n As ...
0
票
1
回答
3,263
閲覧数
戻り値としてObjectを指定している関数がDictionary型オブジェクトを返す際、「型が一致しません」というエラーが出る。
VBAでWeb APIに接続してデータを取得しようと試みています。
参考にしたのは以下のページです。
VBA で Web API を呼び出す - Qiita
まず、下記手順でVBA-JSON のインポートを行いました。
VBA-JSON のインポート
VBA-JSON の最新版 (.zip) をダウンロードする。
ダウンロードしたファイルを解凍する。
解凍したフォルダを任意の場所に配置する。
...
0
票
0
回答
4,769
閲覧数
Excel VBA 解像度を上げたPCでフォームなどを作ると、実行時にフォームが小さくなる解決法
Excel2016にて、初めに画面解像度を150%にしたPCでExcelを立ち上げ、フォームでいろいろ
作っていたのですが、ほかの解像度が100%のPCで動かそうとすると、異様にフォームが小さくなって表示されてしまいます。
また、もとの150%の解像度のPCで編集しようとVBEでそのフォームを確認すると、やはり小さくなってしまっています。
しかし、...
0
票
1
回答
237
閲覧数
AutoCADからのVBAプログラムの移植
AutoCADからIJCAD(32bit)にVBAプログラムを移植する場合、dvbファイルを直接読み込むことはできないのでしょうか?
いろいろ試してみるかぎりでは、frm, bas, cls等にファイルをエクスポートしたものを読み込むことは出来そうですが、
この方法しかないのでしょうか?ご経験をお持ちの方のアドバイスをお願いします。
0
票
0
回答
184
閲覧数
WordのVBAのコードについての質問です。
やりたいこと
塗りつぶし部分を指定して検索をかけて結果を蛍光ペンで色付けして確認。その後、Enterを押して次の塗りつぶし部分の検索をして蛍光ペンで色付けしてその都度確認していきます。
直前に検出されて蛍光ペンで色付けされた部分は次の検索を行うためのEnterを押した時に元の塗りつぶしの色に戻していきます。
うまく動作しなかったコード
Shading....
0
票
0
回答
555
閲覧数
Offset.value=Stringを行う際に、Stringの文字数が約8000文字を超えるとメモリー不足でVBAが停止します
以下のようなVBAのコードで、ある文字列をString型のtestに入れて、あるRangeから特定位置ずらしたセルにその文字列を代入するさい、文字列Testが約8000文字(英数で約8000 characters) を超えると、添付のエラーが表示されてしまいます。
8000文字以下の場合は正常に動作します。
どなたか解決方法、または原因をご存じでしたら教えていただけると幸いです。
該当コード
...
0
票
1
回答
1,349
閲覧数
configとパラメータシートの差分比較方法について
あるNW機器のConfigとそのパラメータシートを比較して、この設定はパラメータシートと合っているな!と比較していきたいです。
Config同士、パラメータシート同士であれば、WinMergeやDF等を使用して比較すれば良いと思います。
しかしながらConfigとパラメータシートを比較する場合は単純にWinMergeやDF等を使っての比較ができません。
またバージョンも複数あり、...
0
票
0
回答
105
閲覧数
sumif関数の検索条件で、値の条件でなく書式の条件で合計したい。探しています。
赤文字だけの(フォントの色指定)合計をしたい。
かっこの文字は、合計しない。
10
(20) ←書式で(0)
30
40 ←合計=10+30 =MYsumif(かっこじゃない、A1:A3)
いい方法があったら教えて下さい。
エクセルVBA、GASです。よろしくお願いいたします
0
票
1
回答
1,352
閲覧数
VBAでテキストボックスに入力された値のデータを参照したいです。
図のようなもの作成しています。
従業員IDのところに参照したい従業員のIDを入力します。
参照ボタンを押すと、名前や交通手段などのデータが参照されます。
データの参照をするための文がわからず困っています。
また、ラジオボタンに参照させる方法も教えていただきたいです。
'参照ボタンを押した時の処理'
Private Sub ReferenceBtn_Click()
'...
0
票
1
回答
466
閲覧数
IJCADのバージョンアップによりGcad.Applicationのオブジェクトが取得できなくなった
VBAでIJCADの操作をするプログラムが、IJCADのアップデート(2018→2019)により
「実行時エラー91 オブジェクト変数withブロック変数が設定されていません」 と表示されるようになってしまいました。
VBAの参照設定はGcadの2019に修正しています。
操作対象のCADは起動した状態でもエラーが出ます。
Dim getTimesec As Double
Dim ...
0
票
1
回答
1,053
閲覧数
VBA 実行時エラー'91'の解決法(2)
前提・実現したいこと
いつもありがとうございます。
VBAでエクセルの勤務表から勤務日等を抽出し、別のソフトウェアに読み込ませる転換マクロツールを作っています。
以下のVBAを実行したところ、1回目は正常に動作するのですが、2回目以降、初回に読み込んだものと違う階層のエクセルファイルを読み込もうとすると、以下のエラーメッセージが再現性ありで発生します。
発生している問題・エラーメッセージ
...