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(金) 00:12:10.39

>>180
vba自体はアホみたいに軽い
以下のような状態だと、良いpcを導入する意味はあるが・・・
基本的にはｖｂａを基準にPC購入はあまり意味がないな
・重いブックを軽くしたい
・ものすごい手間を軽くしたい

2021/12/31(金) 00:31:59.05

>>181
>>182
ありがとう
趣味程度にやってみようと思ってたから出しても7万位までのPCと思ってたんで。
メモリも8gくらいと思ってたけどやっぱ16g位で探してみよーかな

2021/12/31(金) 00:33:48.82

エクセルはDataTableが最初から用意されているようなもんだから楽なんだよね
これを他の言語でやろうとすると色々な設定か必要になるからお手軽にはできない

2021/12/31(金) 00:35:47.83

>>184
馬鹿のお前にはできないだけだろ

2021/12/31(金) 00:40:54.69

>>183
今この時だけで考えるなら8GBでもまあギリギリいいけど、
もう数年以内に陳腐化する時期になって来てるから少し高くても16GBが良いよ。
ノートPCだと最近はメモリが直接基板に実装されてて増設出来ないというのも増えた。

個人的にはゲーミングとかのPCの主流が32GBくらいになってきて、
今は16GBが一般的なPCの主流かなという感覚。

2021/12/31(金) 00:50:05.63

ブラウザをOSにしたchromebookがあるのだから、ExcelをOSにしたExcelbookがあっても良いのでは？

2021/12/31(金) 00:54:24.83

>>186
久々にpc購入するので助言たすかります！
16gのノート探してくる！

2021/12/31(金) 00:56:59.16

何かの記事でエクセル方眼紙や文章作成はあかん、Wordでやれみたいなのを見たんだけど納得できん
エクセルがあればWordは要らんわ

2021/12/31(金) 01:03:20.57

>>182
セルの更新が噛んでいなければたいてい早いね
逆を言えばセルを大量に更新する作業は苦手、さらにそのセルを参照している他セルとかがあるとさらに遅くなる

2021/12/31(金) 02:56:55.14

ExcelやるならゲーミングPC買えって言われたけど、根拠がわからん
グラスや図形の表示強いとかか強力なGPU積んだゲーミングだけに

2021/12/31(金) 05:17:24.79

多くのセルに数式が入ってたら並列処理ができるマシンの方が計算スピードが速いということじゃないかな。
Excel に限らず数値計算をやるマシーンとしては並列処理を担当する GPU を乗せたゲームマシーンが適してるとはよく言われてるけどね。

2021/12/31(金) 05:42:28.72

>>192
EXCELって2007から数式とかはマルチスレッドに対応してるのね。知らんかったわ。
ならついでにVBAの方もマルチスレッドに対応して組めるようにしておいてくれれば良かったのに。

2021/12/31(金) 05:50:27.02

線型計算はインテルのCPU の中に並列処理の計算機能があったと思う。エクセルも VBA もそれを利用してると思う。
これを越えた並列処理のプログラミングは言語自身が並列処理機能を持ってないと駄目だったような気がする。Juliaとかみたいに。

2021/12/31(金) 06:07:26.57

メモリだけやたら増やしてもリソースに制限があるからな

2021/12/31(金) 08:03:41.87

あんまりゲーミングノートでExcelやりたくないわな、意識高い系に思われる？？
でも性能抜群だから良さそうね

2021/12/31(金) 08:33:02.95

>>185
大晦日くらい子供じみた煽りやめたら

2021/12/31(金) 11:35:03.81

>>191>>196
グラフや画像を使いまくるならゲーミングPCもアリだが・・・
そもそもグラフそんなに使いまくらない上に、今試してみたけどそんなに重くない

＞意識高い
エイリアンウェアでも無い限り、誰もノートPCのガワなんて見てないから気にするな

個人的にオススメはsurfaceかASUSの2in1。

2021/12/31(金) 11:55:09.22

ExcelだけでCPUファン全開にしてみろ

2021/12/31(金) 12:22:47.21

ExcelにCPUファンの回転数を制御する機能は無いので、SpeedFanのCOM版のようなソフトを呼び出すことになるのでは？

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が要らないならどうして関数として用意してあるのかと思うわ
スマートなコードや保守性をとか考えるのは勝手だし他人も係るなら大切だがそれをチクチクつついて他人に押し付けるのは違うと思う

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