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

2021/02/16(火) 23:02:29.70

それ手動でコピペしたほうが早いんじゃね

2021/02/16(火) 23:41:10.89

気になる記事の条件は?
それを自分で判断するなら>>688が正解だと思うが

2021/02/17(水) 09:01:14.53

>>687
ちったぁググれ
https://konowaza.com/excel/copy_paste_macro.html

2021/02/17(水) 10:16:38.01

>>690
優しすぎる

2021/02/17(水) 12:53:19.33

>>686
ありがとうございますm(_ _)m
トライします。

2021/02/17(水) 12:57:54.00

いえいえ

**デフォルトの名無しさん** (JP 0Hdb-DrOF) · 2021/02/17(水) 12:59:55.94

クリップボードを監視して、新しいデータがコピーされるたびに保存してくれるアプリとか使えばいいんじゃない？
いちいちウィンドウを切り替えたりペーストしなくていいやつあるだろ

2021/02/17(水) 15:46:44.57

>>686
機能が生きているセルを上記指南で解析し、
貼り付けで解決しました！
助かりました。
ありがとうございました！

2021/02/17(水) 22:01:12.58

最終列までコピーをしたいんですがエラーを繰り返しなかなか実現できません…
例えばA3セルがデータの始まりでA7セルが最終列の場合、以下の文になるかと思いますRange(“A3:A7”).copy

ただ、半年に一度最終列が一列追加になるので、メンテナンスしなくていいように上の文のA7の部分が最終列になるようにしたいです

この場合何かいい方法はあるでしょうか

2021/02/17(水) 22:41:15.13

行じゃなくて列？

2021/02/17(水) 22:42:03.66

オーソドックスなのはこれだけど、物凄い珍回答を聞いてみたいわ
Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy

2021/02/17(水) 22:45:44.66

>>696
last_row = Sheet1.UsedRange.Row + Sheet1.UsedRange.Rows.Count - 1
last_col = Sheet1.UsedRange.Column + Sheet1.UsedRange.Columns.Count - 1
Debug.Print "A3:" & Sheet1.Cells(last_row, last_col).Address(RowAbsolute:=False, ColumnAbsolute:=False)

こんなん？

2021/02/17(水) 22:46:54.85

>>690

ありがとうございます❗
探してたものに出会えました。
ググってはみたんですが、このサイトには巡り会えなかったので、本当に助かります。
やってみたら、思う結果になりました。
ありがとうございました。

2021/02/17(水) 22:47:30.28

行じゃなく列です
最終列が半年に一回追加になるのです…

2021/02/17(水) 22:50:45.05

>>697
ごめんなさい、最終列の話だったのでA3セルからD3セルをコピーする場合、以下になるんでした
Range(“A3:D3).copy
今はD3が最終列ですが、半年後にはD3が最終列になるイメージです

**696** (ﾜｯﾁｮｲ f215-LlBx) · 2021/02/17(水) 22:51:42.12

何度も間違えてすみません…
今はD3が最終列ですが半年後にはE3が最終列になるの間違いでした

2021/02/17(水) 22:55:52.03

最終列取得の仕方調べないの？

2021/02/17(水) 23:06:07.99

Range("A3").CurrentRegion.Copy

2021/02/17(水) 23:08:53.17

ColLst = Sheet1.Сells(3,Columns.Count).End(xIToLeft).Column
Range(Sheet1.Cells(3,1),Sheet1.Сells(3,ColLst))
みたいにケツのColumnIndexを可変化させりゃええ
指定範囲より右側にコメントが入るのであれば別の方法を考える必要があるけど

2021/02/17(水) 23:09:11.52

CurrentRegionは使えそうで使わない

2021/02/17(水) 23:16:43.14

UsedRangeだって使うの怖ない？
どっかにドットあるだけども持ってかれる

2021/02/17(水) 23:18:02.78

これってやり方は何通りかあるけど、
どの状況でも使える完璧なのが無いよな
一見よさげなUsedRange.Find法とかも、
検索と置換の状態が変わっちゃうし

2021/02/17(水) 23:21:06.27

ちゃんとやりたい場合列のヘッダの名前の有無を確認とか意味解析するしかないよ

2021/02/18(木) 00:18:06.29

vbaしかつかえないうんちなんだけど、ダイアログに変数名入れたら、その名前を反映させた定型コード作ってくれるような支援ソフトないの？
たとえば、Dim var: var= xとかFor i=LBound(arr) to UBound(arr)とか。いちいちめんどい。
cliborはつかってる。スレチだったらすまそ。

2021/02/18(木) 02:16:18.22

