Excel VBA 質問スレ Part74

2021/12/20(月) 01:40:59.22

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

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

※前スレ
Excel VBA 質問スレ Part73
https://mevius.5ch.net/test/read.cgi/tech/1631485799/

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

2022/01/04(火) 18:44:24.96

>>255
画像もエクセルファイルも一緒だよ
ただダウンロードは若干クセがあってめんどくさい

数が少なければ
A1=HYPERLINK("https://dotup.org/uploda/dotup.org";&2688739+ROW()&".jpg")
下にオートフィルして、クリックしていくってやり方が早い

2022/01/04(火) 18:45:42.98

画像もテキストも同じファイルなんだぜ

2022/01/04(火) 18:56:57.83

VBAのダウンロードって失敗しやすいんだよなーUAかなにかで弾かれてるのかね
今回はURLDownloadToFileの戻り値が変な値になって失敗している

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub DownloadFile()
'// URL設定
surl_1 = "https://dotup.org/uploda/dotup.org";
surl_2 = ".jpg"
sstart = "2688740"
send = "2688742"
sDir = "C:\Users\81909\Downloads\"

'// ダウンロード
For no = sstart To send
sUrl = surl_1 & no & surl_2
'// キャッシュクリア
Call DeleteUrlCacheEntry(sUrl)
'// ダウンロード
ret = URLDownloadToFile(0, sUrl, sDir, 0, 0)
'// ダウンロード失敗時
If ret <> 0 Then
Debug.Print a_sUrl & "：ダウンロード失敗"
End If
'// 1秒スリープ
Call Sleep(1000)
Next
End Sub

2022/01/04(火) 21:46:27.42

すくなくともそのコードじゃ正しくURLを生成できてないと思うんだが

2022/01/04(火) 21:48:53.92

変なURLだけど、あってる

**デフォルトの名無しさん** (ｽﾌｯ Sd62-iZeD) · 2022/01/04(火) 22:43:25.62

>>258
Debyg.Printのとこ変数名が間違ってない？

2022/01/04(火) 23:43:00.95

>>261
ホントだ
でもそこじゃない。一行前のretのとこでまイナスが帰ってくる

2022/01/05(水) 01:46:07.17

保存するファイル名まで指定する
ret = URLDownloadToFile(0, surl, sDir & no & surl_2, 0, 0)

**デフォルトの名無しさん** (ｽﾌｯ Sd62-iZeD) · 2022/01/05(水) 06:38:46.88

Sub DownloadFile()
　　'// 条件初期化
　　surl_1 = "https://dotup.org/uploda/dotup.org";
　　surl_2 = ".jpg"
　　sstart = "2688740"
　　send = "2688742"
　　sDir = "C:\Users\81909\Downloads\"
　　'// メインループ
　　For no = sstart To send
　　　　sUrl = surl_1 & no & surl_2　'// URL生成
　　　　Call DeleteUrlCacheEntry(sUrl)　'// キャッシュクリア
　　　　ret = URLDownloadToFile(0, sUrl, sDir & no & surl_2, 0, 0)　'// ダウンロード
　　　　Debug.? sUrl & "：ダウンロード";
　　　　If ret = 0 Then　'// リターンコード判定
　　　　　　Debug.? "成功"
　　　　Else
　　　　　　Debug.? "失敗"
　　　　End If
　　　　Call Sleep(1000)　'// 1秒スリープ
　　Next
End Sub

**255** (ﾜｯﾁｮｲ 3136-Eb2Z) · 2022/01/05(水) 18:09:38.15

258, 264さんのを参考にイジッたらできました！
ありがてぇありがてぇ…

やれるもんですね

2022/01/05(水) 18:29:34.28

>>263>>264
あ～～～そこかぁ
指摘してくれてありがとうございました

2022/01/05(水) 20:57:37.17

Windows 10 に、ダウンローダーのcurl が入った。
これは、PowerShell のcurl モドキとは違う

コマンドプロンプトで、

where curl
C:\Windows\System32\curl.exe

curl --version
curl 7.55.1 (Windows) libcurl/7.55.1 WinSSL

2022/01/07(金) 01:00:32.92

https://forest.watch.impress.co.jp/docs/serial/yajiuma/1378774.html
おまいらもなんか作れや

