[vba] タグが付いた質問
VBA(Visual Basic for Applications)は、Microsoft Officeに搭載されたプログラミング言語です。インタプリタ型言語であり、コンパイルは不要です。Micorosoft OfficeのマクロはVBAで記述されます。
195
件の質問
0
票
2
回答
1,946
閲覧数
VBA 実行時エラー'91'の解決法
前提・実現したいこと
VBAでエクセルの勤務表から勤務日等を抽出し、別のソフトウェアに読み込ませる転換マクロツールを作っています。
エクセルの勤務表のシートから、VBAツールのシートに勤務日を抽出転換する機能を実装中に以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
実行時エラー'91'
オブジェクト変数またはWithブロック変数が設定されていません。
...
0
票
1
回答
2,166
閲覧数
VBA 実行時エラー'438' の解決
前提・実現したいこと
エクセルのVBAとOutlookを連携させて一括送信メーラーを作っています。
一括送信メーラーにファイル添付機能を追加するため、
以前作ったVBAと統合した所、以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
実行時エラー'438'オブジェクトは、このプロパティまたはメソッドをサポートしていません。
該当のソースコード
Sub ovba()
...
0
票
1
回答
117
閲覧数
excelで行の増える方向に、罫線から値まで 値から値まで 値から罫線まで 埋めたい
excelで空文字を埋めたい
行の増える方向に、
罫線から値まで 埋めたい:その値
値から値まで 埋めたい:着色
値から罫線まで 埋めたい:その値
探しています。よろしくお願いします。
20200319---------------------------
チャレンジしてみました。
汎用性をもたせる方法を教えて下さい。
①maxr=50固定をはずしたい。
②1列しか出来ない。...
0
票
1
回答
573
閲覧数
塗りつぶしがされている文字の検索方法について
WordのVBAの塗りつぶしプロパティについて質問です。
<やりたいこと>
番号リストVBAで、灰色で塗りつぶしがされている部分を検索・Selectionを取得する)
塗りつぶしがされている部分について塗りつぶしを解除してその部分の前後に、"<" ">"を入れたい
<作ってみたけど上手く動かなかったコード>
検索オプションとしてShading....
0
票
2
回答
3,675
閲覧数
Excel VBAで作成したPDFのサイズを(VBAで)統一したい
ExcelシートのPDF化をVBAで実装したのですが、ページによってサイズが統一されていない状況になっています。
原因は下記リンクと同じ状況のようです。
ExcelからPDFを作成すると、ページのサイズがまちまち
出力したPDFをAcrobatで開き、PDFPrinterで再PDF化しているようなのですが、この流れをすべてVBA上で行いたいと考えています。
...
0
票
0
回答
584
閲覧数
VBA Selenium ChromeDriver Webメールに添付ファイルを付けたい
roundcube webmail で vba selenium chromedriver を使用してメール作成、送信を試みています。
タイトル、本文などは入れられたのですが、添付ファイルを設定する方法がどうしてもわかりません。ご存じの方、ご教授お願いします。
With CreateObject("Selenium.ChromeDriver")
.Start
.Get "...
0
票
0
回答
193
閲覧数
vbaでcsvのデータをエクセルに張り付ける
vbaやマクロでファイル内にあるすべてのcsvファイルの特定の1列を検索して、先頭の4桁の数字で一致した行をすべて抜き出して別のExcelファイルに先頭の4桁と同じシート名に張り付けるにはどうすればいいのでしょうか。
0
票
1
回答
162
閲覧数
等号を使わないプロパティ値の設定と取得
エクセル棒グラフの例:棒を網掛の表示にしてマクロ記録すると等号無しの例外的な記述になっているようです。(.Fill属性の表現の混在)
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(112, 48, 160)
.Transparency = 0
.Patterned ...
0
票
0
回答
390
閲覧数
Outlookの会議依頼における本文
エクセルのデータを抽出してOutlookの会議依頼を生成するマクロを組んでいます。しかし問題点が二つあり、
マクロによって開かせた会議依頼ウインドウ以外に別のOutlookのウインドウ(メールでも会議依頼でも)が開いていると、そちらに目的のデータが書き込まれてしまって大変
この辺(マクロで書式設定した文字列を予定アイテムの本文に書き込む方法)をみて文字列の書式は変えられるようになったけど、...
0
票
0
回答
769
閲覧数
webページを完全保存
皆様のお力をおかしください。
vba操作でwebページを丸ごと保存したい。
(htmだけの保存ではない。)
完全保存できる方法はありますか?(htmのファイルとfilesのフォルダができるようにです)
0
票
0
回答
3,411
閲覧数
Exchange環境下でユーザ自身のメールアドレスを取得したい
VBAで簡単なサインアップフォームを作ろうとしています。ワンクリックでユーザ(クリックした人)のメールアドレスをワークシートに記入するだけ、だと思っていたら、ユーザ名を抽出する方法や受け取ったメールの送信者のアドレスとかはちょろちょろ見つかるんですが、自分自身のメールアドレスとなると以外に情報がないのです・・・
自分のメアドくらい自分で入れさせろよ、というご意見もあろうかと思いますが、...
0
票
0
回答
1,650
閲覧数
VBAで会議依頼を生成したいのですが・・・
エクセルの表を基に、VBAを使ってHTML形式の会議依頼を生成したいのですが、妙なところで躓いています。まるで会議依頼ではHTMLをサポートしないかのような・・・。
以下のソースの、「予定をHTML形式に」の objAppt.BodyFormat = 3 のところで止まってしまい、438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。のエラーメッセージが表示されます・・・。
...
0
票
1
回答
242
閲覧数
IJCADのVBAでSaveASコマンド実施時にダイアログが表示されてしまう
AutoCAD VBAで作成したDXF一括変換モジュールをIJCAD 2019に移行しています。
VBAからSaveASを利用してDXFに変換しようとしているのですが、コマンド実行中にファイル保存ダイアログが表示されてしまい、一括変換ができません。
AutoCADでは特に問題なく動作していました。IJCADではAPI処理中のダイアログの表示について、設定等あるのでしょうか?
0
票
0
回答
168
閲覧数
VBAでMSProject内のタスクが無効化されていないか判別したい
VBAでMSProject内のタスクが無効化されていないか判別したいのですが、どのプロパティを利用すればよいのでしょうか?
参考にしているMicrosoftのデベロッパーセンターにそれらしきプロパティがないので、質問させて頂きました(https://docs.microsoft.com/ja-jp/office/vba/api/project.task)。
0
票
0
回答
86
閲覧数
VBAにて、MSProjectの特定範囲内のアウトラインを出力したい
VBAにて、MSProjectの特定のアウトラインのものだけを出力したいと考えています。
例えば、アウトライン「1.1.1.1」を取り出したいとき
If outline Like "[1.]" Then
だと、「.」が含まれてしまうもの全てが出力されてしまって悩んでいます。
何か、良い方法はないものでしょうか?
なお、...
0
票
0
回答
157
閲覧数
VBAでMSProjectのタスクモードを判別したい
VBAを用いてMSProjectのタスクモードが自動スケジュールなのか手動スケジュールなのかを判定させ、動作を変えたいプログラムを作成しているのですが、どう記述すればいいのでしょうか?
参考にしているMicrosoftのデベロッパーセンターにそれらしきプロパティがないので、質問させて頂きました(https://docs.microsoft.com/ja-jp/office/vba/api/...
0
票
0
回答
2,384
閲覧数
excel vba、開いたブック内の作業グループを自動解除したい
■課題
excelブックを開くタイミングで、作業グループを自動解除する方法を探してます。
対象は1つのブックだけではなく、とある数台のPCで開くブックを全て対象にしたいと考えます。
(環境=win7+Excel2010、Win10+excel2016、2つ利用)
■理由
作業グループに気づかずに編集すると、意図しない変更が発生し、これを回避したいと考えます。
■当方の試行錯誤
...
0
票
1
回答
1,541
閲覧数
outlook VBAを使用した最新メールの添付ファイルを特定のフォルダへ取り込む方法
下記のページを参考に、「あさ」というフォルダ内の最新受信1件の添付ファイルを対象(C:\保存フォルダ) へ保存できるようにしようとしています。
https://tonari-it.com/outlook-vba-mail-attachment-saveasfile/
https://tonari-it.com/outlook-vba-subfolder-mail-attachmentfile/
...
0
票
1
回答
2,124
閲覧数
C#からのExcelVBA実行と、ExcelからVBAを直接実行した場合の処理時間について
ExcelのVBAをC#で実行しようと考えています。
現状、ExcelからボタンクリックでVBAを実行すると1時間かかる処理が、C#側から「Microsoft.Office.Interop.Excel」を使って
xlApp.Run("Sheet1.Btn_Calc_Click");
で同じマクロを実行すると3時間かかってしまします。
Interop....
0
票
1
回答
843
閲覧数
C# 自作DLLをStaticで作成した場合のVBAで使用する方法
お世話になります。
大変情けない話で申し訳ないのですが、C#にて自作のDLLを作成し、VBA側で使用するまでは
たどり着いたのですが、C#側でStaticで宣言したクラスをDLLで呼び出す文法が解りません。
public class Class1
{
public Class1()
{
}
public ...
0
票
1
回答
109
閲覧数
Access VBAについて教えて下さい。
テキストボックスX1~Y1に数字(整数)を入力して、総和を求めたいです。
x1□~y1□ 総和□ ボタン□
Private Sub btnWa_Click()
Dim lSouwa As Long
lSouwa = 0
For lSouwa = txtX1 To txtY1
lSouwa = txtX1 + txtY1
Next
...
0
票
1
回答
155
閲覧数
Excel VBA もしくは Google Apps Script で、複数のシートの最終列を取得し新たな1つの列にまとめる方法
初めに以下の Sheet をご確認ください。
https://docs.google.com/spreadsheets/d/1AlwgQLEZoZz_vWz0ZqKld528ViLAl8x2nR4SZz0VoHA/edit#gid=0
↑のような形で各商品の毎月の在庫数が記録される Excel File があるのですが、
...
0
票
1
回答
2,807
閲覧数
AccessVBAで、フォームをダイアログで開いているはずが処理が流れてしまう
お世話になります。
AccessのVBAで、フォームをダイアログで(そこでブロックして)表示しようとしているのですが、どうやってもそのまま処理が流れてしまいます。
行っていることは、
プロパティでは
・ポップアップ = はい
・作業ウィンドウ固定 = はい
実際にコードで表示する際には、
DoCmd.OpenForm "F_Floor", , , , , acDialog
と ...
0
票
1
回答
1,178
閲覧数
VBAで自作DLLを使用できない
お世話になります。
VisualStudio2017Community(C#)で作成したDLLを、ExcelVBAで
使用しようとしたのですが、うまくいきません。
http://excel.syogyoumujou.com/memorandum/dll_1.html
こちらのサイト様の内容を参考にし、いざExcel側の参照設定までは
たどり着いたのですが、...
0
票
0
回答
231
閲覧数
.Copy 使用時のクラッシュ?
vbaで "Worksheets("シート名").Copy" 行(3行目)での処理時間が長いです。vbaを実行すればするほど、処理時間が長くなっているように感じます。
book = ActiveWorkbook.Name
Worksheets("シート名").Select
Worksheets("シート名").Copy
newbook = ActiveWorkbook.Name
Windows(...
0
票
0
回答
5,055
閲覧数
vbaのFindで,行を指定して下から上へ検索したい。
vbaの右端から,(FindNext,FindPrevious,after他)メソッドでできますか。
(参考)Range.Find メソッド (Excel)
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/range-find-method-excel
Sub atest()
Dim Moji As String
...
0
票
1
回答
467
閲覧数
AutoCAD VBAでダイナミックブロックの名称が検索されません。
Autocad 2008 を使用しています。
図面内にダイナミックブロックがあり、移動や回転を行いたいのですが、
VBAでダイナミックブロックを操作の対象とするために、名称を比較しながら行っています。
For Each objEntity In ThisDrawing.ModelSpace
' 取り出された図形が対象を判定
If objEntity.ObjectName = "...
0
票
1
回答
415
閲覧数
AutoCADでブロック名称を変更したい
お世話になっております。
AutoCAD2008 VBAについての質問です。
現存するブロックの名称を変更したいのですが、方法がわかりません。
現状、下記のようにプログラムを作成しています。
Dim objEntity As AcadEntity
For Each objEntity In ThisDrawing.ModelSpace
'...
0
票
1
回答
584
閲覧数
標準モジュール及びフォームの全解放
複数のエクセルファイルで複数の標準モジュール、フォームを開放したいです。
いろいろ調べましたが、当問題を解決するロジックは不定期間後に再度実施する必要性が出てきているため、ロジック自体は消えないで欲しいというのが望みです。
複数標準モジュール開放ロジックをブック等に作り、開放したい対象をディレクトリにまとめておく必要性があるという条件が最適ですが、特に条件は問いませんのでよろしくお願い致します。...
0
票
0
回答
1万
閲覧数
IE11のダウンロード通知バーをVBAで操作したい
VBAでIE11のサイトを操作し、ダウンロード通知バーの「保存(S)」を押したいと考えています
以下の通りコードを書き、IEが既に起動している場合は、最後の「InvokePattern.Invoke」が成功し、ダウンロードファイルを保存できます。
問題は、IEを起動していない場合は新しくIEを開いてsetしているのですが、オブジェクトが上手く取得できていないらしく、「InvokePattern....
0
票
1
回答
2,270
閲覧数
ACCESSのVBAでテーブルのindex情報を取得したい
ACCESS2013のVBAについて質問です。
あるテーブルに特定の名前のインデックスがあったら処理を行う、というコードを書きたいのですが 、以下のNameという部分に対して「メソッドまたはデータ メンバが見つかりません」というエラーメッセージが表示されます。
If CurrentDb.TableDefs("テーブル").Indexes.Name = "インデックス名"
...
0
票
0
回答
1,583
閲覧数
OutlookのVBAで予定表削除がされない
OutlookのVBAを使って、会議開催通知の予約をキャンセルを受信したら予定表から予定を自動的に削除するコードを書いてみています。
しかし、★印のところからエラーに成って動かないようです。
VBAの超初心者ですが教えて頂けませんでしょうか?
Set tmpItem = Application.Session.GetItemFromID(buf(i))
If tmpItem....
0
票
3
回答
6,262
閲覧数
マクロでOneDriveに入っているファイルを開けたい
会社でOneDriveを使用しており、そこに入っているフォルダの中のワードファイルを開き(参照)して、エクセルの指定セルの文字を置換し、別のワードファイルに保存するというマクロを作成中です。
自分のデスクトップのフォルダでは成功しますが、OneDriveに格納すると下記のところで、エラー52が表示されます。
Set wordDoc = wordapp.Documents.Open(...
0
票
1
回答
388
閲覧数
VBA から (Strawberry Perlに入っている) GCC で作る関数 (DLL) を呼び出したい
VBA から (Strawberry Perlに入っている) GCC で作る関数 (DLL) を呼び出したいのですが、何から調べれば良いですか?
ご指導よろしくお願いします。
0
票
2
回答
6,757
閲覧数
Excel 64bit VBA で new ADODB.Streamが失敗する
環境は、Mac上のParallelsDesktopのWin7 64bit Excel2016の64bit版です。
この環境で、New ADODB.Stream が動きませんでした。
WindowsUpdateの関係か何か他の影響か、VMWareFusion7のWin7 64bit Excel2016の64bit版だと、うまく動いていました。
動かない環境では、次のようなエラーになります。
...
0
票
2
回答
1,343
閲覧数
VBAでPCのセッションIDを取得したい
Excel VBAで、コマンドプロンプトから query session で取得できるセッション番号をコードで拾えるようにしたいのですが、どうすればできますでしょうか。
他のサイトを見て、Shellを使用して取得しようとしたのですが、戻ってきた値は空でした。
テストとして書いてみただけのコードですので、どうして i が文字列変数なのかとかは気にしないでください。
よろしくお願いいたします。
...
-1
票
1
回答
236
閲覧数
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個です。
...
-1
票
1
回答
2,697
閲覧数
Excel VBA のinternetexplorer.applicationを使用してhtml内の特定のクラス内の値を順に取得したい
たとえば以下の様なhtmlがあり
"class2"のdiv内のspan内の値(d,e,f)を順に取得するには
どのようにすればいいのでしょうか?
<div class="class1">
<span>a</span>
<span>b</span>
<span>c</span>
</div>
&...
-1
票
1
回答
489
閲覧数
エクセルVBAで条件を満たすもののうち最小のものを取得する
エクセルで次のような表がシートにあったとします。
グループ
値
A
3
A
4
A
5
B
4
B
7
B
8
この時、SQLで言う所の
select MIN(値)
from table
where グループ='A'
のようなことをエクセルVBAでやりたいのですが、どのようなコードを組めばよいでしょうか?
よろしくお願いします。
-1
票
3
回答
162
閲覧数
四面体(三角錐)の内接球のsympyを探しています。 vbaソルバーでやってみました。
①四面体(三角錐)の内接球のsympyを探しています。他言語でも。
②vbaソルバーで実行してみました。vbaコードを短くする方法を教えて下さい。一例しか実行していません。
➂以下のコードの、「Range("A7").Formula」複数行で書けませんでした。
よろしくお願いします。
オリジナルポスト
(0,0,0),(1,0,0),(0,1,0),(0,0,2)
「...
-1
票
1
回答
1,026
閲覧数
別シートに、行列を入れ替えたデータを抽出する方法について
元データのシート(写メ1参照)から、完成形のシート(写メ2参照)を抽出するマクロVBA を作成したいです。
作業手順を日本語にすることはできますが(写メ3参照)、
マクロVBA でどのようなコードを書けばいいのかがわかりません。
詳しい方、どのようなコードを書けばいいのか、教えていただけると幸いです。
また、良ければ、どのようにExcelVBAに精通したのか、勉強方法も教えていただけると幸いです。
...
-1
票
1
回答
199
閲覧数
VBA シート1のA7、C7、シート2のA2の"2020"03"01"の数値を合算させyyyymmddの"20200301"と数値でセルに表示する手法
前提・実現したいこと
VBAで転換マクロツールを創っています。
いま、画像に示すようにVBAでシート1のA7、C7、シート2のA2の3つのセルの数値を合算させて、
シート2のA2のセルに"20200301"と表示するVBAを組んでいます。
40行目にstr = FormatYYYYMMDD(Sheets(Sheet1).Range("A7"), Sheets(Sheet1).Range("C7")...
-1
票
1
回答
3,621
閲覧数
Excelでページ毎に別ファイルにして保存する方法を探しています。
Excelでシート毎に別ファイルにして保存する方法
https://incloop.com/excel%E3%81%A7%E3%82%B7%E3%83%BC%E3%83%88%E6%AF%8E%E3%81%AB%E5%88%A5%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%AB%E3%81%97%E3%81%A6%E4%BF%9D%E5%AD%98%E3%...
-2
票
1
回答
283
閲覧数
添付ファイルのような「出」に背景色をつけるVBAで作成したい
目的
Excelで当番表を作成する際に、指定された条件に基づいて背景色を公平かつランダムに割り当てるVBAコードを作成したいです。(作成前は「出」の背景色がない状態です)
詳細は以下の通りです。
シート構成:
列に日付が記載されています。
行には名前が記載されています。
「出」と書かれたセルのみが有効です。(「休」などは無視)
背景色の割り当て:
選択セルと同じ背景色を使って、範囲選択内、...
-3
票
1
回答
401
閲覧数
変数の値が増えたか減ったかの判定方法
Swiftで実装したいのですがロジックが応用できればどんな言語でも構いません。とある変数の値(数字)が動的に変わるのですが、その変数の値が増えたのか減ったのかで処理を分岐させたいと思っています。コードは下記のような感じです。
if(変数の値が増えた){
print("変数の値が増えた!")
}esle if(いや、変数の値が減った){
print("変数の値が減った!")
}
...