[vba] タグが付いた質問
VBA(Visual Basic for Applications)は、Microsoft Officeに搭載されたプログラミング言語です。インタプリタ型言語であり、コンパイルは不要です。Micorosoft OfficeのマクロはVBAで記述されます。
162
質問
0
票
1
回答
145
閲覧数
VBA 実行時のエラー コンパイルエラー(変数が定義されていません)の解決方法
Excelで作成された請求書データ"請求書フォーム_○○_FY21.xlsx"(同book内にシートが複数)から一覧を作成したいと思い、まず1つの請求書データをVBAで取得したかったのですが、変数が定義されていません、とエラーになってしまいまいます。
どのようにすれば解決できますでしょうか。(参照先の"請求書フォーム_○○_FY21.xlsx"...
0
票
1
回答
81
閲覧数
ExcelVBAを用いて、新聞PDFデータ内のワードを検索して、ヒットしたならば、検索ワードにヒットしたPDFデータをExcelに抽出したい
Acrobat Reader Proを用いて、VBAで書いているのですが、どうもうまくいきません。
PDFをXML変換してから、Excelに抽出しようとしたんですが、XMLファイルが新聞の内容を上手く変換できていなくて、できませんでした。
大まかな方針を示していただけたら、嬉しいです。
また、コードも添付していただけたら、さらにうれしいです。
よろしくお願いします。
0
票
1
回答
86
閲覧数
フォルダー内の値をすべて取得するコード
フォルダ内の値をすべて取得する方法を教えてください。
下記のマクロだとブックの一番最初の値だけを取得してしまいます。
取得した値をすべて転記したいのですが方法を教えてください。
Sub 単体テスト仕様書マクロ()
Dim wFile As String
Dim wFilePath As String
Dim i As Long
'...
1
票
1
回答
5,592
閲覧数
マクロ実行時に表示されるダイアログで、キャンセルを押さないと処理が進まない
Excel VBAについての質問になります。
作成したマクロを実行した際に、「ダウンロード中」、「保存中」というダイアログが表示され、キャンセルボタンを押下しないと処理が進みません。(添付画像参照)
以下の二点について、教えていただきたいです。
「ダウンロード中」、「保存中」ダイアログが表示される原因(ソースに記載していない)
キャンセルボタンを押下しないと処理が進まない原因
...
0
票
1
回答
904
閲覧数
Excel マクロでDeepLを用いて翻訳する際、英文をピリオド区切りではなくセル内の丸ごとで翻訳したい
表題の通りですが、文章がピリオド区切り、つまり一つの文のみでDeepLに入力されてしまうので、英文全体をセルから取得したいです。.Valueの箇所を.Textに変更したりはしています。
Sub Translate()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
...
0
票
0
回答
39
閲覧数
PowerPoint の VBA でビデオ作成時、音声が途中で途切れてしまう
PowerPointのノート部分を音声に変換してスライドに音声を埋め込む下記のマクロを挿入し、マクロ実行後、手動で エクスポート - ビデオの作成をおこなうと音声が最後まで再生されますが、VBAのCreateVideoやSaveAsでビデオの作成をおこなうと音声が途中で切れて次のスライドに切り替わってしまいます。
エクスポート - ビデオの作成をVBAで実行する際、注意点はありますか?
With ...
0
票
2
回答
285
閲覧数
C#で作ったCOM内の配列要素にアクセスができない
Excel用のCOMをC#で作っております。
Parameter.cs
[ClassInterface(ClassInterfaceType.None)]
[ComDefaultInterface(typeof(IParameter))]
[ComVisible(true)]
public class Parameter : IParameter
{
public Member[] ...
0
票
1
回答
105
閲覧数
C#でExcelの条件付き書式を指定したいです。
c#で既に作られたExcelファイルを開き、一定の範囲を指定して、
条件付き書式を利用して空白のセルを「黄色」に表示したいですが、
Excel.Range range = sheet.get_Range(一定の範囲);
range.FormatConditions.Add(Excel.XlFormatConditionType.xlBlanksCondition);
range.Interior....
0
票
1
回答
682
閲覧数
VBAでpythonを動かしたときのpermissionErrorの解決方法
VBAでpythonのプログラムを動かす際にタイトルのエラーが出ます。
エラー内容はPermissionError : Permission denied:'excelのファイル名.xlsm'
よろしくお願いいたします。
VBAのコードはこちらです。
Sub SampleCall()
RunPython ("import auto_py;auto_py.textdownload()")
...
0
票
1
回答
8,326
閲覧数
Bitnami Redmine でインストールした MySQL への VBA からの接続方法について教えてください
BitnamiからRedmineをインストールしました。
RedmineのデータをExcelで使用したいため、VBAを使ってMySQLに接続してデータを取得したいのですが、接続方法がわかりません。
VBAからはMySQL ODBCで接続しようと思っていますが、ODBCのSERVERにはIPアドレスを入れればよいのでしょうか。試しに http://XXX.XXX.XXX.XXX と入れましたが、...
0
票
1
回答
64
閲覧数
同じイベントを"SheetChange"として保存したときと"Open"として保存したときに”Open”として保存した方にだけエラーが出る
Windows11/Excel2019/Macro
それぞれのシートの”A1”の値が0.2以下であればそのシートタブを青色にし、0.1以上0.2未満であれば緑色にし、0.1未満0.01以上であればオレンジ色にし、最終的にそれ未満の場合には初期設定の色にするイベントを”ThisWorkbook”に”SheetChange”として下記の通り保存しました。
Private Sub ...
0
票
2
回答
1,273
閲覧数
Excel VBAで作成したPDFのサイズを(VBAで)統一したい
ExcelシートのPDF化をVBAで実装したのですが、ページによってサイズが統一されていない状況になっています。
原因は下記リンクと同じ状況のようです。
ExcelからPDFを作成すると、ページのサイズがまちまち
出力したPDFをAcrobatで開き、PDFPrinterで再PDF化しているようなのですが、この流れをすべてVBA上で行いたいと考えています。
...
0
票
0
回答
158
閲覧数
Excel VBA でOutlookのメールを作成するのですが、実行後にメールの画面がアクティブにならないことがあるので、 アクティブ(最前面)にする方法を教えてください。
Excel VBAでOutlookのメールを作成するのですが、実行後にメールの画面がアクティブにならないことがあります。 アクティブ(最前面)にする方法を教えてください。
コードは以下のような感じです。
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Set objOutlook = ...
1
票
1
回答
936
閲覧数
ExcelVBAでワークシートにPDF画像を追加する方法
事務作業を効率化するため、最近ExcelVBAを学び始めた者です。
初質問のため、質問内容やコードにわかりづらいことがありましたら誠に申し訳ございません。何卒宜しくお願いいたします。
目的
-PDFファイルを開き、ExcelワークシートにShapeとしてPDF画像を追加する-
上記を達成するためのより良い方法を知りたい
使用アプリケーション
・Excel 2016
・Adobe Acrobat ...
1
票
2
回答
125
閲覧数
日時を含むカラムに対してORDER BY ・・・ DESCを使用したのですが、データの並びが降順通りではありません
どうすれば狙った並びで抽出できるようになるかご教授頂きたいです。
使用したSQL
Dim sql As String
sql = "SELECT * FROM [sample.csv] WHERE type = '001' ORDER BY dt DESC"
csvファイルの中身
name
type
dt
aaa
001
2021/10/25 9:03:35
bbb
...
0
票
1
回答
72
閲覧数
VBA 正規表現でHTMLのリンクタグ(aタグ)の属性を、別タグにして『rel=”noopener noreferrer”』を付加するように変換したい。
ExcelVBAで、HTMLを自動出力するソフトを作っています。
リンクタグを全て別タグ(別ウインドウ)で開かせるように
変換したいと思っています。また、セキュリティ対策に自動で
rel=”noopener noreferrer”が追加されるようにしたいのですが、
正規表現が不慣れなものでどのようにパターンを書けばいいのかが
解りません。
HTML内のすべてのaタグでかまわないので、...
0
票
0
回答
78
閲覧数
エクセル2000で作成したアニメーション用VBAを2010で動かしたい
エクセル2000で作成したアニメーション用のVBAですが、
最近のエクセル2010ではアニメーション表示はVBAのコードが変更されているためか動きません。
エクセル2000でないと動きませんが、2010でも動くようにするには何処を変更すれば良いのか分かりませんでした。
ご知見を伺いたく投稿しました。
Private Sub CommandButton1_Click()
Dim ND, NEX, i ...
0
票
1
回答
59
閲覧数
UserFrom1の変数をUserFromフォーム2に受け渡す方法
UserFrom1のCommandButton1をクリックした際に、変数Aに10を代入。(変数Aはパブリック変数)その後UserFrom2.Showで、UserFrom2を表示させ、UserFrom2のMsgBoxに、変数Aの内容を表示させるにはどの様なコードになりますでしょうか?
現在、UserFrom2内のプログラムで、MsgBox UserFrom1.Aとしていますが、10が表示されません。
0
票
1
回答
1,248
閲覧数
C#からのExcelVBA実行と、ExcelからVBAを直接実行した場合の処理時間について
ExcelのVBAをC#で実行しようと考えています。
現状、ExcelからボタンクリックでVBAを実行すると1時間かかる処理が、C#側から「Microsoft.Office.Interop.Excel」を使って
xlApp.Run("Sheet1.Btn_Calc_Click");
で同じマクロを実行すると3時間かかってしまします。
Interop....
1
票
2
回答
910
閲覧数
IJCADのVBAで長さ寸法の始点・終点を取り出したい
IJCAD 2017のVBAで開発をしています。
長さ寸法(GcadDimRotated)について聞きたいことがあります。
IJCADで図面上にある長さ寸法を選択した後、寸法の始点と終点(座標値)を知りたいのですが、ヘルプでGcadDimRotateやGcadDimensionクラスをいくら調べても、それらしいプロパティが見つかりませんでした。
平行寸法(GcadIimAligned)...
1
票
1
回答
2,383
閲覧数
Office365 OPP(64bit)環境のExcel VBAでOutlook Mail送信が失敗する。
タイトルの件、お助けいただきたくお願いします。
32bit環境では正常に動作していた以下のコードが、新しい環境だとエラーとなってしまいます。
参照設定は、Microsoft Office 16.0 Object Libraryをチェック済みです。
olMailItemのプロパティを見るとSubjectは入っていますが、ToとBodyでエラーとなっているようです。...
0
票
1
回答
125
閲覧数
Excelのセルに時間を楽に入力する方法が知りたいです。
日報を毎日作成するのですが、Excelのセルに実施時間を楽に入力する方法を知りたいです。
9:00~11:00のような感じで一つのセル(結合していない)に入力し、
下のセルにも同じように、11:00~12:00のように時間を入力していきます。
関数でもVBAでもリストボックスでも何でも良いので、いい案があれば教えてください。
1
票
2
回答
221
閲覧数
BETWEENで一定間隔のデータを抜き出すにはどうすれば良いのでしょうか?
現在、1秒間隔でcsvファイルにデータを記録しています。
このデータから1分間隔のデータを抽出したいと考えています。
BETWEENを使って一定期間のデータを抜き出すことには成功しましたが、それは1秒間隔のデータなのでそこから更に1分間隔のデータに変更するのに少し時間を要しています。
開発環境はVBAです。
そもそも、BETWEENでそういったことが出来るか分かっていませんのでご教授をお願いします。...
0
票
0
回答
212
閲覧数
Excel VBAからPython関数を実行する際のデバッグ方法について
https://fastclassinfo.com/entry/run_python_from_vba/#2-BPython
あたりを参考に、Excel VBA から、python関数を呼び出そうとしています。
この通りにやったところ、ごく小規模なPythonプログラムは動かせるようになりました。(Pythonから、エクセルシートにデータを書き込むなど)
...
0
票
1
回答
1,075
閲覧数
AccessVBA メインのアクセスから別のアクセスを開くときにフォームを開かせない方法
お世話になります。
Access2010にて、VBAで他のアクセスを開くときに、OpenCurrentDatabaseで開こうとするの
ですが、呼び出される方のアクセスに、指定のフォームを開く設定がされているとフォームが
開いてしまいますが、これを通常開くときにシフトキーで開くように、設定などを無効にして
開きたいのですが、その方法をお教えください。
...
1
票
1
回答
158
閲覧数
C#で作ったCOM dll内の配列にはどのようにアクセスすればよいか
C#でExcel VBAからアクセスするようのDLLを作りました。
[Guid("6905A3B9-E09A-492A-9EC8-2A558814F778")]
public class Test
{
public Item[] Items { get; set; }
public Test() { Items = new Item[0]; }
...
0
票
1
回答
113
閲覧数
ACADからIJCADにVBAを移植調査中ですが、 IJCAD VBA で、他の図面のブロックを呼び出して配置する場合の設定方法を教えてください。
'================================ 他図面からのブロックコピー 有無の確認 ==========================
'下記AUTOCAD(2020)での設定ですが、IJCAD(2020 PRO) の場合はどのように設定すれば良いのか
'教えてください。
'ちなみに、これをIJCADで実行すると途中で、エラーとなってしまいます。
'...
0
票
0
回答
56
閲覧数
Visio VBA で図形が保護されているかどうか知りたい
Visioファイル内の図形の中で保護されているものを特定する方法を教えてください。
例えばコードは以下のようになっており、"shp.Shapes.Count > 1"の中にさらに「保護がされていなければ」というIf文を追加したいです。
Public Sub FindProtectedShape()
Dim shp As Shape
For Each shp In ...
0
票
0
回答
76
閲覧数
VBA ボタン押す→ファイル参照→ファイル名表示→次へボタン→選択した音声ファイル再生
タイトルにあるような動作をするプログラムを作りたいです。
VisualStudio2017をつかって作成しています。
デザインのところで、ボタン(ファイル参照)、テキストボックス、ボタン(次へ)の3つを配置しています。
ネットで検索したもののよくわからずじまいでした。。。
GetOpenFilenameをつかうのかな…?程度の理解です。
調べようにも調べ方が悪いのか一向に進まないので、...
-1
票
3
回答
147
閲覧数
四面体(三角錐)の内接球のsympyを探しています。 vbaソルバーでやってみました。
①四面体(三角錐)の内接球のsympyを探しています。他言語でも。
②vbaソルバーで実行してみました。vbaコードを短くする方法を教えて下さい。一例しか実行していません。
➂以下のコードの、「Range("A7").Formula」複数行で書けませんでした。
よろしくお願いします。
オリジナルポスト
(0,0,0),(1,0,0),(0,1,0),(0,0,2)
「...
0
票
2
回答
380
閲覧数
VBAでPCのセッションIDを取得したい
Excel VBAで、コマンドプロンプトから query session で取得できるセッション番号をコードで拾えるようにしたいのですが、どうすればできますでしょうか。
他のサイトを見て、Shellを使用して取得しようとしたのですが、戻ってきた値は空でした。
テストとして書いてみただけのコードですので、どうして i が文字列変数なのかとかは気にしないでください。
よろしくお願いいたします。
...
0
票
1
回答
609
閲覧数
VBAを使って、XMLファイルの特定のタグ<ImageData src="image">のみをExcelに表示させたい
[![画像の説明をここに入力][1]][1]
この画像のXMLの <ImageData src="image"> タグの部分のみをExcelに抽出したいです。
コードは、下記のようになっております。
よろしくお願いします。
Option Explicit
Sub ボタン4_Click()
'シート設定
Dim ws As Worksheet
...
1
票
0
回答
113
閲覧数
スライドに張り付けたmp3をPowerPoint 2016のVBAを使って自動再生モードにしたい
VBAでスライドに貼り付けたmp3を、自動再生モードにしたいのですが、PowerPOint2016では意図した通り処理されずに困っています。
下記コードは、PowerPoint2013では、期待どおり動き、mp3は自動再生になります。
しかし、PowerPoint2016に対して、下記コードを実行すると「自動」再生ではなく「一連のクリック」というメニューitemが選択されてしまいます。
...
0
票
0
回答
36
閲覧数
Mspace.AddPolyLineで3DPolyを描画しようとすると「サーバーを利用出来ません」とエラーが表示されてしまう
Mspace.AddPolyLineで3DPolyを描画しようとするとエラーになります。
エラーは「サーバーを利用出来ません」です 3次元は利用できないのでしょうか?
実行環境:
IJCAD 2021 PRO (64bit版)
Visual Studio 2017
現状のソースコード:
'cadに折線を描く(線分の場合はN=2)
Public Sub AddPolyLine(...
0
票
0
回答
124
閲覧数
PowerPoint2016のVBAで、スライドに張り付けた音声ファイルを自動で再生させたい。
PowerPoint 2016のVBAで、スライドに張り付けた音声(.mp3)を「自動」で再生にしたいです。
もともとは「一連のクリック動作(I)」となっているので、それをVBAを使って「自動」に変更させたいです。
変更前:
「オーディオツール」→「再生」→「オーディオオプション」→「開始:一連のクリック動作」
変更後:
「オーディオツール」→「再生」→「オーディオオプション」→「開始:自動」
...
1
票
1
回答
213
閲覧数
VBAのEnumステートメントでメンバー名を角かっこ ([ ]) でくくった場合、エスケープされた名前として扱われているのか?この手法は使わない方がよいのか?
下記コードは実行可能です。
約10年ほど前、私がVBAの勉強し始めたばかりのころ、経験のあった他言語(C#,VB.net)のように
Enumのメンバ名を文字列で取得したく思い、知恵を絞って作ったToStrting()です。
質問は、この時に定義したEnumの使い方になります。
Option Explicit
Enum System
TypeA = 0
TypeB
...
1
票
1
回答
502
閲覧数
Excel のデータを VBA で SQLite に挿入する方法を知りたい
現在、ConfigやExcelのパラメータシートを比較するシステムをSQLiteを使用して作成しています。
SQLiteにExcelのデータを書き込むVBAを作りたいと思っています。
現在、テーブルの作成は完了しております。
Excelで該当のデータを探す事は完了したという前提で、その後にどのようにDBに接続してテーブルに書き込むVBAを作成すれば良いのか教えていただけませんでしょうか。
0
票
1
回答
2,789
閲覧数
コンパイル エラーです。: プロシージャの外では無効です。どこのエラーを修正すればよいのでしょうか?
With ActivePresentation.Slides(1).SlideShowTransition
.Speed = ppTransitionSpeedFast
.EntryEffect = ppEffectStripsDownLeft
.SoundEffect.ImportFromFile "c:\sndsys\bass.wav"
....
0
票
0
回答
176
閲覧数
PowerPointのスライドショーの画面切替タイミングをスライド毎に決められた時間でVBAで自動入力する方法はありますか?
VBAの全くの初心者です。今回、初めて参加させて頂きます。
よろしくお願い致します。
PowerPointのスライドショー画面切り替え時間をVBAで一度に入力可能なサンプルコードを探しております。
今まではPowerPointのリハーサルで画面の切り替え時間を調整しておりました。
今回はあらかじめ、決められたスライド毎の時間をリハーサル、またはPowerPointで画面入力することなく、...
0
票
1
回答
202
閲覧数
VBAからURLで指定したファイルのタイムスタンプを取得したい
VBAで、URLで指定したファイルのタイムスタンプを取得したいです。
例
http://example.com/files/abcde.xlsx
一度ダウンロードしてしまえばいくらでも取得できるとは思うのですが、ダウンロードする前に確認して、新しくなっているようならダウンロードする処理をさせたいと思っています。
よろしくお願いします。
1
票
1
回答
325
閲覧数
C#、もしくはVBA(API?)で、インストールされているMS Officeのビット数を調べたい
現在でも、Officeが32bitか64bitかが混在しているさなかだと思いますが、それを
C#やVBAのコードでPCにインストールされているOfficeのbit数を取得できる方法を探しています。
手動で確認する方法は解っていますが、それをコードで実現したいのです。
使用する言語は、C#かVBAだけです。もちろんAPI等も触るかと思います。
お分かりの方がいましたら、回答をお願いいたします。
1
票
2
回答
158
閲覧数
Word文書内の複数の文字列をイタリックに変換する方法
Word文書内の複数の文字列をイタリックに変換する方法を探しております。
例えばword文書内に
文字列1
文字列2
文字列1
文字列3
・
・
・
とある場合に、"文字列1"のみであれば、以下のWordVBAのコードで変換できるのですが、複数単語("文字列2","文字列3"のように)...
0
票
1
回答
83
閲覧数
配列ブロック(AddMInsertBlock)の書き方
AUTOCADからの移行作業を行っております
AUTOCADでは動作していたのですがIJCADでは下記のエラーが出ます
実行時エラー '-2147467259(8004005)':
'AddMInsertBlock'メソッドは失敗しました:'IGcadModelSpeace'オブジェクト
作業はブロックを1定の幅で並べるという物です(枠を作る)
...
-1
票
1
回答
181
閲覧数
Excelで、虫食い状になっている実績を検出したい
例えば以下のような表があったとき、飛び飛びについている0の個数を検出したいです。
実績A 1 1 1 1 1 1 1 1 1
実績B 1 1 0 1 0 1 1 1 1
実績C 1 1 0 0 0 0 1 1 1
実績D 0 0 0 1 1 1 0 0 0
実績E 1 1 1 1 1 0 0 0 0
例の場合、実績B、Cのように、0が1に挟まれている状態がNGです。実績Bは2個、Cは4個です。
...
0
票
1
回答
154
閲覧数
フォルダを指定するダイアログを出して、選択したフォルダのファイルをすべて読み込む用に変更したら、400エラーが出てしまいました。
元々は、マクロが入っているフォルダの中にある、エクセルフォイルを読み込んで、
処理を進めていくプログラムだったのですが、自分で、任意のフォルダを選択して、
その中に、入っているすべてのファイルの値を取得できるように変えたら、400エラーが出てしまいました。
ご教授お願いいたします。
Sub 単体テスト仕様書マクロ()
Dim wFile As String
Dim wFilePath ...
1
票
1
回答
92
閲覧数
値を取得するコードを追加したい
wItem(i) = FoundCell.Offset(i + 1, 0).Valueの部分で機能プログラム名の値は、取得されて表示されたのですが、この、値を取得する処理をもう3件追加したいです。参照するエクセルは同じなのですが、取得したいセルの位置はそれぞれ異なります。どのようにしたらうまくいくでしょうか。
Sub 単体テスト仕様書マクロ()
Dim wFile As ...
1
票
3
回答
1,999
閲覧数
VBEのフォントサイズを変更できない
VBEのフォントサイズを変更できません。フォント自体の変更や、その他の変更は可能です。
レジストリでFontHeightを変更してみましたが、VBEには反映しません。
環境は、Windows10(1703)、Excel2016です。
Word2016のVBEでも試しましたが、やはりフォントサイズだけが変更できません。
解決方法があればご教示いただきたく、よろしくお願いいたします。
0
票
2
回答
332
閲覧数
ドライブ直下のフォルダのファイル数と最終更新日時の取得
下記の通りドライブ直下にフォルダがあるとします。
C:\A
C:\B
C:\C
これらのドライブ直下のフォルダA,B,Cのみの、ファイル数と最終更新日時を下記の通りEXCEL上に集計したいと考えています。
(A,B,C内のサブフォルダは対象外)
フォルダ名
ファイル数
最終更新日時
A
10
2021/3/2
B
100
2021/3/4
C
1000
2021/3/9
...
0
票
0
回答
197
閲覧数
VBAのセルの値と同じ名前のシート名をセットするとインデックスが有効範囲にありませんとエラーになる
一覧表のA列のセルの値(確認用No)と同じ名前のシートにデータを自動転記したい。
処理中の対象レコードが、どのシートに転記されるのかを判定するコードを書いたがインデックスが有効範囲にありませんとエラーになってしまう。
Set wstNo = Worksheets(.Cells(r, "A").Value) '...
0
票
1
回答
1,358
閲覧数
Excel VBAが度々ハングアップする
ワンボードマイコンでイルミネーションを点滅させるためのデータをExcelで作成し、動作をシミュレーションで確認しようとしていますが、ExcelVBAが途中でハングアップしてしまい、再起動すると正常に動くといったことが度々あります。
原因が分かりませんでしょうか?
tはインターバル、データの0は消灯、1で点灯としこのシートをtxt形式で保存したものがデータになる
Startボタンを押すと、...