Skip to main content

[vba] タグが付いた質問

VBA(Visual Basic for Applications)は、Microsoft Officeに搭載されたプログラミング言語です。インタプリタ型言語であり、コンパイルは不要です。Micorosoft OfficeのマクロはVBAで記述されます。

195 件の質問
絞り込み
並べ替え
タグ付けされた
0
2 回答
1,946 閲覧数

VBA 実行時エラー'91'の解決法

前提・実現したいこと VBAでエクセルの勤務表から勤務日等を抽出し、別のソフトウェアに読み込ませる転換マクロツールを作っています。 エクセルの勤務表のシートから、VBAツールのシートに勤務日を抽出転換する機能を実装中に以下のエラーメッセージが発生しました。 発生している問題・エラーメッセージ 実行時エラー'91' オブジェクト変数またはWithブロック変数が設定されていません。 ...
r-o's user avatar
  • 1
0
1 回答
2,166 閲覧数

VBA 実行時エラー'438' の解決

前提・実現したいこと エクセルのVBAとOutlookを連携させて一括送信メーラーを作っています。 一括送信メーラーにファイル添付機能を追加するため、 以前作ったVBAと統合した所、以下のエラーメッセージが発生しました。 発生している問題・エラーメッセージ 実行時エラー'438'オブジェクトは、このプロパティまたはメソッドをサポートしていません。 該当のソースコード Sub ovba() ...
r-o's user avatar
  • 1
0
1 回答
117 閲覧数

excelで行の増える方向に、罫線から値まで 値から値まで 値から罫線まで 埋めたい

excelで空文字を埋めたい 行の増える方向に、 罫線から値まで 埋めたい:その値 値から値まで 埋めたい:着色 値から罫線まで 埋めたい:その値 探しています。よろしくお願いします。 20200319--------------------------- チャレンジしてみました。 汎用性をもたせる方法を教えて下さい。 ①maxr=50固定をはずしたい。 ②1列しか出来ない。...
mrrclb48z's user avatar
  • 429
0
1 回答
573 閲覧数

塗りつぶしがされている文字の検索方法について

WordのVBAの塗りつぶしプロパティについて質問です。 <やりたいこと> 番号リストVBAで、灰色で塗りつぶしがされている部分を検索・Selectionを取得する) 塗りつぶしがされている部分について塗りつぶしを解除してその部分の前後に、"<" ">"を入れたい <作ってみたけど上手く動かなかったコード> 検索オプションとしてShading....
Shion Ichikawa's user avatar
0
2 回答
3,675 閲覧数

Excel VBAで作成したPDFのサイズを(VBAで)統一したい

ExcelシートのPDF化をVBAで実装したのですが、ページによってサイズが統一されていない状況になっています。 原因は下記リンクと同じ状況のようです。 ExcelからPDFを作成すると、ページのサイズがまちまち 出力したPDFをAcrobatで開き、PDFPrinterで再PDF化しているようなのですが、この流れをすべてVBA上で行いたいと考えています。 ...
t28bsai's user avatar
  • 183
0
0 回答
584 閲覧数

VBA Selenium ChromeDriver Webメールに添付ファイルを付けたい

roundcube webmail で vba selenium chromedriver を使用してメール作成、送信を試みています。 タイトル、本文などは入れられたのですが、添付ファイルを設定する方法がどうしてもわかりません。ご存じの方、ご教授お願いします。 With CreateObject("Selenium.ChromeDriver") .Start .Get "...
miaou's user avatar
  • 187
0
0 回答
193 閲覧数

vbaでcsvのデータをエクセルに張り付ける

vbaやマクロでファイル内にあるすべてのcsvファイルの特定の1列を検索して、先頭の4桁の数字で一致した行をすべて抜き出して別のExcelファイルに先頭の4桁と同じシート名に張り付けるにはどうすればいいのでしょうか。
user25636's user avatar
0
1 回答
162 閲覧数

等号を使わないプロパティ値の設定と取得

エクセル棒グラフの例:棒を網掛の表示にしてマクロ記録すると等号無しの例外的な記述になっているようです。(.Fill属性の表現の混在) With Selection.Format.Fill .Visible = msoTrue .ForeColor.RGB = RGB(112, 48, 160) .Transparency = 0 .Patterned ...
LLL's user avatar
  • 1
0
0 回答
390 閲覧数

Outlookの会議依頼における本文

エクセルのデータを抽出してOutlookの会議依頼を生成するマクロを組んでいます。しかし問題点が二つあり、 マクロによって開かせた会議依頼ウインドウ以外に別のOutlookのウインドウ(メールでも会議依頼でも)が開いていると、そちらに目的のデータが書き込まれてしまって大変 この辺(マクロで書式設定した文字列を予定アイテムの本文に書き込む方法)をみて文字列の書式は変えられるようになったけど、...
Nekotaro's user avatar
0
0 回答
769 閲覧数

