Excel VBA 質問スレ Part72

レス数が1000を超えています。これ以上書き込みはできません。
2021/07/18(日) 08:42:15.37ID: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
2021/09/10(金) 23:04:12.45ID:k/ICsAd30
文脈的に明らかならRange As Rangeいいと思うけどね。

あと、「Rangeオブジェクト」である以上の情報がない変数や引数に対して無理やり名づけようとしても、
結局TargetRange的な抽象的な名前になっちゃう事もある。
2021/09/10(金) 23:06:14.39ID:k/ICsAd30
>>955
流石にそれは冗長すぎて逆に読みにくいだろ・・・
2021/09/10(金) 23:11:20.56ID:LHgBQKs+0
>>954
そこはtarget as rangeでいいと思う
一番読みやすい

自分しか使わない場合でもrange　as　rangeは使わないかな
vbaの場合、引数なしの関数と変数って見分けが付きにくい
ってかなんだこれエラーになるぞ

Sub foo()
Dim Calculate As Long
Calculate
End Sub

これはエラーにならない
Sub foo()
Dim Calculate As Long
End Sub

これもエラーにならない
Sub foo()
Calculate
End Sub

変数名と関数名がかぶると変数が優先される？
まぁ何にしろ、こんな事は避けたいから俺はかぶらないようにするけどね
2021/09/10(金) 23:15:36.34ID:rrgK5Yqx0
多少長くても要素要素は省いちゃメンテが大変になるから多少冗長でも構わないスタンスで

単語の簡素化はしてもいいなら関数名をSetFmt_TgtRngとかにするかもね

あとそもそも、挙げられた例は不適切では？
今回話題になってるのは呼び出し先の(汎用的に使える)関数での変数名ではなくて、呼び出し元での変数名かと
2021/09/10(金) 23:25:05.99ID:k/ICsAd30
>>958
再定義（シャドーイング）されてるだけ。
親スコープから継承されてる宣言名（今回で言えばオブジェクト名.Calculate）を再定義すると、定義が上書きされる。

Calculateは整数として再定義されたので、そのスコープではCalculateだけなら暗黙的に整数になる。
明示的に「オブジェクト名.Calculate」とすればメソッドとしてのCalculateを使用できる
2021/09/11(土) 00:00:09.96ID:qqZDVqkP0
personal.xlsbを複数の端末で共有したいので共有フォルダーにおいています．
XLSTARTのpersonal.xlsbは削除して共有フォルダーのpersonal.xlsbへのショートカットをおいています．
エクセルが起動するときにpersonal.xlsbを開くかどうか毎回聞いてきます
（セキュリティのマクロの設定は「警告を表示して全てのマクロを無効にする」です）

毎回開くを押すのが面倒なので共有フォルダーのpersonal.xlsbだけ常時開くような設定はできないでしょうか?
2021/09/11(土) 07:08:07.40ID:M0KgNEQw0
>>960
ありがとうございます
こんな機能あったのか、名前被るとエラーになると思って避けてたわ
2021/09/11(土) 08:32:29.27ID:uUbGGWZvM
>>962
スコープを持った言語ではたいてい内側のスコープが優先されるよ
中にはあえてエラーにする言語もあるけど
https://docs.microsoft.com/ja-jp/dotnet/csharp/misc/cs0136
2021/09/11(土) 09:37:25.87ID:3jGknNChp
>>955
関数の大きさにもよるな
小さくてすぐ上に引数設定して
型が見えてるようなのはvalueでいいと思う
少しごちゃごちゃして見辛いのは
targetRangeでいいと思うし
更にもう少し大きくなって業務的な
意味を持つようになったらその名前付ければ
いいんじゃないかな
2021/09/11(土) 10:18:08.93ID:JYcIgh+V0
>>936です
質問用に最少構成にする時点でもう少し変数名に気を付けるべきでした
変な流れになってすみません
2021/09/11(土) 10:49:48.68ID:eXg+YAmHM
>>964
Valueはないわ…
2021/09/11(土) 12:17:24.93ID:qqZDVqkP0
>>966
そうだよな。value指定ではフォーマット変更は無理だよな
2021/09/11(土) 13:14:28.26ID:GnKWsobMa
Valueだけはねぇわ
targetとtmpとi・j・kとrくらいしか意味の薄い変数は使わないようにしないと
2021/09/11(土) 13:57:33.58ID:SrjYrNmNM
m,nも
2021/09/11(土) 14:37:20.09ID:M0KgNEQw0
i・j・k

顔文字かと思った
2021/09/12(日) 11:12:03.90ID:up1UF/mUp
valueがダメだと言ってる奴は恐らくプロパティとか
プロパティの使えない他言語とか使ったことのない井の中の蛙という奴だな

