Skip to main content

[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 ...
user31164's user avatar
0
2 回答
2,430 閲覧数

Excel VBA プロシージャの処理が終わるまで画面が固まる状況を克服したい

プロシージャの内容: シート上に100行強のデータがあります。ABC列の内容をキーに1行づつSQLServerへデータを取得しにいって、当該行H列に結果を格納する内容です。 行のコレクションをForEach文でループ。SQLServerへの接続はループ開始前で、ループ内でレコードセット取得・クローズを繰りかえす感じです。 問題点: Apprication....
saya24's user avatar
  • 545
0
2 回答
894 閲覧数

エクセルの名前定義の正規表現

正規表現 エクセルの名前定義に使える文字列の正規表現を書きたいです、 1.先頭に「数字」、または「R数字」、「C数字」で始まらないこと 2.スベース(全角半角)、タブ、改行など「$s」で表現できる文字列を含まないこと 3.アンダーライン(全角半角)、円マーク(全角半角)以外の符号を含まないこと 調べて見たら: 1.→ /^(?!(\d|(R|C)\d))/i 2.→ (?!.*\s).+$ 3.→...
johnn's user avatar
  • 103
0
1 回答
1,180 閲覧数

セルのクリックでセルを着色・脱色し、範囲選択で一括脱色したい

やりたいことはタイトルの通りです。 コードと問題点は以下の通りです。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) '複数選択したセルを着色 '下記2行を有効にすると、下記2行含む、以下全てのコードが機能しなくなります。 '下記2行を無効にすると、複数選択したセルの脱色が有効になり、...
inu shiba's user avatar
  • 247
0
1 回答
2,154 閲覧数

VBAで<開く>ダイアログボックスから選択したファイルのパスを取得するには

VBAで<開く>ダイアログボックスから選択したファイルのパスを取得する方法についての質問です。 VBAで<開く>ダイアログボックスからファイルを選択は、下記のように実現しました。 strFileName = MacScript("Choose File") ファイルパスを取得しようとしたのですが、構文エラーとなり、パスが取得できません。 MsgBox strFileName ...
FoxTribune's user avatar
  • 1,237
0
1 回答
342 閲覧数

エクセルで1つのセルの中に異なる色付きで入力された文字列を自動で分割して新しいセルに代入したい

エクセルで1つのセルの中に異なる色付きで入力された文字列を自動で分割してセルに代入するにはどのようにしたらいいでしょうか。 たとえば セル[A1] あああ(黒色)いいい(青色)ううう(黒色) とセルに入力されているものを セル[A2] あああ(黒色) セル[A3] いいい(青色) セル[A4] ううう(黒色) と分割したいという具合です。
koyamaru's user avatar
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 ...
user avatar
0
2 回答
529 閲覧数

Excelのシェイプのフォント色が自動かどうかの判別

エクセルマクロにて、 シェイプのフォント色が「自動」かどうかを判別しようとしています。 以下のように、ColorIndexがxlColorIndexAutomaticの場合、フォント色を「自動」と判断していますが、 Excel上でカラーパネルより、フォント色に黒(Colorコードは0)を設定した場合も、ColorIndexがxlColorIndexAutomaticとなる為、黒と「自動」...
yoichi's user avatar
  • 11
0
1 回答
240 閲覧数

VBAでCOMコンポーネント使って特定のサービスを取得する方法を、C#(.Net)で行う方法について

こんにちは。 現在、VBAを使用して、特定アプリ内の情報をCOMコンポーネント使い、その特定サービスを取得しました。 それを同じようにC#(.Net)でもできるのかお聞きしたいです。.Netは、VisualStudio2019を使用したものです。 VBAの例を以下です。 'オブジェクトのインスタンス化 Set xxxApp = GetObject(, "XXXXApplication&...
sentian's user avatar
  • 59
0
1 回答
1,213 閲覧数

C#でExcelの条件付き書式を指定したいです。

