[vba] タグが付いた質問
VBA(Visual Basic for Applications)は、Microsoft Officeに搭載されたプログラミング言語です。インタプリタ型言語であり、コンパイルは不要です。Micorosoft OfficeのマクロはVBAで記述されます。
195
件の質問
0
票
3
回答
158
閲覧数
VBAの分岐処理について
VBAの関数すべてに分岐処理を入れてしまったのですが、これをすっきりさせる方法はないでしょうか?
ファイルAの処理 ファイルBの処理
Function ブックを開く(ファイル*)
select case ファイルA
//ファイルAの時のみの処理
case ファイルB
//ファイルAの時のみの処理
end select
//ブックを開く処理
...
0
票
2
回答
136
閲覧数
VBAのエラー処理について教えてください
修正が必要なコードがあり、確認中なのですがほぼ全ての行にエラー処理が入っております。
自分はプログラマではないのでよくわからないのですが、以下のようにクリティカル?な処理には全て If Not .. GoTo ErrProc が入っているのですが、クリティカルな処理はこのように記載するほうがよいのでしょうか?
それともエラー処理自体を関数化するなど別の方法があったりするのでしょうか?
...
-2
票
1
回答
283
閲覧数
添付ファイルのような「出」に背景色をつけるVBAで作成したい
目的
Excelで当番表を作成する際に、指定された条件に基づいて背景色を公平かつランダムに割り当てるVBAコードを作成したいです。(作成前は「出」の背景色がない状態です)
詳細は以下の通りです。
シート構成:
列に日付が記載されています。
行には名前が記載されています。
「出」と書かれたセルのみが有効です。(「休」などは無視)
背景色の割り当て:
選択セルと同じ背景色を使って、範囲選択内、...
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などではそのような事は起きません。
なぜでしょうか?
よろしくお願いいたします。
2
票
1
回答
234
閲覧数
Februaryと入力するとエラーになってしまう。
予定表を自作していて、2月の行の高さを変えようとして下記のとおりマクロを書き込みましたがエラーが出てしまいます。
Range("a6").AutoFilter 1, xlFilterAllDatesInPeriodFebruary, xlFilterDynamic
With Range("a6").CurrentRegion.Offset(1, 0)
....
1
票
0
回答
212
閲覧数
WordのVBAで段落番号を「1から再開」にしたい
Wordの段落番号には「1から再開」という機能がありますが、VBAではどのようにすればよいでしょうか?
例えば契約書の項の番号は各条に紐づいて1もしくは2から始まると思いますが、「1から再開」をしないと条をまたいで項の番号が連番されてしまいます。
<<NG>>
第1条
1.甲及び乙は…
2.甲は…
第2条
3.甲は…
<<OK>>
第1条
1.甲及び乙は…
2.甲は…
第2条
1.甲は…
...
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
回答
535
閲覧数
ユーザーフォームでWebBrowserをクリックするとExcelが強制終了する
VBAでユーザーフォームを作成し、そこにWebBrowserコントロールを貼り付けています。
WebBrowserでは、以下のコードでインターネット上の画像のURLにNavigateさせて、ユーザーフォーム上で画像を表示できるようにしております。
WebBrowser.Navigate "画像のURL"
こちら問題なく表示されるのですが、表示されたあと、...
1
票
0
回答
561
閲覧数
画像選択ダイアログを表示させるため、 Application.Dialogs(xlDialogInsertPicture).Show を実行するとエラー画面が出る。
Excel(Office365 ver2310)にて昨日まで普通に使用できていた、
画像選択を行うVBAを記載したファイルにて、急にエラーが出るようになりました。
試験的に新規にBookを作成、そこにボタンを1個配置し、
そのボタンに下記コードが書いて実施してみましたが、
下記のようなエラーが出ます。
Sub ボタン1_Click()
fname1 = Application.Dialogs(...
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
自力では解決できず。ご教示いただけますと幸いです!
現状のコード
...
-1
票
1
回答
489
閲覧数
エクセルVBAで条件を満たすもののうち最小のものを取得する
エクセルで次のような表がシートにあったとします。
グループ
値
A
3
A
4
A
5
B
4
B
7
B
8
この時、SQLで言う所の
select MIN(値)
from table
where グループ='A'
のようなことをエクセルVBAでやりたいのですが、どのようなコードを組めばよいでしょうか?
よろしくお願いします。
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;
...
1
票
1
回答
361
閲覧数
クラスモジュール開発でのエラー処理で不思議な現象に遭遇
表記、状況は把握できているのですが、「なぜ」の部分が解明できずモヤモヤ状態です。
何か調査のヒントを頂けたらと思います。
標準モジュールで以下を実行 ⇒ test01, test02とも正常終了で結果も問題なし
※この関数は、配列の次元数を求めるモノでエラートラップ方法だけを変えています。
Function test1() As Long
On Error GoTo Finally
...
0
票
3
回答
6,260
閲覧数
マクロでOneDriveに入っているファイルを開けたい
会社でOneDriveを使用しており、そこに入っているフォルダの中のワードファイルを開き(参照)して、エクセルの指定セルの文字を置換し、別のワードファイルに保存するというマクロを作成中です。
自分のデスクトップのフォルダでは成功しますが、OneDriveに格納すると下記のところで、エラー52が表示されます。
Set wordDoc = wordapp.Documents.Open(...
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
票
1
回答
351
閲覧数
エクセルで1つのセルの中に異なる色付きで入力された文字列を自動で分割して新しいセルに代入したい
エクセルで1つのセルの中に異なる色付きで入力された文字列を自動で分割してセルに代入するにはどのようにしたらいいでしょうか。
たとえば
セル[A1] あああ(黒色)いいい(青色)ううう(黒色)
とセルに入力されているものを
セル[A2] あああ(黒色)
セル[A3] いいい(青色)
セル[A4] ううう(黒色)
と分割したいという具合です。
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
回答
576
閲覧数
VBA(Excel)の処理速度について
logファイル(7~8万行程度)を読み込み、A列に空白があった場合に、
その列を削除する処理ですが、この処理だけでも
3~5分程度かかってしまいます。
Excelの処理では、7~8万行の処理では、このぐらいの時間がかかって
しまうものなのでしょうか?
PCのスペックは、Win10pro core i7 メモリ16GBです。
Sub test()
Dim txtPath As String
...
0
票
1
回答
915
閲覧数
VBA の正規表現でマッチした文字列を後読みを使わず取り出すには?
vbaでの正規表現についての質問です。vbaでは調べたところ後読みができないようですが
【~~~~】
のカッコ内の文字だけにマッチする後読みを使わない方法を教えて頂けますでしょうか。
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
票
2
回答
534
閲覧数
Excelのシェイプのフォント色が自動かどうかの判別
エクセルマクロにて、
シェイプのフォント色が「自動」かどうかを判別しようとしています。
以下のように、ColorIndexがxlColorIndexAutomaticの場合、フォント色を「自動」と判断していますが、
Excel上でカラーパネルより、フォント色に黒(Colorコードは0)を設定した場合も、ColorIndexがxlColorIndexAutomaticとなる為、黒と「自動」...
0
票
1
回答
398
閲覧数
VBA 高速化について
VBAでデータの整形、整理を行っていますが、
とにかく処理が遅くて困っております。
調べたところ、セルに直接書き込む処理を減らすため
配列を使い、セルに直接書き込む回数を減らすことで
速度の改善が可能とのことが分かりました。
そこで、一旦、テキストファイルを読み込んで表示されたセル範囲を
regionArr = Range("A1").CurrentRegionとし、...
0
票
0
回答
145
閲覧数
VBA エクセルシートでの計算結果を蓄積して、シート上に戻すプログラムの方法
質問事項は、モンテカルロ法のエクセルでの計算とVBAの組み合わせです。
売上高に乱数を入れて変化をさせ、その変化した5期分の売上高を元に成長率を計算するエクセルシートを作成しました。
その結果の成長率を1000回試行した結果を以って、モンテカルロ法でボラティリティを出すことをしたいです。
その1000回試行を、エクセルシートの計算を使いながら(エクセル上で経費の差引等がされています)、...
0
票
1
回答
240
閲覧数
VBAでCOMコンポーネント使って特定のサービスを取得する方法を、C#(.Net)で行う方法について
こんにちは。
現在、VBAを使用して、特定アプリ内の情報をCOMコンポーネント使い、その特定サービスを取得しました。
それを同じようにC#(.Net)でもできるのかお聞きしたいです。.Netは、VisualStudio2019を使用したものです。
VBAの例を以下です。
'オブジェクトのインスタンス化
Set xxxApp = GetObject(, "XXXXApplication&...
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
票
2
回答
457
閲覧数
C#で作ったCOM内の配列要素にアクセスができない
Excel用のCOMをC#で作っております。
Parameter.cs
[ClassInterface(ClassInterfaceType.None)]
[ComDefaultInterface(typeof(IParameter))]
[ComVisible(true)]
public class Parameter : IParameter
{
public Member[] ...
0
票
1
回答
1,214
閲覧数
C#でExcelの条件付き書式を指定したいです。
c#で既に作られたExcelファイルを開き、一定の範囲を指定して、
条件付き書式を利用して空白のセルを「黄色」に表示したいですが、
Excel.Range range = sheet.get_Range(一定の範囲);
range.FormatConditions.Add(Excel.XlFormatConditionType.xlBlanksCondition);
range.Interior....
0
票
1
回答
837
閲覧数
VBA 実行時のエラー コンパイルエラー(変数が定義されていません)の解決方法
Excelで作成された請求書データ"請求書フォーム_○○_FY21.xlsx"(同book内にシートが複数)から一覧を作成したいと思い、まず1つの請求書データをVBAで取得したかったのですが、変数が定義されていません、とエラーになってしまいまいます。
どのようにすれば解決できますでしょうか。(参照先の"請求書フォーム_○○_FY21.xlsx"...
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
票
2
回答
4,034
閲覧数
Excel VBA でOutlookのメールを作成するのですが、実行後にメールの画面がアクティブにならないことがあるので、 アクティブ(最前面)にする方法を教えてください。
Excel VBAでOutlookのメールを作成するのですが、実行後にメールの画面がアクティブにならないことがあります。 アクティブ(最前面)にする方法を教えてください。
コードは以下のような感じです。
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Set objOutlook = ...
1
票
2
回答
4,195
閲覧数
日時を含むカラムに対して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
回答
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
票
1
回答
297
閲覧数
Excelのセルに時間を楽に入力する方法が知りたいです。
日報を毎日作成するのですが、Excelのセルに実施時間を楽に入力する方法を知りたいです。
9:00~11:00のような感じで一つのセル(結合していない)に入力し、
下のセルにも同じように、11:00~12:00のように時間を入力していきます。
関数でもVBAでもリストボックスでも何でも良いので、いい案があれば教えてください。
0
票
0
回答
542
閲覧数
Excel VBAからPython関数を実行する際のデバッグ方法について
https://fastclassinfo.com/entry/run_python_from_vba/#2-BPython
あたりを参考に、Excel VBA から、python関数を呼び出そうとしています。
この通りにやったところ、ごく小規模なPythonプログラムは動かせるようになりました。(Pythonから、エクセルシートにデータを書き込むなど)
...
1
票
2
回答
1,419
閲覧数
BETWEENで一定間隔のデータを抜き出すにはどうすれば良いのでしょうか?
現在、1秒間隔でcsvファイルにデータを記録しています。
このデータから1分間隔のデータを抽出したいと考えています。
BETWEENを使って一定期間のデータを抜き出すことには成功しましたが、それは1秒間隔のデータなのでそこから更に1分間隔のデータに変更するのに少し時間を要しています。
開発環境はVBAです。
そもそも、BETWEENでそういったことが出来るか分かっていませんのでご教授をお願いします。...