Excel VBA 質問スレ Part69

2020/12/13(日) 00:22:23.67

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part68
https://mevius.5ch.net/test/read.cgi/tech/1598756127/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

**デフォルトの名無しさん** (JP 0Ha7-W5tZ) · 2021/02/19(金) 00:07:23.60

DimとかConstとかでタイプミス
SubやFunctionの宣言部でもよくある
Visual StudioでVB.netプロジェクトを作ってコピペで発見できる場合もある

2021/02/19(金) 03:59:43.95

>>725,726
実行時例外じゃないです。

>>728
>>724の通り、発生元と思われるモジュール内コードを全て削除しても発生し、
モジュール自体を解放すると発生しなくなるため悩んでいます。
私も一個づつ調べたいのですが、もはや調べ方も分からない状況です・・・。

>>729
宣言文のタイプミスでも、通常はエラーが発生すれば原因箇所が選択（反転）されると思いますが、
今回はそのエラー箇所の選択がなく困っています。

vscodeですがVB.netプロジェクトへのコピペもやってみましたが、
関係のないエラーや注意が大量発生して特定困難でした。
というか互換性ないと聞いたのですが・・・

2021/02/19(金) 04:14:33.39

お礼言うの忘れてました。
沢山回答ありがとうございます。
些細な事柄でも気になる点があればレス欲しいです。

一応質問内容をまとめます
・エラーが発生しているのはコンパイル時です
・通常あるエラー発生箇所の選択がされません（この「発生個所が選択されないという現象」自体の原因も調べています）
・原因と思われるクラスモジュールを解放すると発生しなくなります
・しかし、そのモジュール内のコードを消すだけでは引き続き発生します

2021/02/19(金) 05:06:58.61

なるほど
つまりVBAのコード側の問題ではないと

詳しい状況が分からんから何とも言えんけど
考えられる状況としては
・ファイルがぶっ壊れてる
・フォーム側に使ってるバージョンにそぐわないオブジェクトが設定されている
・使ってるバージョンにそぐわないAPIとかが使用されている
・何か変な参照設定切ってそれを使ってる

とかじゃない？

クラスとかライブラリ(何をもってライブラリと言ってるのかは分からんけど)使ってて
結構大きなプロジェクトファイル使ってると言うなら
元々動いてたものだったと思うんだけど
今改修を掛けているものが同じ環境下(EXCELのバージョンとか使ってるならランタイムとかが同じ)
で動くか確認した方がいいんじゃないかと思うよ

2021/02/19(金) 05:44:12.15

>>731
クラスモジュールを開放したあと、同名のクラスモジュールを空で新規追加したらどうなるの？
そのクラスモジュールの名前は何？

2021/02/19(金) 14:25:58.33

ユーザ定義型は定義されていません

2021/02/19(金) 21:58:08.64

>>724
インポートとかすると改行や全角空白、タブ、eofとかがおかしいのが入ることあるよ

2021/02/19(金) 23:14:07.14

ぶっちゃけ原因不明でコードを新規ブックにそのままコピペしたら動いたってのは何度かあった
理由がわからんだけだったのかもしれないけど

2021/02/20(土) 00:17:20.20

怪しい辺りを切り取り貼り付けで直るパターンもあった

2021/02/20(土) 02:39:20.18

エクスポートして新規ブックでインポートしてどうなるか試せ

そのクラスモジュールとやらをどっかに張ればなんかわかるかもしれん

2021/02/20(土) 10:48:29.96

帳票でひな形ファイルにDBからのデータを張り付ける際に
ひな形ファイルに前もって用意している一覧より件数が多くなり
一覧部を増やす際って存在している行を必要分コピペしたら処理が重く遅くなりますか？
範囲指定して行の高さや罫線その他書式を作成していくのが普通ですかね

2021/02/20(土) 11:52:03.51

1件ずつコピペしてたら遅くなる可能性があるけど
必要な行数を計算してコピペ1回なら問題にはならんのじゃないかな

2021/02/20(土) 13:27:35.51

すげえ基本的な話だけど
2003と2019じゃソースを書き換えないと使えないのはわかるけど
2015と2019は使えるの？

2021/02/20(土) 18:00:11.01

自分で試せばいいのに

2021/02/20(土) 20:13:12.43

書き換えないといけないところが分かるなんてすごい実力者だね

2021/02/21(日) 00:07:25.30

複数バージョン持ってないと試せんだろう

2021/02/21(日) 00:25:53.91

