[vba] タグが付いた質問
VBA(Visual Basic for Applications)は、Microsoft Officeに搭載されたプログラミング言語です。インタプリタ型言語であり、コンパイルは不要です。Micorosoft OfficeのマクロはVBAで記述されます。
175
質問
0
票
0
回答
363
閲覧数
VBAのセルの値と同じ名前のシート名をセットするとインデックスが有効範囲にありませんとエラーになる
一覧表のA列のセルの値(確認用No)と同じ名前のシートにデータを自動転記したい。
処理中の対象レコードが、どのシートに転記されるのかを判定するコードを書いたがインデックスが有効範囲にありませんとエラーになってしまう。
Set wstNo = Worksheets(.Cells(r, "A").Value) '...
0
票
1
回答
170
閲覧数
ACADからIJCADにVBAを移植調査中ですが、 IJCAD VBA で、他の図面のブロックを呼び出して配置する場合の設定方法を教えてください。
'================================ 他図面からのブロックコピー 有無の確認 ==========================
'下記AUTOCAD(2020)での設定ですが、IJCAD(2020 PRO) の場合はどのように設定すれば良いのか
'教えてください。
'ちなみに、これをIJCADで実行すると途中で、エラーとなってしまいます。
'...
0
票
0
回答
803
閲覧数
ListViewのチェックボックスを外した時のイベントは取得できない、で正しいでしょうか?
ListViewのチェックボックスを外した時のイベントは取得できない、で正しいでしょうか?ItemCheckはチェックを付けた時だけしか感知しませんでした。
やりたいことは、チェックボックスのON/OFFによって、変更があった行だけの情報を内部データに更新したいと思っています。
ItemClickというイベントだと、チェックボックスをチェックボックス以外の行の部分をクリックすると感知しますが、...
0
票
1
回答
277
閲覧数
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
回答
3,695
閲覧数
VBA if~else if をそれぞれ一行で記載する場合の書き方
下記のようにif~else ifを各ブロック1行で記載しておりますが、
「コンパイラエラー:End ifに対応するifブロックがありません」となってしまいます。
どのように修正すればよいでしょうか、またはこのような書き方はできないのでしょうか。
If value = "1" Then requestType = "01"
ElseIf ...
0
票
2
回答
1,601
閲覧数
VBA: オブジェクト配列を変数に設定する際、「コンパイルエラー: オブジェクトが必要です。」となる。
VBAでクラスを自作しました。
test Moduleのtestメソッド実行時に、GetSheetObjsメソッドの戻り値をセットする行Set GetSheetObjs = sheets部分で、sheetsが選択され色が反転した状態になりコンパイルエラーが発生します。
Class1
Option Explicit
Public Sub test()
Dim ...
0
票
1
回答
1,550
閲覧数
戻り値としてObjectを指定している関数がDictionary型オブジェクトを返す際、「型が一致しません」というエラーが出る。
VBAでWeb APIに接続してデータを取得しようと試みています。
参考にしたのは以下のページです。
VBA で Web API を呼び出す - Qiita
まず、下記手順でVBA-JSON のインポートを行いました。
VBA-JSON のインポート
VBA-JSON の最新版 (.zip) をダウンロードする。
ダウンロードしたファイルを解凍する。
解凍したフォルダを任意の場所に配置する。
...
0
票
1
回答
189
閲覧数
ACCESSで検索フォームを作成したい
ACCESS VBAで検索フォームを作成したいと考えています。
(クエリ―でも同じようなことはできると思うのですが、今回はVBAで実装したいと考えています)
添付画像のように「各会員番号」と「各店舗」との距離が格納されている同一フォーマットのテーブルが約20ほどあります。(テーブルはチェーンごとに分割されている)
条件を指定することで、...
0
票
0
回答
2,610
閲覧数
Excel VBA 解像度を上げたPCでフォームなどを作ると、実行時にフォームが小さくなる解決法
Excel2016にて、初めに画面解像度を150%にしたPCでExcelを立ち上げ、フォームでいろいろ
作っていたのですが、ほかの解像度が100%のPCで動かそうとすると、異様にフォームが小さくなって表示されてしまいます。
また、もとの150%の解像度のPCで編集しようとVBEでそのフォームを確認すると、やはり小さくなってしまっています。
しかし、...
-1
票
1
回答
490
閲覧数
別シートに、行列を入れ替えたデータを抽出する方法について
元データのシート(写メ1参照)から、完成形のシート(写メ2参照)を抽出するマクロVBA を作成したいです。
作業手順を日本語にすることはできますが(写メ3参照)、
マクロVBA でどのようなコードを書けばいいのかがわかりません。
詳しい方、どのようなコードを書けばいいのか、教えていただけると幸いです。
また、良ければ、どのようにExcelVBAに精通したのか、勉強方法も教えていただけると幸いです。
...
0
票
1
回答
165
閲覧数
AutoCADからのVBAプログラムの移植
AutoCADからIJCAD(32bit)にVBAプログラムを移植する場合、dvbファイルを直接読み込むことはできないのでしょうか?
いろいろ試してみるかぎりでは、frm, bas, cls等にファイルをエクスポートしたものを読み込むことは出来そうですが、
この方法しかないのでしょうか?ご経験をお持ちの方のアドバイスをお願いします。
1
票
0
回答
57
閲覧数
Add関数を使用して作成したボタン押下時の処理内容を定義するには?
WordのVBAにおける以下の関数を用いて動的に生成したCommandButtonのClickイベントの処理はどのようにすれば定義できるのでしょうか?
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/add-method-microsoft-forms
...
0
票
0
回答
130
閲覧数
WordのVBAのコードについての質問です。
やりたいこと
塗りつぶし部分を指定して検索をかけて結果を蛍光ペンで色付けして確認。その後、Enterを押して次の塗りつぶし部分の検索をして蛍光ペンで色付けしてその都度確認していきます。
直前に検出されて蛍光ペンで色付けされた部分は次の検索を行うためのEnterを押した時に元の塗りつぶしの色に戻していきます。
うまく動作しなかったコード
Shading....
0
票
1
回答
142
閲覧数
関数の戻り値が正しくない
<概要>
関数の呼び出し先と呼び出し元の値が一致しない
<詳細>
Excel 2013にて「入力シート」内の下記関数を別シートのマクロ(ボタンに登録)から呼び出しました。
この関数は戻り値として必ずTrueしか返さないはずです。
Public Function Test() As Boolean
Test = Ture
End Function
呼び出し元(標準モジュール「Module1」...
1
票
2
回答
213
閲覧数
Excel VBA の1回の実行で、通過した通過しなかったfunction、subを分類する方法を教えて下さい
全てのfunction, subに一行ずつ debug.print”function1通過” と書く方法しかありませんか?
書くとしたら、正規表現置き換えの方法で、対応可能ですか?
全エクスポートで、エディタの正規表現置換後、全インポートを予定しています。
例) 全てのfunction, sub2行目に debug.print "なまえ通過” を挿入する方法がありますか?
他言語でも、...
0
票
0
回答
161
閲覧数
Offset.value=Stringを行う際に、Stringの文字数が約8000文字を超えるとメモリー不足でVBAが停止します
以下のようなVBAのコードで、ある文字列をString型のtestに入れて、あるRangeから特定位置ずらしたセルにその文字列を代入するさい、文字列Testが約8000文字(英数で約8000 characters) を超えると、添付のエラーが表示されてしまいます。
8000文字以下の場合は正常に動作します。
どなたか解決方法、または原因をご存じでしたら教えていただけると幸いです。
該当コード
...
0
票
3
回答
461
閲覧数
VBSもしくはPythonで、Excel特定値行のテキスト色を変更したい。
VBSもしくはPythonを使用して ExcelのH列(H列ではなくK列でした)セルの値が ”A" でないとき、アクティブ行のテキストの色を全て赤にしたいです。Excelは開いた状態から開始し、開いた状態で終了します。
補足説明
現在、RPA使用中で、RPAの機能ではExcelのカラーパレットの指定が不安定なため、VBAを作成しました。VBA使用の場合は、...
1
票
1
回答
575
閲覧数
Excel のデータを VBA で SQLite に挿入する方法を知りたい
現在、ConfigやExcelのパラメータシートを比較するシステムをSQLiteを使用して作成しています。
SQLiteにExcelのデータを書き込むVBAを作りたいと思っています。
現在、テーブルの作成は完了しております。
Excelで該当のデータを探す事は完了したという前提で、その後にどのようにDBに接続してテーブルに書き込むVBAを作成すれば良いのか教えていただけませんでしょうか。
0
票
1
回答
816
閲覧数
configとパラメータシートの差分比較方法について
あるNW機器のConfigとそのパラメータシートを比較して、この設定はパラメータシートと合っているな!と比較していきたいです。
Config同士、パラメータシート同士であれば、WinMergeやDF等を使用して比較すれば良いと思います。
しかしながらConfigとパラメータシートを比較する場合は単純にWinMergeやDF等を使っての比較ができません。
またバージョンも複数あり、...
0
票
0
回答
99
閲覧数
sumif関数の検索条件で、値の条件でなく書式の条件で合計したい。探しています。
赤文字だけの(フォントの色指定)合計をしたい。
かっこの文字は、合計しない。
10
(20) ←書式で(0)
30
40 ←合計=10+30 =MYsumif(かっこじゃない、A1:A3)
いい方法があったら教えて下さい。
エクセルVBA、GASです。よろしくお願いいたします
0
票
1
回答
134
閲覧数
VBAのループ処理書き方について
VBAで年間の資金繰り表を作成しています。
更新ボタンを押した際にループ処理で月ごとに値が入力されるようにしたいです。
また、値が入力される式は作成済みなのでループで入力される際にCallで呼び出すようにしたいです。(式の名前:InputCalc)
支出・粗利益のなかの項目は増えることがあります。
i では支出と粗利益を区別するループ、j ではCallで値を入力していくループで構成を考えています。
...
0
票
1
回答
147
閲覧数
VBA で、文の意味が一致するものを1つのキーに辞書に登録できますか?
お世話になります。
VBAで、文の表現に揺れがあるののや、漢字が平仮名になっているだけ、「。」が無いだけで、文の意味が一致するものを、同じ一つのキーする方法ありませんか?
ご指導よろしくお願いします。
0
票
1
回答
306
閲覧数
VBA から (Strawberry Perlに入っている) GCC で作る関数 (DLL) を呼び出したい
VBA から (Strawberry Perlに入っている) GCC で作る関数 (DLL) を呼び出したいのですが、何から調べれば良いですか?
ご指導よろしくお願いします。
1
票
0
回答
115
閲覧数
Office365 ユーザーフォーム テキストコントロールの文字の異常について
ユーザーフォームに設けたテキストボックスの字形が Topプロパティのある値前後で字形が勝手に変わる問題です。
なぜ変わるのかわからないままシートや他のコントロール、コードを消していったところ、どうやら、条件が多少絞られてきました。
試した環境:
自作PCとdynabook V272/HL のWindows 10 Pro (64bit)
テキストボックスを一つ以上
テキストのフォントサイズ9,...
-1
票
1
回答
150
閲覧数
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")...
0
票
1
回答
853
閲覧数
VBA編集データを上書きしたい
参照ボタンに検索したい従業員の番号を入力すると、フォームにデータが参照されます。
そこからデータを編集し、編集確定ボタンを押すと表に上書きされるような仕様にしたいです。
しかし、今のコードだと14行のような感じで反映されてしまいます。
VBA
参照ボタンを押した際の処理です
'編集確定ボタンを押したとき'
Private Sub OkButton1_Click()
Dim x ...
0
票
1
回答
360
閲覧数
VBAでテキストボックスに入力された値のデータを参照したいです。
図のようなもの作成しています。
従業員IDのところに参照したい従業員のIDを入力します。
参照ボタンを押すと、名前や交通手段などのデータが参照されます。
データの参照をするための文がわからず困っています。
また、ラジオボタンに参照させる方法も教えていただきたいです。
'参照ボタンを押した時の処理'
Private Sub ReferenceBtn_Click()
'...
0
票
1
回答
303
閲覧数
IJCADのバージョンアップによりGcad.Applicationのオブジェクトが取得できなくなった
VBAでIJCADの操作をするプログラムが、IJCADのアップデート(2018→2019)により
「実行時エラー91 オブジェクト変数withブロック変数が設定されていません」 と表示されるようになってしまいました。
VBAの参照設定はGcadの2019に修正しています。
操作対象のCADは起動した状態でもエラーが出ます。
Dim getTimesec As Double
Dim ...
0
票
1
回答
794
閲覧数
VBA 実行時エラー'91'の解決法(2)
前提・実現したいこと
いつもありがとうございます。
VBAでエクセルの勤務表から勤務日等を抽出し、別のソフトウェアに読み込ませる転換マクロツールを作っています。
以下のVBAを実行したところ、1回目は正常に動作するのですが、2回目以降、初回に読み込んだものと違う階層のエクセルファイルを読み込もうとすると、以下のエラーメッセージが再現性ありで発生します。
発生している問題・エラーメッセージ
...
0
票
2
回答
1,143
閲覧数
VBA 実行時エラー'91'の解決法
前提・実現したいこと
VBAでエクセルの勤務表から勤務日等を抽出し、別のソフトウェアに読み込ませる転換マクロツールを作っています。
エクセルの勤務表のシートから、VBAツールのシートに勤務日を抽出転換する機能を実装中に以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
実行時エラー'91'
オブジェクト変数またはWithブロック変数が設定されていません。
...
0
票
1
回答
1,536
閲覧数
VBA 実行時エラー'438' の解決
前提・実現したいこと
エクセルのVBAとOutlookを連携させて一括送信メーラーを作っています。
一括送信メーラーにファイル添付機能を追加するため、
以前作ったVBAと統合した所、以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
実行時エラー'438'オブジェクトは、このプロパティまたはメソッドをサポートしていません。
該当のソースコード
Sub ovba()
...
0
票
2
回答
1,632
閲覧数
VBA コンパイルエラー:メソッドまたはデータメンバーが見つかりません 解決法
前提・実現したいこと
エクセルのVBAとOutlookを連携させて一括送信メーラーを創っています。
指南サイトの手順通りに実装した所、以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
コンパイルエラー: メソッドまたはデータメンバーが見つかりません
該当のソースコード
Sub SendEmail()
Dim objOutlook As Outlook....
0
票
1
回答
223
閲覧数
Excel VBA のVLOOKUPで、他のファイル参照
Excel VBAで、VLOOKUPを使って、他のファイルを参照する場合、①なら動きますが、②では上手く動きません。
②のような書き方は出来ないのでしょうか?
Sub Supply_Check()
Dim LastRow As Long
LastRow = Cells(1, 3).End(xlDown).Row
① Range(Cells(2, 8), Cells(...
0
票
1
回答
111
閲覧数
excelで行の増える方向に、罫線から値まで 値から値まで 値から罫線まで 埋めたい
excelで空文字を埋めたい
行の増える方向に、
罫線から値まで 埋めたい:その値
値から値まで 埋めたい:着色
値から罫線まで 埋めたい:その値
探しています。よろしくお願いします。
20200319---------------------------
チャレンジしてみました。
汎用性をもたせる方法を教えて下さい。
①maxr=50固定をはずしたい。
②1列しか出来ない。...
0
票
2
回答
463
閲覧数
「結合セル内の値を、結合解除後に結合されていた全てのセルへコピーする方法」でなく、結合セルの最初の列へだけ、コピーする方法を教えて下さい。
①結合セル内の第2,3...列目は、空文字のままにしたいです。
コピーしすぎない。行の増える方向だけへコピーする方法です。
②別法として、解除直後に第2,3...列目をクリアする。
③別法として、別マクロで、左隣のセルの値と同じなら、空文字にするでもいいと思います。
探し方が悪いのか、見つかりませんでした。
よろしくお願いします。
(参考)結合セル内の値を、...
0
票
1
回答
316
閲覧数
塗りつぶしがされている文字の検索方法について
WordのVBAの塗りつぶしプロパティについて質問です。
<やりたいこと>
番号リストVBAで、灰色で塗りつぶしがされている部分を検索・Selectionを取得する)
塗りつぶしがされている部分について塗りつぶしを解除してその部分の前後に、"<" ">"を入れたい
<作ってみたけど上手く動かなかったコード>
検索オプションとしてShading....
1
票
1
回答
1,232
閲覧数
あるフォルダの中のファイルをワイルドカードで特定し、更新日時を取得する
お世話になっております。
EXCEL VBAで、あるフォルダの中にあるファイル(C:\TEST\test1234.txt)をif文にて
ワイルドカード指定(test*.*)でイコールとなったら、ファイルの更新日時を
取得するという方法を実装したいと思っています。
下記記述の方法では、test1234.txt=test*.*がfalseと判定され、更新日時取得の
ルーティンを通りません。
...
0
票
2
回答
1,985
閲覧数
Excel VBAで作成したPDFのサイズを(VBAで)統一したい
ExcelシートのPDF化をVBAで実装したのですが、ページによってサイズが統一されていない状況になっています。
原因は下記リンクと同じ状況のようです。
ExcelからPDFを作成すると、ページのサイズがまちまち
出力したPDFをAcrobatで開き、PDFPrinterで再PDF化しているようなのですが、この流れをすべてVBA上で行いたいと考えています。
...
-1
票
1
回答
2,014
閲覧数
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%...
0
票
0
回答
480
閲覧数
VBA Selenium ChromeDriver Webメールに添付ファイルを付けたい
roundcube webmail で vba selenium chromedriver を使用してメール作成、送信を試みています。
タイトル、本文などは入れられたのですが、添付ファイルを設定する方法がどうしてもわかりません。ご存じの方、ご教授お願いします。
With CreateObject("Selenium.ChromeDriver")
.Start
.Get "...
1
票
1
回答
321
閲覧数
VBAからvisioのShape.Nameに整数値を代入したい
visioのVBAから、取得したshapeオブジェクトのNameプロパティに整数値を代入すると
原因不明の小数値も一緒に代入されてしまいます。
cStr関数を用いて代入しても結果は変わりませんでした。
objShape.Name = 2
上記のようにshapeオブジェクトのNameに2を代入して、オブジェクト情報を見てみると2.872が
入ってしまっています。
...
0
票
1
回答
1,316
閲覧数
ADODBによるSelect文で行番号も取得したい
Excel VBAのADODBでSheetの情報をSELECT文で取得しています。
もとのデータは以下の通りです。
[TableA]
[TableB]
そしてコードは以下のとおりです。
Dim myCon As Object
Dim myRS As Object
Set myCon = CreateObject("ADODB.Connection")
Set ...
0
票
1
回答
397
閲覧数
VBAにおけるmonth関数について
month関数に関してバグ?と思われる事象について報告をいたします。。
A1セルに2019/12/16、A2セルに何も記載しない状態で、下記のvbaのコードを実行したところ、バグと表示された.
Sub test()
If Month(Cells(1, 1)) = Month(Cells(2, 1)) Then
MsgBox ("bug!")
Else
...
0
票
1
回答
85
閲覧数
RangeオブジェクトのSpecialCells
結合セルの扱い方を理解するうえで範囲の右下のセルを選択するために
Dim RangeObj as Range
Set Range = ActiveSheet.Range("A4:A7")
RangeObj.Cells.SpecialCells(xlCellTypeLastCell).Select
を実行したところ、シート内でのもの、つまりシートのセルの中で一番右下にある編集されたセル(...
0
票
0
回答
149
閲覧数
vbaでcsvのデータをエクセルに張り付ける
vbaやマクロでファイル内にあるすべてのcsvファイルの特定の1列を検索して、先頭の4桁の数字で一致した行をすべて抜き出して別のExcelファイルに先頭の4桁と同じシート名に張り付けるにはどうすればいいのでしょうか。
0
票
1
回答
138
閲覧数
等号を使わないプロパティ値の設定と取得
エクセル棒グラフの例:棒を網掛の表示にしてマクロ記録すると等号無しの例外的な記述になっているようです。(.Fill属性の表現の混在)
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(112, 48, 160)
.Transparency = 0
.Patterned ...
0
票
0
回答
279
閲覧数
Outlookの会議依頼における本文
エクセルのデータを抽出してOutlookの会議依頼を生成するマクロを組んでいます。しかし問題点が二つあり、
マクロによって開かせた会議依頼ウインドウ以外に別のOutlookのウインドウ(メールでも会議依頼でも)が開いていると、そちらに目的のデータが書き込まれてしまって大変
この辺(マクロで書式設定した文字列を予定アイテムの本文に書き込む方法)をみて文字列の書式は変えられるようになったけど、...
0
票
0
回答
510
閲覧数
webページを完全保存
皆様のお力をおかしください。
vba操作でwebページを丸ごと保存したい。
(htmだけの保存ではない。)
完全保存できる方法はありますか?(htmのファイルとfilesのフォルダができるようにです)
1
票
2
回答
1,825
閲覧数
メッセージボックスに環境依存文字を表示させたい
áのような特殊文字をメッセージボックス上に表示させようとしたいのですが、下記の様にするとアキュートアクセントが消えたただのaとなります。
MsgBox ChrW(&HE1)
これを表示させるにはどのようにすればよろしいでしょうか、ご教示ください。
補足情報:
・Windows10 Pro バージョン1803
・Excel 2013
・Microsoft Visual Basic ...
0
票
0
回答
2,598
閲覧数
Exchange環境下でユーザ自身のメールアドレスを取得したい
VBAで簡単なサインアップフォームを作ろうとしています。ワンクリックでユーザ(クリックした人)のメールアドレスをワークシートに記入するだけ、だと思っていたら、ユーザ名を抽出する方法や受け取ったメールの送信者のアドレスとかはちょろちょろ見つかるんですが、自分自身のメールアドレスとなると以外に情報がないのです・・・
自分のメアドくらい自分で入れさせろよ、というご意見もあろうかと思いますが、...