VBAしかやってないジジイにはよくあること
2021/09/12(日) 11:42:37.67ID:igJhGb/40
>>971
君、韓国人？
2021/09/12(日) 11:48:24.82ID:3Dv8YdNb0
韓国をばかにするな！ITに関しては日本より進んでいるぞ
2021/09/12(日) 12:10:04.57ID:tsfiI8be0
どこ見て言ってんだか
2021/09/12(日) 12:15:32.69ID:3Dv8YdNb0
ここ見ててんだよ
2021/09/12(日) 12:55:49.25ID:xXC+mfefM
>>971
またチンケなマウント取りが来たなw
>>954の引数としてValueはないわって話
値としての用途ならValueもよく使うよ
2021/09/12(日) 13:36:49.25ID:5xdi3uAF0
オブジェクト型のRange型なのに、Valueを変数名にするのはVBAの常識的にNGなのは自明
2021/09/12(日) 14:09:17.30ID:3Dv8YdNb0
>>977

> Valueを変数名にする
変数名の適否ではなくって、ByValで値引き渡しにしたらもとの範囲のフォーマットを変更できないという話じゃないのか？
2021/09/12(日) 16:11:41.17ID:INS7ikYU0
>>978
今問題にしてたのは変数（引数）名であって引数の渡し方ではないのだが
参照型と参照渡しとちゃんと区別して理解してる？
2021/09/12(日) 16:21:24.92ID:aVK/EU7g0
元の元は>>936(私)でdim range as rangeに対してsetしたのですが
引数としてrange as rangeとされている状態でsetする事なんてあるのですか？
普通は無いなら途中から引数の話になるのもずれてません？
2021/09/12(日) 16:31:54.19ID:pHewVqE+0
そう言えばデコレーターパターンとかでは
valueはよく見るけどreferって見ないよね
なんでだろ？
2021/09/12(日) 16:37:26.61ID:3Dv8YdNb0
>>979
955の話じゃないのか？
誤解してたらすまん。
2021/09/12(日) 18:56:51.30ID:up1UF/mUp
>>981
それは引数が何かの値という意味で
プログラム的な参照とか値とかは関係ないからさ
2021/09/12(日) 19:28:40.93ID:qUARoTjRM
>>980
お前さんの普通がわからんけど、複数のレンジを返したいならそういうケースもあると思うよ
そもそも>>952は名前付けの話でSet云々の話に限定はしてないと思うし
985デフォルトの名無しさん (ﾜｯﾁｮｲ a6ba-WYzC)
垢版 |
2021/09/12(日) 21:17:53.40ID: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
ではメソッドがサポートされいないとエラー表示されます。
何がいけないのでしょうか？
2021/09/12(日) 21:29:23.70ID:Nc1wnmSN0
普段使ってないから問題点がこれ意外にもあるかわからないが
Cells(1, 2) = objIE.Document.getElementsByTagName("pre")(1).innerText
これでどう？
2021/09/12(日) 21:29:29.14ID:wxf2x8Lb0
VBAとJavaScriptが、混ざっちゃった感じかな
988デフォルトの名無しさん (ﾜｯﾁｮｲ 7935-xJJl)
垢版 |
2021/09/12(日) 22:10:03.90ID:UcZJH98c0
n時間後にエンターキーを押すプログラムってどう作るんだ？初心者にもわかりやすく誰か教えて
2021/09/12(日) 22:16:01.50ID:wxf2x8Lb0
「n時間後にアラームを設定して、鳴ったらENTERを押せ！」
と、命令する
990デフォルトの名無しさん (ﾜｯﾁｮｲ a6ba-WYzC)
垢版 |
2021/09/12(日) 22:27:13.14ID:K6Dv6PKH0
>>986
ありがとうございます。
「オブジェクト変数がセットされていません」というエラーメッセージが出ており、検証はできておりませんが、いけそうな気がします。
ページ遷移したらobjIE.Documentに遷移先の情報が自動で設定されないのかもしれません。
2021/09/12(日) 22:28:25.73ID: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
2021/09/12(日) 23:27:46.85ID:Nc1wnmSN0
>>990
(1)じゃなかった
(0)だった
2021/09/13(月) 01:05:28.69ID:gLuGYsXi0
>>991
せめてOnTime使えよ
2021/09/13(月) 01:09:51.01ID:DeEefxbAd
OnTimeはあとからタイマーの設定を確認したり停始する方法がないから使い勝手が悪すぎるのがなあ
2021/09/13(月) 01:34:41.43ID:/cjB8lcQM
配列に保存しとくか
シートに書き出しておく
それを元に確認したりキャンセルする
2021/09/13(月) 02:28:08.29ID: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.89ID:oNrWMPyP0
>>992, 996
ありがとうございます！
2021/09/13(月) 07:30:13.42ID:GNx0xRRz0
つぎ
https://mevius.5ch.net/test/read.cgi/tech/1631485799/l50
2021/09/13(月) 07:41:47.37ID:KCvhkZmap
>>998
うむ、ご苦労
1000デフォルトの名無しさん (ｴﾑｿﾞﾈ FF0a-dgdc)
垢版 |
2021/09/13(月) 09:30:38.14ID:Kz73eSbEF
1000ならコロナ収束
10011001
垢版 |
Over 1000Thread
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 57日 0時間 48分 23秒
レス数が1000を超えています。これ以上書き込みはできません。
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況