どっちでも動くように作るのさ

2021/02/21(日) 02:57:17.71

持ってないバージョンで動かないかもとか考えなくてもよくね

**デフォルトの名無しさん** (JP 0Ha7-W5tZ) · 2021/02/21(日) 03:11:53.20

逆に、2019だけで動くようにしろと言われてもできる気がしない
わざと追加されたワークシート関数を使うみたいな、手段と目的を逆転させるのは無しで
そんなに言語仕様って変わってたっけ？

2021/02/21(日) 03:19:27.77

VBAの言語仕様なんて、64ビット対応しか変わってないだろ
EXCELのアプリケーションモデルは多少の変化はあったかもしれんが

2021/02/21(日) 09:10:45.20

基本使えるだろうけど
365のは分からん

2021/02/21(日) 09:54:57.69

2019未満は切り捨てるためにわざと2019仕様に変更とか
わからん

2021/02/21(日) 18:05:27.14

古いのいつまでも使われると新しいの売れないからかな

2021/02/22(月) 11:45:30.79

>>747-748
動かなくなる原因は言語仕様だけじゃないよ
2007 辺りでグラフ周りがかなり変更されてソースに手を入れる羽目になったとかある

2021/02/22(月) 13:18:52.42

そうっすか

2021/02/22(月) 17:32:51.40

>>752
正にそれ結構大変だった。

2021/02/24(水) 00:40:47.03

VB長けてる人ってExcelの機能関数に疎い人多いね
田中に聞けば？

2021/02/24(水) 01:26:36.59

Worksheetfunction使うのでそれはない。

2021/02/24(水) 02:17:27.39

2019欲しいけど
いまクソ高いんだよな
昔は10000ぐらいで買えたよな？

2021/02/24(水) 02:42:57.68

今でも1000円で…

2021/02/24(水) 02:59:15.91

割れは怖くて使えんわ

2021/02/24(水) 14:09:58.51

64bitで未定プログレスバー使うにはどうすればいいの？

2021/02/24(水) 19:44:17.34

オレの2019はアマゾンで900円くらいだ

2021/02/25(木) 21:11:18.01

原本となるシートでマクロが動いて欲しくないからマクロを搭載した別ブックのシートにコピーしようとしてるのだけど、activeXコントロールのコピーで詰んでいる。
selectAllすると位置がずれる、ネットで見かけるfor each x in sheets.Shapes方式だと「rangeクラスのTopプロパティを設定できません」とか出る(原因分からないうえ、同じものが複数コピーされてたりする)
Clickメソッド使ってるからシート自体に記述しなくちゃならない状態(原本にマクロを搭載できない理由でもある)

原本をコピーした新しいシートにマクロを転写する方法か、activeXコントロールをうまくコピーする方法などをどなたか分かれば教えてください。
よろしくお願いします

2021/02/25(木) 21:28:47.82

俺はファイルコピーで解決しようとするから知らんわ

2021/02/25(木) 22:14:57.96

シートコピーしたら

2021/02/25(木) 23:11:51.37

デザインモードじゃないから梃子でも動かないって意味か?

**デフォルトの名無しさん** (JP 0H27-JP5l) · 2021/02/26(金) 03:13:02.34

>>762
ブックを別名で保存してからそっちを開いたら？
コントロールの状態や中身まで含めた完全なコピーが簡単にできるよ

2021/02/26(金) 14:42:35.05

>>760
わいはコントロールやめてユーザーフォームで自作した

2021/02/26(金) 18:00:57.54

>>762
原本はそのままで動くように作っといて、原本をコピーするマクロは原本とは別ファイルにするのが良いんじゃね

2021/02/27(土) 04:24:42.64

>>764
新しくシートをコピーしたらシートにプログラムが何も書かれてない状態になります(原本に記述されていないから)
シートにシートをコピーしたらコントロールが消えてしまいます(コントロールのコピーに躓いている)
>>766>>768
フールプルーフの観点で原本にプログラムを直接書きづらいんですよね。このツールを使うのも原本を更新するのも私じゃないので…
>>767
フォームなら別のブックにコピーできるし使いたいんですが要件的に使えないんですよね
最初はフォームで動作するものを作ったんですが、いちいちウィンドウが開くのめんどくさいと一蹴されました

あくまでシートにマクロをコピーする方法か、activeXコントロールの綺麗なコピーの方法を探しています。

2021/02/27(土) 04:28:43.21

>>769
みつかるといいね

2021/02/27(土) 08:38:37.65

