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/01/31(日) 12:51:12.93

FileSystemObjectのOpenTextFileで開いたファイルのポインタを最初の行に戻す方法ってありますか？
ADOのMoveFirstメソッドみたいな感じの。

2021/01/31(日) 13:05:56.87

Windows版Excel(もちろん英語版)が最初に発売されたのは一応昭和時代の終わり頃だよ
日本で使ってた人はほぼいなかったと思うけど

使い物になる日本語版が登場したのは平成5年の秋

2021/01/31(日) 14:29:00.06

Excel 95か97は持ってたはずだが…どこいったかな
Excel2000は現役？で使ってたりするｗ
現代のPCで動かすと爆速だから

2021/01/31(日) 15:54:08.87

2000て今のパソコンで動くのか知らんかった
サンクス！

2021/01/31(日) 15:56:11.00

3.1も動くんじゃね？

**デフォルトの名無しさん** (JP 0Hc9-6WVI) · 2021/01/31(日) 16:01:12.88

Excel2000とWindows2000を勘違い

2021/01/31(日) 19:37:03.65

>>435
色んな言語やって適材適所。
VBAの場合、特殊な環境なのでVBAが有利だけど出来ないことも結構ある。

2021/01/31(日) 19:38:49.07

>>451
足らないなら作れば良いってのもある。
バイナリエディタぐらいなら2時間もあれば作れるだろ。

2021/01/31(日) 19:41:00.82

足らないなら
足りないなら

2021/01/31(日) 19:42:32.36

>>461
問題はさ、結局VBAから呼び出す形じゃピタゴラスイッチみたいになるし、外部からExcel操作するようなのは、元々VBAでやる必要のない処理なので競合にならないということ。

2021/01/31(日) 20:16:56.70

ワード97のイースターエッグでピンボールが遊べた重いで
エクセルは迷路だっけか

2021/01/31(日) 21:05:00.18

冴子先生

**デフォルトの名無しさん** (JP 0Hc9-6WVI) · 2021/01/31(日) 21:39:17.09

カイル

2021/02/01(月) 10:35:57.85

64bit対応をしてるんですが、素人なのでポインタ/ハンドルとそれ以外の区別が難しいです
GetInputStateはlongptrではなくlongで良い（実際どちらでも動くことは動きました）と思うのですが、合ってるでしょうか？

Private Declare PtrSafe Function GetInputState Lib “USER32” () As Long

（そもそも、パラメータや引数がないのに、何故型宣言が必要なのかからしてよく分からないのですが…）

2021/02/01(月) 13:32:29.40

https://docs.microsoft.com/ja-jp/windows/win32/api/winuser/nf-winuser-getinputstate

検索しろよ
BOOLだからLONGでいいんじゃねえの？

2021/02/01(月) 15:05:09.75

>>491
そんなことがわからない馬鹿はAPI使うなよ

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不安定で使いにくいよ