Excel VBA 質問スレ Part72

2021/07/18(日) 08:42:15.37

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

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

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
Excel VBA 質問スレ Part71
https://mevius.5ch.net/test/read.cgi/tech/1621914481/

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

2021/09/12(日) 14:09:17.30

>>977

> Valueを変数名にする
変数名の適否ではなくって、ByValで値引き渡しにしたらもとの範囲のフォーマットを変更できないという話じゃないのか？

2021/09/12(日) 16:11:41.17

>>978
今問題にしてたのは変数（引数）名であって引数の渡し方ではないのだが
参照型と参照渡しとちゃんと区別して理解してる？

2021/09/12(日) 16:21:24.92

元の元は>>936(私)でdim range as rangeに対してsetしたのですが
引数としてrange as rangeとされている状態でsetする事なんてあるのですか？
普通は無いなら途中から引数の話になるのもずれてません？

2021/09/12(日) 16:31:54.19

そう言えばデコレーターパターンとかでは
valueはよく見るけどreferって見ないよね
なんでだろ？

2021/09/12(日) 16:37:26.61

>>979
955の話じゃないのか？
誤解してたらすまん。

2021/09/12(日) 18:56:51.30

>>981
それは引数が何かの値という意味で
プログラム的な参照とか値とかは関係ないからさ

2021/09/12(日) 19:28:40.93

>>980
お前さんの普通がわからんけど、複数のレンジを返したいならそういうケースもあると思うよ
そもそも>>952は名前付けの話でSet云々の話に限定はしてないと思うし

2021/09/12(日) 21:17:53.40

ttps://whois.nic.ad.jp/cgi-bin/whois_gw?key=182.22.16.251&codecheck-sjis=%E3%81%AB%E3%81%BB%E3%82%93%E3%81%AD%E3%81%A3%E3%81%A8%E3%82%8F%E3%83%BC%E3%81%8F%E3%81%84%E3%82%93%E3%81%B5%E3%81%89%E3%82%81%E3%83%BC%E3%81%97%E3%82%87%E3%82%93%E3%81%9B%E3%82%93%E3%81%9F%E3%83%BC&submit=
に表示されているネットワーク名「YAHOO-NET」を取得しようとしているのですが、
Cells(1, 2) = objIE.Document.getElementsByTagName("pre").innerText
ではメソッドがサポートされいないとエラー表示されます。
何がいけないのでしょうか？

**名無し募集中。。。** (ﾜｯﾁｮｲ 9e8c-xZL4) · 2021/09/12(日) 21:29:23.70

普段使ってないから問題点がこれ意外にもあるかわからないが
Cells(1, 2) = objIE.Document.getElementsByTagName("pre")(1).innerText
これでどう？

2021/09/12(日) 21:29:29.14

VBAとJavaScriptが、混ざっちゃった感じかな

2021/09/12(日) 22:10:03.90

n時間後にエンターキーを押すプログラムってどう作るんだ？初心者にもわかりやすく誰か教えて

2021/09/12(日) 22:16:01.50

「n時間後にアラームを設定して、鳴ったらENTERを押せ！」
と、命令する

2021/09/12(日) 22:27:13.14

>>986
ありがとうございます。
「オブジェクト変数がセットされていません」というエラーメッセージが出ており、検証はできておりませんが、いけそうな気がします。
ページ遷移したらobjIE.Documentに遷移先の情報が自動で設定されないのかもしれません。

**デフォルトの名無しさん** (JP 0Hc9-dGLa) · 2021/09/12(日) 22:28:25.73

>>988
基本はこうだけど、このままだとタイマーを仕掛けたのを忘れてて、ほかの作業をしてる時に急にEnterが押されてびっくりすると思うよ

Sub n時間後にEnterを押す()
　　n = 1　'n時間を指定
　　n時間後 = Now + TimeValue(n & ":00:00")　'n時間後が何時何分か計算する
　　Do
　　　　DoEvents
　　Loop Until Now >= n時間後　'n時間誤まで待つ
　　SendKeys "~"　'Enterを押す
End Sub

2021/09/12(日) 23:27:46.85

>>990
(1)じゃなかった
(0)だった

2021/09/13(月) 01:05:28.69

>>991
せめてOnTime使えよ

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-dGLa) · 2021/09/13(月) 01:09:51.01

OnTimeはあとからタイマーの設定を確認したり停始する方法がないから使い勝手が悪すぎるのがなあ

2021/09/13(月) 01:34:41.43

配列に保存しとくか
シートに書き出しておく
それを元に確認したりキャンセルする

**デフォルトの名無しさん** (ｽﾌｯ Sd0a-dGLa) · 2021/09/13(月) 02:28:08.29

>>990
URLはここまででいいんだよ
https://whois.nic.ad.jp/cgi-bin/whois_gw?key=182.22.16.251

2021/09/13(月) 07:15:43.89

>>992, 996
ありがとうございます！

2021/09/13(月) 07:30:13.42

つぎ
https://mevius.5ch.net/test/read.cgi/tech/1631485799/l50

2021/09/13(月) 07:41:47.37

>>998
うむ、ご苦労

2021/09/13(月) 09:30:38.14

1000ならコロナ収束

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 57日 0時間 48分 23秒