Excel VBA 質問スレ Part77

**デフォルトの名無しさん** (TW 0H42-j7SA) · 2022/07/17(日) 07:07:35.59

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

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

次スレは>>980が立てること
無理なら細かく安価指定

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

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

2022/09/11(日) 01:53:10.28

>>559
説明はちゃんと読もう
vbaはかなりゆるゆる言語なので、なるべくvbaにあわせたコードにしたほうがいい
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/put-statement

＞書き込まれる変数が数値型の Variant である場合は、Put により、Variant の VarType を識別する 2 バイトが書き込まれた後に、変数が書き込まれます。
こんなもん追いかけてられんよ
ステートメントは極力使わず、関数にした方がいいと思う

もう少し言うと、実現したい事を直接聞いた方がいい。
vbaでバイナリとかめんどくさすぎて誰もやってないので、
できるかどうかなんてあんまりみんな分かってない

>>561
してもあんま意味ないだろ

2022/09/11(日) 02:05:46.07

>>563
Len = 1 にしても無駄
あと、EachはVariantしか使えない

>>564
ところがバイナリダンプしてみると1文字あたり2バイトしか書き込まれてないんだよな
その説明の通りだと3バイトずつ書き込まれるはずなのに

2022/09/11(日) 02:07:03.03

>>564
今回はもう結果が出ているけれど、入出力を行ったら確認しないのか？
出力結果から意図するものとどう異なるかによって予測できる場合もあるだろ

**559** (ﾜｯﾁｮｲ 5d10-V+uT) · 2022/09/11(日) 02:11:34.10

>>564
正直説明一々読むの大変なのでここで聞いてそのあたりをつけようと思ってます。

>ステートメントは極力使わず、関数にした方がいいと思う
ちょっとここがよくわからないんですがどういうことですか。

>もう少し言うと、実現したい事を直接聞いた方がいい。
vbaの練習のためにとりあえずbase64エンコーディングを実装しようとしてました。
エンコーディングはできました。デコードでつまづいて格闘してましたが、デコードもとりあえずできました。
つぎは、bmpファイルを読み込んで1x1pixcelに縦横絞ったセルのシートに画像表示させるとか
やろうと思ってます。

2022/09/11(日) 02:12:49.77

>>565
3バイトずつだぞ
https://i.imgur.com/Um3HyuV.png

2022/09/11(日) 02:19:41.47

>>567
結局やりたいことはライフゲームとか、画像処理だろう
vbaは、事務処理特化なんだ。本当にやめたほうがいい。

vbaでクリエイティブな事をやろうとすると、めちゃくちゃ遅い
入出力用のセルがすごく見やすいのはわかるんだけど、別言語でやったほうがいい
具体的に言うとC#かvb.netがいい。
jsならそのままアプリにも移行できる

**559** (ﾜｯﾁｮｲ 5d10-V+uT) · 2022/09/11(日) 02:24:11.91

とりあえず入門したいんで、アルゴリズムわかるやつ実装してるだけなんであんま考えてない。
最終的には機械学習実装できりゃいいなと思ってるんで、bitmap表示実装できたら
vbaでそこまでやるレベルになるかなと。

2022/09/11(日) 02:44:48.34

vbaの使い方間違ってますよ

2022/09/11(日) 11:47:30.27

他人が何をやろうと勝手なんだから質問にこたえないなら放置すればいいと思うけど
説教野郎って減らないよね

2022/09/11(日) 13:01:03.57

>>567

>正直説明一々読むの大変なのでここで聞いてそのあたりをつけようと思ってます

死ね

2022/09/11(日) 13:48:26.08

いや、普通に頭くるだろ？
ダメダメな使い方してると

2022/09/11(日) 17:18:35.58

>>569
ライフゲームってなんなのかグーグルで検索したら
結果ページ上で勝手にライフゲームが始まってたわ
さすがグーグル

2022/09/11(日) 18:42:32.58

>>575
気づいたときにはライフがゲームオーバーになってるよ

2022/09/11(日) 20:43:41.22

本当だ
ブラウザの背景でライフゲームが動いてるw
無駄な機能多すぎるだろGoogle

2022/09/11(日) 22:06:38.09

ttps://excel-ubara.com/excelvba5/EXCELVBA228.html
エクセルの神髄さんのところにあるクイックソートの引数について質問です
lngMinとlngMaxを必ず指定しないといけないようなのですが、
どんな数字を入れればいいのですか？

　vBase = argAry(Int((lngMin + lngMax) / 2))
こうなっていて、argAryインデックスの2倍を超える数値は入れられないようです。
インデックスとしての真ん中であるなら関数側でuboundとかlboundとかから計算すればいいように思いました。