webページを完全保存

皆様のお力をおかしください。 vba操作でwebページを丸ごと保存したい。 (htmだけの保存ではない。) 完全保存できる方法はありますか?(htmのファイルとfilesのフォルダができるようにです)
user12141129's user avatar
0
0 回答
3,411 閲覧数

Exchange環境下でユーザ自身のメールアドレスを取得したい

VBAで簡単なサインアップフォームを作ろうとしています。ワンクリックでユーザ(クリックした人)のメールアドレスをワークシートに記入するだけ、だと思っていたら、ユーザ名を抽出する方法や受け取ったメールの送信者のアドレスとかはちょろちょろ見つかるんですが、自分自身のメールアドレスとなると以外に情報がないのです・・・ 自分のメアドくらい自分で入れさせろよ、というご意見もあろうかと思いますが、...
Nekotaro's user avatar
0
0 回答
1,650 閲覧数

VBAで会議依頼を生成したいのですが・・・

エクセルの表を基に、VBAを使ってHTML形式の会議依頼を生成したいのですが、妙なところで躓いています。まるで会議依頼ではHTMLをサポートしないかのような・・・。 以下のソースの、「予定をHTML形式に」の objAppt.BodyFormat = 3 のところで止まってしまい、438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。のエラーメッセージが表示されます・・・。 ...
Nekotaro's user avatar
0
1 回答
242 閲覧数

IJCADのVBAでSaveASコマンド実施時にダイアログが表示されてしまう

AutoCAD VBAで作成したDXF一括変換モジュールをIJCAD 2019に移行しています。 VBAからSaveASを利用してDXFに変換しようとしているのですが、コマンド実行中にファイル保存ダイアログが表示されてしまい、一括変換ができません。 AutoCADでは特に問題なく動作していました。IJCADではAPI処理中のダイアログの表示について、設定等あるのでしょうか?
user35167's user avatar
0
0 回答
168 閲覧数

VBAでMSProject内のタスクが無効化されていないか判別したい

