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

2020/12/19(土) 12:26:52.95

vbsってなぁに？

2020/12/19(土) 13:55:17.82

vibes

2020/12/19(土) 14:26:52.27

>>44
馬鹿は死ね

2020/12/19(土) 15:28:53.56

>>39
どんな感じ？興味ある。
エクセルで式長いと読む気なくすから

2020/12/19(土) 19:29:28.19

新しく入った部署に一連の処理をまとめた動作が一時間かかるマクロがあったのですが
途中でたまにALTキーを押して動作が止まってないかみたほうが良いといわれましたが
ALTキーにそういう使い方がありますか？

コードを見ると2つのブック間での大量の転記がメインでしたがselectで行ったり来たりしてるのと
do eventsが目につくのと画面更新が停止になっていないのが気になりました

2020/12/19(土) 19:38:18.28

一から作り直してやれよ

2020/12/19(土) 19:39:14.70

>>49
スクリーンセーバーとかで画面が消えているときに画面を表示させるってことじゃね
気になるなら言ったやつに聞けよ

2020/12/19(土) 19:42:46.83

途中で止まってないか確認が必要なツールってなんだそれww

2020/12/19(土) 19:46:02.83

SHIFTだった、ALTはメニューのショートカットが出るので固まっているかどうかわかるんだな

2020/12/19(土) 19:46:14.78

関数式びっしりのリスト表はINDIRECT関数でシート名を21年度にしたらまともに動かないようにしといた
俺の最後のあがき

2020/12/19(土) 19:50:43.64

オフィスがアップデートされてからめちゃめちゃ重くなったらしくて（多分2010以前から2016）
コードは流し見してみてもactivate、selectの連続なので書き方としてはダメなのは分かるのですが
オフィスのアップデートでマクロの処理時間に影響してるのはどの辺りかとおもってまして

2020/12/19(土) 19:55:12.16

>>53
なるほど！ありがとうございます

2020/12/19(土) 19:58:20.64

転記マクロなんて本来速いはずなんだがな
数万行のVLOOKとかならともかく

2020/12/19(土) 19:59:38.59

vlookは速い
だめなのはコピペ

2020/12/19(土) 20:05:32.11

メモリが足りてへんだけやろ
200x使ってたっていつのPCやねん

2020/12/19(土) 20:06:11.88

>>57
作り方による
初心者はセル一つ一つに入れていくような処理を普通に作ったりする

2020/12/19(土) 20:14:37.97

>>57
コード読みのしんどくて処理を追うの断念しました

2020/12/19(土) 20:24:14.95

>>58
VLOOKは時間かかるよ
参照先が数万行あるからね
そういう前提

2020/12/19(土) 20:55:46.21

別ファイルへのリンクは遅い

2020/12/20(日) 00:11:18.42

>>55
ネッワークがヘボだと、ファイルの読み書きで止まるのも遅くなるのも普通にある。

2020/12/20(日) 00:39:42.92

>>64
ネットワークフォルダにあるファイルの読み書きという意味でよいですか？

2020/12/20(日) 07:19:21.13

>>49
DoEventsとかScreenUpdatingの停止は多分普段コードに触れない人も操作する事を想定しているのだと思う。
より時間がかかったとしても画面に変化があった方が時間が短く感じるらしいよ。

2020/12/20(日) 08:42:07.93

>>66
そういうこともあるのですね

2020/12/20(日) 08:42:23.86

>>65
そう。
読み込み途中で止まっちゃって、キャンセルボタンを押すと動きだしたり。
逆に、あーまた止まったと思ってキャンセル押すと、読み込みに失敗することも。(この場合止まってるのではなく遅いだけ)
ネットワーク関係ないなら、xlsがxlsxになった影響かも。
zip圧縮してるせいで、容量が大きいと遅くなる。

2020/12/20(日) 09:05:36.29

>>68
私は入ったばっかりのですが確かにネットワークのフォルダの挙動がおかしいと感じてはいます
フォルダに入ろうとすると権限メッセージが出て弾かれる、二回目はすんなり入れるなど

２、3年前にオフィス移転（システム的にも変更？）してから動作が不安定らしいです

こういう場合必要ファイルを一旦ローカルに保存してから処理を実行などの方が早いかもしれませんね

2020/12/20(日) 10:43:45.19

コードの各所にdebug.printで処理名と時間出すようにしてイミディエイトウィンドウが見える状態でマクロ実行したらどこで固まってるか分かると思うけど

2020/12/20(日) 12:10:16.68

Debug.PrintってVBEを開かないと見えないじゃん
素人対策ならどっかのセルの数字とか色を適当に変化させた方がいいかも

2020/12/20(日) 12:59:56.30

今度はそこでバグるんですね

2020/12/20(日) 13:14:04.40

今度はそこでハゲるんですよ

