[vba] タグが付いた質問
VBA(Visual Basic for Applications)は、Microsoft Officeに搭載されたプログラミング言語です。インタプリタ型言語であり、コンパイルは不要です。Micorosoft OfficeのマクロはVBAで記述されます。
164
質問
0
票
1
回答
115
閲覧数
VBAでCOMコンポーネント使って特定のサービスを取得する方法を、C#(.Net)で行う方法について
こんにちは。
現在、VBAを使用して、特定アプリ内の情報をCOMコンポーネント使い、その特定サービスを取得しました。
それを同じようにC#(.Net)でもできるのかお聞きしたいです。.Netは、VisualStudio2019を使用したものです。
VBAの例を以下です。
'オブジェクトのインスタンス化
Set xxxApp = GetObject(, "XXXXApplication&...
0
票
0
回答
54
閲覧数
Word 2016 の VBA で ActiveDocument.Shapes.SelectAll を実行すると「実行時エラー’70' 書き込みできません。」が発生する
Word 2016 の VBA で Shapes.SelectAll メソッド (Word) の最初のサンプルコードを実行すると「実行時エラー '70' 書き込みできません。」が発生します。
Sub SelectAllShapes()
ActiveDocument.Shapes.SelectAll ’ ←この行。
End Sub
「Permission denied (Error 70)」...
0
票
1
回答
104
閲覧数
フォルダー内の値をすべて取得するコード
フォルダ内の値をすべて取得する方法を教えてください。
下記のマクロだとブックの一番最初の値だけを取得してしまいます。
取得した値をすべて転記したいのですが方法を教えてください。
Sub 単体テスト仕様書マクロ()
Dim wFile As String
Dim wFilePath As String
Dim i As Long
'...
0
票
0
回答
48
閲覧数
PowerPoint の VBA でビデオ作成時、音声が途中で途切れてしまう
PowerPointのノート部分を音声に変換してスライドに音声を埋め込む下記のマクロを挿入し、マクロ実行後、手動で エクスポート - ビデオの作成をおこなうと音声が最後まで再生されますが、VBAのCreateVideoやSaveAsでビデオの作成をおこなうと音声が途中で切れて次のスライドに切り替わってしまいます。
エクスポート - ビデオの作成をVBAで実行する際、注意点はありますか?
With ...
0
票
2
回答
292
閲覧数
C#で作ったCOM内の配列要素にアクセスができない
Excel用のCOMをC#で作っております。
Parameter.cs
[ClassInterface(ClassInterfaceType.None)]
[ComDefaultInterface(typeof(IParameter))]
[ComVisible(true)]
public class Parameter : IParameter
{
public Member[] ...
0
票
1
回答
151
閲覧数
C#でExcelの条件付き書式を指定したいです。
c#で既に作られたExcelファイルを開き、一定の範囲を指定して、
条件付き書式を利用して空白のセルを「黄色」に表示したいですが、
Excel.Range range = sheet.get_Range(一定の範囲);
range.FormatConditions.Add(Excel.XlFormatConditionType.xlBlanksCondition);
range.Interior....
0
票
1
回答
183
閲覧数
VBA 実行時のエラー コンパイルエラー(変数が定義されていません)の解決方法
Excelで作成された請求書データ"請求書フォーム_○○_FY21.xlsx"(同book内にシートが複数)から一覧を作成したいと思い、まず1つの請求書データをVBAで取得したかったのですが、変数が定義されていません、とエラーになってしまいまいます。
どのようにすれば解決できますでしょうか。(参照先の"請求書フォーム_○○_FY21.xlsx"...
0
票
1
回答
78
閲覧数
同じイベントを"SheetChange"として保存したときと"Open"として保存したときに”Open”として保存した方にだけエラーが出る
Windows11/Excel2019/Macro
それぞれのシートの”A1”の値が0.2以下であればそのシートタブを青色にし、0.1以上0.2未満であれば緑色にし、0.1未満0.01以上であればオレンジ色にし、最終的にそれ未満の場合には初期設定の色にするイベントを”ThisWorkbook”に”SheetChange”として下記の通り保存しました。
Private Sub ...
0
票
0
回答
236
閲覧数
Excel VBA でOutlookのメールを作成するのですが、実行後にメールの画面がアクティブにならないことがあるので、 アクティブ(最前面)にする方法を教えてください。
Excel VBAでOutlookのメールを作成するのですが、実行後にメールの画面がアクティブにならないことがあります。 アクティブ(最前面)にする方法を教えてください。
コードは以下のような感じです。
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Set objOutlook = ...
1
票
2
回答
134
閲覧数
日時を含むカラムに対して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
回答
88
閲覧数
VBA 正規表現でHTMLのリンクタグ(aタグ)の属性を、別タグにして『rel=”noopener noreferrer”』を付加するように変換したい。
ExcelVBAで、HTMLを自動出力するソフトを作っています。
リンクタグを全て別タグ(別ウインドウ)で開かせるように
変換したいと思っています。また、セキュリティ対策に自動で
rel=”noopener noreferrer”が追加されるようにしたいのですが、
正規表現が不慣れなものでどのようにパターンを書けばいいのかが
解りません。
HTML内のすべてのaタグでかまわないので、...
0
票
0
回答
79
閲覧数
エクセル2000で作成したアニメーション用VBAを2010で動かしたい
エクセル2000で作成したアニメーション用のVBAですが、
最近のエクセル2010ではアニメーション表示はVBAのコードが変更されているためか動きません。
エクセル2000でないと動きませんが、2010でも動くようにするには何処を変更すれば良いのか分かりませんでした。
ご知見を伺いたく投稿しました。
Private Sub CommandButton1_Click()
Dim ND, NEX, i ...
0
票
1
回答
60
閲覧数
UserFrom1の変数をUserFromフォーム2に受け渡す方法
UserFrom1のCommandButton1をクリックした際に、変数Aに10を代入。(変数Aはパブリック変数)その後UserFrom2.Showで、UserFrom2を表示させ、UserFrom2のMsgBoxに、変数Aの内容を表示させるにはどの様なコードになりますでしょうか?
現在、UserFrom2内のプログラムで、MsgBox UserFrom1.Aとしていますが、10が表示されません。
0
票
1
回答
136
閲覧数
Excelのセルに時間を楽に入力する方法が知りたいです。
日報を毎日作成するのですが、Excelのセルに実施時間を楽に入力する方法を知りたいです。
9:00~11:00のような感じで一つのセル(結合していない)に入力し、
下のセルにも同じように、11:00~12:00のように時間を入力していきます。
関数でもVBAでもリストボックスでも何でも良いので、いい案があれば教えてください。
0
票
0
回答
259
閲覧数
Excel VBAからPython関数を実行する際のデバッグ方法について
https://fastclassinfo.com/entry/run_python_from_vba/#2-BPython
あたりを参考に、Excel VBA から、python関数を呼び出そうとしています。
この通りにやったところ、ごく小規模なPythonプログラムは動かせるようになりました。(Pythonから、エクセルシートにデータを書き込むなど)
...
1
票
2
回答
258
閲覧数
BETWEENで一定間隔のデータを抜き出すにはどうすれば良いのでしょうか?
現在、1秒間隔でcsvファイルにデータを記録しています。
このデータから1分間隔のデータを抽出したいと考えています。
BETWEENを使って一定期間のデータを抜き出すことには成功しましたが、それは1秒間隔のデータなのでそこから更に1分間隔のデータに変更するのに少し時間を要しています。
開発環境はVBAです。
そもそも、BETWEENでそういったことが出来るか分かっていませんのでご教授をお願いします。...
1
票
1
回答
177
閲覧数
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
票
0
回答
62
閲覧数
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
回答
150
閲覧数
四面体(三角錐)の内接球のsympyを探しています。 vbaソルバーでやってみました。
①四面体(三角錐)の内接球のsympyを探しています。他言語でも。
②vbaソルバーで実行してみました。vbaコードを短くする方法を教えて下さい。一例しか実行していません。
➂以下のコードの、「Range("A7").Formula」複数行で書けませんでした。
よろしくお願いします。
オリジナルポスト
(0,0,0),(1,0,0),(0,1,0),(0,0,2)
「...
0
票
2
回答
437
閲覧数
VBAでPCのセッションIDを取得したい
Excel VBAで、コマンドプロンプトから query session で取得できるセッション番号をコードで拾えるようにしたいのですが、どうすればできますでしょうか。
他のサイトを見て、Shellを使用して取得しようとしたのですが、戻ってきた値は空でした。
テストとして書いてみただけのコードですので、どうして i が文字列変数なのかとかは気にしないでください。
よろしくお願いいたします。
...
0
票
1
回答
102
閲覧数
ExcelVBAを用いて、新聞PDFデータ内のワードを検索して、ヒットしたならば、検索ワードにヒットしたPDFデータをExcelに抽出したい
Acrobat Reader Proを用いて、VBAで書いているのですが、どうもうまくいきません。
PDFをXML変換してから、Excelに抽出しようとしたんですが、XMLファイルが新聞の内容を上手く変換できていなくて、できませんでした。
大まかな方針を示していただけたら、嬉しいです。
また、コードも添付していただけたら、さらにうれしいです。
よろしくお願いします。
0
票
1
回答
742
閲覧数
VBAを使って、XMLファイルの特定のタグ<ImageData src="image">のみをExcelに表示させたい
[![画像の説明をここに入力][1]][1]
この画像のXMLの <ImageData src="image"> タグの部分のみをExcelに抽出したいです。
コードは、下記のようになっております。
よろしくお願いします。
Option Explicit
Sub ボタン4_Click()
'シート設定
Dim ws As Worksheet
...
1
票
0
回答
124
閲覧数
スライドに張り付けたmp3をPowerPoint 2016のVBAを使って自動再生モードにしたい
VBAでスライドに貼り付けたmp3を、自動再生モードにしたいのですが、PowerPOint2016では意図した通り処理されずに困っています。
下記コードは、PowerPoint2013では、期待どおり動き、mp3は自動再生になります。
しかし、PowerPoint2016に対して、下記コードを実行すると「自動」再生ではなく「一連のクリック」というメニューitemが選択されてしまいます。
...
0
票
0
回答
42
閲覧数
Mspace.AddPolyLineで3DPolyを描画しようとすると「サーバーを利用出来ません」とエラーが表示されてしまう
Mspace.AddPolyLineで3DPolyを描画しようとするとエラーになります。
エラーは「サーバーを利用出来ません」です 3次元は利用できないのでしょうか?
実行環境:
IJCAD 2021 PRO (64bit版)
Visual Studio 2017
現状のソースコード:
'cadに折線を描く(線分の場合はN=2)
Public Sub AddPolyLine(...
0
票
0
回答
137
閲覧数
PowerPoint2016のVBAで、スライドに張り付けた音声ファイルを自動で再生させたい。
PowerPoint 2016のVBAで、スライドに張り付けた音声(.mp3)を「自動」で再生にしたいです。
もともとは「一連のクリック動作(I)」となっているので、それをVBAを使って「自動」に変更させたいです。
変更前:
「オーディオツール」→「再生」→「オーディオオプション」→「開始:一連のクリック動作」
変更後:
「オーディオツール」→「再生」→「オーディオオプション」→「開始:自動」
...
1
票
1
回答
272
閲覧数
VBAのEnumステートメントでメンバー名を角かっこ ([ ]) でくくった場合、エスケープされた名前として扱われているのか?この手法は使わない方がよいのか?
下記コードは実行可能です。
約10年ほど前、私がVBAの勉強し始めたばかりのころ、経験のあった他言語(C#,VB.net)のように
Enumのメンバ名を文字列で取得したく思い、知恵を絞って作ったToStrting()です。
質問は、この時に定義したEnumの使い方になります。
Option Explicit
Enum System
TypeA = 0
TypeB
...
0
票
1
回答
980
閲覧数
Excel マクロでDeepLを用いて翻訳する際、英文をピリオド区切りではなくセル内の丸ごとで翻訳したい
表題の通りですが、文章がピリオド区切り、つまり一つの文のみでDeepLに入力されてしまうので、英文全体をセルから取得したいです。.Valueの箇所を.Textに変更したりはしています。
Sub Translate()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
...
0
票
1
回答
3,434
閲覧数
コンパイル エラーです。: プロシージャの外では無効です。どこのエラーを修正すればよいのでしょうか?
With ActivePresentation.Slides(1).SlideShowTransition
.Speed = ppTransitionSpeedFast
.EntryEffect = ppEffectStripsDownLeft
.SoundEffect.ImportFromFile "c:\sndsys\bass.wav"
....
0
票
0
回答
197
閲覧数
PowerPointのスライドショーの画面切替タイミングをスライド毎に決められた時間でVBAで自動入力する方法はありますか?
VBAの全くの初心者です。今回、初めて参加させて頂きます。
よろしくお願い致します。
PowerPointのスライドショー画面切り替え時間をVBAで一度に入力可能なサンプルコードを探しております。
今まではPowerPointのリハーサルで画面の切り替え時間を調整しておりました。
今回はあらかじめ、決められたスライド毎の時間をリハーサル、またはPowerPointで画面入力することなく、...
0
票
1
回答
224
閲覧数
VBAからURLで指定したファイルのタイムスタンプを取得したい
VBAで、URLで指定したファイルのタイムスタンプを取得したいです。
例
http://example.com/files/abcde.xlsx
一度ダウンロードしてしまえばいくらでも取得できるとは思うのですが、ダウンロードする前に確認して、新しくなっているようならダウンロードする処理をさせたいと思っています。
よろしくお願いします。
1
票
1
回答
339
閲覧数
C#、もしくはVBA(API?)で、インストールされているMS Officeのビット数を調べたい
現在でも、Officeが32bitか64bitかが混在しているさなかだと思いますが、それを
C#やVBAのコードでPCにインストールされているOfficeのbit数を取得できる方法を探しています。
手動で確認する方法は解っていますが、それをコードで実現したいのです。
使用する言語は、C#かVBAだけです。もちろんAPI等も触るかと思います。
お分かりの方がいましたら、回答をお願いいたします。
1
票
2
回答
183
閲覧数
Word文書内の複数の文字列をイタリックに変換する方法
Word文書内の複数の文字列をイタリックに変換する方法を探しております。
例えばword文書内に
文字列1
文字列2
文字列1
文字列3
・
・
・
とある場合に、"文字列1"のみであれば、以下のWordVBAのコードで変換できるのですが、複数単語("文字列2","文字列3"のように)...
-1
票
1
回答
186
閲覧数
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
回答
88
閲覧数
配列ブロック(AddMInsertBlock)の書き方
AUTOCADからの移行作業を行っております
AUTOCADでは動作していたのですがIJCADでは下記のエラーが出ます
実行時エラー '-2147467259(8004005)':
'AddMInsertBlock'メソッドは失敗しました:'IGcadModelSpeace'オブジェクト
作業はブロックを1定の幅で並べるという物です(枠を作る)
...
1
票
1
回答
1,140
閲覧数
ExcelVBAでワークシートにPDF画像を追加する方法
事務作業を効率化するため、最近ExcelVBAを学び始めた者です。
初質問のため、質問内容やコードにわかりづらいことがありましたら誠に申し訳ございません。何卒宜しくお願いいたします。
目的
-PDFファイルを開き、ExcelワークシートにShapeとしてPDF画像を追加する-
上記を達成するためのより良い方法を知りたい
使用アプリケーション
・Excel 2016
・Adobe Acrobat ...
0
票
1
回答
169
閲覧数
フォルダを指定するダイアログを出して、選択したフォルダのファイルをすべて読み込む用に変更したら、400エラーが出てしまいました。
元々は、マクロが入っているフォルダの中にある、エクセルフォイルを読み込んで、
処理を進めていくプログラムだったのですが、自分で、任意のフォルダを選択して、
その中に、入っているすべてのファイルの値を取得できるように変えたら、400エラーが出てしまいました。
ご教授お願いいたします。
Sub 単体テスト仕様書マクロ()
Dim wFile As String
Dim wFilePath ...
1
票
1
回答
98
閲覧数
値を取得するコードを追加したい
wItem(i) = FoundCell.Offset(i + 1, 0).Valueの部分で機能プログラム名の値は、取得されて表示されたのですが、この、値を取得する処理をもう3件追加したいです。参照するエクセルは同じなのですが、取得したいセルの位置はそれぞれ異なります。どのようにしたらうまくいくでしょうか。
Sub 単体テスト仕様書マクロ()
Dim wFile As ...
0
票
2
回答
369
閲覧数
ドライブ直下のフォルダのファイル数と最終更新日時の取得
下記の通りドライブ直下にフォルダがあるとします。
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
回答
252
閲覧数
VBAのセルの値と同じ名前のシート名をセットするとインデックスが有効範囲にありませんとエラーになる
一覧表のA列のセルの値(確認用No)と同じ名前のシートにデータを自動転記したい。
処理中の対象レコードが、どのシートに転記されるのかを判定するコードを書いたがインデックスが有効範囲にありませんとエラーになってしまう。
Set wstNo = Worksheets(.Cells(r, "A").Value) '...
0
票
1
回答
121
閲覧数
ACADからIJCADにVBAを移植調査中ですが、 IJCAD VBA で、他の図面のブロックを呼び出して配置する場合の設定方法を教えてください。
'================================ 他図面からのブロックコピー 有無の確認 ==========================
'下記AUTOCAD(2020)での設定ですが、IJCAD(2020 PRO) の場合はどのように設定すれば良いのか
'教えてください。
'ちなみに、これをIJCADで実行すると途中で、エラーとなってしまいます。
'...
0
票
0
回答
554
閲覧数
ListViewのチェックボックスを外した時のイベントは取得できない、で正しいでしょうか?
ListViewのチェックボックスを外した時のイベントは取得できない、で正しいでしょうか?ItemCheckはチェックを付けた時だけしか感知しませんでした。
やりたいことは、チェックボックスのON/OFFによって、変更があった行だけの情報を内部データに更新したいと思っています。
ItemClickというイベントだと、チェックボックスをチェックボックス以外の行の部分をクリックすると感知しますが、...
0
票
1
回答
210
閲覧数
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
票
2
回答
2,784
閲覧数
VBA if~else if をそれぞれ一行で記載する場合の書き方
下記のようにif~else ifを各ブロック1行で記載しておりますが、
「コンパイラエラー:End ifに対応するifブロックがありません」となってしまいます。
どのように修正すればよいでしょうか、またはこのような書き方はできないのでしょうか。
If value = "1" Then requestType = "01"
ElseIf ...
0
票
2
回答
1,116
閲覧数
VBA: オブジェクト配列を変数に設定する際、「コンパイルエラー: オブジェクトが必要です。」となる。
VBAでクラスを自作しました。
test Moduleのtestメソッド実行時に、GetSheetObjsメソッドの戻り値をセットする行Set GetSheetObjs = sheets部分で、sheetsが選択され色が反転した状態になりコンパイルエラーが発生します。
Class1
Option Explicit
Public Sub test()
Dim ...
0
票
1
回答
950
閲覧数
戻り値としてObjectを指定している関数がDictionary型オブジェクトを返す際、「型が一致しません」というエラーが出る。
VBAでWeb APIに接続してデータを取得しようと試みています。
参考にしたのは以下のページです。
VBA で Web API を呼び出す - Qiita
まず、下記手順でVBA-JSON のインポートを行いました。
VBA-JSON のインポート
VBA-JSON の最新版 (.zip) をダウンロードする。
ダウンロードしたファイルを解凍する。
解凍したフォルダを任意の場所に配置する。
...
0
票
1
回答
140
閲覧数
ACCESSで検索フォームを作成したい
ACCESS VBAで検索フォームを作成したいと考えています。
(クエリ―でも同じようなことはできると思うのですが、今回はVBAで実装したいと考えています)
添付画像のように「各会員番号」と「各店舗」との距離が格納されている同一フォーマットのテーブルが約20ほどあります。(テーブルはチェーンごとに分割されている)
条件を指定することで、...
0
票
0
回答
1,660
閲覧数
Excel VBA 解像度を上げたPCでフォームなどを作ると、実行時にフォームが小さくなる解決法
Excel2016にて、初めに画面解像度を150%にしたPCでExcelを立ち上げ、フォームでいろいろ
作っていたのですが、ほかの解像度が100%のPCで動かそうとすると、異様にフォームが小さくなって表示されてしまいます。
また、もとの150%の解像度のPCで編集しようとVBEでそのフォームを確認すると、やはり小さくなってしまっています。
しかし、...
-1
票
1
回答
364
閲覧数
別シートに、行列を入れ替えたデータを抽出する方法について
元データのシート(写メ1参照)から、完成形のシート(写メ2参照)を抽出するマクロVBA を作成したいです。
作業手順を日本語にすることはできますが(写メ3参照)、
マクロVBA でどのようなコードを書けばいいのかがわかりません。
詳しい方、どのようなコードを書けばいいのか、教えていただけると幸いです。
また、良ければ、どのようにExcelVBAに精通したのか、勉強方法も教えていただけると幸いです。
...
0
票
1
回答
141
閲覧数
AutoCADからのVBAプログラムの移植
AutoCADからIJCAD(32bit)にVBAプログラムを移植する場合、dvbファイルを直接読み込むことはできないのでしょうか?
いろいろ試してみるかぎりでは、frm, bas, cls等にファイルをエクスポートしたものを読み込むことは出来そうですが、
この方法しかないのでしょうか?ご経験をお持ちの方のアドバイスをお願いします。