>>769
出来るけど、セキュリティ的に大問題アリ。
マクロウイルスのやりたいことと一緒だからな。

2021/02/27(土) 10:42:13.72

ウイルスの作り方探してるのかな

2021/02/27(土) 16:48:22.46

質問です。
VBAでウィンドウの幅によってレイアウトが変化するページを取り込む方法で詰まっています。

例えば、下記のURLのテーブル「5」をExcelに取り込みたいとします。
しかし、このページはウィンドウの幅を狭くすると「自動レイアウト」になります。
https://www.nankankeiba.com/uma_info/2014104006.do

https://i.imgur.com/EE2hZfE.png

本当はPC固定レイアウトで取り込みたいのですが、下のVBAだと自動レイアウトの方で取り込まれてしまうのですが
どうしたらよろしいでしょうか。
VBA
https://i.imgur.com/tQsJ8fB.png

PC固定のレイアウトで取り込みたいけど、取り込むとこうなる
https://i.imgur.com/106irI4.png

2021/02/27(土) 16:50:21.04

>>773
列や行の関係でPC固定で取り込めるようにしたいのですが、クエリで何か設定などあるのでしょうか

2021/02/27(土) 19:51:14.14

>>774
よくわからんが内容は正しく取得できているんだから、表示用のシート作って
そっちに2行を1行にまとめて表示させるマクロ書けばいいんじゃね

2021/02/27(土) 20:13:53.31

>>775
実は最近サイトがスマホ用に「自動レイアウト」に対応してリニューアルしたので
もともと作ってあった表示用シートが連れてしまうために「PC固定レイアウト」にしたいのです…

2021/02/27(土) 20:25:57.30

URLの後ろに何か引数入れればいいんだろうけど、javascript読めんからわからん。
Web系のスレで聞くか、ここでやるんだったらDOM解析してgetElementsByTagNameとかで取得するしかない。

2021/02/27(土) 20:28:08.24

>>777
やっぱりweb系のプログラミング知識がないと無理っぽいですかね
自分はさっぱりなので、そっち系でも聞いてみます。

2021/02/27(土) 20:46:04.22

ってそれExcel2013?
2019だとどちらも見えていて、
Table4が自動でTable5が固定になっている。

もし2019が使えるなら、QueryTables.Addじゃなくて、
Queries.Addでやってみるといい。

2021/02/27(土) 21:38:16.92

>>779
わあああ！できました！！！
自分のだと、テーブル5だと自動で、テーブル6が固定でした！！
固定と自動でテーブルずらすだけで良かったんですね。
本当に助かりました；；感謝！

2021/02/27(土) 21:44:40.46

なるほどー
URLの違いじゃなくてテーブル数が増えていてテーブルの変更でレイアウトを別々で読み取っていたんですね
今後も参考になる知識でめっちゃタメになりました！
いやーID:Ydjbk0QN0さんの着眼点のおかげで助かりました。感動です

2021/02/27(土) 23:59:01.77

いいってことよ(≧∇≦)b

2021/02/28(日) 00:38:35.67

XMLを取得したあと、要素を取得するためにgetElementByIdを使用する方法は無いでしょうか？
XMLでは仕様上IDの規定が無いのでこのメソッドは無いようですが、
対象にしているデータはIDが重複していない(タグ名は重複)ことが分かっています

2021/02/28(日) 08:33:47.20

やったことないけどXMLをブラウザーで開いて取得とか

2021/02/28(日) 13:49:51.41

>>783
単なる属性値だからxpathで属性検索すればいいんじゃね？

2021/02/28(日) 17:16:05.41

>>785
ごめんなさいこれで出来ました
コーディングミスしてただけだったようで…

2021/02/28(日) 23:20:44.51

テーブルを使った列転記について質問です。
オートフィルターを使って、
特定条件に合致する列のみを別シートに転記するvbaを作成しています。
検索条件が１件でもヒットすれば、うまく動くのですが、
検索条件の結果が０件の場合、なぜかテーブル内にある全ての列がコピーされてしまいます。
解決方法をご教示いただけたら幸いです。

With Range("A3").ListObject
　　 .Range.AutoFilter 1, "佐藤"
.Range.AutoFilter 2,"2020"
.Range.AutoFilter 3, "土地"

.ListColumns(4).DataBodyRange.Copy Sheets(2).Range("B12")
.ListColumns(5).DataBodyRange.Copy Sheets(2).Range("D12")
.ListColumns(6).DataBodyRange.Copy Sheets(2).Range("C12")
End With

