Excel VBA 質問スレ Part72

[1 デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdaa-x2SP) 2021/07/18(日) 08:42:15.37 ID:KskL7bEXd]

!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

[983 デフォルトの名無しさん (ｻｻｸｯﾃﾛﾛ Spbd-Eqy2) 2021/09/12(日) 18:56:51.30 ID:up1UF/mUp]

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

[984 デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MM3e-h3Yj) 2021/09/12(日) 19:28:40.93 ID:qUARoTjRM]

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

[985 デフォルトの名無しさん (ﾜｯﾁｮｲ a6ba-WYzC) 2021/09/12(日) 21:17:53.40 ID:K6Dv6PKH0]

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
ではメソッドがサポートされいないとエラー表示されます。
何がいけないのでしょうか？

[986 名無し募集中。。。 (ﾜｯﾁｮｲ 9e8c-xZL4) 2021/09/12(日) 21:29:23.70 ID:Nc1wnmSN0]

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

[987 デフォルトの名無しさん (ﾜｯﾁｮｲ 66b0-FDYl) 2021/09/12(日) 21:29:29.14 ID:wxf2x8Lb0]

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

[988 デフォルトの名無しさん (ﾜｯﾁｮｲ 7935-xJJl) 2021/09/12(日) 22:10:03.90 ID:UcZJH98c0]

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

[989 デフォルトの名無しさん (ﾜｯﾁｮｲ 66b0-FDYl) 2021/09/12(日) 22:16:01.50 ID:wxf2x8Lb0]

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

[990 デフォルトの名無しさん (ﾜｯﾁｮｲ a6ba-WYzC) 2021/09/12(日) 22:27:13.14 ID:K6Dv6PKH0]

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

[991 デフォルトの名無しさん (JP 0Hc9-dGLa) 2021/09/12(日) 22:28:25.73 ID:8PbYCWHKH]

>>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

[992 デフォルトの名無しさん (ﾜｯﾁｮｲ 9e8c-xZL4) 2021/09/12(日) 23:27:46.85 ID:Nc1wnmSN0]

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

[993 デフォルトの名無しさん (ﾜｯﾁｮｲ 3a2f-Le98) 2021/09/13(月) 01:05:28.69 ID:gLuGYsXi0]

>>991
せめてOnTime使えよ

[994 デフォルトの名無しさん (ｽﾌｯ Sd0a-dGLa) 2021/09/13(月) 01:09:51.01 ID:DeEefxbAd]

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

[995 デフォルトの名無しさん (ﾌﾞｰｲﾓ MMc9-FDYl) 2021/09/13(月) 01:34:41.43 ID:/cjB8lcQM]

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

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

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

[997 デフォルトの名無しさん (ﾜｯﾁｮｲ a6ba-WYzC) 2021/09/13(月) 07:15:43.89 ID:oNrWMPyP0]

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

[998 デフォルトの名無しさん (ﾜｯﾁｮｲ 5e68-gxqX) 2021/09/13(月) 07:30:13.42 ID:GNx0xRRz0]

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

[999 デフォルトの名無しさん (ｻｻｸｯﾃﾛﾛ Spbd-Eqy2) 2021/09/13(月) 07:41:47.37 ID:KCvhkZmap]

>>998
うむ、ご苦労

[1000 デフォルトの名無しさん (ｴﾑｿﾞﾈ FF0a-dgdc) 2021/09/13(月) 09:30:38.14 ID:Kz73eSbEF]

1000ならコロナ収束