Excel VBA 質問スレ Part69

2020/12/13(日) 00:22:23.67

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

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

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

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

2021/02/02(火) 20:44:18.05

VBAで何か生活の役にたつアイデアある？
家計簿しかり、体脂肪計しかり。他には？

2021/02/02(火) 20:55:15.73

アンケートならもっと人のいるところでやりましょう

2021/02/02(火) 21:54:41.99

扱いたいデータ次第でしょ
スマートメーターとか
デジタル温湿度計とか
インプットのデータが多様であればあるほど
得られる成果の種類も増えるというもの

2021/02/02(火) 22:01:58.54

素人質問
VBSで正規表現の(肯|否)定(先|後)読みが出来ないっぽいんだけど
気のせい？

2021/02/02(火) 22:07:07.66

VBAを生活に役立てるとかいう発想が的外れすぎる
Officeでやりたいことを実現する為のものってことすら理解してない

2021/02/02(火) 22:11:21.43

そんなの正規表現じゃないからできないよ
もちろん一番肝心なVBAにとってのね

2021/02/02(火) 22:11:57.41

>>524
いまいち理屈になってないな

2021/02/02(火) 22:26:20.10

俺はVBAで彼女できたし宝くじも当たった
死んだばあちゃんまで生き返って超ハッピーだわ

2021/02/02(火) 22:27:38.52

で、オフィス365で結婚できたんだろ？ｗ

2021/02/02(火) 22:46:41.30

競馬当てるアプリ作れないかなあ

2021/02/02(火) 22:59:13.66

まず、「当てるアルゴリズム」を考えなきゃだなｗ

2021/02/02(火) 23:44:33.28

ExcelVbaでコロナ撲滅できないかなあ

2021/02/03(水) 00:08:17.17

感染者の数字をいじればあら不思議

2021/02/03(水) 00:13:00.26

>>532
最近、感染者数を少なく発表して緊急事態事態宣言の効果だと思わせてるように感じるわ
でもそれで皆が緊張感を持てば本当に少なくなるわ

2021/02/03(水) 00:22:42.50

数字の操作ってゆうか

2021/02/03(水) 00:25:44.87

>>525
意味がわかりません

2021/02/03(水) 09:12:57.83

>>532
なんだEXCELのおかげで減ったのかｗ

2021/02/03(水) 15:27:10.82

感染者数、重症者数、検査数の計算に100パーセントExcel使ってるだろう

2021/02/03(水) 15:33:21.67

公務員はエクセル使えるほど有能じゃないよ

2021/02/03(水) 15:43:30.53

じゃどうやって計算するんだ

2021/02/03(水) 15:43:54.79

電卓

2021/02/03(水) 15:47:57.83

役所の資料落としたら実数入ってることあったけど
関数での計算結果を貼り付けた訳じゃなかったのか
まぁ役所なら只管電卓叩くのはありそうだけど

2021/02/03(水) 15:48:46.57

公務員は電卓使えるほど有能じゃないよ

2021/02/03(水) 17:11:17.18

計算できるとこに丸投げ

2021/02/03(水) 19:08:06.27

>>539
算盤

2021/02/03(水) 20:08:10.32

国家公務員ですがVBAとADO(＋SQL)でAccessや業務システムからデータ引っこ抜いて統計資料作ったりしてます
前任者は紙に印刷して正の字書いたり交通調査で使うカウンターみたいので数えてました
他にも色々業務楽にしましたが報告すると人が減らされるので、
隠しておいて余った時間に資格試験の勉強とかしてます

2021/02/03(水) 20:31:35.92

手作業が当たり前の公務員の職場環境で
マクロ使うとめっちゃ時間余るわな

2021/02/03(水) 20:32:39.17

結局>>545もやってる仕事は
効率化なぞしてない無能公務員のままってことなんだから

2021/02/03(水) 21:04:10.99

VBAによる小手先の自動化により無駄な業務の整理や業務フローの見直し、システム改善などの本質的な業務改善のモチベーションが失われ、
結果的に業務効率を下げているというのはVBAあるある

2021/02/03(水) 21:24:07.09

dictionaryに一括代入ってできますか？

2021/02/03(水) 21:29:55.02