2020/12/20(日) 23:10:55.45

Application.StatusBar がとっても便利

2020/12/21(月) 11:54:50.24

全体の処理数がわかるなら、残り（未処理）が何件あるかを表示すると多少イライラが解消される

2020/12/21(月) 12:30:22.40

途中でクリップボード使ったら
卑猥な言葉が混入しまちた！

2020/12/22(火) 00:13:23.28

ミスターTか。この人の経営してる会社、実態が無いと聞いたが
娘と親子でExcelのセミナー会社経営らしいが

2020/12/22(火) 03:50:30.98

娘何歳？

2020/12/22(火) 06:18:34.01

すみません教えてください
Option Explicit
Private Sub UserForm_Initialize()
Dim r As Long
ComboBox1.ColumnCount = 2
For r = 1 To Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem Range("A" & r).Value
ComboBox1.List(r - 1, 1) = r 'リストの2列目にシートの何行目かを記憶
Next
End Sub

Private Sub ComboBox1_Change()
Dim r As Long
Dim c As Integer
r = ComboBox1.List(ComboBox1.ListIndex, 1) '選択したリストの2列目(シートの何行目か)
ComboBox2.Clear
For c = 2 To Cells(r, Columns.Count).End(xlToLeft).Column
ComboBox2.AddItem Cells(r, c).Value
Next
End Sub

上記コードだとシート１のデータがコンボボックスに反映されるんですが
シート２のデータを反映したくて色々試したんですが解決できず
詳しい方がいましたら教えてください

2020/12/22(火) 07:33:43.93

単にRangeやCellsと書いたのではアクティブなシートしか参照しない
複数シートを使わない場合であっても単純なエラーを防ぐ意味でシートを指定したほうがいいと思いますよ

2020/12/22(火) 07:51:09.62

名前付きセルを参照する時、Range("名前")だけだとVBEから実行するときに
他のブックがアクティブになっていて"名前"のセルが無いエラーが出るんで
ThisWorkbook　を指定したいんですが、RangeオブジェクトがSheetにしか無いんで
名前指定しているにも関わらず
ThisWorkbook.Sheets("sheet1").Range("名前")
みたいにするしか無いんですが

これシート指定の部分を任意にすることは出来ないんでしょうか？

2020/12/22(火) 07:54:48.95

出来る出来ないで聞かれたら出来る

2020/12/22(火) 10:21:28.79

ツリーからシートを選んでプロパティからオブジェクト名をよく見てみると良いよ。シート名とオブジェクト名が切り離されてる事に気付くから。
そしたら【オブジェクト名】.Cells([RowIndex],[ColumnIndex])とか【オブジェクト名】.Range(“名前”)とかでやってみ。

2020/12/22(火) 10:41:24.56

>>81
あとになって自分のコードが理解できなくなるに1ガバチョ

2020/12/22(火) 14:37:29.68

>>81
別にそれでいいじゃんよ

2020/12/22(火) 14:44:06.90

>>79
そもそもシート1とかシート2とか何を言ってるんだ？

シート1というシート名のシートがあるなら、
Sheet("シート1")と指定すればいいだけだろうに、それがプログラム中に無いぞ。

2020/12/22(火) 16:07:51.53

いつものあいつがコピペしただけのものでは？

2020/12/22(火) 20:57:51.79

質問です。

シート　1～最終シート全ての
「B列の14行目」　から
「B列の値のあるまとまりの最終セルの一つ前まで」
のセルの値をクリアしたいです。

下のコードで試してみたのですが、アプリケーション定義またはオブジェクト定義のエラーと出てしまいます。
VBA覚え始めたばかりの完全初心者でどこが違うのか分からないです
すみませんが、教えてもらえませんでしょうか

Sub test()
G = Sheets.Count

For H = 1 To G
Sheets(H).Range(Range("B14"), Range("B14").End(xlDown).Offset(-1, 0)).ClearContents
Next

End Sub

2020/12/22(火) 21:29:14.42

Dim G As Integer, H As Integer

を冒頭に入れてもダメかえ？

2020/12/22(火) 21:43:02.14

入れてみましたがダメでした…
OptionExplicitも外してますので宣言の問題ではないようです
でも宣言はすべきですね…

2020/12/22(火) 21:47:05.04

そういやクリアコンテンツって
シートの選択から直は無理だったような？w

Sheet(H).Select

を行で独立させてみたら？

2020/12/22(火) 21:50:43.47

すまん

Sheets

ね。s抜けたわ。

2020/12/22(火) 21:55:05.91

すみません、自己解決しました…
色々ありがとうございます。

Rangeの範囲指定の中のRangeにSheets(H).が抜けていたのが原因でした。
For Nextでシートが移ってもSheets(1)のRange範囲を参照するようになっていたようです・

2020/12/22(火) 22:02:13.02

