[vba] タグが付いた質問
VBA(Visual Basic for Applications)は、Microsoft Officeに搭載されたプログラミング言語です。インタプリタ型言語であり、コンパイルは不要です。Micorosoft OfficeのマクロはVBAで記述されます。
195
件の質問
0
票
1
回答
134
閲覧数
逆から総和を求めるプログラムが上手くいきません
X~Yまでの総和を求めるプログラムを作りたいです。逆から求めるプログラムも作らなければいけません。Exit Sub は使えません。大きい数から小さい数を求める際に反応しません。どうしたらいいですか?
2つのテキストボックスに数を入力して、3つ目のテキストボックスに総和を表示させたいです。
Access VBA
Private Sub btnWa_Click()
Dim lX As Long
...
0
票
2
回答
2,430
閲覧数
Excel VBA プロシージャの処理が終わるまで画面が固まる状況を克服したい
プロシージャの内容:
シート上に100行強のデータがあります。ABC列の内容をキーに1行づつSQLServerへデータを取得しにいって、当該行H列に結果を格納する内容です。
行のコレクションをForEach文でループ。SQLServerへの接続はループ開始前で、ループ内でレコードセット取得・クローズを繰りかえす感じです。
問題点:
Apprication....
0
票
2
回答
894
閲覧数
エクセルの名前定義の正規表現
正規表現
エクセルの名前定義に使える文字列の正規表現を書きたいです、
1.先頭に「数字」、または「R数字」、「C数字」で始まらないこと
2.スベース(全角半角)、タブ、改行など「$s」で表現できる文字列を含まないこと
3.アンダーライン(全角半角)、円マーク(全角半角)以外の符号を含まないこと
調べて見たら:
1.→ /^(?!(\d|(R|C)\d))/i
2.→ (?!.*\s).+$
3.→...
0
票
1
回答
1,180
閲覧数
セルのクリックでセルを着色・脱色し、範囲選択で一括脱色したい
やりたいことはタイトルの通りです。
コードと問題点は以下の通りです。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'複数選択したセルを着色
'下記2行を有効にすると、下記2行含む、以下全てのコードが機能しなくなります。
'下記2行を無効にすると、複数選択したセルの脱色が有効になり、...
0
票
1
回答
2,154
閲覧数
VBAで<開く>ダイアログボックスから選択したファイルのパスを取得するには
VBAで<開く>ダイアログボックスから選択したファイルのパスを取得する方法についての質問です。
VBAで<開く>ダイアログボックスからファイルを選択は、下記のように実現しました。
strFileName = MacScript("Choose File")
ファイルパスを取得しようとしたのですが、構文エラーとなり、パスが取得できません。
MsgBox strFileName
...
0
票
1
回答
342
閲覧数
エクセルで1つのセルの中に異なる色付きで入力された文字列を自動で分割して新しいセルに代入したい
エクセルで1つのセルの中に異なる色付きで入力された文字列を自動で分割してセルに代入するにはどのようにしたらいいでしょうか。
たとえば
セル[A1] あああ(黒色)いいい(青色)ううう(黒色)
とセルに入力されているものを
セル[A2] あああ(黒色)
セル[A3] いいい(青色)
セル[A4] ううう(黒色)
と分割したいという具合です。
0
票
1
回答
574
閲覧数
VBA(Excel)の処理速度について
logファイル(7~8万行程度)を読み込み、A列に空白があった場合に、
その列を削除する処理ですが、この処理だけでも
3~5分程度かかってしまいます。
Excelの処理では、7~8万行の処理では、このぐらいの時間がかかって
しまうものなのでしょうか?
PCのスペックは、Win10pro core i7 メモリ16GBです。
Sub test()
Dim txtPath As String
...
0
票
2
回答
529
閲覧数
Excelのシェイプのフォント色が自動かどうかの判別
エクセルマクロにて、
シェイプのフォント色が「自動」かどうかを判別しようとしています。
以下のように、ColorIndexがxlColorIndexAutomaticの場合、フォント色を「自動」と判断していますが、
Excel上でカラーパネルより、フォント色に黒(Colorコードは0)を設定した場合も、ColorIndexがxlColorIndexAutomaticとなる為、黒と「自動」...
0
票
1
回答
240
閲覧数
VBAでCOMコンポーネント使って特定のサービスを取得する方法を、C#(.Net)で行う方法について
こんにちは。
現在、VBAを使用して、特定アプリ内の情報をCOMコンポーネント使い、その特定サービスを取得しました。
それを同じようにC#(.Net)でもできるのかお聞きしたいです。.Netは、VisualStudio2019を使用したものです。
VBAの例を以下です。
'オブジェクトのインスタンス化
Set xxxApp = GetObject(, "XXXXApplication&...
0
票
1
回答
1,213
閲覧数
C#でExcelの条件付き書式を指定したいです。
c#で既に作られたExcelファイルを開き、一定の範囲を指定して、
条件付き書式を利用して空白のセルを「黄色」に表示したいですが、
Excel.Range range = sheet.get_Range(一定の範囲);
range.FormatConditions.Add(Excel.XlFormatConditionType.xlBlanksCondition);
range.Interior....
0
票
1
回答
2,295
閲覧数
VBAを使って、XMLファイルの特定のタグ<ImageData src="image">のみをExcelに表示させたい
[![画像の説明をここに入力][1]][1]
この画像のXMLの <ImageData src="image"> タグの部分のみをExcelに抽出したいです。
コードは、下記のようになっております。
よろしくお願いします。
Option Explicit
Sub ボタン4_Click()
'シート設定
Dim ws As Worksheet
...
0
票
1
回答
1,502
閲覧数
Excel マクロでDeepLを用いて翻訳する際、英文をピリオド区切りではなくセル内の丸ごとで翻訳したい
表題の通りですが、文章がピリオド区切り、つまり一つの文のみでDeepLに入力されてしまうので、英文全体をセルから取得したいです。.Valueの箇所を.Textに変更したりはしています。
Sub Translate()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
...
0
票
1
回答
1万
閲覧数
コンパイル エラーです。: プロシージャの外では無効です。どこのエラーを修正すればよいのでしょうか?
With ActivePresentation.Slides(1).SlideShowTransition
.Speed = ppTransitionSpeedFast
.EntryEffect = ppEffectStripsDownLeft
.SoundEffect.ImportFromFile "c:\sndsys\bass.wav"
....
0
票
1
回答
989
閲覧数
VBAからURLで指定したファイルのタイムスタンプを取得したい
VBAで、URLで指定したファイルのタイムスタンプを取得したいです。
例
http://example.com/files/abcde.xlsx
一度ダウンロードしてしまえばいくらでも取得できるとは思うのですが、ダウンロードする前に確認して、新しくなっているようならダウンロードする処理をさせたいと思っています。
よろしくお願いします。
0
票
2
回答
1,098
閲覧数
ドライブ直下のフォルダのファイル数と最終更新日時の取得
下記の通りドライブ直下にフォルダがあるとします。
C:\A
C:\B
C:\C
これらのドライブ直下のフォルダA,B,Cのみの、ファイル数と最終更新日時を下記の通りEXCEL上に集計したいと考えています。
(A,B,C内のサブフォルダは対象外)
フォルダ名
ファイル数
最終更新日時
A
10
2021/3/2
B
100
2021/3/4
C
1000
2021/3/9
...
0
票
2
回答
6,444
閲覧数
VBA if~else if をそれぞれ一行で記載する場合の書き方
下記のようにif~else ifを各ブロック1行で記載しておりますが、
「コンパイラエラー:End ifに対応するifブロックがありません」となってしまいます。
どのように修正すればよいでしょうか、またはこのような書き方はできないのでしょうか。
If value = "1" Then requestType = "01"
ElseIf ...
0
票
2
回答
2,867
閲覧数
VBA: オブジェクト配列を変数に設定する際、「コンパイルエラー: オブジェクトが必要です。」となる。
VBAでクラスを自作しました。
test Moduleのtestメソッド実行時に、GetSheetObjsメソッドの戻り値をセットする行Set GetSheetObjs = sheets部分で、sheetsが選択され色が反転した状態になりコンパイルエラーが発生します。
Class1
Option Explicit
Public Sub test()
Dim ...
0
票
1
回答
280
閲覧数
ACCESSで検索フォームを作成したい
ACCESS VBAで検索フォームを作成したいと考えています。
(クエリ―でも同じようなことはできると思うのですが、今回はVBAで実装したいと考えています)
添付画像のように「各会員番号」と「各店舗」との距離が格納されている同一フォーマットのテーブルが約20ほどあります。(テーブルはチェーンごとに分割されている)
条件を指定することで、...
0
票
3
回答
756
閲覧数
VBSもしくはPythonで、Excel特定値行のテキスト色を変更したい。
VBSもしくはPythonを使用して ExcelのH列(H列ではなくK列でした)セルの値が ”A" でないとき、アクティブ行のテキストの色を全て赤にしたいです。Excelは開いた状態から開始し、開いた状態で終了します。
補足説明
現在、RPA使用中で、RPAの機能ではExcelのカラーパレットの指定が不安定なため、VBAを作成しました。VBA使用の場合は、...
0
票
1
回答
161
閲覧数
VBAのループ処理書き方について
VBAで年間の資金繰り表を作成しています。
更新ボタンを押した際にループ処理で月ごとに値が入力されるようにしたいです。
また、値が入力される式は作成済みなのでループで入力される際にCallで呼び出すようにしたいです。(式の名前:InputCalc)
支出・粗利益のなかの項目は増えることがあります。
i では支出と粗利益を区別するループ、j ではCallで値を入力していくループで構成を考えています。
...
0
票
1
回答
202
閲覧数
VBA で、文の意味が一致するものを1つのキーに辞書に登録できますか?
お世話になります。
VBAで、文の表現に揺れがあるののや、漢字が平仮名になっているだけ、「。」が無いだけで、文の意味が一致するものを、同じ一つのキーする方法ありませんか?
ご指導よろしくお願いします。
0
票
1
回答
1,164
閲覧数
VBA編集データを上書きしたい
参照ボタンに検索したい従業員の番号を入力すると、フォームにデータが参照されます。
そこからデータを編集し、編集確定ボタンを押すと表に上書きされるような仕様にしたいです。
しかし、今のコードだと14行のような感じで反映されてしまいます。
VBA
参照ボタンを押した際の処理です
'編集確定ボタンを押したとき'
Private Sub OkButton1_Click()
Dim x ...
0
票
2
回答
2,402
閲覧数
VBA コンパイルエラー:メソッドまたはデータメンバーが見つかりません 解決法
前提・実現したいこと
エクセルのVBAとOutlookを連携させて一括送信メーラーを創っています。
指南サイトの手順通りに実装した所、以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
コンパイルエラー: メソッドまたはデータメンバーが見つかりません
該当のソースコード
Sub SendEmail()
Dim objOutlook As Outlook....
0
票
1
回答
280
閲覧数
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
票
2
回答
775
閲覧数
「結合セル内の値を、結合解除後に結合されていた全てのセルへコピーする方法」でなく、結合セルの最初の列へだけ、コピーする方法を教えて下さい。
①結合セル内の第2,3...列目は、空文字のままにしたいです。
コピーしすぎない。行の増える方向だけへコピーする方法です。
②別法として、解除直後に第2,3...列目をクリアする。
③別法として、別マクロで、左隣のセルの値と同じなら、空文字にするでもいいと思います。
探し方が悪いのか、見つかりませんでした。
よろしくお願いします。
(参考)結合セル内の値を、...
0
票
1
回答
2,195
閲覧数
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
回答
750
閲覧数
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
回答
199
閲覧数
RangeオブジェクトのSpecialCells
結合セルの扱い方を理解するうえで範囲の右下のセルを選択するために
Dim RangeObj as Range
Set Range = ActiveSheet.Range("A4:A7")
RangeObj.Cells.SpecialCells(xlCellTypeLastCell).Select
を実行したところ、シート内でのもの、つまりシートのセルの中で一番右下にある編集されたセル(...
0
票
1
回答
876
閲覧数
オブジェクトは、このプロパティまたはメソッドをサポートしていません (エラー 438)
BAPI BAPI_USER_GETLISTからテーブルの値を読み込んで、ユーザが存在しているかどうか判断したいです。
Public Function CheckUser(iCurrentRow As Integer) As Boolean
Dim oBAPIUserCheck As Object 'BAPIオブジェクト格納用変数
Dim iCntReturn As ...
0
票
1
回答
531
閲覧数
xlwingsのUDFは、エクセルでは必ず揮発性関数扱いになるのでしょうか?
下記のようなexcel-macroでxlwings経由でpython関数を実行しています。しかしどうあがいても、揮発性関数扱い(Open、Any-cell変化時に再計算)されています。
これまで確認した内容としては、
1) vba側でいきなり0などの値を返す。→これのみ非揮発性に変化
MLMprdct = 0 'Py.CallUDF(Tar_pyfile, "MLMprdct", Array(...
0
票
1
回答
527
閲覧数
VBAでRPAがしたいのでヒントをください
windows API user32 から SendInput や SendMessage , FindWindow などを使って、VBAでExcelから他のアプリケーションソフト内にある複数のテキストボックスへコピペ作業を行おうと考えています。
ただし、
①貼り付け先ウィンドウがアクティブでなくても貼り付けが行われること
②コピペをしなければ他のアプリを操作していても問題ないこと
...
0
票
1
回答
1,703
閲覧数
AccessVBA メインのアクセスから別のアクセスを開くときにフォームを開かせない方法
お世話になります。
Access2010にて、VBAで他のアクセスを開くときに、OpenCurrentDatabaseで開こうとするの
ですが、呼び出される方のアクセスに、指定のフォームを開く設定がされているとフォームが
開いてしまいますが、これを通常開くときにシフトキーで開くように、設定などを無効にして
開きたいのですが、その方法をお教えください。
...
0
票
1
回答
364
閲覧数
excel のデータ分析グラフの時間の目盛を0からにする
csvファイルを読み込んで、データ分析を使用して、グラフを作成しているのですが、x軸の目盛を「年月日時間」表示から「分」表示にし、y軸と同じように0からにしたいのですが、
軸の書式設定ではシリアル値の関係なのかうまくいきません。
この場合はVBAや他の方法で設定をすることができるのでしょうか。
0
票
1
回答
988
閲覧数
VBAでpythonを動かしたときのpermissionErrorの解決方法
VBAでpythonのプログラムを動かす際にタイトルのエラーが出ます。
エラー内容はPermissionError : Permission denied:'excelのファイル名.xlsm'
よろしくお願いいたします。
VBAのコードはこちらです。
Sub SampleCall()
RunPython ("import auto_py;auto_py.textdownload()")
...
0
票
1
回答
9,036
閲覧数
Bitnami Redmine でインストールした MySQL への VBA からの接続方法について教えてください
BitnamiからRedmineをインストールしました。
RedmineのデータをExcelで使用したいため、VBAを使ってMySQLに接続してデータを取得したいのですが、接続方法がわかりません。
VBAからはMySQL ODBCで接続しようと思っていますが、ODBCのSERVERにはIPアドレスを入れればよいのでしょうか。試しに http://XXX.XXX.XXX.XXX と入れましたが、...
0
票
2
回答
619
閲覧数
vba 型が一致しない
ExcelのVBAで特定の文字の最終行と最初の行を探す方法で、file.xlsmのデータから範囲してtbl_data.xlsファイルにデータを貼り付けるVBAですが、このコードだと型が一致しないとエラーが表示されます。
どのように修正すればいいでしょうか。
Sub try()
Dim r As range
Dim rr As range
Dim aju As range
Dim ...
0
票
1
回答
183
閲覧数
Excel Macro : Error 9, If × Countif
エラーコード'9'の解消方法を教えてください。以下のIf (WorksheetFunction.CountIfの部分です。
Sub Downloaded()
n = Cells(Rows.Count, "F").End(xlUp).Row
Dim i
For i = 2 To n
If Range("o" & i) = 0 Then
...
0
票
1
回答
1,284
閲覧数
AutoCAD 図形を選択するVBAマクロについて
お世話になっております。
AutoCADのVBAの開発についての質問です。
図面内の全ての図形を探索して「A」という名前のブロックを検索し、その属性情報を変更するマクロを作成しています。
For Each objEntity In ThisDrawing.ModelSpace
If objEntity.ObjectName = "AcDbBlockReference" Then
...
0
票
1
回答
176
閲覧数
AutoCAD VBAロード時の現象
AutoCAD2012を使用しているのですが、下記の現象が起こります。
VBAをロードしAutoCADウィンドウを最小にする。
タスクバーから再びAutoCADウィンドウをクリックして開こうとしても、ワンクリック開く事ができない。
(VBAをロードしていない状態ではクリックして開く事が出来ました。)
なにか解決方法はありませんか?
OSはWindows7 64bitです。
...
0
票
1
回答
512
閲覧数
Excel 2016 for MacとOffice365 Proplus(windows)でのVBAの挙動の差
WindowsのOffice365 ProplusとExcel 2013では動くVBAがMacのExcel 2016 for Macでは動きません。
サンプルとして掲載されていた以下のコードなのですが、以下の個所で「実行時エラー5 プロシージャの呼出し、または引数が無効です」となります、Mac版の制約か何かなのでしょうかご教示下さい。
Set NewM = CommandBars("...
0
票
3
回答
1,477
閲覧数
VBAでセルに式を埋め込むときに良い式展開の方法はないでしょうか
VBAでセルを足し算するんじゃなくって、
式を埋め込みたいときに思いついた方法が文字列でゴリ押しする方法でした。
一応成功しましたが。これだとさすがに冗長すぎると思いました。
前にも似たような質問をしたのですが、VBAでrubyのように式展開させる方法はないのでしょうか?
sub cells_sum
for i = 1 to sheets.count
for j = 4 to 34
...
0
票
1
回答
213
閲覧数
VBAのセルのrange("")の式展開について
vbaでrangeの式展開は可能なのでしょうか?stringはどうやらできるみたいなのですが、rangeは可能なのでしょうか。一応やりたいことは下記のようなコードです。
特定のセルだけに色を付ける => cells()を使って書いたもの
'このコードは成功しました
sub cellcolor
for i = 3 to 27 step 4
for j = 1 to 13
cells(i, ...
0
票
1
回答
6,162
閲覧数
マクロVBAで「BASIC ランタイムエラー」が出てきます。何が問題でしょうか?
マクロ初心者です。
現在マクロの勉強をしてるのですが、以下のコードを実行しようとしたときに
「BASIC ランタイムエラー Sub または Function プロシージャーの未定義」
とエラーが出てきて処理ができません。
何が問題なのでしょうか?
■環境
OpenOffice
■実行したマクロ
Sub Module1 ()
Dim a As String
a = Cells(3, 2)....
0
票
1
回答
356
閲覧数
VBA エクセルのデータベース化
Excelにおいて一列目に日付別に、一行目にID別に整理されたデータがあります。
これデータベースとして使えるように整理したいのですが、Excelで使えるVBAのコードがあれば教えてください。Transposeで出来るかと思ったのですが。
オリジナルデータ
2016 2015 2014....
A Suzuki Yamada Tanaka
B Takai ...
0
票
1
回答
1,412
閲覧数
VBscript でシンボリックリンクのリンク先(実体へのpath)を取得したい。
タイトル通りで、VBscript でシンボリックリンクのリンク先(実体へのpath)を取得したいのですがググっても見つけきれませんでした。
よろしくお願いいたします。
0
票
1
回答
3,156
閲覧数
VBAを使いExcelのテーブルからYamlを出力することはできますか?
掲題の通りです。
ExcelのテーブルをJSONに変換する記事は見つけられるのですがYamlに変換する情報は見つけられませんでした。
ご存知の方がいらしたらご教示頂きたいです。
0
票
1
回答
2万
閲覧数
GoogleSpreadSheetで管理している情報を自動でExcelへ転記したい
GoogleSpreadSheetで現在管理している情報をExcelへそのまま自動で転記することができる仕組みを教えていただきたく。
目的としましては、現在作成しているVBAマクロで利用する情報がSpreadSheetで管理されており、手作業による転記作業を削減したいため。
何か良い手段等ございますでしょうか。
0
票
1
回答
92
閲覧数
入力を終えたセル内の特定の文字列の数を増やしたい
やりたいことは以下の通りです。
①対象セル群のうち一つに文字列を入力し、下キーまたはTabキーで移動する
②その際、セルの文字列のうち、特定の文字をReplace関数で1個から2個に増やす
※対象セル群はD列の2行目以下全てを対象とする
上記内容は下記コードで概ね実現出来たのですが、問題が残っております。
①やや冗長に感じる
②範囲指定がうまくいっていない
・...
0
票
1
回答
54
閲覧数
すぐ上のセル内を操作し、特定の文字列の数を増やしたい
やりたいことの詳細は下記の通りです
①セルAをアクティブにして、文字列を入力する
②セルAのすぐ下のセルを選択すると同時に、セルA内の、入力した文字列のうち、
一個だけ入力した特定の文字列をReplace関数で2個にする
※下記のコードでは、自動で2個にしたい文字列を「正」に設定しました。
しかし下記のコードだと、何も反応しません。
kazのカウントはうまくいっていましたが、...
0
票
1
回答
374
閲覧数
25個のセルに入力した各データを、5×5の別の範囲のセル群にランダムに重複なく転記したい
今回やりたいことはタイトルの通りなのですが、For文の範囲の
決め方でわからないことがあります。
1 To 5にした時は、入力した5つのセルのデータを5×5の範囲に
重複なく転記してくれたのですが、
1 to 25にしたときは、なぜかフリーズしてしまいます。強制終了
したところ、1 To 5にして実行した時と同じ結果が得られました。
Sub Sample()
Dim i As ...