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/08(木) 06:11:23.79

誰が上級者と認定したん？
ここのカキコに資格試験なんかあるかいな・・・

回答が使えるかどうか、正しいかどうかが全てじゃ。

2022/09/08(木) 06:33:16.02

どこで宣言するか問題って、画面上部をスクロールせず固定出来るようになれば解決するんだろうな。
エクセルは出来るんだから、VBAの画面も出来るようにして欲しいものだ。

2022/09/08(木) 06:54:06.36

>>543
VBEは昔ながらのUIなので垂直スクロールバーの上部を下にドラッグすると同一オブジェクトコードの水平分割表示ができるけれど

2022/09/08(木) 08:07:26.88

>>541
分かり辛かったかな？
平たく言うと変数が何に使っているか分かり辛くなるような長いコードをひとつの関数やメソッドに書くなということ。

そもそもひとつの関数やメソッドにはひとつの役割だけ持たせるべきで、そうした場合、変数が何に使ってるか分からないくらい長くなること自体あまりないし、
それで長くなるようであればそもそもの作りがおかしいのでリファクタリングの対象とする、ってことなんだけどね。

2022/09/08(木) 09:21:51.81

VB/VBA/ExcelもAccessもOfficeごと窓からポイッ

2022/09/08(木) 10:06:01.26

>>545
> 平たく言うと変数が何に使っているか分かり辛くなるような長いコードをひとつの関数やメソッドに書くなということ。
それ変数の宣言位置とは違う話だろ
まあ先頭に変数宣言するメリットを説明できないならいいや、バイバイ

2022/09/08(木) 11:40:59.40

>>547
なんで？
どうせ同じ関数内で同じ名称の変数なんて作れないんだから
全部纏めて同じ位置にあった方が「この変数はこのシチュエーションのときにこう言った意味で使う」とか命名し易いじゃん。

使ってる変数名を再宣言しようとして「あ」となることもないし、
同じ変数をバカみたいに使い回して本当は値変えると不味かったのに変えちゃったりとかアホなことも減るよ。

2022/09/08(木) 11:47:17.27

ま、そもそもそんなこと気にするくらい長いコード書いちゃいけないんだけどね。
そちらのレベルに合わせて話してもそれだけのメリットはあるよ。

2022/09/08(木) 13:19:53.66

Wordがどうしようもなく使いにくいので、
Excel VBAで代わりのツールを作りたいと思います。
こんな考え方は邪道でしょうか?

2022/09/08(木) 13:50:27.43

WordVBAを何故つかわない？
マウロ記録がないOutlookVBAやPowerpointVBAなら一瞬気持ちがわかるが

2022/09/08(木) 14:17:07.18

loopのカウンタを使用後に消さないと
順番入れ替えたらバグるとか気にする初心者にはvba向いてないと思う

2022/09/08(木) 16:06:28.64

ワードにできることはエクセルでほぼ出来るからワードの使いかた忘れてしもた
しかし困ったことはない

2022/09/08(木) 17:02:48.44

>>548
> 全部纏めて同じ位置にあった方が「この変数はこのシチュエーションのときにこう言った意味で使う」とか命名し易いじゃん。
コボル臭が... w
まあ使ってる近くにあれば宣言なども簡単に確認できるメリットより命名のメリットを重視する人もいるんだね

> 使ってる変数名を再宣言しようとして「あ」となる
んだから
> 同じ変数をバカみたいに使い回して本当は値変えると不味かったのに変えちゃったりとかアホなことも減るよ。
なんてなるわけないと思うけど？

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-k3HK) · 2022/09/08(木) 19:47:18.35

Excel → Markdown → Word アウトライン変換のマクロを作れば大分マトモになる予感
Excelの列で見出しを識別する感じで

2022/09/10(土) 00:50:29.07

intersect( activecell.ListObject.HeaderRowRange,activecell.EntireColumn).Address

テーブル上にアクティブセルがあり、そのセルの列ラベルのアドレスを調べたく
こんなのを書いたのですが、もっと他にイケてる書き方はないでしょうか

2022/09/10(土) 10:48:25.59

activeCell.End(xlUp).Address は？
上に隣接する別のテーブルがないことが条件だけど

2022/09/10(土) 15:51:20.36

>>557
それだとテーブルが1行目開始でなくて
テーブルの項目名の部分にアクティブセルがあった場合は
テーブルから離れた位置にカーソルが行ってしまうな

2022/09/11(日) 01:14:19.08

バイナリデータの書き込みについて質問です。
hello という文字列をいったんバイナリにしてファイル書き込みするような
プログラムを書いているのですが、書き込みすると
h e l l o
というように変なゴミが入ってきます。
vbaではバイナリデータの書き込みは完全にはできないということなのでしょうか。

該当コード
https://ideone.com/MDI6yW

2022/09/11(日) 01:15:18.73

書き込みすると変なゴミデータが見えなくなってしまいましたが、要するに
正確に半角英数字でhelloという文字が再現できないのです。

2022/09/11(日) 01:27:32.82

>>560
どういう内容なのかダンプして確認しないのかい？

2022/09/11(日) 01:41:57.90

>>559
Option Explicit
Sub main()
　　Dim bs(4) As Byte
　　bs(0) = Asc("h")
　　bs(1) = Asc("e")
　　bs(2) = Asc("l")
　　bs(3) = Asc("l")
　　bs(4) = Asc("o")
　　Dim fn As Integer: fn = FreeFile
　　Dim fpath　As String: fpath = "C:\指定のパス\output.txt"
　　Open fpath For Binary As #fn Len = 1
　　Dim i As Integer
　　For i = LBound(bs) To UBound(bs)
　　　　Put #fn, , bs(i)
　　Next i
　　Close #fn
End Sub

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

>>562
for each で受ける変数をvariant型にするとうまくいかんということですか？
open の変数にLen=1（１バイトごと）っていれられるんですね。

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

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