[vba] タグが付いた質問
VBA(Visual Basic for Applications)は、Microsoft Officeに搭載されたプログラミング言語です。インタプリタ型言語であり、コンパイルは不要です。Micorosoft OfficeのマクロはVBAで記述されます。
176
質問
0
票
1
回答
65
閲覧数
VBA 2次元の動的ジャグ配列
目的:
2次元の動的ジャグ配列を作りたい
2次元目のみを後から拡張したい
1次元配列をvariant形で宣言し、中にまた1次元配列を格納する方針を取りました。
3つの方法を試しましたが、どれもエラーになってしまいました。
正しい方法を教えてください。
方針1:
2次元目を直接redimで拡張する
Sub main()
Dim arr(10) As Variant
arr(0) = ...
0
票
0
回答
90
閲覧数
seleniumでChrome,Edgeのプリンタ指定 特に開発者ツール
seleniumでChromeで印刷画面からプリンタを指定しようと思っています。
言語はVBAかpythonになりますが、どちらかというと開発者ツールの挙動についてお聞きしたいです。
とりあえずChrome+VBAにします。
以下のコードでプリンタ指定ダイアログが開きます。
ここで、プログラム側からは 「もっと見る..」をクリックしたいのですが、dom,またはJSPathを調べようと思い、検証(...
0
票
1
回答
83
閲覧数
エクセルで1つのセルの中に異なる色付きで入力された文字列を自動で分割して新しいセルに代入したい
エクセルで1つのセルの中に異なる色付きで入力された文字列を自動で分割してセルに代入するにはどのようにしたらいいでしょうか。
たとえば
セル[A1] あああ(黒色)いいい(青色)ううう(黒色)
とセルに入力されているものを
セル[A2] あああ(黒色)
セル[A3] いいい(青色)
セル[A4] ううう(黒色)
と分割したいという具合です。
0
票
0
回答
146
閲覧数
VBAの実行時エラー '91'の解消法について
お世話になります。
「Set cellchi = ws.Range(Cells(suu, 2), Cells(suu, 67)).Value」行で以下のエラーが発生してしまいます。
実行時エラー '91':
「オブジェクト変数またはWithブロック変数が設定されていません。」
エラーを調べてみると、...
0
票
0
回答
393
閲覧数
C#で作ったクラスライブラリをVBAで使用しようとすると『クラスが登録されていません』となってしまう
VisualStudio2019を使用しています。
https://www.shujima.work/entry/2020/05/10/162356
こちらのサイトをもとに、ExcelなどのVBAで使用できるクラスライブラリ(COM)を
C#で作成してみました。
管理者で作成もし、実際にVBA側に参照の追加もでき、いざ実行すると、『クラスが登録されていません』と
エラーになってしまうのですが、...
0
票
1
回答
116
閲覧数
Excel VBAで、ループを持つ関数を再入可能にする方法 (実装は一箇所のみで、独立して実行する方法)
あるシート内で、ボタンのクリックによって開始する関数があります。
その関数は、別のボタンのクリックによって停止しない限り無限に終了しない関数です。
上記のシートを複数用意して、複数の無限ループをシートごとに動かしたいです。
シートをコピーすれば関数(VBE)もコピーされるのでそれも1つの手ですが、変更があった時に同じ変更を全てに適用しなければならなくなるので、関数をモジュールに移動して、...
0
票
1
回答
137
閲覧数
VBA(Excel)の処理速度について
logファイル(7~8万行程度)を読み込み、A列に空白があった場合に、
その列を削除する処理ですが、この処理だけでも
3~5分程度かかってしまいます。
Excelの処理では、7~8万行の処理では、このぐらいの時間がかかって
しまうものなのでしょうか?
PCのスペックは、Win10pro core i7 メモリ16GBです。
Sub test()
Dim txtPath As String
...
0
票
1
回答
197
閲覧数
VBA の正規表現でマッチした文字列を後読みを使わず取り出すには?
vbaでの正規表現についての質問です。vbaでは調べたところ後読みができないようですが
【~~~~】
のカッコ内の文字だけにマッチする後読みを使わない方法を教えて頂けますでしょうか。
0
票
1
回答
123
閲覧数
VBA 値の取得と配列への格納について
以下のコードでセルの値を配列に格納する処理をおこなっていますが、Debug.Print ary(j, 1) で確認しても値が表示されない(取得できていない)ようです。
ary = Array(Cells(j, "E").Value, Cells(j, "F").Value, Cells(j, "G").Value, Cells(j, &...
0
票
1
回答
99
閲覧数
VBA 配列の処理について
使用しているセル範囲を配列に格納し、
処理を行おうとしていますが、if文で文字列の比較ができていない状態です。
If r(i, 2) Like "MB*" Then を If r(i, 2).value Like "MB*" Then
としてみても、「オブジェクトが必要です」というエラーになってしまいます。
どういうことでしょうか?
r = Range(&...
0
票
2
回答
166
閲覧数
Excelのシェイプのフォント色が自動かどうかの判別
エクセルマクロにて、
シェイプのフォント色が「自動」かどうかを判別しようとしています。
以下のように、ColorIndexがxlColorIndexAutomaticの場合、フォント色を「自動」と判断していますが、
Excel上でカラーパネルより、フォント色に黒(Colorコードは0)を設定した場合も、ColorIndexがxlColorIndexAutomaticとなる為、黒と「自動」...
0
票
1
回答
244
閲覧数
VBA 高速化について
VBAでデータの整形、整理を行っていますが、
とにかく処理が遅くて困っております。
調べたところ、セルに直接書き込む処理を減らすため
配列を使い、セルに直接書き込む回数を減らすことで
速度の改善が可能とのことが分かりました。
そこで、一旦、テキストファイルを読み込んで表示されたセル範囲を
regionArr = Range("A1").CurrentRegionとし、...
0
票
0
回答
92
閲覧数
VBA エクセルシートでの計算結果を蓄積して、シート上に戻すプログラムの方法
質問事項は、モンテカルロ法のエクセルでの計算とVBAの組み合わせです。
売上高に乱数を入れて変化をさせ、その変化した5期分の売上高を元に成長率を計算するエクセルシートを作成しました。
その結果の成長率を1000回試行した結果を以って、モンテカルロ法でボラティリティを出すことをしたいです。
その1000回試行を、エクセルシートの計算を使いながら(エクセル上で経費の差引等がされています)、...
0
票
0
回答
118
閲覧数
PowerPoint2016のVBAで「HideWhileNotPlaying」の設定で、 既存のアニメーション軌跡(直線)が消える。
PowerPoint2016
マクロで、サウンドオブジェクトを埋め込み、PlaySettingsで、HideWhileNotPlaying = Trueの後、
① 既存のアニメーション設定の軌跡(直線)が消えてしまう。
② 既存のアニメーションのタイミングが、「直前の動作と同時」が「直前の動作の後」に変わってしまう。
上記2つの現象がでてしまいます。
このため、回避策として、...
0
票
1
回答
158
閲覧数
VBAでCOMコンポーネント使って特定のサービスを取得する方法を、C#(.Net)で行う方法について
こんにちは。
現在、VBAを使用して、特定アプリ内の情報をCOMコンポーネント使い、その特定サービスを取得しました。
それを同じようにC#(.Net)でもできるのかお聞きしたいです。.Netは、VisualStudio2019を使用したものです。
VBAの例を以下です。
'オブジェクトのインスタンス化
Set xxxApp = GetObject(, "XXXXApplication&...
0
票
0
回答
77
閲覧数
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
票
0
回答
350
閲覧数
Excel2013 と 2016 VSTO アドイン VisualC# での開発において特定処理でExcelが0xc0000374で終了する
Excel2013 と 2016 VSTO アドイン VisualC# での開発において特定処理でExcelが0xc0000374で終了する
お世話になります
Excelのアドイン作成において特定処理でExcelが落ちることがわかったのですが、
原因や対処方法がわからず行き詰まっております。
最小限の処理で再現させることまでできたので質問させてください。
環境
Windows 10 Pro ...
0
票
1
回答
141
閲覧数
フォルダー内の値をすべて取得するコード
フォルダ内の値をすべて取得する方法を教えてください。
下記のマクロだとブックの一番最初の値だけを取得してしまいます。
取得した値をすべて転記したいのですが方法を教えてください。
Sub 単体テスト仕様書マクロ()
Dim wFile As String
Dim wFilePath As String
Dim i As Long
'...
0
票
0
回答
93
閲覧数
PowerPoint の VBA でビデオ作成時、音声が途中で途切れてしまう
PowerPointのノート部分を音声に変換してスライドに音声を埋め込む下記のマクロを挿入し、マクロ実行後、手動で エクスポート - ビデオの作成をおこなうと音声が最後まで再生されますが、VBAのCreateVideoやSaveAsでビデオの作成をおこなうと音声が途中で切れて次のスライドに切り替わってしまいます。
エクスポート - ビデオの作成をVBAで実行する際、注意点はありますか?
With ...
0
票
2
回答
331
閲覧数
C#で作ったCOM内の配列要素にアクセスができない
Excel用のCOMをC#で作っております。
Parameter.cs
[ClassInterface(ClassInterfaceType.None)]
[ComDefaultInterface(typeof(IParameter))]
[ComVisible(true)]
public class Parameter : IParameter
{
public Member[] ...
0
票
1
回答
431
閲覧数
C#でExcelの条件付き書式を指定したいです。
c#で既に作られたExcelファイルを開き、一定の範囲を指定して、
条件付き書式を利用して空白のセルを「黄色」に表示したいですが、
Excel.Range range = sheet.get_Range(一定の範囲);
range.FormatConditions.Add(Excel.XlFormatConditionType.xlBlanksCondition);
range.Interior....
0
票
1
回答
385
閲覧数
VBA 実行時のエラー コンパイルエラー(変数が定義されていません)の解決方法
Excelで作成された請求書データ"請求書フォーム_○○_FY21.xlsx"(同book内にシートが複数)から一覧を作成したいと思い、まず1つの請求書データをVBAで取得したかったのですが、変数が定義されていません、とエラーになってしまいまいます。
どのようにすれば解決できますでしょうか。(参照先の"請求書フォーム_○○_FY21.xlsx"...
0
票
1
回答
93
閲覧数
同じイベントを"SheetChange"として保存したときと"Open"として保存したときに”Open”として保存した方にだけエラーが出る
Windows11/Excel2019/Macro
それぞれのシートの”A1”の値が0.2以下であればそのシートタブを青色にし、0.1以上0.2未満であれば緑色にし、0.1未満0.01以上であればオレンジ色にし、最終的にそれ未満の場合には初期設定の色にするイベントを”ThisWorkbook”に”SheetChange”として下記の通り保存しました。
Private Sub ...
0
票
2
回答
1,150
閲覧数
Excel VBA でOutlookのメールを作成するのですが、実行後にメールの画面がアクティブにならないことがあるので、 アクティブ(最前面)にする方法を教えてください。
Excel VBAでOutlookのメールを作成するのですが、実行後にメールの画面がアクティブにならないことがあります。 アクティブ(最前面)にする方法を教えてください。
コードは以下のような感じです。
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Set objOutlook = ...
1
票
2
回答
585
閲覧数
日時を含むカラムに対して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
回答
172
閲覧数
VBA 正規表現でHTMLのリンクタグ(aタグ)の属性を、別タグにして『rel=”noopener noreferrer”』を付加するように変換したい。
ExcelVBAで、HTMLを自動出力するソフトを作っています。
リンクタグを全て別タグ(別ウインドウ)で開かせるように
変換したいと思っています。また、セキュリティ対策に自動で
rel=”noopener noreferrer”が追加されるようにしたいのですが、
正規表現が不慣れなものでどのようにパターンを書けばいいのかが
解りません。
HTML内のすべてのaタグでかまわないので、...
0
票
0
回答
93
閲覧数
エクセル2000で作成したアニメーション用VBAを2010で動かしたい
エクセル2000で作成したアニメーション用のVBAですが、
最近のエクセル2010ではアニメーション表示はVBAのコードが変更されているためか動きません。
エクセル2000でないと動きませんが、2010でも動くようにするには何処を変更すれば良いのか分かりませんでした。
ご知見を伺いたく投稿しました。
Private Sub CommandButton1_Click()
Dim ND, NEX, i ...
0
票
1
回答
62
閲覧数
UserFrom1の変数をUserFromフォーム2に受け渡す方法
UserFrom1のCommandButton1をクリックした際に、変数Aに10を代入。(変数Aはパブリック変数)その後UserFrom2.Showで、UserFrom2を表示させ、UserFrom2のMsgBoxに、変数Aの内容を表示させるにはどの様なコードになりますでしょうか?
現在、UserFrom2内のプログラムで、MsgBox UserFrom1.Aとしていますが、10が表示されません。
0
票
1
回答
183
閲覧数
Excelのセルに時間を楽に入力する方法が知りたいです。
日報を毎日作成するのですが、Excelのセルに実施時間を楽に入力する方法を知りたいです。
9:00~11:00のような感じで一つのセル(結合していない)に入力し、
下のセルにも同じように、11:00~12:00のように時間を入力していきます。
関数でもVBAでもリストボックスでも何でも良いので、いい案があれば教えてください。
0
票
0
回答
345
閲覧数
Excel VBAからPython関数を実行する際のデバッグ方法について
https://fastclassinfo.com/entry/run_python_from_vba/#2-BPython
あたりを参考に、Excel VBA から、python関数を呼び出そうとしています。
この通りにやったところ、ごく小規模なPythonプログラムは動かせるようになりました。(Pythonから、エクセルシートにデータを書き込むなど)
...
1
票
2
回答
522
閲覧数
BETWEENで一定間隔のデータを抜き出すにはどうすれば良いのでしょうか?
現在、1秒間隔でcsvファイルにデータを記録しています。
このデータから1分間隔のデータを抽出したいと考えています。
BETWEENを使って一定期間のデータを抜き出すことには成功しましたが、それは1秒間隔のデータなのでそこから更に1分間隔のデータに変更するのに少し時間を要しています。
開発環境はVBAです。
そもそも、BETWEENでそういったことが出来るか分かっていませんのでご教授をお願いします。...
1
票
1
回答
289
閲覧数
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
回答
81
閲覧数
VBA ボタン押す→ファイル参照→ファイル名表示→次へボタン→選択した音声ファイル再生
タイトルにあるような動作をするプログラムを作りたいです。
VisualStudio2017をつかって作成しています。
デザインのところで、ボタン(ファイル参照)、テキストボックス、ボタン(次へ)の3つを配置しています。
ネットで検索したもののよくわからずじまいでした。。。
GetOpenFilenameをつかうのかな…?程度の理解です。
調べようにも調べ方が悪いのか一向に進まないので、...
-1
票
3
回答
154
閲覧数
四面体(三角錐)の内接球のsympyを探しています。 vbaソルバーでやってみました。
①四面体(三角錐)の内接球のsympyを探しています。他言語でも。
②vbaソルバーで実行してみました。vbaコードを短くする方法を教えて下さい。一例しか実行していません。
➂以下のコードの、「Range("A7").Formula」複数行で書けませんでした。
よろしくお願いします。
オリジナルポスト
(0,0,0),(1,0,0),(0,1,0),(0,0,2)
「...
0
票
2
回答
759
閲覧数
VBAでPCのセッションIDを取得したい
Excel VBAで、コマンドプロンプトから query session で取得できるセッション番号をコードで拾えるようにしたいのですが、どうすればできますでしょうか。
他のサイトを見て、Shellを使用して取得しようとしたのですが、戻ってきた値は空でした。
テストとして書いてみただけのコードですので、どうして i が文字列変数なのかとかは気にしないでください。
よろしくお願いいたします。
...
0
票
1
回答
182
閲覧数
ExcelVBAを用いて、新聞PDFデータ内のワードを検索して、ヒットしたならば、検索ワードにヒットしたPDFデータをExcelに抽出したい
Acrobat Reader Proを用いて、VBAで書いているのですが、どうもうまくいきません。
PDFをXML変換してから、Excelに抽出しようとしたんですが、XMLファイルが新聞の内容を上手く変換できていなくて、できませんでした。
大まかな方針を示していただけたら、嬉しいです。
また、コードも添付していただけたら、さらにうれしいです。
よろしくお願いします。
0
票
1
回答
1,231
閲覧数
VBAを使って、XMLファイルの特定のタグ<ImageData src="image">のみをExcelに表示させたい
[![画像の説明をここに入力][1]][1]
この画像のXMLの <ImageData src="image"> タグの部分のみをExcelに抽出したいです。
コードは、下記のようになっております。
よろしくお願いします。
Option Explicit
Sub ボタン4_Click()
'シート設定
Dim ws As Worksheet
...
1
票
0
回答
233
閲覧数
スライドに張り付けたmp3をPowerPoint 2016のVBAを使って自動再生モードにしたい
VBAでスライドに貼り付けたmp3を、自動再生モードにしたいのですが、PowerPOint2016では意図した通り処理されずに困っています。
下記コードは、PowerPoint2013では、期待どおり動き、mp3は自動再生になります。
しかし、PowerPoint2016に対して、下記コードを実行すると「自動」再生ではなく「一連のクリック」というメニューitemが選択されてしまいます。
...
1
票
1
回答
635
閲覧数
VBAのEnumステートメントでメンバー名を角かっこ ([ ]) でくくった場合、エスケープされた名前として扱われているのか?この手法は使わない方がよいのか?
下記コードは実行可能です。
約10年ほど前、私がVBAの勉強し始めたばかりのころ、経験のあった他言語(C#,VB.net)のように
Enumのメンバ名を文字列で取得したく思い、知恵を絞って作ったToStrting()です。
質問は、この時に定義したEnumの使い方になります。
Option Explicit
Enum System
TypeA = 0
TypeB
...
0
票
1
回答
1,337
閲覧数
Excel マクロでDeepLを用いて翻訳する際、英文をピリオド区切りではなくセル内の丸ごとで翻訳したい
表題の通りですが、文章がピリオド区切り、つまり一つの文のみでDeepLに入力されてしまうので、英文全体をセルから取得したいです。.Valueの箇所を.Textに変更したりはしています。
Sub Translate()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
...
0
票
1
回答
6,701
閲覧数
コンパイル エラーです。: プロシージャの外では無効です。どこのエラーを修正すればよいのでしょうか?
With ActivePresentation.Slides(1).SlideShowTransition
.Speed = ppTransitionSpeedFast
.EntryEffect = ppEffectStripsDownLeft
.SoundEffect.ImportFromFile "c:\sndsys\bass.wav"
....
0
票
0
回答
313
閲覧数
PowerPointのスライドショーの画面切替タイミングをスライド毎に決められた時間でVBAで自動入力する方法はありますか?
VBAの全くの初心者です。今回、初めて参加させて頂きます。
よろしくお願い致します。
PowerPointのスライドショー画面切り替え時間をVBAで一度に入力可能なサンプルコードを探しております。
今まではPowerPointのリハーサルで画面の切り替え時間を調整しておりました。
今回はあらかじめ、決められたスライド毎の時間をリハーサル、またはPowerPointで画面入力することなく、...
0
票
1
回答
361
閲覧数
VBAからURLで指定したファイルのタイムスタンプを取得したい
VBAで、URLで指定したファイルのタイムスタンプを取得したいです。
例
http://example.com/files/abcde.xlsx
一度ダウンロードしてしまえばいくらでも取得できるとは思うのですが、ダウンロードする前に確認して、新しくなっているようならダウンロードする処理をさせたいと思っています。
よろしくお願いします。
1
票
1
回答
417
閲覧数
C#、もしくはVBA(API?)で、インストールされているMS Officeのビット数を調べたい
現在でも、Officeが32bitか64bitかが混在しているさなかだと思いますが、それを
C#やVBAのコードでPCにインストールされているOfficeのbit数を取得できる方法を探しています。
手動で確認する方法は解っていますが、それをコードで実現したいのです。
使用する言語は、C#かVBAだけです。もちろんAPI等も触るかと思います。
お分かりの方がいましたら、回答をお願いいたします。
1
票
2
回答
303
閲覧数
Word文書内の複数の文字列をイタリックに変換する方法
Word文書内の複数の文字列をイタリックに変換する方法を探しております。
例えばword文書内に
文字列1
文字列2
文字列1
文字列3
・
・
・
とある場合に、"文字列1"のみであれば、以下のWordVBAのコードで変換できるのですが、複数単語("文字列2","文字列3"のように)...
-1
票
1
回答
193
閲覧数
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
回答
133
閲覧数
配列ブロック(AddMInsertBlock)の書き方
AUTOCADからの移行作業を行っております
AUTOCADでは動作していたのですがIJCADでは下記のエラーが出ます
実行時エラー '-2147467259(8004005)':
'AddMInsertBlock'メソッドは失敗しました:'IGcadModelSpeace'オブジェクト
作業はブロックを1定の幅で並べるという物です(枠を作る)
...
1
票
1
回答
2,313
閲覧数
ExcelVBAでワークシートにPDF画像を追加する方法
事務作業を効率化するため、最近ExcelVBAを学び始めた者です。
初質問のため、質問内容やコードにわかりづらいことがありましたら誠に申し訳ございません。何卒宜しくお願いいたします。
目的
-PDFファイルを開き、ExcelワークシートにShapeとしてPDF画像を追加する-
上記を達成するためのより良い方法を知りたい
使用アプリケーション
・Excel 2016
・Adobe Acrobat ...
0
票
1
回答
297
閲覧数
フォルダを指定するダイアログを出して、選択したフォルダのファイルをすべて読み込む用に変更したら、400エラーが出てしまいました。
元々は、マクロが入っているフォルダの中にある、エクセルフォイルを読み込んで、
処理を進めていくプログラムだったのですが、自分で、任意のフォルダを選択して、
その中に、入っているすべてのファイルの値を取得できるように変えたら、400エラーが出てしまいました。
ご教授お願いいたします。
Sub 単体テスト仕様書マクロ()
Dim wFile As String
Dim wFilePath ...
1
票
1
回答
115
閲覧数
値を取得するコードを追加したい
wItem(i) = FoundCell.Offset(i + 1, 0).Valueの部分で機能プログラム名の値は、取得されて表示されたのですが、この、値を取得する処理をもう3件追加したいです。参照するエクセルは同じなのですが、取得したいセルの位置はそれぞれ異なります。どのようにしたらうまくいくでしょうか。
Sub 単体テスト仕様書マクロ()
Dim wFile As ...