2021/02/28(日) 23:38:01.73

0の時コピペしない

2021/03/01(月) 03:56:15.13

Countifsで、1件以上の時と
条件分岐させるのが読み返してわかりやすくなるんでね

2021/03/01(月) 16:05:10.88

前回の表示が残っているならメッセージボックスとか出すといいかも

2021/03/02(火) 13:09:41.26

(1)A1～A100セルにそれぞれ0001.txt～0100.txtという文字列が格納されている
(2)ファイルサーバ上(\\share\txt)に(1)の名前と対応する実際のテキストファイルが格納されている

→この場合、B1～B100セルの中に(1)と対応する(2)のテキストファイルの中身を自動で入力させたいのですが、どのようにすれば可能でしょうか。。

2021/03/02(火) 13:28:23.53

丸投げか？
まずは自分で作ってみろよ

2021/03/02(火) 13:38:46.86

先生が添削してくれるみたいです

2021/03/02(火) 15:10:40.09

A1セルに書かれたファイル名を読み取る
そのファイル名を開く
B1セルから書き込む

を繰り返せばいいと思います

**デフォルトの名無しさん** (JP 0H82-dNWZ) · 2021/03/02(火) 17:47:07.08

いつもの人

2021/03/02(火) 19:42:52.19

>>791
どうでもいいがB1～B7へは入力じゃなくて出力って言った方がいい

2021/03/02(火) 23:19:45.83

>>791
マクロの自動記録

**720** (ﾜｯﾁｮｲ b301-bz6n) · 2021/03/03(水) 02:30:35.83

>>720ですが、解決というか悪化したので一から作り直すことにしました。

原因と思われていたフォームモジュールを解放しても常時コンパイルエラーが発生するようになりました。
思い切って順に全て解放しながらコンパイルしてみたところシートを含めた全てのモジュールを
削除して新規シート一枚の状態でも発生する始末です。

>>733
試してみたところ、使用できない文字を使った時と同じ「不正なオブジェクト名」だと怒られます。
（もし重複なら「既に～使われています」）
コンパイルエラーの原因にある「ユーザー定義型」というのはフォームのモジュール名の事だったのかも・・・
ちなみに原因らしいフォームのモジュール名を変えても同様のコンパイルエラーは発生し、
その新しいモジュール名でも同じ症状が出るようになります。

>>732
>>何をもってライブラリと言ってるのかは分からん

すみません。参照設定にあるCOMコンポーネントの事です。
APIはSleepしか読み込んでおらず、
コントロールもリストボックスとコマンドボタンとオプションボタンのみです。

元の環境で実行も出来ませんでしたが、
テストで色んなモジュールの解放してインポート、モジュール名変更して戻すを繰り返していると、
プロジェクトのコンパイルは同じエラーがでるが、（環境問わず）実行は可能という状態になりました。
コンパイルのテストしかしていなかったのでどのタイミングで実行可能になったのかは分かりませんが、
引き続き調べてみます。

**720** (ﾜｯﾁｮｲ b301-bz6n) · 2021/03/03(水) 02:46:34.41

>>733
レスに追加です
名前の変更では「不正なオブジェクト名」と出ますが、その名前でのインポートは成功します。
インポート出来れば自由にフォーム名を変更したり戻したりできました。

>>735
見てみましたが、特に変わりはないようです。

>>738
フォームモジュール以外を全部移したところコンパイルが通りました。
同じフォームを作って再発すると怖いので、
フォームに有ったコントロールはシート上に再現して、とりあえずこれで運用してみることにしました。

2021/03/03(水) 21:19:07.61

シートの中身を初期化しようと、範囲選択してClearcontentしたら処理が滅茶苦茶重くて
他のどの処理よりも一番重いまであります
セルの中身をクリアして真っ新にしたいんですが、軽くなる方法とか削除するのに他のいい方法は何かありますか？

2021/03/03(水) 22:01:26.45

画面更新切ってないとか

2021/03/03(水) 22:53:36.00

場合によってはシートごと削除＆同じ名前のシート作成orテンプレで用意していたシートをコピー

2021/03/03(水) 23:58:49.06

>>800
Clearcontentsじゃなくて単に「削除」に時間が掛かってるだけ説。
どうしようもないExcelのバグ、俺もこの前株シミュレーター作ってて直面した。
たかだが3万行×1列消すのに10分掛かる糞仕様。
どういうわけかD列とＥ列に入っているがＤ列を消してからだとＥ列が、Ｅ列を消してからだとＤ列がそうなる。
2007と2013入れてたがどちらでも同じ結果。スプレッドシートでならサクっと消せた。