2022/01/07(金) 01:06:18.78

>>268
昔ライフゲームや数独を解くソフトを作ったけど、
vbaでやる意味がないという結論に達したな
あれ以来、エクセル関係ないものはほとんどvb.netを使ってる。
会社だとファイル操作もvbaを使うけど。

2022/01/07(金) 05:24:09.40

>>268
回転のアニメーションなしに色が変わるだけなのか
もうちょっと凄い物を期待してた自分を責めたい
まあ完成させたやつが一番偉いんで、文句言うならお前が作って見せてみろって話だな

2022/01/07(金) 07:12:56.65

ルービックキューブか
昔I/oって雑誌に同じようなプログラム載ってたな
その当時もルービックキューブ解くまでは載っていなかった

俺はジジイのSE兼PGだから
ボケ防止にルービックキューブやってる。
F2Lとか覚えてないから最適解では無理かも知れないけど
ただ解けるだけ、ってロジックだったらなんとかなるかも知れないな

その前に表示ロジックを何とかしないとダメだろうけど。

2022/01/07(金) 07:28:48.23

ボケ防止じゃなくハゲ防止には何がいいですか？

**デフォルトの名無しさん** (ｽﾌｯ Sd62-iZeD) · 2022/01/07(金) 08:26:31.04

>>272
ハゲの90%は遺伝だから防止は困難

2022/01/07(金) 08:50:30.17

>>270
同じ事を思っていた

2022/01/07(金) 10:28:53.28

>>273
うるさいこのバカモンが

2022/01/07(金) 13:31:58.17

>>270
俺も思った
面倒だから作る気も起きないけど…

2022/01/07(金) 14:44:09.64

>>272
ハゲ防止なんて100%不可能
みっともなく長髪にして隠したりするより、いっその事剃ってしまうぐらいの気概が必要

2022/01/07(金) 17:26:57.35

変数名にNTRなんて使ってるのを見て吹いた

2022/01/09(日) 04:59:41.15

http://officetanaka.net/excel/function/tips/tips105.htm
この回答を知恵遅れでしたのExcel板のバカどもかこの板のおまいらの誰かだろw

俺たちの回答が分からないのはアンタの勉強不足とかまさにw

2022/01/09(日) 10:08:07.57

過去に似たような経験あるの？
かわいそうにね

2022/01/09(日) 16:28:30.35

>>279
敢えて反対させてもらうが
結果が合っていれば問題ない

どんな素晴らしいコードでも検算は必要なんだから仕組みが理解できればどうでもいいよこんなの
特にVALUEを使わず1掛けるとかしたら可読性がなくなるだろうと
VALUEが要らないならどうして関数として用意してあるのかと思うわ
スマートなコードや保守性をとか考えるのは勝手だし他人も係るなら大切だがそれをチクチクつついて他人に押し付けるのは違うと思う

まぁいつもお世話になってるサイトだが

2022/01/09(日) 16:41:03.33

基本的には結果が合っていればいいとは思うけど、
ここまで可読性が低いと保守がキツくなる。この例はさすがにやりすぎかな

**デフォルトの名無しさん** (ｽﾌｯ Sd9f-lUoQ) · 2022/01/09(日) 17:23:57.99

VBAだとVal("100円")で100が返ってくるけど、ワークシート関数VALUEだとエラーになるんだよね
どうして同じ仕様にしなかったんだろう
こういうケースで役に立ちそうに思うんだけど

2022/01/09(日) 17:39:45.87

https://www.limecode.jp/entry/difference/value-val-cdbl

2022/01/09(日) 18:23:33.87

田中のオッサンの話題は出すなぼけ、荒れる原因だろが！
とExcel板では怒られるんだけど、こっちは無問題？？

2022/01/09(日) 18:51:01.86

別にいいよ

2022/01/09(日) 19:29:24.38

いや、過去スレであの人はくそコードを世の中に広めるなとかの書き込みあったからダメなんかなと思ってさ。

2022/01/09(日) 19:53:32.78

スキルはいい感じだけど、疲れてるのかたまに変な事やる
あと昔の間違っている記事を削除しない
この辺が嫌われている理由

後者は割とマジで対処してほしい