あ、その罠かw
レンジレンジでやるとそこめんどくさいんだよな
Cellsのがいいと思う
あと>>91でもいけるんじゃないかな

2020/12/22(火) 22:08:35.35

アクティブじゃないシート上の画像のサイズ変更すると想定と少しずれるんですが原因分かりますか？
サイズ変更する前にシートをアクティブにすると全て同じ大きさになるのでコードは合ってると思います

2020/12/23(水) 05:25:00.77

>>80
早速の回答ありがとうございます

For r = 1 To Range("A" & Rows.Count).End(xlUp).Row
↑
For r = 1 To Sheet("１" & Rows.Count).End(xlUp).Row
に変更したらいいのでしょうか？

初心者ですいません

2020/12/23(水) 06:50:55.19

>>96

For r = 1 To Sheet1.Range("A" & Rows.Count).End(xlUp).Row

2020/12/23(水) 11:44:28.79

>>97
ご教授ありがとうございます
初心者じみた質問で申し訳ありません！

ComboBox2.AddItem Sheet3.Range(r, c).Value
↑
Sheet3を参照できないのですがどこが間違っているのか理解できません
わかる方いましたらよろしくです

2020/12/23(水) 11:46:56.79

>>98
RangeをCellsに変えてみ

2020/12/23(水) 15:07:17.52

いつものあいつ確定

2020/12/23(水) 15:43:35.91

いつものあいつが好きな奴確定

2020/12/23(水) 15:51:50.15

いつものあいつは人気者
https://store.line.me/stickershop/product/1265677/ja

2020/12/23(水) 18:16:20.38

>>99
ありがとうございます

2020/12/23(水) 18:19:10.98

>>98
早速変更したらできました！！
本当に感謝します
自分の初心者じみた凡ミスですね
ありがとうございます
こころの優しい御仁

2020/12/23(水) 20:48:51.52

初心者じみた…？

2020/12/23(水) 21:42:26.23

ネタかと思って傍観していたが、久しぶりに質問スレっぽくてホッコリしたわ

2020/12/23(水) 23:00:34.90

完全にいつものあいつじゃん

2020/12/23(水) 23:04:58.03

一見相手を持ち上げてるようで馬鹿にしてるいつもの感じ

2020/12/24(木) 18:03:54.48

xlsで共用管理してた物品リストを
現場に飛ばされて激怒した仕事できないおばちゃんが
シートの保護にパスワードをかけてそのまま年末休みに入った
ネットで拾ったプロージャで
パスワードを解除した俺が神扱い

2020/12/24(木) 19:35:35.16

ならこんなところで虚しいアピールしなくていいよ

2020/12/24(木) 20:31:22.57

首案件か…

2020/12/24(木) 21:20:52.76

保護かけただけなら実害ないじゃないか

2020/12/24(木) 23:15:25.57

許可なく改竄するのってどうかな

2020/12/25(金) 00:16:09.85

ユーザーフォーム1のボタンを押すと開始する処理をユーザーフォーム2から起動する方法ってない？
クラスに書いとかんとだめなのかな

2020/12/25(金) 02:22:11.64

書く場所かえればいいのに、いつもの人か？

2020/12/25(金) 02:34:13.17

標準モジュールに書いてCallではダメか？

2020/12/25(金) 04:03:39.34

>>116
そっか、たしかに標準モジュールに移植すれば良かったか

2020/12/25(金) 19:42:46.45

>>117
Privateを取っ払ってただのSubにすれば、
UserForm1.ボタン_Clickで実行できる。

2020/12/26(土) 11:08:58.12

どなたかお教えください。
e-Gov法令検索
https://elaws.e-gov.go.jp/
というサイトでエクセルにリスト化されている法令を検索し，
ダウンロードすることを試みたいと考えております。
.Navigate でサイトを開き，
.document.getElementById("searchTextBox").Value = "法令名"
.document.getElementById("searchBtn").Click
で，該当の法令を検索させるまではできました。
その後，検索結果を見つけてURLを取得するところでつまずいております。
.document.getElementsByTagName
とかをどのように指定したらよいのでしょうか？
どうぞよろしくお願いいたします。

2020/12/26(土) 13:00:08.72

>>119
そよのサイトでリスト化されているもののダウンロードはエクセルには向いてないので
手作業でやったほうがいいだろう

2020/12/26(土) 14:44:21.47

Javaを覚えろってことか

2020/12/26(土) 14:52:02.96

Javaを覚えろってことよ

**>>119** (ﾜｯﾁｮｲ 8b63-p1zl) · 2020/12/26(土) 15:35:46.04

>>120
アドバイスありがとうございます。
しかしながら１００件くらいあって，定期的にチェックして（法令が更新されることがあるので）ダウンロードするとなると
つらいです。
なんとかどうぞお願いします。