c#で既に作られたExcelファイルを開き、一定の範囲を指定して、 条件付き書式を利用して空白のセルを「黄色」に表示したいですが、 Excel.Range range = sheet.get_Range(一定の範囲); range.FormatConditions.Add(Excel.XlFormatConditionType.xlBlanksCondition); range.Interior....
gride's user avatar
  • 1
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 ...
さんだる's user avatar
0
1 回答
1,502 閲覧数

Excel マクロでDeepLを用いて翻訳する際、英文をピリオド区切りではなくセル内の丸ごとで翻訳したい

表題の通りですが、文章がピリオド区切り、つまり一つの文のみでDeepLに入力されてしまうので、英文全体をセルから取得したいです。.Valueの箇所を.Textに変更したりはしています。 Sub Translate() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ...
kimi Tanaka's user avatar
0
1 回答
1万 閲覧数

コンパイル エラーです。: プロシージャの外では無効です。どこのエラーを修正すればよいのでしょうか?

With ActivePresentation.Slides(1).SlideShowTransition .Speed = ppTransitionSpeedFast .EntryEffect = ppEffectStripsDownLeft .SoundEffect.ImportFromFile "c:\sndsys\bass.wav" ....
scope's user avatar
  • 1
0
1 回答
989 閲覧数

VBAからURLで指定したファイルのタイムスタンプを取得したい

VBAで、URLで指定したファイルのタイムスタンプを取得したいです。 例 http://example.com/files/abcde.xlsx 一度ダウンロードしてしまえばいくらでも取得できるとは思うのですが、ダウンロードする前に確認して、新しくなっているようならダウンロードする処理をさせたいと思っています。 よろしくお願いします。
たたぱた's user avatar
  • 1,205
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 ...
yama's user avatar
  • 1
0
2 回答
6,444 閲覧数

VBA if~else if をそれぞれ一行で記載する場合の書き方

下記のようにif~else ifを各ブロック1行で記載しておりますが、 「コンパイラエラー:End ifに対応するifブロックがありません」となってしまいます。 どのように修正すればよいでしょうか、またはこのような書き方はできないのでしょうか。 If value = "1" Then requestType = "01" ElseIf ...
aspara_prime's user avatar
  • 1,316
0
2 回答
2,867 閲覧数

VBA: オブジェクト配列を変数に設定する際、「コンパイルエラー: オブジェクトが必要です。」となる。

VBAでクラスを自作しました。 test Moduleのtestメソッド実行時に、GetSheetObjsメソッドの戻り値をセットする行Set GetSheetObjs = sheets部分で、sheetsが選択され色が反転した状態になりコンパイルエラーが発生します。 Class1 Option Explicit Public Sub test() Dim ...
Angus B.'s user avatar
0
1 回答
280 閲覧数

ACCESSで検索フォームを作成したい

ACCESS VBAで検索フォームを作成したいと考えています。 (クエリ―でも同じようなことはできると思うのですが、今回はVBAで実装したいと考えています) 添付画像のように「各会員番号」と「各店舗」との距離が格納されている同一フォーマットのテーブルが約20ほどあります。(テーブルはチェーンごとに分割されている) 条件を指定することで、...
Yamazaki Ken's user avatar
0
3 回答
756 閲覧数

VBSもしくはPythonで、Excel特定値行のテキスト色を変更したい。

VBSもしくはPythonを使用して ExcelのH列(H列ではなくK列でした)セルの値が ”A" でないとき、アクティブ行のテキストの色を全て赤にしたいです。Excelは開いた状態から開始し、開いた状態で終了します。 補足説明 現在、RPA使用中で、RPAの機能ではExcelのカラーパレットの指定が不安定なため、VBAを作成しました。VBA使用の場合は、...
Kwi10's user avatar
  • 3
0
1 回答
161 閲覧数

VBAのループ処理書き方について