2022/01/09(日) 20:56:32.83

うん、まぁ別にいいんじゃないのかな
やりたいことだけ分かれば別に
糞コードだったとしても
自分の方でそう思った部分は
自分の納得行くコードにすればいいだけだから

2022/01/09(日) 21:27:51.21

へーそうなんだ？？
ま、完璧な人間はいないと同じね
職場の上司もなんかそんな事指摘していたかな、中には無駄なコードや？なコード書いている時あるって。
あの方の講習会、教え方がかなり癖強くて合う合わないが大きく別れると聞きました。

2022/01/10(月) 00:06:11.98

疲れてる時にコード書くと、その時はノリノリでも、後で見ると「？」ってのはたまによくある
思ったよりも時間がかかっているのは大体なんかひっかかる所がある

2022/01/10(月) 00:18:32.94

結果が同じなら手法は問わないってのには全く賛同できない
可読性を重視しないと後で困るに決まってる
自分が組んだのでさえそうなるのに

2022/01/10(月) 01:07:56.95

いい機会だから聞きたいけど、同志達はどんな時にミスる？？
ミスの度合いは大なり小なりあるけど
自分は寝不足だとあり得ないミス連発する
しっかり寝てかつ空腹だと調子良い笑

2022/01/10(月) 02:50:00.36

普段使わない漢字や送り仮名はよく間違える

2022/01/10(月) 08:39:41.61

内容自体ミスるよりいいよ

2022/01/10(月) 09:35:33.83

日本語変数があるとミスるというか、まともに読めない。

2022/01/10(月) 10:31:42.31

でも英語力がないので聞いたこともない単語だとよりわからなくなるので結局日本語で書いてしまう

**デフォルトの名無しさん** (ｽﾌｯ Sd9f-lUoQ) · 2022/01/10(月) 10:45:27.78

コードが長くなってくると変数名が思い付かなくて、必死に考えた結果重複とか

2022/01/10(月) 11:22:12.64

この処理似たようなのを書いた事あるなと以前のを見てみるも
すぐには思い出せない
過去の自分は他人

2022/01/10(月) 11:32:51.01

プロシージャ名とか変数名とか以前は英語もどきで書いたけど悲しいかな後から見た時に意味が全く分からない。

なんで、しばらく前から日本語でかくようになった。最初は全角文字でうまく動くか心配だったしやたら長くなったんだけど後から見ても意味がわかるっていうのは超便利でやめられない。

2022/01/10(月) 11:43:56.56

>>292
長さによりけりだろう
関数程度の単純なもので手法もクソもない

2022/01/10(月) 11:52:13.34

日本語にしても変数名が思い出せない
在庫数、在庫カウンター、カウンター_在庫
どれにしたっけ

2022/01/10(月) 12:06:42.32

変数名のコメントも豆に書いてる人もいるね

2022/01/10(月) 12:23:58.68

>>298
ありすぎる

2022/01/10(月) 12:25:07.05

変数と変数の内容は紙に書き出している
毎回頭まで戻って読み直すのめんどくさすぎる

2022/01/10(月) 12:44:38.02

表示中のModuleからDim宣言した行を抽出してパッと表示するアドインを作ったら便利かもね
と我ながらいいこと思いついた

2022/01/10(月) 12:58:58.14

>>307
ウィンドウ2分割したらいいじゃん。もしくはデュアルモニターで作業ウィンドウと変数定義部分のウィンドウを表示するとか。

2022/01/10(月) 13:01:06.34

>>303
option explicit 宣言してコントロールスペース機能を使えばいいじゃん。

2022/01/10(月) 17:02:28.45

結局疲れていると変な事やり出すのは共通て事で。
趣味ですがやっている分ならまだしも仕事なら間違いは許されんよね大変だ

2022/01/10(月) 19:43:03.44

多国籍企業で言語の違うOSを使うと軒並み文字化けするから日本語含めてマルチバイト文字が一切使えない
早くUnicode化して欲しいわ

**デフォルトの名無しさん** (ｽﾌｯ Sd9f-lUoQ) · 2022/01/10(月) 20:56:33.75

コメントも英語縛りだと大変そうだなあ

2022/01/10(月) 21:00:45.99

