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

2021/12/31(金) 12:30:09.65

>>191
相談相手の考えだから中にはそういう人がいてもおかしくないんじゃね
10人に相談したら全員が同じスペックのPCをすすめるとでも？

2021/12/31(金) 12:33:05.83

ハルカスの二階で今日まで全国の駅弁売ってるらしいけど。

2021/12/31(金) 12:47:47.40

>>202
なんで俺が天王寺に住んでる事知ってるの

2021/12/31(金) 13:04:43.84

>>200
そうじゃなくて
ファンが全開になるくらいのCPU使用率にExcelだけでしてみろ
じゃないの

2021/12/31(金) 13:11:46.46

A列全部に"a"と入れてホイールグリグリするとCPUもGPUも100%行くな

2021/12/31(金) 13:24:32.70

天王寺って富豪が住むところじゃなかったっけ。

2021/12/31(金) 15:43:40.65

>>193
> ならついでにVBAの方もマルチスレッドに対応して組めるようにしておいてくれれば良かったのに。
マルチスレッドでトラブルVBerが続出する未来しか見えない

2021/12/31(金) 15:55:10.13

さっきハルカス行ってきたけど、ハルカスとミオの間の信号のとこでコロナの陰謀を演説してる女性達が居たわ。
コロナで頭がおかしくなっちゃったんだろね。

2021/12/31(金) 16:59:02.91

>>208
「コロナの陰謀」ってなんか映画のタイトルみたいだな

2021/12/31(金) 19:46:32.63

わかた
アザースかsurface買ってくる

2021/12/31(金) 19:50:48.59

つうか同志達は今日年越しExcelやるでしょ？

2021/12/31(金) 20:01:44.53

>>192
EXCELは数値計算にＧＰＵ使うのか？

たんにゲーミングＰＣが、そこそこの性能だってだけじゃね

2021/12/31(金) 21:14:15.54

>>211
質問あったらやるかなぁ

>>212
使わないよ
＞たんにゲーミングＰＣが、そこそこの性能だってだけじゃね
そうそう
ただ、グラボ代もったいないとは思うけど

2021/12/31(金) 21:17:51.43

>>212
計算には使っていないぞ
描画だけ
ゲーミング機だってGPUも色々あるし
いつもの知ったかだろうな

2021/12/31(金) 21:52:34.38

年越しの瞬間に効果音が鳴るマクロ作ったりいろいろ遊べそうね

2021/12/31(金) 21:58:02.47

あと二時間しかない。
しかしExcelなら楽勝で出来るでしょう。

2021/12/31(金) 21:59:34.78

今日見たコロナ陰謀説の人たちは通行人の邪魔にならないようにしてたし、維新や共産党よりだいぶマナーが良いな。

2021/12/31(金) 22:07:44.53

>>215
一瞬で終わってしまった

Sub foo()
Do
If Now() > "2022/1/1 00:00:00" Then
Beep
Exit Sub
End If
Loop
End Sub

2021/12/31(金) 22:28:49.69

>>218
wavファイルでどうぞ

2021/12/31(金) 23:09:39.31

>>218
不等号は > じゃなくて >= だな

2022/01/01(土) 00:06:56.85

あ、ホントだ
鳴らない仕様ね
つか開けましたおめでとう

2022/01/01(土) 00:07:03.49

あ、ホントだ
鳴らない仕様ね
つか開けましたおめでとう

2022/01/01(土) 00:07:20.46

あ、ホントだ
鳴らない仕様ね
つか開けましたおめでとう

2022/01/01(土) 01:06:32.10

>>213，214

EXCEL for 下層国民というバージョンにはないが普通のバージョンは2016以降GPUが使用できる。
オプション→詳細設定→ハードウェアグラフィックアクセラレータで項目で設定できる。
貧相なノートPCだとこの機能が足を引っ張るので、EXCEL for 下層国民バージョンでは初めからGPU機能を搭載していないらしい。
お前らのエクセルはEXCEL for 下層国民　に違いない。

>>191
数値計算向きのノートPCに関しては下のリンク先に詳しい。
結果的にゲーム用のマシンになるとのこと。
https://student-notepc.com/gpgpu.html#calculation

2022/01/01(土) 01:10:43.70

エクセルでのGPU利用については下のリンク先を見てください。
https://www.windows8-help.net/office/offce2016-gpushi/

2022/01/01(土) 01:27:29.55

>>224
そのオプションは、あくまでも表示にGPUを使うかCPUでやるかの選択で
数値計算にGPUを使うようにはなってないだろって話なんだが

GPU積むだけですべてのソフトが勝手にすべての数値計算をGPUでするわけじゃないんだよ
Windowsに数値計算用のドライバなんてないから

2022/01/01(土) 01:48:41.35

>>224
馬鹿が恥の上塗りに来た

2022/01/01(土) 02:00:47.02

>>226
そうなのか。すまん。
213，214にも早めにあやまっとくわ。
メンゴ

2022/01/01(土) 08:47:41.52

GPGPUは機械学習ぐらいでしか使わないよ
設定も大変なのだ

2022/01/01(土) 09:11:06.27

みんな明けましておめでとう

2022/01/01(土) 09:31:17.86

親切な人がいろいろ調べてくれて助かる
ここの住人は口は悪いが根は優しいのね。
どこかのExcel板と大違いね
てか開けましたおめでとう

2022/01/01(土) 18:50:55.82

ガチのプログラマにはバカにされ、一般的なExcel使いには理解されず、かといって言うほどExcelのワークシートの機能に詳しいわけでもない、
微妙な立場で辛い思いをしている人達だからね

2022/01/01(土) 20:24:30.10