それこそ自分で作れよ
自分だけにに都合よく自動化したいならそれしかないだろ

2021/02/18(木) 08:21:36.53

>>711
そういうの別言語だと見たことあるけど
VBAでは諦めた方がいいんじゃないかなぁ
https://mobile.twitter.com/johnsundell/status/1221758718188060673
こういう奴でしょ？
https://twitter.com/5chan_nel (5ch newer account)

**696** (ﾜｯﾁｮｲ f215-LlBx) · 2021/02/18(木) 08:30:28.40

最終列の取得をしてコピーしたいと申した者です
具体的には2シート目以降のC8セルから最終列までコピペしたくこのような文を書いてました

Maxcol = Worksheets(1).Range(“C8”).End(XlToRight).Column

For i = 2 To Worksheets.Count
Worksheets(i) = Range(Cells(8,3), Cells(8, Maxcol)).Copy
Worksheet(1).Cells(Maxrow,1).PasteSpecial Paste:=xlPasteValues
Maxrow = Maxrow + 1
Next i

上には書いていませんがMaxRowで最終行していて、1シート目の最終行にペーストするイメージです

このとき以下の箇所でエラーになりました

Worksheets(i) = Range(Cells(8,3), Cells(8, Maxcol)).Copy

2021/02/18(木) 08:31:50.99

>>713
やっぱVbaだと厳しいか、、、別言語だとこんなのあるんだな！ありがとう。

**696** (ﾜｯﾁｮｲ f215-LlBx) · 2021/02/18(木) 08:45:37.53

解決しました…
Rangeの中にCellsを入れる際はCellsの方にもワークシート名を記載してあげなければいけなかったんですね…
お騒がせしました

2021/02/18(木) 10:27:10.11

4点指定でrange作れればいいのにね

2021/02/18(木) 13:38:16.10

>>717
まあ、
Sheet.Cells(開始行, 開始列).Resize(行数, 列数)
もしくは
Sheet.Cells(開始行, 開始列).Resize(終了行 - 開始行 + 1, 終了列 - 開始列 + 1)
ってやるだけだし

2021/02/18(木) 17:41:06.06

>>714
これで動くのか
それならまあいいけども

2021/02/18(木) 20:47:31.34

コンパイルしたときに「ユーザー定義型は使用できません」といったようなエラーが出るのですが、
エラー箇所が選択されず特定できません。
ググってみたのですが「関数を一個ずつ切り貼りしながらコンパイル」的な記事しかなく、
結構大きなプロジェクトファイルになってしまっていて現実的ではありません。

原因って何が考えられますでしょうか。

2021/02/18(木) 21:08:20.83

情報が少なすぎるだろ
で、ユーザー定義型を使ったの？

2021/02/18(木) 21:48:45.33

>>720
VBAでは珍しいかも知れないけど
VBSではよくある話
実行前コンパイルの概念がないからね

別に1関数単位で抜かなくても
纏めてごっそり抜いてみて
エラーが発生しなくなったら
残った部分には原因がなくて
抜いた部分に原因があるんで
まずそうやって切り分ける

抜いた部分から半分くらい戻してやって
またエラーが起きないか確認するのを
繰り返して行く内に
原因の可能性がある範囲はどんどん狭まるんで
そうやって確認して行く

2021/02/18(木) 21:52:25.45

原因として考えられるのは
ない型を指定した場合なので
型宣言の書き間違えとかかな

2021/02/18(木) 21:59:48.04

>>721
使ってます。
また、クラスモジュールやライブラリも沢山使ってます。
以前なら間違っている名前の箇所が選択されるので、直ぐに原因が特定できたのですが・・・

>>722
今、出来る範囲でモジュールを解放・インポートを繰り返して検証して見たのですが、
フォームモジュールのいくつかが原因の様で、これらを抜くとコンパイル（実行前コンパイル）が成功します。
ただ、その原因と思われるモジュール内の全てのコードを削除しても同じエラー発生します。
意味が分かりません・・・

2021/02/18(木) 22:36:52.79

フォーム内のエラーはフォーム呼び出しコードが選択されるから、F8の手押し連打で進めて行けばエラー箇所で止まるんじゃね

2021/02/18(木) 23:05:06.07

いつもの人っぽいけど、クラスモジュールでエラー止める設定すれば分かるかもしれん

2021/02/18(木) 23:14:40.89

>>726
シートに書くとエラーの場所がわからないから標準モジュールに書け、
なんて書いてるサイトがあって、その解決策しばらく気づかなかったわ

2021/02/18(木) 23:38:17.80

ズボラせず1個ずつちゃんと調べなよ

**デフォルトの名無しさん** (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