VBAで年間の資金繰り表を作成しています。 更新ボタンを押した際にループ処理で月ごとに値が入力されるようにしたいです。 また、値が入力される式は作成済みなのでループで入力される際にCallで呼び出すようにしたいです。(式の名前:InputCalc) 支出・粗利益のなかの項目は増えることがあります。 i では支出と粗利益を区別するループ、j ではCallで値を入力していくループで構成を考えています。 ...
user39792's user avatar
0
1 回答
202 閲覧数

VBA で、文の意味が一致するものを1つのキーに辞書に登録できますか?

お世話になります。 VBAで、文の表現に揺れがあるののや、漢字が平仮名になっているだけ、「。」が無いだけで、文の意味が一致するものを、同じ一つのキーする方法ありませんか?  ご指導よろしくお願いします。
YYYYYA's user avatar
  • 5
0
1 回答
1,164 閲覧数

VBA編集データを上書きしたい

参照ボタンに検索したい従業員の番号を入力すると、フォームにデータが参照されます。 そこからデータを編集し、編集確定ボタンを押すと表に上書きされるような仕様にしたいです。 しかし、今のコードだと14行のような感じで反映されてしまいます。 VBA 参照ボタンを押した際の処理です '編集確定ボタンを押したとき' Private Sub OkButton1_Click() Dim x ...
user39792's user avatar
0
2 回答
2,402 閲覧数

VBA コンパイルエラー:メソッドまたはデータメンバーが見つかりません 解決法

