すべての質問
69 件の質問
0
票
1
回答
108
閲覧数
マクロを使用してPDFを作成した時に取り消し線が付くようになった
マクロを使用してPDFを作成しているですが、PDFを確認すると日付に取り消し線が付くようになりました。
書式設定やマクロも確認しましたが、取り消し線が付く理由が分かりません。
PDF作成後にExcelデータを確認しても取り消し線は表示されていませんでした。
「ファイル」→「エクスポート」→「PDF/XPSドキュメントの作成」と手作業で行うと日付に取り消し線は付かなかったため、...
-2
票
1
回答
301
閲覧数
添付ファイルのような「出」に背景色をつけるVBAで作成したい
目的
Excelで当番表を作成する際に、指定された条件に基づいて背景色を公平かつランダムに割り当てるVBAコードを作成したいです。(作成前は「出」の背景色がない状態です)
詳細は以下の通りです。
シート構成:
列に日付が記載されています。
行には名前が記載されています。
「出」と書かれたセルのみが有効です。(「休」などは無視)
背景色の割り当て:
選択セルと同じ背景色を使って、範囲選択内、...
0
票
0
回答
305
閲覧数
EXCEL VBAでMicrosoft Word XX.X OBject Libraryが参照できない
EXCEL VBAでMicrosoft Word XX.X OBject Libraryを呼び出して、Wordで文書を作成するマクロを作成しました。これをVBA_1とします。
これは、問題なく動作していました。
ある日、別のVBAで同じようなWord Libraryを呼び出して文書を作成するVBAを作成しました。これをVBA_2とします。これを起動したところ、コーディングにミスがあったらしく、...
0
票
0
回答
147
閲覧数
EXCEL カスタムリボン:ドロップダウンリストを選択前に値に戻したい
Excelでカスタムリボンのドロップダウンリストに選択肢1,選択肢2があり、変更するとそれぞれのマクロが実行します。
選択肢1が選択されている状態から選択肢2を選択したときにシートの状態がマクロ実行に適していない場合、ドロップダウンリストを選択肢1の状態に戻したいのです。
なお、選択肢1のテキストは別シートに保存してあります。
お手数ではございますが、ご教示いただければ幸いに存じます。
0
票
1
回答
265
閲覧数
ブロック崩しゲームの制作を試みたのですが、オーバーフローのエラーが出ました。なぜですか?
書いたコードとシートの画像です
Dim vx, vy, dt, x, y As Single
Dim k, n, v As Integer
Dim b_px(100), b_py(100), b_vx(100), b_vy(100) As Single
Dim losted() As Single
Sub ball()
dt = Cells(2, 5)
vx = Cells(5, ...
0
票
2
回答
1,782
閲覧数
エクセルVBAからjavaを呼び出す方法
現在、エクセルVBAからjava処理を呼び出したいと考えています。
以下のようなコードを用意したのですが、うまく動きません。
調べるとjarに対して、マニフェストファイルへの記載が必要?とのことなのですが、
ここでは、jar -xvf Sample.jarで解凍したマニフェストファイルに Main-Class: Sample を記載して、もう一度圧縮すればいいのでしょうか?
圧縮コマンドは jar ...
0
票
1
回答
593
閲覧数
マクロで1行おきに2行セルを挿入したいがうまく動きません
1行おきに2行空白のセルを挿入したいのですが、下記のマクロでは1行おきに1行しか挿入できません。他の列はそのままで、C列のみ、そのような処理をしたいと思っております。
恐らく、ここが違うのだと思いますが、
ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown
自力では解決できず。ご教示いただけますと幸いです!
現状のコード
...
-1
票
1
回答
687
閲覧数
エクセルVBAで条件を満たすもののうち最小のものを取得する
エクセルで次のような表がシートにあったとします。
グループ
値
A
3
A
4
A
5
B
4
B
7
B
8
この時、SQLで言う所の
select MIN(値)
from table
where グループ='A'
のようなことをエクセルVBAでやりたいのですが、どのようなコードを組めばよいでしょうか?
よろしくお願いします。
0
票
0
回答
637
閲覧数
ExcelマクロからPythonスクリプトが実行できない
下記に示すコードでExcelのデータをランダムフォレストを用いて解析しようとしたらExcelマクロの方で下記のようなエラーが発生してしまいました。
恐らくDataFilePathが上手く取得できていないものと考えられますが、定義の部分で絶対パスを定義してみたりしたのですが、実行できません。
何か対処法ご存じの方いらっしゃたらご助言お願い致します。
現状のソースコード
Excelマクロ
Sub ...
0
票
1
回答
560
閲覧数
エクセルで右隣のセルの値をコメントとして挿入したいのですが。ループ出来ず悩んでいます。
ループしない以外は、成功しております。ただ、For i = ActiveCell.End(xlDown).Rowが構文エラーとなってます。決まった範囲ではないので、選択しているセルから最後の行までループしたく。
また、右隣(コメントの値となるセル)が空白の場合はスルーする処理も追加できたら幸いです。宜しくお願い致します。
Sub 右隣のセルをコメントとして挿入()
Dim r As Range
...
0
票
1
回答
173
閲覧数
エクセルファイルで選択したセルのみコメントを表示させたい。
エクセルファイルで選択したコメントのみ表示させたくマクロ作成中ですが、全然できず・・。
”Set pComment = Selection.Cells” これで、自分が選択したセルだけ対応してね~って指示したいんですが、ずっとエラーで、ネットで検索してもなぜかでてこず。範囲は指定しないとダメ的なサイトは見つけましたが・・・。どなたかお力を貸してください。特定のファイルではなく、...
0
票
0
回答
200
閲覧数
空のCOMクラスライブラリ(C#)を、VBAから初期化してから解放すると、Excelが再起動する(短時間では再起動しない)
お世話になります。
ExcelのVBAから、C#で作成したCOMライブラリを使用したく、
先ず、C#のコードを以下の様にしました。
(VS2019を管理者権限にて起動し、新規プロジェクトより、C#-クラスライブラリ(.netframework 4.8)にて、AAA.csとして実装)
using System;
using System.Runtime.InteropServices;
...
0
票
3
回答
7,198
閲覧数
マクロでOneDriveに入っているファイルを開けたい
会社でOneDriveを使用しており、そこに入っているフォルダの中のワードファイルを開き(参照)して、エクセルの指定セルの文字を置換し、別のワードファイルに保存するというマクロを作成中です。
自分のデスクトップのフォルダでは成功しますが、OneDriveに格納すると下記のところで、エラー52が表示されます。
Set wordDoc = wordapp.Documents.Open(...
0
票
1
回答
310
閲覧数
Excel VBA 他シートの内容が反映されない
解決したいこと
Excel VBA 他シートの抽出したデータ内容が反映されない
発生している問題・エラー
他のシートからエクセルシートのデータ抽出を行いたいのですが、‘=’を用いたデータの反映が行われません。同一セルの中に他のデータを入れているのが問題なのでしょうか。
実際のコード:
BASEDATE >= TO_DATE(‘元のシート!G7’,‘YYYY/MM/DD’)
自分で試したこと
...
0
票
1
回答
559
閲覧数
エクセルで1つのセルの中に異なる色付きで入力された文字列を自動で分割して新しいセルに代入したい
エクセルで1つのセルの中に異なる色付きで入力された文字列を自動で分割してセルに代入するにはどのようにしたらいいでしょうか。
たとえば
セル[A1] あああ(黒色)いいい(青色)ううう(黒色)
とセルに入力されているものを
セル[A2] あああ(黒色)
セル[A3] いいい(青色)
セル[A4] ううう(黒色)
と分割したいという具合です。
0
票
1
回答
686
閲覧数
VBA(Excel)の処理速度について
logファイル(7~8万行程度)を読み込み、A列に空白があった場合に、
その列を削除する処理ですが、この処理だけでも
3~5分程度かかってしまいます。
Excelの処理では、7~8万行の処理では、このぐらいの時間がかかって
しまうものなのでしょうか?
PCのスペックは、Win10pro core i7 メモリ16GBです。
Sub test()
Dim txtPath As String
...
0
票
1
回答
413
閲覧数
VBA 高速化について
VBAでデータの整形、整理を行っていますが、
とにかく処理が遅くて困っております。
調べたところ、セルに直接書き込む処理を減らすため
配列を使い、セルに直接書き込む回数を減らすことで
速度の改善が可能とのことが分かりました。
そこで、一旦、テキストファイルを読み込んで表示されたセル範囲を
regionArr = Range("A1").CurrentRegionとし、...
0
票
0
回答
150
閲覧数
VBA エクセルシートでの計算結果を蓄積して、シート上に戻すプログラムの方法
質問事項は、モンテカルロ法のエクセルでの計算とVBAの組み合わせです。
売上高に乱数を入れて変化をさせ、その変化した5期分の売上高を元に成長率を計算するエクセルシートを作成しました。
その結果の成長率を1000回試行した結果を以って、モンテカルロ法でボラティリティを出すことをしたいです。
その1000回試行を、エクセルシートの計算を使いながら(エクセル上で経費の差引等がされています)、...
0
票
0
回答
549
閲覧数
Excel2013 と 2016 VSTO アドイン VisualC# での開発において特定処理でExcelが0xc0000374で終了する
Excel2013 と 2016 VSTO アドイン VisualC# での開発において特定処理でExcelが0xc0000374で終了する
お世話になります
Excelのアドイン作成において特定処理でExcelが落ちることがわかったのですが、
原因や対処方法がわからず行き詰まっております。
最小限の処理で再現させることまでできたので質問させてください。
環境
Windows 10 Pro ...
0
票
1
回答
146
閲覧数
同じイベントを"SheetChange"として保存したときと"Open"として保存したときに”Open”として保存した方にだけエラーが出る
Windows11/Excel2019/Macro
それぞれのシートの”A1”の値が0.2以下であればそのシートタブを青色にし、0.1以上0.2未満であれば緑色にし、0.1未満0.01以上であればオレンジ色にし、最終的にそれ未満の場合には初期設定の色にするイベントを”ThisWorkbook”に”SheetChange”として下記の通り保存しました。
Private Sub ...
0
票
2
回答
4,564
閲覧数
Excel VBA でOutlookのメールを作成するのですが、実行後にメールの画面がアクティブにならないことがあるので、 アクティブ(最前面)にする方法を教えてください。
Excel VBAでOutlookのメールを作成するのですが、実行後にメールの画面がアクティブにならないことがあります。 アクティブ(最前面)にする方法を教えてください。
コードは以下のような感じです。
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Set objOutlook = ...
0
票
1
回答
327
閲覧数
Excelのセルに時間を楽に入力する方法が知りたいです。
日報を毎日作成するのですが、Excelのセルに実施時間を楽に入力する方法を知りたいです。
9:00~11:00のような感じで一つのセル(結合していない)に入力し、
下のセルにも同じように、11:00~12:00のように時間を入力していきます。
関数でもVBAでもリストボックスでも何でも良いので、いい案があれば教えてください。
0
票
0
回答
561
閲覧数
Excel VBAからPython関数を実行する際のデバッグ方法について
https://fastclassinfo.com/entry/run_python_from_vba/#2-BPython
あたりを参考に、Excel VBA から、python関数を呼び出そうとしています。
この通りにやったところ、ごく小規模なPythonプログラムは動かせるようになりました。(Pythonから、エクセルシートにデータを書き込むなど)
...
-1
票
1
回答
249
閲覧数
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
回答
5,335
閲覧数
ExcelVBAでワークシートにPDF画像を追加する方法
事務作業を効率化するため、最近ExcelVBAを学び始めた者です。
初質問のため、質問内容やコードにわかりづらいことがありましたら誠に申し訳ございません。何卒宜しくお願いいたします。
目的
-PDFファイルを開き、ExcelワークシートにShapeとしてPDF画像を追加する-
上記を達成するためのより良い方法を知りたい
使用アプリケーション
・Excel 2016
・Adobe Acrobat ...
0
票
2
回答
1,184
閲覧数
ドライブ直下のフォルダのファイル数と最終更新日時の取得
下記の通りドライブ直下にフォルダがあるとします。
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
票
0
回答
5,163
閲覧数
Excel VBA 解像度を上げたPCでフォームなどを作ると、実行時にフォームが小さくなる解決法
Excel2016にて、初めに画面解像度を150%にしたPCでExcelを立ち上げ、フォームでいろいろ
作っていたのですが、ほかの解像度が100%のPCで動かそうとすると、異様にフォームが小さくなって表示されてしまいます。
また、もとの150%の解像度のPCで編集しようとVBEでそのフォームを確認すると、やはり小さくなってしまっています。
しかし、...
-1
票
1
回答
1,116
閲覧数
別シートに、行列を入れ替えたデータを抽出する方法について
元データのシート(写メ1参照)から、完成形のシート(写メ2参照)を抽出するマクロVBA を作成したいです。
作業手順を日本語にすることはできますが(写メ3参照)、
マクロVBA でどのようなコードを書けばいいのかがわかりません。
詳しい方、どのようなコードを書けばいいのか、教えていただけると幸いです。
また、良ければ、どのようにExcelVBAに精通したのか、勉強方法も教えていただけると幸いです。
...
0
票
1
回答
315
閲覧数
関数の戻り値が正しくない
<概要>
関数の呼び出し先と呼び出し元の値が一致しない
<詳細>
Excel 2013にて「入力シート」内の下記関数を別シートのマクロ(ボタンに登録)から呼び出しました。
この関数は戻り値として必ずTrueしか返さないはずです。
Public Function Test() As Boolean
Test = Ture
End Function
呼び出し元(標準モジュール「Module1」...
0
票
3
回答
779
閲覧数
VBSもしくはPythonで、Excel特定値行のテキスト色を変更したい。
VBSもしくはPythonを使用して ExcelのH列(H列ではなくK列でした)セルの値が ”A" でないとき、アクティブ行のテキストの色を全て赤にしたいです。Excelは開いた状態から開始し、開いた状態で終了します。
補足説明
現在、RPA使用中で、RPAの機能ではExcelのカラーパレットの指定が不安定なため、VBAを作成しました。VBA使用の場合は、...
1
票
1
回答
918
閲覧数
Excel のデータを VBA で SQLite に挿入する方法を知りたい
現在、ConfigやExcelのパラメータシートを比較するシステムをSQLiteを使用して作成しています。
SQLiteにExcelのデータを書き込むVBAを作りたいと思っています。
現在、テーブルの作成は完了しております。
Excelで該当のデータを探す事は完了したという前提で、その後にどのようにDBに接続してテーブルに書き込むVBAを作成すれば良いのか教えていただけませんでしょうか。
1
票
0
回答
325
閲覧数
Office365 ユーザーフォーム テキストコントロールの文字の異常について
ユーザーフォームに設けたテキストボックスの字形が Topプロパティのある値前後で字形が勝手に変わる問題です。
なぜ変わるのかわからないままシートや他のコントロール、コードを消していったところ、どうやら、条件が多少絞られてきました。
試した環境:
自作PCとdynabook V272/HL のWindows 10 Pro (64bit)
テキストボックスを一つ以上
テキストのフォントサイズ9,...
-1
票
1
回答
200
閲覧数
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
回答
1,111
閲覧数
VBA 実行時エラー'91'の解決法(2)
前提・実現したいこと
いつもありがとうございます。
VBAでエクセルの勤務表から勤務日等を抽出し、別のソフトウェアに読み込ませる転換マクロツールを作っています。
以下のVBAを実行したところ、1回目は正常に動作するのですが、2回目以降、初回に読み込んだものと違う階層のエクセルファイルを読み込もうとすると、以下のエラーメッセージが再現性ありで発生します。
発生している問題・エラーメッセージ
...
0
票
2
回答
2,149
閲覧数
VBA 実行時エラー'91'の解決法
前提・実現したいこと
VBAでエクセルの勤務表から勤務日等を抽出し、別のソフトウェアに読み込ませる転換マクロツールを作っています。
エクセルの勤務表のシートから、VBAツールのシートに勤務日を抽出転換する機能を実装中に以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
実行時エラー'91'
オブジェクト変数またはWithブロック変数が設定されていません。
...
0
票
1
回答
2,319
閲覧数
VBA 実行時エラー'438' の解決
前提・実現したいこと
エクセルのVBAとOutlookを連携させて一括送信メーラーを作っています。
一括送信メーラーにファイル添付機能を追加するため、
以前作ったVBAと統合した所、以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
実行時エラー'438'オブジェクトは、このプロパティまたはメソッドをサポートしていません。
該当のソースコード
Sub ovba()
...
0
票
2
回答
2,530
閲覧数
VBA コンパイルエラー:メソッドまたはデータメンバーが見つかりません 解決法
前提・実現したいこと
エクセルのVBAとOutlookを連携させて一括送信メーラーを創っています。
指南サイトの手順通りに実装した所、以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
コンパイルエラー: メソッドまたはデータメンバーが見つかりません
該当のソースコード
Sub SendEmail()
Dim objOutlook As Outlook....
0
票
1
回答
285
閲覧数
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(...
1
票
1
回答
2,116
閲覧数
あるフォルダの中のファイルをワイルドカードで特定し、更新日時を取得する
お世話になっております。
EXCEL VBAで、あるフォルダの中にあるファイル(C:\TEST\test1234.txt)をif文にて
ワイルドカード指定(test*.*)でイコールとなったら、ファイルの更新日時を
取得するという方法を実装したいと思っています。
下記記述の方法では、test1234.txt=test*.*がfalseと判定され、更新日時取得の
ルーティンを通りません。
...
-1
票
1
回答
3,822
閲覧数
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%...
1
票
2
回答
2,591
閲覧数
メッセージボックスに環境依存文字を表示させたい
áのような特殊文字をメッセージボックス上に表示させようとしたいのですが、下記の様にするとアキュートアクセントが消えたただのaとなります。
MsgBox ChrW(&HE1)
これを表示させるにはどのようにすればよろしいでしょうか、ご教示ください。
補足情報:
・Windows10 Pro バージョン1803
・Excel 2013
・Microsoft Visual Basic ...
0
票
0
回答
1,699
閲覧数
VBAで会議依頼を生成したいのですが・・・
エクセルの表を基に、VBAを使ってHTML形式の会議依頼を生成したいのですが、妙なところで躓いています。まるで会議依頼ではHTMLをサポートしないかのような・・・。
以下のソースの、「予定をHTML形式に」の objAppt.BodyFormat = 3 のところで止まってしまい、438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。のエラーメッセージが表示されます・・・。
...
1
票
1
回答
3,952
閲覧数
Office365 OPP(64bit)環境のExcel VBAでOutlook Mail送信が失敗する。
タイトルの件、お助けいただきたくお願いします。
32bit環境では正常に動作していた以下のコードが、新しい環境だとエラーとなってしまいます。
参照設定は、Microsoft Office 16.0 Object Libraryをチェック済みです。
olMailItemのプロパティを見るとSubjectは入っていますが、ToとBodyでエラーとなっているようです。...
0
票
1
回答
897
閲覧数
オブジェクトは、このプロパティまたはメソッドをサポートしていません (エラー 438)
BAPI BAPI_USER_GETLISTからテーブルの値を読み込んで、ユーザが存在しているかどうか判断したいです。
Public Function CheckUser(iCurrentRow As Integer) As Boolean
Dim oBAPIUserCheck As Object 'BAPIオブジェクト格納用変数
Dim iCntReturn As ...
2
票
1
回答
1,340
閲覧数
親excelからShellで子excelを起動し、子excelが処理した後、親excelの処理を継続したい
お助けください
excel2010で上手く動いたマクロが、excel2016だと上手く動きません。
親excelから、子excelを自動起動し、子excelのマクロが動き自動終了し、
その後、親マクロの処理を継続したいと考えています。
再現方法
1つのフォルダの中にmother.xlsm(親excel)とchild.xlsm(子excel)を作成し、
...
0
票
0
回答
2,471
閲覧数
excel vba、開いたブック内の作業グループを自動解除したい
■課題
excelブックを開くタイミングで、作業グループを自動解除する方法を探してます。
対象は1つのブックだけではなく、とある数台のPCで開くブックを全て対象にしたいと考えます。
(環境=win7+Excel2010、Win10+excel2016、2つ利用)
■理由
作業グループに気づかずに編集すると、意図しない変更が発生し、これを回避したいと考えます。
■当方の試行錯誤
...
0
票
1
回答
562
閲覧数
VBAでRPAがしたいのでヒントをください
windows API user32 から SendInput や SendMessage , FindWindow などを使って、VBAでExcelから他のアプリケーションソフト内にある複数のテキストボックスへコピペ作業を行おうと考えています。
ただし、
①貼り付け先ウィンドウがアクティブでなくても貼り付けが行われること
②コピペをしなければ他のアプリを操作していても問題ないこと
...
0
票
1
回答
2,181
閲覧数
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
回答
160
閲覧数
Excel VBA もしくは Google Apps Script で、複数のシートの最終列を取得し新たな1つの列にまとめる方法
初めに以下の Sheet をご確認ください。
https://docs.google.com/spreadsheets/d/1AlwgQLEZoZz_vWz0ZqKld528ViLAl8x2nR4SZz0VoHA/edit#gid=0
↑のような形で各商品の毎月の在庫数が記録される Excel File があるのですが、
...
0
票
1
回答
374
閲覧数
excel のデータ分析グラフの時間の目盛を0からにする
csvファイルを読み込んで、データ分析を使用して、グラフを作成しているのですが、x軸の目盛を「年月日時間」表示から「分」表示にし、y軸と同じように0からにしたいのですが、
軸の書式設定ではシリアル値の関係なのかうまくいきません。
この場合はVBAや他の方法で設定をすることができるのでしょうか。