>>541
只管とかよくすらっと出てくるね。

2021/02/03(水) 21:31:21.01

>>545
待てこら、それ税金…

2021/02/03(水) 23:26:22.08

>>545
周りのひとはvbaやマクロの存在を知らない
業務ではほぼエクセルを使用
そんな企業に転職したい

2021/02/03(水) 23:34:48.39

一般事務になるね
マクロできて当然の職場よりは時給下がると思う

2021/02/03(水) 23:54:01.09

結局そういうアナログな企業は、効率化か進まないしそんな脳みそじゃ事業の収益性も低い。よって給料も少ない。

2021/02/04(木) 00:29:12.39

そりゃそうだ
VBA出来て作業効率高い方が給料も高いわな
ただ単純に考えればVBAを
生業にしている奴より
VBAを補佐的に使って実際にはJavaや
C++、C#、Ruby等で大きなシステムを
作れる奴の方が給料は高い
下を見てもきりがないが
上を見てもきりがないのだよ

2021/02/04(木) 05:41:02.93

>>547
抜本的な改革は現場じゃできないです
国家公務員なんで法律や規則、本省が定めた通達や事務連絡、業務システム等を使うことは義務付けられていて、
特段の定めのない部分を各自の裁量の範囲内で工夫するしかない
そしてその範疇ですらある程度の規模の改革をしようとすると根強いアナログ派に今の業務を変える必要がないと反対されます

2021/02/04(木) 08:45:54.79

>>556
全く
それで糞国家公務員の糞議員が
こんなこと言ってるんだから笑える

【科学】「技術先進国とは呼べなくなった日本…デジタル化は20年遅れ、未知数の研究への投資にも消極的」元内閣府副大臣が警鐘 ★6 [ボラえもん★]
https://asahi.5ch.net/test/read.cgi/newsplus/1612392403/

2021/02/04(木) 12:43:48.65

システムは作るのが目的ではなく、運用してなんぼ

2021/02/04(木) 16:00:33.10

政治家が無理矢理変えてあげないとダメなままってことだね。
しかもいい方向に変えようとすると文句を言うほどの無能の二乗。
政治家の改革に公務員は文句を言ってはならないという法律を作らないとな。

2021/02/04(木) 18:23:19.39

予算分捕るためのシステム構築だからいざ運用しようとすると結局人を介しての無駄な作業になってる

2021/02/04(木) 18:37:47.68

Open、put といったバイナリーファイル作成するコマンド類使ってファイル書き出したら、
破損しているとメッセージが出る。
それでも修復して開くと元ファイルと同じような感じなのですが、破損されないやり方ってありますか？ちなみにWordやエクセル形式でなってます。

2021/02/04(木) 19:17:39.93

民営化勧めた結果だろ
国が技術に直接投資できる機会が減っただけ

2021/02/04(木) 19:49:33.76

誰かVBAでココア作ってやれよ

2021/02/04(木) 19:53:24.63

VBAでモバイル向けアプリは不可能

2021/02/04(木) 20:04:35.91

スレチ

2021/02/04(木) 20:22:03.56

>>553
東証一部上場のnot ITな技術職だけど
周りびっくりするほどマクロ使える人居ないよ
スクリプトの存在知ってる人で10人に一人くらい
年齢層高くてWindowsupdateも怖いってな感じな
アナログ昭和な雰囲気が色濃く残る
でも儲かってんだからあんまり気にしないって感じでな

2021/02/04(木) 21:59:36.09

>>566
よその会社がどんなだろうとわしらに関係ないし

2021/02/05(金) 00:16:00.19

HashiCorp の時価総額は5,000億円、GitHub は8,000億円で、

Shopify は15兆円で、
Airbnb は10兆円で、米ホテル大手3社の合計を超える

Ruby on Rails だと、社員1,000人で、1兆円ぐらい行く。
他の言語の10倍ぐらい高い感じ

2021/02/05(金) 01:22:13.93

だからなに

2021/02/05(金) 11:14:22.52

何かいているんだろうね
誤爆かな

2021/02/05(金) 19:34:57.84

お前が死ぬ？
だからなに？

2021/02/06(土) 07:31:11.79

たらばがに？