英語に抵抗あるのはお前ら世代ぐらいまでだから　そろそろ引退後を考えときな

2022/01/10(月) 21:04:29.76

>>312
カッコイイね！

2022/01/10(月) 21:05:12.22

>>310
最悪、ワークシートに書けば良い
あっちは多言語対応してる

2022/01/10(月) 21:38:02.69

今は小学生でプログラミング授業が当たり前？？と聞いた。
将来は全員バリバリのプログラマーとして新卒で入社してくるのだろうかと。。。

2022/01/10(月) 22:37:56.38

>>315
義務教育の内容なんて、大多数の子は半分程度しか覚えてないんだよ
だから高校に格差がある

2022/01/10(月) 22:40:00.97

思い込みだな、ソースだしてみ

2022/01/10(月) 22:42:08.68

小1からアルファベットくらい教えないと無理

2022/01/10(月) 22:49:49.35

>>315
教育ではプログラミング的思考のことだけでツールの使い方は微塵も知らんぞ

2022/01/10(月) 22:56:21.83

>>308
何の為の変数か分かるようにコメント書いてるって話だけどそれで分かるの？

2022/01/10(月) 23:45:01.54

>>315
vbaでifとfornext使えるだけでいいんだけどな

教育の概要みてみたけど、プログラムの概念教えるだけなのね
まぁ知らんよりかは大分マシだと思うけど、なんだかなぁ
https://www.mext.go.jp/content/20200218-mxt_jogai02-100003171_003.pdf

2022/01/10(月) 23:47:37.36

小学生の算数で
なにができるかって話

2022/01/11(火) 00:00:22.85

20年前10年前で新卒の技能も変わってるし今の小学生が新卒になる10年後には更にベースが変わっているだろう

2022/01/11(火) 00:55:36.01

なでしこならできるだろ
実際導入してるところあるみたいだし

2022/01/11(火) 01:04:44.62

>>324
なでしこ、一回ぐらい見てから言った方が良いと思う
https://image.itmedia.co.jp/l/im/news/articles/2009/18/l_mt1626333_NDSK-02.jpg#_ga=2.46856359.1211102927.1641830465-1693712719.1638754091

中国人が書いたような日本語があまりに不気味で、余計に読みづらい
これなら最初から英語の方が遥かにマシ
ただ全部英語だと変数がキツイので、日本語変数を使えるvbaは本当に使いやすい

2022/01/11(火) 01:05:47.81

ID:xXRyLH4+0

頭が悪いまさしく馬鹿の典型例

2022/01/11(火) 01:19:28.14

>>325
無理やり感が凄いなｗ
特に中途半端に演算子を助詞に置き換えてるのが酷い

2022/01/11(火) 01:43:32.21

>>326
こんな時間まで置きて煽りとか、凄いな

>>327
終わってるだろ
どんな場面でも使いたくないわ

2022/01/11(火) 02:54:50.14

お互い見下したり下らない事での喧嘩は止めましょうよ。
もう一個あるExcel板みたいに荒れたくないので、超マターリやりましょうぜ

2022/01/11(火) 02:59:40.60

>>320
すまんタグ付を間違えた。302に対する返事でした。

**デフォルトの名無しさん** (ｽﾌｯ Sd9f-lUoQ) · 2022/01/11(火) 04:33:13.43

>>323
VBAはオワコンと言われ続けて20年以上が過ぎて、いまだに需要があるという現実
画期的な新技術が出てきても、10年程度で世界中のすべてが置き換わるなんて絶対にありえないから

2022/01/11(火) 04:53:38.34

使う人がいて使わない人もいるそれだけだ

2022/01/11(火) 05:12:45.59

恥ずかしながらマクロしかやった事ないから、他の言語はほとんど知りません
他の言語やっている人が言うにはExcelマクロはいろいろ独特すぎると言っていましたよ。

2022/01/11(火) 06:57:43.71

初心者には難しいのかもね

2022/01/11(火) 09:20:49.60

>>325
見てないで言ったって妄想は自分の心の中だけにしておくべきでは

2022/01/11(火) 09:26:49.60

つかお前のほうがきちんと見ていないのでは？
http://nadesi.com/doc/cmd-func.htm

2022/01/11(火) 09:55:25.76