VBAでMSProject内のタスクが無効化されていないか判別したいのですが、どのプロパティを利用すればよいのでしょうか? 参考にしているMicrosoftのデベロッパーセンターにそれらしきプロパティがないので、質問させて頂きました(https://docs.microsoft.com/ja-jp/office/vba/api/project.task)。
gote's user avatar
  • 1
0
0 回答
86 閲覧数

VBAにて、MSProjectの特定範囲内のアウトラインを出力したい

VBAにて、MSProjectの特定のアウトラインのものだけを出力したいと考えています。 例えば、アウトライン「1.1.1.1」を取り出したいとき If outline Like "[1.]" Then だと、「.」が含まれてしまうもの全てが出力されてしまって悩んでいます。 何か、良い方法はないものでしょうか? なお、...
gote's user avatar
  • 1
0
0 回答
157 閲覧数

VBAでMSProjectのタスクモードを判別したい

VBAを用いてMSProjectのタスクモードが自動スケジュールなのか手動スケジュールなのかを判定させ、動作を変えたいプログラムを作成しているのですが、どう記述すればいいのでしょうか? 参考にしているMicrosoftのデベロッパーセンターにそれらしきプロパティがないので、質問させて頂きました(https://docs.microsoft.com/ja-jp/office/vba/api/...
gote's user avatar
  • 1
0
0 回答
2,384 閲覧数

excel vba、開いたブック内の作業グループを自動解除したい

■課題 excelブックを開くタイミングで、作業グループを自動解除する方法を探してます。 対象は1つのブックだけではなく、とある数台のPCで開くブックを全て対象にしたいと考えます。 (環境=win7+Excel2010、Win10+excel2016、2つ利用) ■理由 作業グループに気づかずに編集すると、意図しない変更が発生し、これを回避したいと考えます。 ■当方の試行錯誤 ...
neko's user avatar
  • 43
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/ ...
ocome85's user avatar
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....
t28bsai's user avatar
  • 183
0
1 回答
843 閲覧数

C# 自作DLLをStaticで作成した場合のVBAで使用する方法

お世話になります。 大変情けない話で申し訳ないのですが、C#にて自作のDLLを作成し、VBA側で使用するまでは たどり着いたのですが、C#側でStaticで宣言したクラスをDLLで呼び出す文法が解りません。 public class Class1 { public Class1() { } public ...
たたぱた's user avatar
  • 1,205
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 ...
user31164's user avatar
0
1 回答
155 閲覧数

Excel VBA もしくは Google Apps Script で、複数のシートの最終列を取得し新たな1つの列にまとめる方法

初めに以下の Sheet をご確認ください。 https://docs.google.com/spreadsheets/d/1AlwgQLEZoZz_vWz0ZqKld528ViLAl8x2nR4SZz0VoHA/edit#gid=0 ↑のような形で各商品の毎月の在庫数が記録される Excel File があるのですが、 ...
Yoshiyuki Enomoto's user avatar
0
1 回答
2,807 閲覧数

AccessVBAで、フォームをダイアログで開いているはずが処理が流れてしまう

お世話になります。 AccessのVBAで、フォームをダイアログで(そこでブロックして)表示しようとしているのですが、どうやってもそのまま処理が流れてしまいます。 行っていることは、 プロパティでは ・ポップアップ = はい ・作業ウィンドウ固定 = はい 実際にコードで表示する際には、 DoCmd.OpenForm "F_Floor", , , , , acDialog と ...
たたぱた's user avatar
  • 1,205
0
1 回答
1,178 閲覧数

VBAで自作DLLを使用できない

お世話になります。 VisualStudio2017Community(C#)で作成したDLLを、ExcelVBAで 使用しようとしたのですが、うまくいきません。 http://excel.syogyoumujou.com/memorandum/dll_1.html こちらのサイト様の内容を参考にし、いざExcel側の参照設定までは たどり着いたのですが、...
たたぱた's user avatar
  • 1,205
0
0 回答
231 閲覧数

.Copy 使用時のクラッシュ?

vbaで "Worksheets("シート名").Copy" 行(3行目)での処理時間が長いです。vbaを実行すればするほど、処理時間が長くなっているように感じます。 book = ActiveWorkbook.Name Worksheets("シート名").Select Worksheets("シート名").Copy newbook = ActiveWorkbook.Name Windows(...
user28372's user avatar
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 ...
mrrclb48z's user avatar
  • 429
0
1 回答
467 閲覧数

AutoCAD VBAでダイナミックブロックの名称が検索されません。

Autocad 2008 を使用しています。 図面内にダイナミックブロックがあり、移動や回転を行いたいのですが、 VBAでダイナミックブロックを操作の対象とするために、名称を比較しながら行っています。 For Each objEntity In ThisDrawing.ModelSpace ' 取り出された図形が対象を判定 If objEntity.ObjectName = "...
AiSa's user avatar
  • 28
0
1 回答
415 閲覧数

AutoCADでブロック名称を変更したい

お世話になっております。 AutoCAD2008 VBAについての質問です。 現存するブロックの名称を変更したいのですが、方法がわかりません。 現状、下記のようにプログラムを作成しています。 Dim objEntity As AcadEntity For Each objEntity In ThisDrawing.ModelSpace '...
user28019's user avatar
  • 411
0
1 回答
584 閲覧数

標準モジュール及びフォームの全解放

複数のエクセルファイルで複数の標準モジュール、フォームを開放したいです。 いろいろ調べましたが、当問題を解決するロジックは不定期間後に再度実施する必要性が出てきているため、ロジック自体は消えないで欲しいというのが望みです。 複数標準モジュール開放ロジックをブック等に作り、開放したい対象をディレクトリにまとめておく必要性があるという条件が最適ですが、特に条件は問いませんのでよろしくお願い致します。...
user27064's user avatar
0
0 回答
1万 閲覧数

IE11のダウンロード通知バーをVBAで操作したい

VBAでIE11のサイトを操作し、ダウンロード通知バーの「保存(S)」を押したいと考えています 以下の通りコードを書き、IEが既に起動している場合は、最後の「InvokePattern.Invoke」が成功し、ダウンロードファイルを保存できます。 問題は、IEを起動していない場合は新しくIEを開いてsetしているのですが、オブジェクトが上手く取得できていないらしく、「InvokePattern....
miaou's user avatar
  • 187
0
1 回答
2,270 閲覧数

ACCESSのVBAでテーブルのindex情報を取得したい

ACCESS2013のVBAについて質問です。 あるテーブルに特定の名前のインデックスがあったら処理を行う、というコードを書きたいのですが 、以下のNameという部分に対して「メソッドまたはデータ メンバが見つかりません」というエラーメッセージが表示されます。 If CurrentDb.TableDefs("テーブル").Indexes.Name = "インデックス名" ...
kou yoshi's user avatar
0
0 回答
1,583 閲覧数

OutlookのVBAで予定表削除がされない

OutlookのVBAを使って、会議開催通知の予約をキャンセルを受信したら予定表から予定を自動的に削除するコードを書いてみています。 しかし、★印のところからエラーに成って動かないようです。 VBAの超初心者ですが教えて頂けませんでしょうか? Set tmpItem = Application.Session.GetItemFromID(buf(i)) If tmpItem....
xxhikarixx's user avatar
0
3 回答
6,262 閲覧数

マクロでOneDriveに入っているファイルを開けたい

会社でOneDriveを使用しており、そこに入っているフォルダの中のワードファイルを開き(参照)して、エクセルの指定セルの文字を置換し、別のワードファイルに保存するというマクロを作成中です。 自分のデスクトップのフォルダでは成功しますが、OneDriveに格納すると下記のところで、エラー52が表示されます。 Set wordDoc = wordapp.Documents.Open(...
munnku munnku's user avatar
0
1 回答
388 閲覧数

VBA から (Strawberry Perlに入っている) GCC で作る関数 (DLL) を呼び出したい

VBA から (Strawberry Perlに入っている) GCC で作る関数 (DLL) を呼び出したいのですが、何から調べれば良いですか? ご指導よろしくお願いします。
YYYYYA's user avatar
  • 5
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版だと、うまく動いていました。 動かない環境では、次のようなエラーになります。 ...
s.yamamoto's user avatar
0
2 回答
1,343 閲覧数

VBAでPCのセッションIDを取得したい

Excel VBAで、コマンドプロンプトから query session で取得できるセッション番号をコードで拾えるようにしたいのですが、どうすればできますでしょうか。 他のサイトを見て、Shellを使用して取得しようとしたのですが、戻ってきた値は空でした。 テストとして書いてみただけのコードですので、どうして i が文字列変数なのかとかは気にしないでください。 よろしくお願いいたします。 ...
たたぱた's user avatar
  • 1,205
-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個です。 ...
まっつん's user avatar
-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> &...
HYOMA's user avatar
  • 1
-1
1 回答
489 閲覧数

エクセルVBAで条件を満たすもののうち最小のものを取得する

エクセルで次のような表がシートにあったとします。 グループ  値 A 3 A 4 A 5 B 4 B 7 B 8 この時、SQLで言う所の select MIN(値) from table where グループ='A' のようなことをエクセルVBAでやりたいのですが、どのようなコードを組めばよいでしょうか? よろしくお願いします。
Jogenara's user avatar
  • 664
-1
3 回答
162 閲覧数

四面体(三角錐)の内接球のsympyを探しています。 vbaソルバーでやってみました。

①四面体(三角錐)の内接球のsympyを探しています。他言語でも。 ②vbaソルバーで実行してみました。vbaコードを短くする方法を教えて下さい。一例しか実行していません。 ➂以下のコードの、「Range("A7").Formula」複数行で書けませんでした。 よろしくお願いします。 オリジナルポスト (0,0,0),(1,0,0),(0,1,0),(0,0,2) 「...
mrrclb48z's user avatar
  • 429
-1
1 回答
1,026 閲覧数

別シートに、行列を入れ替えたデータを抽出する方法について

元データのシート(写メ1参照)から、完成形のシート(写メ2参照)を抽出するマクロVBA を作成したいです。 作業手順を日本語にすることはできますが(写メ3参照)、 マクロVBA でどのようなコードを書けばいいのかがわかりません。 詳しい方、どのようなコードを書けばいいのか、教えていただけると幸いです。 また、良ければ、どのようにExcelVBAに精通したのか、勉強方法も教えていただけると幸いです。 ...
Daihuku3's user avatar
-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")...
r-o's user avatar
  • 1
-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%...
mrrclb48z's user avatar
  • 429
-2
1 回答
283 閲覧数

添付ファイルのような「出」に背景色をつけるVBAで作成したい

目的 Excelで当番表を作成する際に、指定された条件に基づいて背景色を公平かつランダムに割り当てるVBAコードを作成したいです。(作成前は「出」の背景色がない状態です) 詳細は以下の通りです。 シート構成: 列に日付が記載されています。 行には名前が記載されています。 「出」と書かれたセルのみが有効です。(「休」などは無視) 背景色の割り当て: 選択セルと同じ背景色を使って、範囲選択内、...
おかめ's user avatar
-3
1 回答
401 閲覧数

変数の値が増えたか減ったかの判定方法

Swiftで実装したいのですがロジックが応用できればどんな言語でも構いません。とある変数の値(数字)が動的に変わるのですが、その変数の値が増えたのか減ったのかで処理を分岐させたいと思っています。コードは下記のような感じです。 if(変数の値が増えた){ print("変数の値が増えた!") }esle if(いや、変数の値が減った){ print("変数の値が減った!") } ...
ryosuke-hujisawa's user avatar