バブルソートやインサートソートと違ってイマイチやってる事がわからないので、
lngMinとlngMaxの引数にいれるべき数値がわかる方おられましたら教えてください。

2022/09/11(日) 22:37:51.72

>>578
配列のうちでどこをソートするか指定できるようになってるんじゃないですかね

2022/09/11(日) 22:42:49.09

>>578
ソートしたいレンジの最初と最後のインデックス
クイックソートは最初にピボットを決めてそれより小さいものをピボットより前に、大きいものをピボットの後ろに移動して、ピボットの前の区間と後ろの区間をそれぞれクイックソートする方法を繰り返す

ピボットの決め方は色々あるけど、その人は配列の真ん中のオブジェクトを選んでるだけ。ランダムに選ぶと平均的には最も良い結果が得られるけど、もうひと手間かかる

2022/09/12(月) 01:30:49.61

ユーザーフォーム内のコマンドボタンではfunctionの呼び出しはできない仕様でしょうか？
似たようなコードのボタンがあり、特定ブックを取得するための同じコードを全部のボタンに書いています
ごちゃごちゃしてしまっているのできれいにしたかったのですが、functionが呼び出せず変数が空でエラーになってしまいます

2022/09/12(月) 07:39:53.33

>>581
呼び出し出来るよ。そのエラーになったコードをここに書いてもらえれば原因がわかるかと。

2022/09/12(月) 11:53:11.04

sub から呼ぶとか

**578** (ﾜｯﾁｮｲ 5e66-Ba9i) · 2022/09/13(火) 09:42:49.11

>>579
やってみたら確かに！驚きです。
>>580
クイックソートって発明品みたいなものですよね。
人間が手動で並べ替えても慣れる程にクイックソートみたいなやり方が高速になっていくんですかね。

皆さんありがとうございました。

2022/09/13(火) 10:05:15.02

いえいえ

2022/09/13(火) 23:06:23.52

>>582
フォームが３階層くらいありますが

１．モジュールからフォームの呼び出し
Sub commentForm()

rowBtn = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
colBtn = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column

大分類.Show vbModeless

End Sub

2022/09/13(火) 23:09:43.50

すみません、1つ目フォーム呼び出しのモジュール内に以下のコードがあります
Public ShIndex As String

2階層目で3つの大分類の選択

２．分類選択
Private Sub CommandButton1_Click()

'コマンドボタンのタイトル反映 ※エクセルのセルを反映させています。
中分類.CommandButton1.Caption = Worksheets("2-1").Range("C1").Text
中分類.CommandButton2.Caption = Worksheets("2-2").Range("C1").Text
中分類.CommandButton3.Caption = Worksheets("2-3").Range("C1").Text
中分類.CommandButton4.Caption = Worksheets("2-4").Range("C1").Text
中分類.CommandButton5.Caption = Worksheets("2-5").Range("C1").Text

中分類.Show vbModeless

End Sub

2022/09/13(火) 23:11:31.11

３．さらに次の分類へ

Private Sub CommandButton1_Click()

ShIndex = "2-1"

'コマンドボタンのタイトル反映 ※エクセルのセルを反映させています。

中分類1.Caption = Worksheets(ShIndex).Range("C3").Value
中分類1.CommandButton1.Caption = Worksheets(ShIndex).Range("D3").Value
中分類1.CommandButton2.Caption = Worksheets(ShIndex).Range("D7").Value
中分類1.CommandButton3.Caption = Worksheets(ShIndex).Range("D11").Value
中分類1.CommandButton4.Caption = Worksheets(ShIndex).Range("D15").Value

中分類1.Show vbModeless
End Sub

2022/09/13(火) 23:36:32.69