2021/02/06(土) 10:04:32.10

タラバガニはカニとつくがヤドカリの仲間

2021/02/06(土) 10:30:51.90

前レスにあったVBAでChromeのWEB操作って安定するの？

2021/02/06(土) 10:31:59.83

今流行りのRPAってVBAのsendkeyみたいなもんなのかなー

2021/02/06(土) 16:20:00.03

>>575
全然違うw

VBAでも同じことが出来るがSendkeys使うのは、かなりレベルが低い。

普通はUIAutomationか古くからのウィンドウハンドルにコントロール毎の個別メッセージ投げる方法。

2021/02/06(土) 16:31:09.62

UIAutomationはじめてきいたよ
検索したら結構すごいな
ありがとうだよ

2021/02/06(土) 19:33:52.07

UIAutomation不安定で使いにくいよ

2021/02/06(土) 20:06:48.07

あ、そうなの
安定は何？

2021/02/06(土) 20:46:25.88

Hand

2021/02/06(土) 21:31:42.19

Hand?
検索しても出てこない

2021/02/06(土) 21:32:07.41

手作業って意味では？

2021/02/06(土) 21:37:41.59

えっ!(>@<)

2021/02/06(土) 21:43:24.63

>>578
自分の技術が未熟なだけだろ。

2021/02/08(月) 08:31:47.69

他の言語にはできてVBAにはできないことって何がある？

2021/02/08(月) 10:21:36.60

環境構築

**デフォルトの名無しさん** (JP 0H3b-JWMU) · 2021/02/08(月) 10:40:50.82

>>585
言語も色々あるから、VBA「だけ」にできないことってのは思いつかない
VBA「にも」できない、ならexe化とか色々あるけど

2021/02/08(月) 11:53:50.27

>>585
Object指向言語で言うところの継承。
VBAにもインターフェース継承と言うものはあるが、
あれはObject指向言語の委譲に当たるので別物。

2021/02/08(月) 12:19:06.34

>>585
エクセルを使わないで何かする

2021/02/08(月) 12:48:06.83

>>585
全く出来ないわけじゃ無いけど、実質無理なのはマルチスレッド。
マルチプロセスなら出来るけど。

2021/02/08(月) 18:11:48.67

ブックを閉じるときに、全部のシートでＡ４、Ａ６、Ａ１８、Ａ２０、Ａ２２のいずれかのセルに値が入っていたら、
シート名の先頭に"済"をつけて、シートを最後尾に移動するマクロを作りたいのですが、Worksheets(ws).Name = "済" & Worksheets(ws).Nameの所で
「実行時エラー１３・型が一致しません」になります

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
ws.Activate
If ws.Cells(4, 1) Like "" And _
ws.Cells(6, 1) Like "" And _
ws.Cells(18, 1) Like "" And _
ws.Cells(20, 1) Like "" And _
ws.Cells(30, 1) Like "" Then
Else
Worksheets(ws).Name = "済" & Worksheets(ws).Name
ws.Move After:=Sheets(Sheets.Count)
End If
Next ws

Application.Quit
ThisWorkbook.Close savechanges:=True

End Sub

2021/02/08(月) 18:14:26.48

そりゃ一致しないｗ
Worksheets(ws).Nameじゃなくて、ws.nameでいけるよ

**591** (ﾜｯﾁｮｲ f7cc-6qHG) · 2021/02/08(月) 18:18:43.05

>>592
ありがとうございますm(_ _)m

2021/02/08(月) 20:35:33.37

wsに何を入れてるか自分でわかってないのでは

2021/02/08(月) 22:23:33.63

>>594
エラーになってる行以外は正しいからちょっとした勘違いじゃね？
それよりFor Each ... In WorkSheets のループ中にシートの移動とかして大丈夫なんだっけ？

2021/02/08(月) 22:58:25.06

Like ""じゃなくて.Value <> ""にしてElse消した方が分かりやすいとは思う
まあその辺は好みか

2021/02/08(月) 23:02:43.36

>>596
> Like ""じゃなくて.Value <> ""にしてElse消した方が
And を Or にするのを忘れてるぞ…

2021/02/08(月) 23:11:37.90

そんな揚げ足取らんでも

