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

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

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

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

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