４，最終の選択ボタン
コメントアウトの範囲内をfunction（wbSerch）として、値を返して変数を使用したいです
Private Sub CommandButton1_Click()
Dim wbRepName As String
'##########　ここから　##########
Dim i As Long
Dim wb As Workbook
Dim wbFullPath As String
For i = 1 To Workbooks.Count
Set wb = Workbooks(i)
If wb.FullName Like "*検索ワード*" Then ' * *に挟まれた文字を含むブックを検索する
wbFullPath = wb.FullName
Exit For
End If
Next
Dim pos As Long
pos = InStrRev(wbFullPath, "\")
If (pos > 0) Then
wbRepName = Right(wbFullPath, Len(wbFullPath) - pos)
End If
'##########　ここまで　##########
Dim rowRep As Long
rowRep = Worksheets("シート名").Cells(rowButton, "Q").Value
Dim num As Long
num = 1
If Workbooks(wbRepName).ActiveSheet.Cells(rowRep + 1, "H") = "" Then
Workbooks(wbRepName).ActiveSheet.Range(Workbooks(wbRepName).ActiveSheet.Cells(rowRep + 1, "H"), Workbooks(wbRepName).ActiveSheet.Cells(rowRep + 2, "H")) = _
Worksheets(ShIndex).Range(Worksheets(ShIndex).Cells(3 + (num - 1) * 4, "E"), Worksheets(ShIndex).Cells(3 + (num - 1) * 4 + 1, "E")).Value
End If
Workbooks(wbRepName).ActiveSheet.Range(Workbooks(wbRepName).ActiveSheet.Cells(rowRep + 4, "H"), Workbooks(wbRepName).ActiveSheet.Cells(rowRep + 7, "H")) = _
Worksheets(ShIndex).Range(Worksheets(ShIndex).Cells(3 + (num - 1) * 4, "F"), Worksheets(ShIndex).Cells(3 + (num - 1) * 4 + 3, "F")).Value
End Sub

2022/09/13(火) 23:37:53.43

コードをアップする際に一部書き換えで変数が微妙に違うのは許してくださいｗ

2022/09/14(水) 01:24:17.40

>>589
大量のコード張るなら、どっかコード張るサイトあるからそこ使ってくれ

>コメントアウトの範囲内をfunction（wbSerch）として、値を返して変数を使用したいです
やれば良いとしか
自分でやって動かなかったっていうコード出せよ
エラーが出たならエラー内容も

Functionが呼び出されないんじゃなくて、呼び出したけど値を返してないか
返された値をちゃんと受け取ってないんじゃないかと予想したがな

2022/09/14(水) 05:04:23.30

>>589
色々気になるところばかりですが、Functionだけについていうと

Public Function プロシージャ名() As String
'処理
プロシージャ名 = ファンクション内で作成した文字列
End Function

という感じで作って、呼び出す側は下記で

wbRepName = ファンクション名

2022/09/14(水) 08:09:29.31

>>592
ありがとうございます
やっぱりそれでいいんですよね
とりあえず動かないのは困るので、関数を呼び出すコードは削除してしまったのでまたやり直してみます

適当にネットで検索して継ぎはぎしているのですが、これはやめた方がいいみたいなところがあれば教えていただけると

2022/09/14(水) 08:09:41.99

>>592
ありがとうございます
やっぱりそれでいいんですよね
とりあえず動かないのは困るので、関数を呼び出すコードは削除してしまったのでまたやり直してみます

適当にネットで検索して継ぎはぎしているのですが、これはやめた方がいいみたいなところがあれば教えていただけると

2022/09/14(水) 10:47:45.73

>>594
ネットで継ぎはぎはやめたほうがいい

2022/09/14(水) 14:30:03.63

継ぎはぎっていちばんやってはダメな事でしょ
不具合でたら修正困難

2022/09/14(水) 14:39:07.90

>>594
お前みたいな奴がVBAを使うのはやめた方がいい

2022/09/14(水) 14:44:22.14

それな

2022/09/14(水) 15:01:12.80

ネットの情報をうのみにするのはよくない

2022/09/14(水) 15:23:36.39

特にここの奴らの言うことなど……

2022/09/14(水) 16:32:30.56

このスレも含めてネットをなんでもかんでも鵜呑みにしないように。

2022/09/14(水) 20:19:10.06

むしろガンガンコードのコピーでも継ぎはぎだらけでも何でもやれ
それで痛い目を見れば二度とやらなくなるだろう
ただし、他の人に迷惑を掛けない範囲でな

2022/09/14(水) 20:25:13.51

継ぎ接ぎでもなんでも動きゃいいよVBAなんて

2022/09/14(水) 22:09:32.51

どんなにひどいコードを書こうが仕事は結果がすべて
過程を見て部分点がもらえるのは高校まで

2022/09/14(水) 23:32:37.08

ひどいコード書いて、エクセルに殴られたら嫌だなあ

2022/09/15(木) 02:24:16.54

>>604
馬鹿はメンテナンスのことを考えない
こういう馬鹿がいるからVBAが禁止の会社が出てくる

2022/09/15(木) 07:02:34.29

と、馬鹿が申しております。

2022/09/15(木) 07:47:29.25

VBA禁止はメンテがどうのこうのじゃなくて
スキルが低い人間が酷い結果をもたらすコードを書いてしまうからじゃね
下手に書くと他人の労働の成果が一瞬にして無に帰すからね

2022/09/15(木) 08:13:47.40

そもそもエクセル側でVBA使ってごちゃごちゃやる職場がセンス無い

エンジニアが管理画面を作ってVBAでやってた処理をそっちでやって、事務系の人は管理画面からcsvを落としてそれをまんま使うぐらいが良い

2022/09/15(木) 08:15:36.60

ほいきたばーかばーか

2022/09/15(木) 08:16:33.94

CSVって発想がだめだね
プロは引用符も不要になるTSVを使う
うんこ

2022/09/15(木) 08:20:49.72

いや事務員にはcsvがちょうどいいよ
tsv開けませ～んとか言われるだけ
もっと目線を合わせろ技術キモオタ

2022/09/15(木) 10:16:19.88

TSVはメモ帳で開いて全選択のコピペでシートに貼り付けできるんだよ
見事に馬鹿が露呈したな

2022/09/15(木) 11:34:27.47

いやいや
そこは用途に合わせようよ
PDFやEXCEL出力した場合が良い場合もあるよ

2022/09/15(木) 14:52:36.98

なんで事務員がエラーの対処法を知らないんだよ。。
毎日いじってるから一通りの対応はできるだろ？

2022/09/15(木) 16:19:16.15

エラーの対処法「システム部にお問合せ下さい。」

2022/09/15(木) 19:11:05.38

そんなのExcelできる事務員じゃないわ！

2022/09/15(木) 19:27:19.21

最低限のことしかできないって人結構いるけどな

2022/09/15(木) 19:44:47.37

ボタン押してるだけの事務いるいる。

2022/09/15(木) 20:05:30.90

ボタンの押し方で仕上がりが変わる。
優秀な事務員はボタンの押し方が素晴らしい。
日本の技術は世界一。

**デフォルトの名無しさん** (US 0H1d-wT9X) · 2022/09/15(木) 20:17:03.66

>>608
いいえ、コードは汚いしドキュメントを残さないので、便利であってもレガシーとなってしまうからですよ

2022/09/15(木) 22:23:17.31

事務員＝Excelを極めている

2022/09/15(木) 22:31:56.27

VBA のファイル・テキスト処理などは、Ruby に比べて、圧倒的に可読性が悪い。
作った瞬間から、修正できない産業廃棄物となるw

だから、常に廃棄して新規開発しているw

2022/09/16(金) 00:12:03.43

VBAで複雑なものを作ろうという思考がおかしい
適当に組んで動きゃいい程度のスクリプトだろ

2022/09/16(金) 00:37:32.30

VBAに飽きたらVBSがいいよ
VBAの枷から開放される

2022/09/16(金) 00:40:41.66

>>621
いいえ、レガシーとなることの問題は認めるけど、それは禁止になる理由とはならないわ

2022/09/16(金) 02:37:02.68

他人がどんなに良いコードを書いてあろうが、容赦無く切り捨ててイチから書き直すのがプログラマーだと聞いたからよ

2022/09/16(金) 04:32:30.78

>>627
他人から聞いたことを鵜呑みにする馬鹿

2022/09/16(金) 09:26:48.43

そもそもなんだけど
どんなPG言語使ったって綺麗に書く人は綺麗に書くし
ぐちゃぐちゃにする人はぐちゃぐちゃにする

2022/09/16(金) 11:41:36.71

だからほっとけばいい
自分の担当部分だけ直す

2022/09/16(金) 13:52:21.47

自分の書くコードと自分に影響する人が書くだけ気にすればいいのに
無関係の人が書くコードなんてきたなかろうがどうでもいいのにな

2022/09/16(金) 20:53:11.37

>>627
プログラマーはプログラムを書く人だし、設計すればエンジニアだし、営業や事務処理をすることもあるよ
会社員ならわかると思うが他人のコードは他人の給料、自分のコードは自分の給料になるってわかるよね？

2022/09/17(土) 00:16:02.34

ならねぇよ。
コード書くだけで給料貰えるとかいつの時代だよ？

2022/09/17(土) 02:03:15.93

下請けの下請けのそのまた下請けの派遣だろ

2022/09/17(土) 14:40:46.13

書けないでコピペするやつのひがみw

2022/09/17(土) 16:20:56.81

コピペばかりのヤツってある意味恥ずかしく無いのかや？
知識ありませーん！
あるのはコピペのスキルだけです！
と、言っているようなモノだぜ。

2022/09/17(土) 18:06:13.42

コピペを極めるとオブジェクト指向になるのかもしれんな

2022/09/17(土) 20:26:19.25

オブジェクト指向って奥深いな

2022/09/17(土) 20:30:59.86

コードのコピーじゃなくアプリをコピーして販売したら違法だからな

2022/09/17(土) 20:39:13.29

でも現実はコピペ野良マクロ職人が各職場に溢れているんでしょ？

2022/09/17(土) 21:30:27.81

何もかもは覚えられんからそりゃみんな多少はコピペするでしょな。
問題はちゃんと意味わかって使いこなして、修正や変更の対処ができるかどうか。

2022/09/17(土) 21:33:47.44

アマチュアはコピペと卑下するけど
プロは既存コードの利用と言って車輪の再発見で悦んでいる給料泥棒はクビにする

って誰かが言ってた

2022/09/17(土) 23:02:08.58

>>642
参考にするのとコピペは違う
お前、>>627の馬鹿だろ

2022/09/17(土) 23:46:26.93

>>643
そうやってすぐ他人と同一人物と決めつけるヤツの方が余程バカだと思うけどな。
あ、思い込み癖のある病気かゴメンゴメン。

2022/09/18(日) 05:37:23.90

とあるアルゴリズムはコピペして使ったな

2022/09/18(日) 06:53:23.17

アルゴリズムは脳内コピペで使ってる
でないと例えばクイックソートなんて一生思いつかんし

2022/09/18(日) 08:41:21.39

参考という意味でならコピペすることはあるね。
訳も分からずただ貼り付けて使うのは論外だと思うけど。

2022/09/18(日) 10:16:08.09

gitやらスニペットやらの今時機能たちを使う試みはよく見ますが
皆さんはどうされていますか

2022/09/18(日) 10:25:50.10

>>648
VBAの使用を必要最小限に留める

2022/09/18(日) 11:33:12.72

回答の出なくていい話題ばかりでレスが増えてうんざりだな

2022/09/18(日) 13:38:06.64

VBAはオワコン
excelもオワプリ

2022/09/18(日) 13:39:06.35

>>650
そして一番の問題はそれなのにお前が来て文句を書きなぐることか

2022/09/18(日) 15:31:19.98

>>651
代替ソフトは？

2022/09/18(日) 16:13:20.55

VBAと他言語できる人にしつもん
今までVBAしか知らなくていま他言語勉強してます
VBAだったらエクセルのシートに書いとけば良かったデータとか
一体どこに書いとけばいいのかしら
プログラム内の配列とかじゃ電源切ったら消えちゃうでしょう
やっぱデータベースソフトとか別にいるの？
言語はPythonとC
記録したいのは株価の過去データとかです

**654** (ﾜｯﾁｮｲ 1f32-TDLd) · 2022/09/18(日) 16:25:19.20

ちなみにSQLとかあるのは知ってますが
数千行程度のデータでもそんなの使わなくちゃいけないのでしょうか
また別に勉強しなくちゃなんないし、面倒くさい
もっと楽な方法ないもんかと（´・ω・｀）

2022/09/18(日) 16:34:05.92

データベースの導入が敷居が高く億劫と思うのならば
Pythonから慣れているexcelファイルを操作すればよい
そしてプログラムを組んでいるうちにいろいろ面倒で非効率である感じ
データベースの素晴らしさに気づいたときにデータベースを始めればよい

確かにpythonとデータベースを同時に学習するのは大変だよね

2022/09/18(日) 16:45:16.35

>>655
> もっと楽な方法ないもんかと（´・ω・｀）
はい、解散！

2022/09/18(日) 16:46:45.71

>>654
VBAで作ったのをGoogleスプレッドシートに移行しつつある。
シートを複数人で同時参照できるとかメリットも多い。

2022/09/18(日) 16:47:16.95

csv,tsv,xml,データベースとか色々あるだろ
そういうのが難しいと思うならやめとけ

2022/09/18(日) 17:54:45.16

>>654
Python のオブジェクトとしてデータがもう手元にあるなら pickle でそのままディスクに残せる。もしくは csv か json に出力するか
データベースでもsqliteならサーバー立てる必要もない

2022/09/18(日) 17:57:42.22

>>651
そう
そしてお前らもここも終わり

～終了～

2022/09/18(日) 18:49:48.79

>>654
「とか」に何が含まれるかしらんけどその程度のデータならDBなんて使わなくても
今まで通りExcelブックでもいいし、テキストファイルでもなんでもいいのでは
今時の言語（ツール）ならそれぞれのデータにアクセスするライブラリもあるから
質問にある内容だけなら言語なんてなに使っても問題ない

>>655
自分ができる中で楽な方法を探すならまだしもできないことだらけで楽な方法なんてないんじゃない
お金があるなら外注で作ってもらえば楽かもね
世間にあるIT企業はそういうもんだし

2022/09/18(日) 19:07:54.85

世の中は金あるヤツが強い