マクロは独特で勉強すればするほど面白いのにねえ
まあワークシート関数はまた違った楽しさがありますな。
だいたいはどっちかに得意分野別れるみたいですね。

2022/01/02(日) 00:02:48.18

>>233
お前みたいな頭の悪い奴には理解できないだけだぞ

2022/01/02(日) 00:19:50.24

>>234
お客様？鏡はこちらでございます

2022/01/02(日) 02:38:22.72

>>234
はいはい、正月だから酒浸りしてるのですね
あまり人を見下した書き込みはやめた方がよろしいですよ。

2022/01/02(日) 03:49:32.18

悔しかったか？

2022/01/02(日) 03:53:45.10

正月の深夜から煽りとか、すげー人生やな・・・

2022/01/02(日) 03:57:56.02

システム間でデータを受け渡す時の、相互変換用のファイルについて相談したいです

「入力」シートに貼り付け
「出力」シートをcsvで保存
csvをインポート

という構成でよく作るんだけど、
オペレーターは削除や挿入をしてしまい、数式の参照がおかしくなる事がたまによくある
ここに「tmp」シートを入れて、全てのセルにindirectをかますというのは良くないだろうか

2022/01/02(日) 06:49:15.75

>>238
いやいや、５ちゃんは煽りあって喧嘩するのが常識と叩き込まれたから他スレで

2022/01/02(日) 08:00:02.64

宮D：
「日本には社会はなかったけど世間はあった」
「世間を意識することで、見ず知らずの他人も自分と同じように生活していると想像できた」
「ところが1960年代から始まる新住民問題で地域が崩壊、損得勘定で繋がった家庭も崩壊、今や会社も崩壊で、居場所も世間もなくなった」

2022/01/02(日) 08:31:16.52

>>240
煽りや喧嘩はわかるけど>>234は煽りにすらなってない気が…

2022/01/02(日) 10:45:15.56

>>239
良い悪いの話をするなら、そもそもCSVからCSVへの変換にいちいちExcel通すのが間違い
適当なスクリプト言語を使えばいいだけだし、どうしてもVBAならVBAだけでやっちゃって人間が介入する余地を無くせばよい
逆に人間が介入しやすいようにExcelにしてるんなら変なことしてわかりにくくするのは本末転倒
諦めて普通に素直に作るべき

2022/01/02(日) 10:56:54.18

>>239
オペレーターが何やってるのかわからんけどそれこそVBA使ってボタン１つで実行するようにできないのか？

2022/01/02(日) 11:40:52.11

>>239
して欲しい操作以外は出来ないようにすると良いです（入力の制約をしっかりする）
例えば入力に必要のないセルをすべてロックする、かつ入力を許容するセルには入力規則を適用する
他は入力フォームをモーダルで作ってそれ以外の入力は受け付けないとか

2022/01/02(日) 12:15:24.12

>>243-245

ありがとうございます
・経費精算システム→会計ソフトへのデータ移動
・販売管理システム→会計ソフトへのデータ移動
を行っています

問題点は
・入力ミスが多すぎて目視確認が必要。会計ソフトで修正は手間＋見落としが多い
・経費精算システムは仮払設定ができない。
・販売管理システムは、商品ごとに行が分かれるので恐ろしい量になる（間違いではないんだけど）
※経費システムは部門だけじゃなく、勘定科目も違う。ざっくり言うと仮払精算が出来ない

このあたりをエクセルで置換＋チェックなどを行い、会計ソフトに取り込んでいる

ソフトを変更するのはNGです

2022/01/02(日) 13:00:21.32

>>246
経費精算、販売管理システムからデータを出力
→エクセルで入力データのチェック+仮払いのデータを追加
→csvで会計ソフトに渡すってことでいいのかな？

経費精算、販売管理システムがファイルを吐いてくれるならそれを直接読む
コピペしかできないならクリップボードのデータ(テキストデータと仮定して)を読み込んでワークシートに貼り付ける
これらをVBAでやる（とにかくオペにいじらせない）

エクセルをいじって貰うなら>>245のルールを守ったうえで入れて貰う
そんくらいしか思いつかない

2022/01/02(日) 13:30:03.08

>>247
好き放題さわってもらう方が自由度が高くて良いと思ってたけど、そもそもそれがダメなのかな
難しいね
ありがとう、制限かける方法で考えてみます

2022/01/02(日) 18:17:30.23

好き放題さわれるってことはつまり壊せるってことだ

で、それのどこでＶＢＡが関係するんだ？
ちゃんとエラーチェックすればいいだけだと思うが

2022/01/02(日) 21:53:37.95

>>247
行の削除や挿入をvba側で拾って、cancelさせるか、数式等が壊れない様に処理すれば良いのではないでしょうか？

2022/01/03(月) 01:03:08.53

プログラマだとその手のユーザーが自由に操作できる点を定義する事がエラーケースを抽出するためにはじめにやらなきゃ行けない事なんですよね。
中間システムをWEBシステムで作って数式を触らせないのがいいかと思う

2022/01/03(月) 18:38:24.47

つかうならクエリでしょ
データの型もしっかり記述されるから生半可には壊れない
へたにVB使うならクエリだけで済ますほうが100倍まし

2022/01/03(月) 18:59:52.27

>>252のクエリて具体的には何を指してる？

2022/01/03(月) 19:14:48.50

ガチガチに制限掛けるならExcelでやる意味が無い。
別に作った方が早いよ

2022/01/04(火) 17:58:13.61

[https://～ナンチャラカンチャラ～連番」ってURLでDLできる.xlsファイルを
開始～終了番号指定して一括DLするマクロ、ってググるレベルで作れるかな?
画像はよく聞くけど

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

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

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