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/01(月) 16:35:31.74

ど素人の質問で大変申し訳ないのだけど、教えていただけないでしょうか。

Sub test()
Dim s As Worksheet

Set s = Worksheets.Add

Debug.Print "ActiveSheet.CodeName : " & ActiveSheet.CodeName
Debug.Print "s : " & s.CodeName
End Sub

というコードで、ワークシートを1枚追加してそのワークシートのコード名を取得しようとしたところ、
VBEを開いているときは問題なくコード名を取得できるのですが、
VBEを開かずに開発タブからマクロを実行させると、ActiveSheet.CodeName も s もブランクとなり、コード名を取得できません。
（VBEを開いた状態であれば、開発タブから実行させても取得できる）

何か追加で設定しなければならないことなどあるのでしょうか？

Excelのバージョンは 2019MSO（16.0.13530.20418）32ビット　です。

2021/02/01(月) 17:21:35.68

Debug.PrintじゃなくMsgBoxにしても無理？

2021/02/01(月) 17:26:28.07

>>495
MsgBoxにしてみましたが、変わらずブランクのままでした…

2021/02/01(月) 17:33:05.91

CodeNameプロパティは
VBE閉じてると取得できないみたいね
https://social.msdn.microsoft.com/Forums/ja-JP/d8862af1-4790-44a8-a6b8-89fc9681f7af/excel-12398-codename?forum=officesupportteamja

2021/02/01(月) 17:40:51.41

>>492
>>493
ありがとうございました
他人のコードを意味も分からず流用してました
戻り値なんですね

**デフォルトの名無しさん** (JP 0H2e-7dbu) · 2021/02/01(月) 17:52:09.95

>>497
これまじかー
イベントを起動するシート判定に使おうと思ってたから痛いな
配布する前でよかったのが救いか

2021/02/01(月) 17:58:19.66

Nameは使える

2021/02/01(月) 18:31:44.12

>>497
ありがとうございます！
おかげさまで解決しました！
ものによってはVBE閉じていると取得できないということもあるんですね…勉強になりました…

**デフォルトの名無しさん** (JP 0H2e-7dbu) · 2021/02/01(月) 19:44:46.16

497は既存のオブジェクトは大丈夫みたいだな
良かった

2021/02/01(月) 23:01:45.15

VBAでIoT、たとえば防犯カメラを特定の時間稼働させることできる？

2021/02/01(月) 23:03:50.03

知らんけど何故VBAでやるの？

2021/02/01(月) 23:04:15.16

もしくはラズベリーパイ動かせたりする？

2021/02/01(月) 23:04:51.14

>>504
できるのかなと思て
ただの興味本位

2021/02/01(月) 23:11:41.22

できない

**デフォルトの名無しさん** (JP 0Hc9-6WVI) · 2021/02/02(火) 01:35:01.99

もちろんできるが

2021/02/02(火) 02:35:02.20

VBAなんか使わなくてもできるだろ

2021/02/02(火) 03:35:20.04

VBA以外のもんでも使ってりゃいいよね

2021/02/02(火) 05:46:24.43

こんなこともわからない馬鹿には無理

2021/02/02(火) 07:45:22.80

複数のユーザーフォームをボタンと紐付された関数ごと
別のフォームのマルチページの一つのページとして統合したいんだけど
どうやったらいい？

コントロールのコピーしたら関数まっさらになってしまう

2021/02/02(火) 08:44:36.43

コードもコピペしてオブジェクト名整えれば？

2021/02/02(火) 09:39:10.72

すまん
問題はオブジェクト名にあった

コントロールをコピーして貼り付けるとコピー元とは無関係に
左上から連番でオブジェクト名が新規に付けられてしまう
それで元のコードとの相関性がグチャグチャに

他のフォームからコピーするとオブジェクト名の重複が発生するから
しょうがないとは思うが…

複数フォームを一つのフォーム内ページで管理出来たらコンパクトでいいと思ったが甘かったか

2021/02/02(火) 09:52:43.44

ボタンのオブジェクト名をマクロで変更するにはどうしたらよいかわかる？

2021/02/02(火) 12:07:20.51

素人が作るからそいういう糞システムになる

2021/02/02(火) 13:21:01.13

え？
まさかみんなプロなのここ？？

2021/02/02(火) 13:30:17.30

仕事で使っちゃあいるが
ほぼ趣味だな
一度も仕事としてコーディングしたことはないな

2021/02/02(火) 14:20:46.66

言葉遊びどーでもいい

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