**デフォルトの名無しさん** (JP 0Hbf-Yke/) · 2020/12/26(土) 16:34:12.06

>>123
ちょっとやってみるから、何か一つ検索キーワード教えて
あと検索条件はデフォルトのままでいいの？

**>>119** (ﾜｯﾁｮｲ 8b63-p1zl) · 2020/12/26(土) 18:32:04.58

>>124さん
どうもありがとうございます。
キーワードは
予防接種法
検索条件はデフォルトのままでいいです。
お願いします。

**デフォルトの名無しさん** (JP 0Hbf-Yke/) · 2020/12/26(土) 21:38:03.20

>>125
ざっくり見たところ、そのサイトはスタイルシートで検索結果を渡してWebAPIでダウンロードする方式だからGetElementsなどは使えないしURLもどこにも書いてない
WebAPIを呼び出すフォーマットは、例えばこんな感じになってる
https://elaws.e-gov.go.jp/download?law_unique_id=323AC0000000068_20150801_000000000000000&;file_type=PDF_H1
このURLをブラウザのアドレスバーに入れるとPDFのダウンロードが始まる

VBAでできないことはないけど難易度はけっこう高い
素人にはおすすめしない

2020/12/27(日) 00:06:28.37

Ruby なら、curl コマンドとか、open-uri でダウンロードできる

require 'open-uri'

html = `curl ttps://何々`

url = "ttps://何々"
html = open( url )
puts html.read

2020/12/27(日) 01:58:09.26

なぜVBAスレでrubyが

**127** (ﾜｯﾁｮｲ 572c-yePO) · 2020/12/27(日) 05:17:11.18

Windows 10 にも、curl が入った

コマンドプロンプトで、
where curl
と入力すると、

C:\Windows\System32\curl.exe

2020/12/27(日) 08:26:34.69

なら、
コマンドプロンプト
require
この３つをNGワードに追加。捗る。

**デフォルトの名無しさん** (JP 0Hbf-Yke/) · 2020/12/27(日) 08:54:36.12

URLを指定してダウンロードする方法の質問なんか誰もしてないのに、いきなり独り言
ルビー使いはあたおかだとよくわかる

2020/12/27(日) 09:21:25.61

名門校で球拾いより弱小校でエースのほうが楽しいから
まあ関係のない部活に来てたらウザがられるだけだが

2020/12/27(日) 09:39:02.91

初心者がもの凄いものをいきなり作ろうとしてここに質問すればできると思っているいつもの人

2020/12/27(日) 10:57:38.42

>>118
おおおお、そういうことかー
これなら標準モジュールに移植しなくても別のユーザーフォームから起動できるね
ありがとうございます！こういう豆知識待ってました

2020/12/27(日) 18:38:53.38

privateの意味は豆知識ではなく一般常識ては？

2020/12/28(月) 00:09:12.39

ユーザーフォーム2からユーザーフォーム1
ボタンを押したようにできることが豆知識だったのよ
自分にとってはね

2020/12/28(月) 02:13:46.08

>>133
初心者ではなく初心者から脱却する気の無い人間が

2020/12/28(月) 11:52:39.77

>>136
分かりにくくなるだろうな
そのフォーム１の処理の中にフォーム２の処理が混ざっていて・・・みたいな

2020/12/28(月) 12:18:01.21

単体で使いたい時もあるけど
ある処理の部品としても使いたいとかかな

2020/12/28(月) 12:46:17.64

それなら共通部品として切り出して
フォーム1から呼ぶ、2から呼ぶってしないと後々メンテで死ぬパターン

2020/12/28(月) 20:20:11.64

今FTPするのに諸事情あってwininetを利用してるんだけど
これってファイルのディレクトリ移動は無理？
ちなみにLINUXサーバ

例えば
/work/testdir/test.log
を
/work/movetodir/test.log
って感じで移動したい
コピーした後deleteすればいいのでコピーでもオッケー
今はスマホからならなので詳細ソースは勘弁して

試したのはFtpPutFileやFtpGetFileで
fromとtoをそれぞれファイル名やフルパスで入れ替えたりしてみたんだけど
まぁだめだった
FtpMoveFile的なものはないですか？

2020/12/28(月) 20:23:27.00

ちなみにBASPやWINSCPとかは規約上使用できないです
ない場合はローカルに一時的にgetした後別のディレクトリにPutすると言う力技も考え中

2020/12/28(月) 20:51:35.01

なんとなく自己解決
やはりFTPの仕様上Moveはダメっぽい
力技しか無いかなぁ

2020/12/29(火) 04:24:04.54

シートを開いたときにシート上のコンボボックスにリストを読み込ませたいんですけど、
シート上にある文字列を読み込むのではなくマクロのみで特定の文字列を読み込ませることって出来ますか？