>>333
言語というより、エクセルのスクリプト
エクセルへの依存が大きい
Bライク
エラーがあっても平気、というかfatal errorがほぼ無い
なんか知らんけど適当に書いても動く

こういうのでいい

2022/01/11(火) 11:17:42.49

プロパティ一つ変えるだけで大きくデータか変わるのとかあるからなぁ
デフォルトプロパティのおかげで書きやすいけど間違いやすいし
MID関数とMIDステートメントみたいな意地悪な引掛けもあるし
ワークシートの数式とVBの数式の文法が違うから初心者がよく混乱してるし
配列数式だかプペルだか毎回ググらずにはいられないし

2022/01/11(火) 13:48:53.68

>>338

プペルってなに？

2022/01/11(火) 14:28:18.62

タプルのことかな

**デフォルトの名無しさん** (ｽﾌｯ Sd9f-lUoQ) · 2022/01/11(火) 16:41:11.70

パピコ

2022/01/11(火) 17:43:15.57

VBでワークシート関数が使える事を知らなかった人もいるぐらい

2022/01/11(火) 20:05:33.64

スピル
まぢれす

**デフォルトの名無しさん** (ｽﾌｯ Sd9f-lUoQ) · 2022/01/11(火) 20:17:38.77

>>342
以前はVBやVCからワークシートオブジェクトを生成してやると、Excelの30日体験版がいつまでも使えてしまうという裏技があったんだよなあ

2022/01/11(火) 23:15:17.45

凄いバグですな。
Office365を永久に無料試用できる裏ワザあると聞いたのを思い出した。

2022/01/12(水) 11:52:41.57

同じやり方でWin11でIE使えるんだよな

2022/01/12(水) 21:05:19.10

本当にExcel2021をケーズデンキで買ってきた
これで充分な気がする

2022/01/12(水) 21:10:06.51

フラグを変更することにより外部に個人情報を送信するようになるかも

2022/01/12(水) 23:55:12.07

>>345
永久って何十年でも使えるのか？

2022/01/13(木) 00:47:58.94

ロンドンブーツ田村淳　
「嫌なら見なきゃいいじゃん。君らのテレビはチャンネル変えられないの？ネチネチうるさいって言われない？力つけないと。お前に影響力ないから」

99 岡村隆史
「嫌なら見るなや。何でもツイッターで呟くな！は？ミステリー作家？知らんわ、お前がミステリーやわ」

ビートたけし
「韓流ばかり放送するたってそれである程度視聴率取るんだからしょうがないよな。いやなら見なきゃいいんじゃねーか」

ダウンタウン松本
「お前らチャンネル変える能力もないんやな。どんだけ無能やねん(笑)」

やしきたかじん
「（韓流番組が）イヤやったら観んとったらえぇんちゃうの」

マツコデラックス
「フジテレビのデモは新右翼の集まり」

テリー伊藤
「高岡さんは精神的にアレですよ」

ミッツマングローブ
「ネットは仮想敵国を作りたがる。(カメラ目線で)日本人はこういう意見じゃないですから」

江川紹子
「ふかわの意見は中身がないにゃ」

2022/01/13(木) 01:06:13.81

韓流番組は知らんけど
とりあえずNHKは解体させるべき

2022/01/13(木) 02:22:29.43

YouTube に、N国の立花孝志の動画が上がっている。1/12

ＮＨＫとの裁判で半分勝ちました。
やはり時効５年の最高裁判決は国民にとってありがたい判決でした。

裁判所から、5年以上の支払督促が来ても、1円も払わず、
5年の時効を援用して、8.9万円だけを払う。
1円でも払うと、債務を認めたことになるので、全額を払わなければならないので危険！

8.9万円 × 年間の裁判数700件 = 6,230万円
は、N国が政党助成金から払うので、国民は払わなくて良い

やっぱり、N国が最高裁判決で勝ち取った、時効5年の援用が強力！

2022/01/13(木) 02:59:22.55

次はExcel2024てのが発売されるのかな？

2022/01/13(木) 23:45:10.44

VBA極めたら最終的に世界中の有用な情報を集めて自動で収集できるようになりますか？

2022/01/14(金) 00:05:56.70

極めなくてもスクレイピングができれば収集は可能だよ