前提・実現したいこと エクセルのVBAとOutlookを連携させて一括送信メーラーを創っています。 指南サイトの手順通りに実装した所、以下のエラーメッセージが発生しました。 発生している問題・エラーメッセージ コンパイルエラー: メソッドまたはデータメンバーが見つかりません 該当のソースコード Sub SendEmail() Dim objOutlook As Outlook....
r-o's user avatar
  • 1
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(...
saitoib's user avatar
  • 391
0
2 回答
775 閲覧数

「結合セル内の値を、結合解除後に結合されていた全てのセルへコピーする方法」でなく、結合セルの最初の列へだけ、コピーする方法を教えて下さい。

①結合セル内の第2,3...列目は、空文字のままにしたいです。 コピーしすぎない。行の増える方向だけへコピーする方法です。 ②別法として、解除直後に第2,3...列目をクリアする。 ③別法として、別マクロで、左隣のセルの値と同じなら、空文字にするでもいいと思います。 探し方が悪いのか、見つかりませんでした。 よろしくお願いします。 (参考)結合セル内の値を、...
mrrclb48z's user avatar
  • 429
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 ...
Kazuki Saito's user avatar
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 ...
ikoma's user avatar
  • 1
0
1 回答
199 閲覧数

RangeオブジェクトのSpecialCells

結合セルの扱い方を理解するうえで範囲の右下のセルを選択するために Dim RangeObj as Range Set Range = ActiveSheet.Range("A4:A7") RangeObj.Cells.SpecialCells(xlCellTypeLastCell).Select を実行したところ、シート内でのもの、つまりシートのセルの中で一番右下にある編集されたセル(...
user36687's user avatar
0
1 回答
876 閲覧数

オブジェクトは、このプロパティまたはメソッドをサポートしていません (エラー 438)

BAPI BAPI_USER_GETLISTからテーブルの値を読み込んで、ユーザが存在しているかどうか判断したいです。 Public Function CheckUser(iCurrentRow As Integer) As Boolean Dim oBAPIUserCheck As Object 'BAPIオブジェクト格納用変数 Dim iCntReturn As ...
user34431's user avatar
0
1 回答
531 閲覧数

xlwingsのUDFは、エクセルでは必ず揮発性関数扱いになるのでしょうか?

下記のようなexcel-macroでxlwings経由でpython関数を実行しています。しかしどうあがいても、揮発性関数扱い(Open、Any-cell変化時に再計算)されています。 これまで確認した内容としては、 1) vba側でいきなり0などの値を返す。→これのみ非揮発性に変化 MLMprdct = 0 'Py.CallUDF(Tar_pyfile, "MLMprdct", Array(...
悩めるbonchan's user avatar
0
1 回答
527 閲覧数

VBAでRPAがしたいのでヒントをください

windows API user32 から SendInput や SendMessage , FindWindow などを使って、VBAでExcelから他のアプリケーションソフト内にある複数のテキストボックスへコピペ作業を行おうと考えています。 ただし、 ①貼り付け先ウィンドウがアクティブでなくても貼り付けが行われること ②コピペをしなければ他のアプリを操作していても問題ないこと ...
ShortArrow's user avatar
0
1 回答
1,703 閲覧数

AccessVBA メインのアクセスから別のアクセスを開くときにフォームを開かせない方法

お世話になります。 Access2010にて、VBAで他のアクセスを開くときに、OpenCurrentDatabaseで開こうとするの ですが、呼び出される方のアクセスに、指定のフォームを開く設定がされているとフォームが 開いてしまいますが、これを通常開くときにシフトキーで開くように、設定などを無効にして 開きたいのですが、その方法をお教えください。 ...
たたぱた's user avatar
  • 1,205
0
1 回答
364 閲覧数

excel のデータ分析グラフの時間の目盛を0からにする

csvファイルを読み込んで、データ分析を使用して、グラフを作成しているのですが、x軸の目盛を「年月日時間」表示から「分」表示にし、y軸と同じように0からにしたいのですが、 軸の書式設定ではシリアル値の関係なのかうまくいきません。 この場合はVBAや他の方法で設定をすることができるのでしょうか。
user25636's user avatar
0
1 回答
988 閲覧数

VBAでpythonを動かしたときのpermissionErrorの解決方法

VBAでpythonのプログラムを動かす際にタイトルのエラーが出ます。 エラー内容はPermissionError : Permission denied:'excelのファイル名.xlsm' よろしくお願いいたします。 VBAのコードはこちらです。 Sub SampleCall() RunPython ("import auto_py;auto_py.textdownload()") ...
西木野有栖's user avatar
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 と入れましたが、...
matu's user avatar
  • 1
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 ...
user25636's user avatar
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 ...
Beginner's user avatar
0
1 回答
1,284 閲覧数

AutoCAD 図形を選択するVBAマクロについて

お世話になっております。 AutoCADのVBAの開発についての質問です。 図面内の全ての図形を探索して「A」という名前のブロックを検索し、その属性情報を変更するマクロを作成しています。 For Each objEntity In ThisDrawing.ModelSpace If objEntity.ObjectName = "AcDbBlockReference" Then ...
user28019's user avatar
  • 411
0
1 回答
176 閲覧数

AutoCAD VBAロード時の現象

AutoCAD2012を使用しているのですが、下記の現象が起こります。 VBAをロードしAutoCADウィンドウを最小にする。 タスクバーから再びAutoCADウィンドウをクリックして開こうとしても、ワンクリック開く事ができない。 (VBAをロードしていない状態ではクリックして開く事が出来ました。) なにか解決方法はありませんか? OSはWindows7 64bitです。 ...
user28019's user avatar
  • 411
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("...
zangiri's user avatar
0
3 回答
1,477 閲覧数

VBAでセルに式を埋め込むときに良い式展開の方法はないでしょうか

VBAでセルを足し算するんじゃなくって、 式を埋め込みたいときに思いついた方法が文字列でゴリ押しする方法でした。 一応成功しましたが。これだとさすがに冗長すぎると思いました。 前にも似たような質問をしたのですが、VBAでrubyのように式展開させる方法はないのでしょうか? sub cells_sum for i = 1 to sheets.count for j = 4 to 34 ...
matomebutai's user avatar
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, ...
matomebutai's user avatar
0
1 回答
6,162 閲覧数

マクロVBAで「BASIC ランタイムエラー」が出てきます。何が問題でしょうか?

マクロ初心者です。 現在マクロの勉強をしてるのですが、以下のコードを実行しようとしたときに 「BASIC ランタイムエラー Sub または Function プロシージャーの未定義」 とエラーが出てきて処理ができません。 何が問題なのでしょうか? ■環境  OpenOffice ■実行したマクロ Sub Module1 () Dim a As String a = Cells(3, 2)....
kenken's user avatar
  • 1
0
1 回答
356 閲覧数

VBA エクセルのデータベース化

Excelにおいて一列目に日付別に、一行目にID別に整理されたデータがあります。 これデータベースとして使えるように整理したいのですが、Excelで使えるVBAのコードがあれば教えてください。Transposeで出来るかと思ったのですが。 オリジナルデータ 2016 2015 2014.... A Suzuki Yamada Tanaka B Takai ...
kataiw's user avatar
  • 1
0
1 回答
1,412 閲覧数

VBscript でシンボリックリンクのリンク先(実体へのpath)を取得したい。

タイトル通りで、VBscript でシンボリックリンクのリンク先(実体へのpath)を取得したいのですがググっても見つけきれませんでした。 よろしくお願いいたします。
bakabon88's user avatar
  • 137
0
1 回答
3,156 閲覧数

VBAを使いExcelのテーブルからYamlを出力することはできますか?

掲題の通りです。 ExcelのテーブルをJSONに変換する記事は見つけられるのですがYamlに変換する情報は見つけられませんでした。 ご存知の方がいらしたらご教示頂きたいです。
sibukixxx's user avatar
0
1 回答
2万 閲覧数

GoogleSpreadSheetで管理している情報を自動でExcelへ転記したい

GoogleSpreadSheetで現在管理している情報をExcelへそのまま自動で転記することができる仕組みを教えていただきたく。 目的としましては、現在作成しているVBAマクロで利用する情報がSpreadSheetで管理されており、手作業による転記作業を削減したいため。 何か良い手段等ございますでしょうか。
hoge's user avatar
  • 3
0
1 回答
92 閲覧数

入力を終えたセル内の特定の文字列の数を増やしたい

やりたいことは以下の通りです。  ①対象セル群のうち一つに文字列を入力し、下キーまたはTabキーで移動する  ②その際、セルの文字列のうち、特定の文字をReplace関数で1個から2個に増やす   ※対象セル群はD列の2行目以下全てを対象とする 上記内容は下記コードで概ね実現出来たのですが、問題が残っております。  ①やや冗長に感じる  ②範囲指定がうまくいっていない   ・...
inu shiba's user avatar
  • 247
0
1 回答
54 閲覧数

すぐ上のセル内を操作し、特定の文字列の数を増やしたい

やりたいことの詳細は下記の通りです ①セルAをアクティブにして、文字列を入力する ②セルAのすぐ下のセルを選択すると同時に、セルA内の、入力した文字列のうち、  一個だけ入力した特定の文字列をReplace関数で2個にする ※下記のコードでは、自動で2個にしたい文字列を「正」に設定しました。 しかし下記のコードだと、何も反応しません。 kazのカウントはうまくいっていましたが、...
inu shiba's user avatar
  • 247
0
1 回答
374 閲覧数

25個のセルに入力した各データを、5×5の別の範囲のセル群にランダムに重複なく転記したい

今回やりたいことはタイトルの通りなのですが、For文の範囲の 決め方でわからないことがあります。 1 To 5にした時は、入力した5つのセルのデータを5×5の範囲に 重複なく転記してくれたのですが、 1 to 25にしたときは、なぜかフリーズしてしまいます。強制終了 したところ、1 To 5にして実行した時と同じ結果が得られました。 Sub Sample() Dim i As ...
inu shiba's user avatar
  • 247