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/13(日) 00:40:59.48

いちおつ

2020/12/13(日) 02:05:02.07

3次元配列

2020/12/13(日) 09:38:15.23

>>1乙

前>>991です
スレ変わったのでわかる人お願いします

Excel関数のHyperLinkの処理を置き換え(APIHookのような処理)はどうすればできますか？

目的としてはHyperLink関数では一部のURLの表示が遅い(Excel自体のタイムアウト待ち？)ので
直接「CreateObject("WScript.Shell").Run URL文字列」の処理をさせたいのです
関数名はHyperLinkのままにしたいのでAPIHookのような処理ができればいいのですが

2020/12/13(日) 09:44:53.59

Office田中のおじいちゃんはなぜ突然Youtubeの更新が止まったの？

2020/12/13(日) 09:58:52.02

ヒント:最初からコメント欄封鎖で察し

2020/12/13(日) 10:04:09.41

他のExcel YouTuberを遠回しでディスったり他の講師を素人呼ばわりしてるから警告されたとか？？

2020/12/13(日) 18:01:59.62

田中はクソみたいなコードを広めるのやめて欲しい

2020/12/13(日) 18:27:45.70

>>8
俺は見てないがもし糞みたいなコードがあるなら本人に「ここの部分はこうした方がいい」と伝えるか
正しい糞ではないコードを自分で広めるなりすればいいんじゃね

2020/12/13(日) 20:21:47.50

>>9
サンプルにバグを見つけて伝えたことあるけど無視された
そのまま放置

2020/12/13(日) 22:55:06.01

質問掲示板(多分知恵袋)にVBAの質問してもちゃんと答えられる人は少ないですｷﾘｯ
なぜなら彼らはVBの上級者であってエクセル上級者では無いからです！ﾄﾞﾔｯ

これ、マジであの人が発言したからね。
ここの住人の方が詳しいと思われ

**デフォルトの名無しさん** (JP 0H4f-WYZ/) · 2020/12/14(月) 12:29:36.45

なんとかのネタ帳の方が分かりやすい

2020/12/14(月) 13:10:44.97

あのExcelしか知らないのが超糞偉そうにしてるのを見るのもショーみたいで面白い。
周りに初心者がたくさんいるのだろうな。
そして小さなExcelの世界しか知らないから天狗のようになって自分が神であるかのように勘違いしてる。

2020/12/14(月) 15:02:42.82

Excelはすべての会社員が使っているので、会社員の頂点に立つ男！みたいな気分なんだろな。

2020/12/14(月) 18:25:01.11

ラーメン屋のオヤジがウチのラーメンが世界一だと言ってるようなもんだろ
ほっとけばいいのに

2020/12/14(月) 20:45:35.63

一応、MS本社に認められたんだよね日本人初のMVP受賞とか
間違っていたらすまそ

2020/12/14(月) 22:49:22.85

じゃあ世界一って事か。

2020/12/14(月) 23:00:48.78

どーなんだろ？？
あの人、あまり手の内見せないぽいから
最終的には自分で考える事が大事と良く言ってるし。

MSからマクロ作成の依頼されたことあるらしいし。

2020/12/15(火) 18:46:27.43

日本人初＝世界一　ってのはどうかな
普通にできる人より詳しいのは認めるが

2020/12/16(水) 05:13:46.62

本人来てるなｗ

2020/12/16(水) 06:08:28.27

vbaでホットキーの下線を引くのってどうやるの？
captionに(&Q)って入れたらそのまま"(&Q)"って表示されてしまうんだが

2020/12/16(水) 18:46:12.78

フォントかも？

2020/12/17(木) 15:35:36.14

>>8
まぁ一見糞だけど知りたいところをスパッと見て
取れるように組んであるみたいだね
あれを素晴らしいと見るのは初級者
糞と見るのは中級者
ああ、仕方なかったんだろうなぁと見るのが
上級者だろうね

2020/12/17(木) 17:44:01.81

具体的なコードもなしにそんなことを言ってみても意味なくない？

2020/12/17(木) 18:18:37.46

具体的に行動で示さなければ意味がないとも言えなくもないな

2020/12/17(木) 19:29:42.36

意味を具体的に言ってくれないと行動で示したことにならなくもないな

2020/12/17(木) 21:10:06.33

意味なんかなくてもいいな、いい意味で

**デフォルトの名無しさん** (ｽﾌｯ Sd8a-22vh) · 2020/12/17(木) 23:03:41.69

示す行動しない意味が言って具体的にない

2020/12/18(金) 00:01:06.37

VBAのソースからエクセルを開き、
ある一つのセルに
メールアドレスを2つ
;でつないで入れようとしています。

動作中にデバッガで止めて見たときは
2つとも入ってるのに
処理終了後に保存したファイルを開くと
最初の一つしか入ってないです。
;以降が消えています。

保存処理はコレです。
Wb.SaveAs fullPath & "\" & newfilename, FileFormat:=xlWorkbookDefault

どうすればメールアドレスを2つとも保存できるでしょうか。

セルに手入力して保存して開きなおした場合は
２つとも残っています。

2020/12/18(金) 05:56:32.93

>>29
その保存処理の行にブレークポイントを仕掛けて、保存直前のセルの内容を確認した？

2020/12/18(金) 11:37:45.35

シートに多数配置されたフォームボタンの余白を一括で変えたいんですが
これはどこのプロパティに入ってるんでしょうか？

図形ボタンならばTextFrameにありますが、
フォームコントロールボタンには無いので困っています

2020/12/18(金) 12:18:56.87

自己解決？
階層のかなり深いところあって正しいかどうかわからないけれど
目的のmargintopは変えられたのでよしとします

2020/12/18(金) 21:20:27.27

>>29
fullPathの中身は確認した?

2020/12/18(金) 21:24:38.24

>>30
してませんでした
してみたら上書きしちゃってことが発覚
すみませんでした

2020/12/18(金) 21:26:41.06

Fullい、アルPathの中身～　

2020/12/18(金) 21:31:55.70

>>35
隠れてー

2020/12/18(金) 22:42:55.21

2013でセキュリティがウンコとか言われずにシートにブラウザ埋め込む方法ない?
2003使えってのは無しで。

2020/12/18(金) 22:44:42.88

あとフォーム使えってのも無しで。
フォームをシートに埋め込めるならフォームでも良いけど。

2020/12/19(土) 08:46:18.20

正規表現使ったら複数あったIf文がひとつにまとまって便利だわ

2020/12/19(土) 09:12:21.18

>>37
Ａｃｔｉｖｅｘ　コントロールの追加

2020/12/19(土) 09:13:26.65

性器表現使ったら警察に通報されたわ

ω

2020/12/19(土) 09:17:51.58

ろくでなし子さんか。

2020/12/19(土) 09:18:25.16

あ、フォームしか使えんのか、やっぱ無理

2020/12/19(土) 10:42:01.25

vbsの質問スレってありませんか？

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

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