**デフォルトの名無しさん** (JP 0H3b-JWMU) · 2021/02/08(月) 23:37:22.94

可読性無視

For Each ws In Worksheets
　with ws
　　.Activate
　　If .Cells(4, 1) & .Cells(6, 1) & .Cells(18, 1) & .Cells(20, 1) & .Cells(30, 1) <> "" then
　　　.Name = "済" & .Name
　　　.Move After:=Sheets(Sheets.Count)
　　End If
　End with
Next

2021/02/08(月) 23:44:11.84

最近はexcel vbaを淘汰しようとkintoneとかゆうのが台頭してきたな

2021/02/09(火) 00:16:34.90

>>600
大体今までの経験則から言うと
ノンプログラミングというのは
ろくなことがない。

無理に纏めようとして
歪みが生じて
結局ぐちゃぐちゃになるのがオチ

2021/02/09(火) 00:29:46.89

>>600
結局、スクリプトとかが必要になる

2021/02/09(火) 00:46:13.94

Select文で求めない条件を並べるのもおすすめ

Select Case Empty
Case ws.Cells(4, 1).Value
....
Case ws.Cells(30, 1).Value
Case Else
Worksheets(ws).Name = "済" & Worksheets(ws).Name
End Select

Case節で分けなくてもカンマで条件を繋げても問題ない
短絡評価にもなる

2021/02/09(火) 11:57:03.39

sagasu＝ Dir(ThisWorkbook.Path ＆ ”作業ファイル*20210209*”)

Worksbooks.Open(以下略)

みたいな感じで自動でファイルを探してきて開くマクロを作りたいのですが、20210209の部分が常に変わるので、
変数＝hizuke(yymmdd、str)を定義したのでこれをDir関数にワイルドカードつきで組み込みたいのですができませんか？
初歩的かもしれませんが検索しても見つからなくて、、、

**デフォルトの名無しさん** (JP 0H3b-JWMU) · 2021/02/09(火) 12:24:40.43

>>604
sagasu= Dir(ThisWorkbook.Path & "作業ファイル*" & 変数 & "*")

あと、hizukeって関数は自作しなくてもFormatというのがある

2021/02/09(火) 16:16:16.99

>>605
やってみたらできた
ありがとうございます！！

2021/02/09(火) 17:23:48.59

いつものあれか

2021/02/10(水) 01:23:44.62

足し算のできないいつもの人か

2021/02/10(水) 21:21:46.44

良かったよ
プロだらけだったらヤバいスレになるw
趣味と後学のために少しずつやっていたら好きになってきた。
仕事で使う機会あまりないわ

2021/02/12(金) 13:51:51.87

しじいの言う「後学」という単語に哀愁を感じる

2021/02/12(金) 15:55:10.24

Excelの新機能「Lambda関数」によって「Excelの数式がチューリング完全になった」とナデラCEO。プログラミング言語としてのExcel数式であらゆる計算が可能に
https://www.publickey1.jp/blog/21/excellambdaexcelceoexcel.html

2021/02/12(金) 16:16:26.53

チューリングウイルスに期待

2021/02/12(金) 17:41:16.52

マクロを10個くらいリボンに登録したらVBEがアドインだらけになってワロタ
どうやらxmlを作って一つのアドインとしてまとめて登録するのがセオリーみたいだな

2021/02/12(金) 20:11:52.96

>>611
ええええええええええええええええええええええええ

ちょっと驚愕のニュースだ

2021/02/12(金) 20:13:11.50

つまりもうマクロを四苦八苦して作る必要はないんだな！？

2021/02/12(金) 20:18:24.17

Ｅｘｃｅｌだ
Ｅｘｃｅｌの時代が来る

2021/02/12(金) 20:22:55.94

重さが気になる
便利だけど重くて出来るだけ避けるような関数にならないか

2021/02/12(金) 20:59:52.79

>>611
よくわからんけどVBA使わなくてもユーザー定義関数が書けるようになったのか？
でもそれだけじゃチューリング完全じゃないよね？
誰が説明してくれ…

2021/02/12(金) 21:35:08.47

よくわからんがVBA使わないでってことなら
https://papasensei365.com/excel-game-dq3/