2021/03/04(木) 00:37:39.40

質問させてください
業務用PCのためDsoFramerのインストールを容易には出来ない環境で、ユーザーフォームにワークシートを表示するシステムを作成するのは厳しいでしょうか

2021/03/04(木) 02:10:45.74

レスありがとうございます
画面更新は勿論切ってます
ただ初期化したいだけなのにアホみたいに時間が掛かるので、同じ使用のシートを作る処理にする事も検討します

2021/03/04(木) 06:47:21.46

変数に入れてから消すとか、同じ選択範囲の配列（空白）ぶっこんでみてもだめかな

**デフォルトの名無しさん** (JP 0H27-JP5l) · 2021/03/04(木) 10:44:48.81

一気に何万行も消さずに100行ずつとか小分けしたら軽くなったりしないのかな

2021/03/04(木) 10:49:05.92

ClearContentsで重かったことなんてないなあ。
めんどくさくてVBAじゃなくマクロで作って選択範囲小分けのまま放置してるからかな？

2021/03/04(木) 11:15:36.75

>>800
ふーん
範囲指定して消したらどう？
後、最近のEXCELはひょっとして
セルの内容が変わったら
再計算しているかも知れないから
一応自動計算も切ってみたら？

セル値が変わった時のイベント拾って
何かやってるとかいうオチだったら
問題外だけど

2021/03/04(木) 11:36:50.11

スレが見つからなかったのでこちらで失礼します
C8の値が$100にならない理由を教えて下さい
https://i.imgur.com/XLERVNc.png

2021/03/04(木) 11:53:16.96

関数変わっちゃうけど代案を出すなら
VLOOKUP(B8,B1:C5,2,FALSE)
とかどう？

2021/03/04(木) 12:01:03.02

なんだこりゃ
LookUpって欠陥あるんかね

2021/03/04(木) 12:21:33.50

LOOKUPって近似値を検索する関数だから文字列探そうとすると上手くいかない事が多かった気がする
だから面倒臭くなってVLOOKUP,HLOOKUPを使うように癖をつけた記憶がある

2021/03/04(木) 13:49:43.11

これ思い出したわ

https://i.imgur.com/x2uWdkO.jpg
https://i.imgur.com/fnrEWzZ.jpg

2021/03/04(木) 13:50:26.95

新規作成してから試してみたけど$100になったな

2021/03/04(木) 14:14:53.10

>>810
C8 が "もり " みたいに空白入ってるとかじゃね？

2021/03/04(木) 14:47:21.95

検査範囲の値は昇順にしてください
そうでなければ正しい値はえられません
並んでないときはVLOOKUPやHLOOKUPを使ってください

という旨のことをヘルプに書いてある。

2021/03/04(木) 16:50:41.38

LookupにもVLookupやHLookupみたいに検索方法のオプションあればいいのにね
まあMSとしてはExcel最新版にしてXLookup使ってねって言うことなんだろうな

2021/03/04(木) 18:46:57.78

初期化で若干重たいのは取り敢えず諦めることにして、外部のCSVをクエリテーブルで読み込んでから
Refleshでシートに書き込んでるのですが、この書き込む前の段階で、クエリテーブル上で不要な列のデータを削除する事って可能でしょうか？
不要なデータが大量に混ざっているので、全部まとめてシートに書き込むとやはり重たいので軽量化したいのですが……

2021/03/04(木) 19:49:49.80

いつものあいつだな

2021/03/04(木) 20:49:35.42

lookup系よりindexmatch使うことが多いな

2021/03/04(木) 20:55:32.61

lindexmatch使いアピールしてはじめて自称excel上級者として一人前

2021/03/04(木) 21:28:29.09

昔はユーザー定義関数作ったけど、今はXLOOKUPがある。

2021/03/04(木) 22:18:19.39

IindexMatchなんぞ使わず、
列をボーンとコピー挿入してVLOOKしてこそ一人前

2021/03/05(金) 05:33:04.89

いつものあいつて何？

2021/03/05(金) 09:21:20.59

とうしつの自己紹介

2021/03/05(金) 21:02:22.60

臭う質問者の総称

**デフォルトの名無しさん** (JP 0H7f-/TN3) · 2021/03/06(土) 12:22:29.01

実際に使ってないような質問をして答えさせて悦に入る人