Excel VBA 質問スレ Part75

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-wadS) · 2022/02/09(水) 14:24:32.62

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑2行に減ってるけど、同じ内容を3行に増やして貼り付けるナリ

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

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

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

2022/04/12(火) 21:13:36.65

そのままのエラー文でググれば一発で回答出てくるぢゃねーか

2022/04/12(火) 21:30:37.91

>>776
SQLのケツに;付けろってよ

2022/04/13(水) 01:24:31.19

757です、いろいろご意見ありがとうございます
その後考えた結果、シートのオブジェクト名を変数として代入しようとした名前に変えればいいんじゃないかと思いついたんですが問題ないでしょうか

2022/04/13(水) 03:33:56.70

>>779
シチュエーションにもよるかな。
シート名を変えられてもそのシートを使う前提であればそれでいいんじゃないかな。

その場合、
自ブックのシートであれば
Dim targetSheet As Worksheet
Set targetSeet = 変更後のシートオブジェクト名
みたいに使えるし、

他ブックのシートを扱う場合は
Dim targetSheet As Worksheet
Set targetSheet = ブックオブジェクト.(シートオブジェクト.Name)
みたいに書けば設定出来る。

もっとも、後者の書き方で前者を賄えるから後者だけ関数化してそれを使い回してもいいけどね。

2022/04/13(水) 07:03:06.30

>>779
オブジェクト名はやめたほうが良い。あんまり意味が無い
やるなら、シートの内容を変数名にする

ローマ字
set shain_master = sheet("社員マスター")

日本語許容するなら
set 社員マスタ = sheet("社員マスター")

なおベストは英語

2022/04/13(水) 07:35:12.98

会社員を英語でなんと言うかがわからんわ

worker(労働者)やemployee(被雇用者)じゃニュアンスが違うしー
辞書なしですぐ出てくるレベルのやつはVBAなんかやってないやろ、という偏見

2022/04/13(水) 07:37:38.41

staffでええやろ

2022/04/13(水) 07:50:17.55

>>782
会社員だから
companyEmployeeでいいんじゃね？

2022/04/13(水) 07:56:48.50

Google翻訳だとmember
んー、なんかしっくり来ない

2022/04/13(水) 07:59:18.64

staffは関係者ってイメージ

**デフォルトの名無しさん** (ｽﾌｯ Sd02-jTyu) · 2022/04/13(水) 08:15:50.97

staffという単語はcompanyと同義で集団に対して使うって日本人は意外とわかってない

2022/04/13(水) 08:30:55.20

employee以外ないだろう

2022/04/13(水) 08:56:08.44

会社員という表現は英語では難しい
大人しく syachiku か Karoushi_Man にしとけ

2022/04/13(水) 09:04:23.41

業務用語の変数は日本語で業務用語そのものを使ってる
中途半端な英語だと誤解しやすいし、ローマ字は読みづらい

2022/04/13(水) 10:04:01.74

Accessならお馴染みの「Northwind」のテーブルでは Employee List とか Employee Details
概念としての会社員ではなく、自社の社員リストなので「従業員・使用人」の意で
ま、そのファイルを誰が見る？誰が使う？どこに出す？で適宜に　恥かかない程度で　何だっていいんだろうけれども

2022/04/13(水) 10:09:02.25

リーマンが和製英語からすでに世界に浸透してる

2022/04/13(水) 10:28:39.30

ワークマン

2022/04/13(水) 11:06:56.09

ワークマンは流行りよ

2022/04/13(水) 12:58:38.46

緊急です！

マクロの入ったボタンが図だかイラストになってしまい困ってます。
直し方のアドバイスお願いします。

2022/04/13(水) 13:07:23.24

>>795
https://mevius.5ch.net/test/read.cgi/bsoft/1647570025/342

2022/04/13(水) 13:09:58.08

こういうの30分一万円無保証とかで稼げないかな

2022/04/13(水) 13:57:45.74

>>795
もうその図からマクロ実行させちゃえばいいじゃん

2022/04/13(水) 14:00:17.02

■質問
サウンド再生は何通りかあるけど、
一番遅延が小さい方法は何ですか？

winmmのPlaySound　？

2022/04/13(水) 14:08:46.36

>>798
多分それ自体わからんのちゃう？
Excel作った本人とかじゃなく事務員とかだろうし

2022/04/13(水) 15:42:21.02

3時間くらいかけてVBA作って、合間に別のエクセルファイル開いて、閉じようとしたら
「変更を保存しますか？」って出たので、保存せずに閉じたら。
VBAを作った方のファイルまで変更保存せずに閉じられてしまったーーー！！
どうにかならない？

2022/04/13(水) 15:45:55.22

とりあえず顧客に頭を下げてFAXでリスト送って頂いたのでしばらくはなんとかなりそうですがエクセルファイル自体のトラブルについては全員サッパリ意味不明なためどうしようも無さそうです…
（エクセルファイル作った方自身が既に会社にいないのでどうしようもない）

とりあえずエクセルファイルがどうする事もできないため私と社長ら数名は土日も休日出勤して1月から4月までの記録も全部紙ベースの資料に手書きで書き写す事になりそうです

しばらくは紙とペンでのアナログなやり方で回すしかないですがアドバイスくださった方ありがとうございました

2022/04/13(水) 17:20:07.59

>>801
3時間くらいなら今からやれよ

2022/04/13(水) 17:28:47.62

>>802
あちこちマルチで書いて馬鹿かよ
どこかに金を出して頼めよ
ゆとりの馬鹿はこれだから

2022/04/13(水) 17:42:34.06

>>801
該当のファイルを開いた状態でファイルタブのどこかにある自動保存云々が書いてある場所を探せ
運が良ければ一時ファイルが残ってる
残ってなけりゃ諦めろ
次からは動作確認をする前に保存する癖をつけるようにするんだな

2022/04/13(水) 19:21:42.96

>>801
これがあるからコーティング中はOneDriveに置いとる

2022/04/13(水) 21:38:12.45

>>805
何で誰でも言える極々普通のアドバイスをこんなに上から目線で言えるんだろう

2022/04/13(水) 21:47:36.66

便所の落書きにいちいち目くじら立てて突っ掛かるなよ
より一層老けて見えるぞ

2022/04/13(水) 22:55:33.89

全国10エリアのそれぞれに、2016年度から6か年度分の「各年度集計用book」があり、
中身は1時間値と月合計を集計する等のクエリーが17あって、
これをsheet上のクエリーリストを基に
For Nextで順次更新・上書き保存するVBAを仕込んであります。

これとは別に、各エリアごとにやはりbookのフルパスリストを基に
For Nextで「各年度集計用book」を順次開いて、
中のVBAを実行するよう仕込んだ「各エリア一括更新book」を作りました。
(今さら2016年度を再集計するのは、たまにシレーッと修正が訴求修正が入るため)

これまで10ヶ月間ほどの月次更新では問題もなく動いてきたのですが、今月の更新で
・sheet名とクエリー名によるクエリー更新のステップでデバックエラーで止まった
・2つ目2017年度あたりのbookをVBAで開いたと思ったら、Excelごと落ちた
となり、不安定になりました。

モジュールごと再構成たり、「各年度用集計book」クエリー計算を簡略化して17ステップに削減したりして、
・タスクマネージャーでは動作中のメモリーは最大10GB/32GBくらい、CPU使用率は最大60%弱
・1つの「各年度集計用book」の所要時間に30秒程度
まで軽量化したのですが、今後もbook数が増えることを考えると
何か工夫のしどころはないものかと。

自分で気になっているのは、6か年度分のbook更新がどうにか上手くいっても、
「各エリア一括更新book」のプロジェクトに、
済んだはずの「各年度集計用book」の情報が残っていること。
https://i.imgur.com/BvkH6sr.png
よく分からないけれど、VBAが扱えるインスタンス数を超過しているのか？
これが残っていて良いのか、よくわかりません。

・Set wb = Workbooks.Open で開いて
・wb.Close SaveChanges:=True で上書き保存して閉じているのですが、
・For Next内で済んだ変数はできる限りNothingで開放
していますが、改善の余地はありますか？

**809** (ﾜｯﾁｮｲ 9bda-EhK1) · 2022/04/13(水) 23:53:53.55

>>809 タイポ訂正
誤) 訴求修正
正) 遡及修正

2022/04/14(木) 08:48:02.28

>>809

2022/04/14(木) 09:46:20.53

>>809
マクロを１つの専用ブックにまとめてみたら

2022/04/14(木) 13:25:49.47

VBAで他ブックのプロシージャを実行したいんだけど、実行まちをなくすことてできる？
Application.Run "Book2!Test2"
を実行したあと、"Book2!Test2"の処理終了を待たずに次の行に移りたいんだが。

2022/04/14(木) 13:53:36.44

非同期は無理
試してないけど、別のApplicationインスタンスを作成して
そちらでファイルを読み込んで実行とか

2022/04/14(木) 18:58:30.99

メソッドを使い回したいときはクラスを別のクラスに参照渡ししてるんだけど、これってVBAに継承があれば機能的に処理できるのか

2022/04/14(木) 19:03:41.33

クラスのメンバーに他のクラスを入れるのがマイルド

2022/04/14(木) 19:25:43.40

いいね
それ試してみよう

2022/04/14(木) 20:26:12.03

>>816
継承を委譲で置き換える、というだけですね…

2022/04/14(木) 21:25:22.08

参照設定なしでエクセルからアクセスファイルの操作をしようとしているのですが
フィールド定義の構文エラーが出ます。
テーブルの登録数を減らすと通りますが
上限か何かに引っかかっているのでしょうか？

Sub Test()

Dim CN As Object

Set CN = CreateObject("ADODB.Connection")
CN.Open "Provider = Microsoft.ACE.OLEDB.12.0; Data Source =" & "C:\Users\Downloads\データ.accdb"
CN.Execute "CREATE TABLE TBL(管理 INT,日付 DATE,番号 INT,内容 MEMO,担当 MEMO,OrderTeam MEMO,Place MEMO,Floor MEMO,GuestNum INT,種別 MEMO,物品 MEMO,対象 MEMO,状態 MEMO,時間1 MEMO,時間2 MEMO,Note MEMO,Total MEMO);"
CN.Close

MsgBox "作成しました。"

End Sub

2022/04/14(木) 21:40:59.88

MsgBox は、End Sub の外に出して下さい。
このスレの流れ的に。

2022/04/14(木) 22:31:20.84

フィールド名 DATE は？　　予約語では？
他には、day、month、table、text、user、when、where、year、zone　とかも

2022/04/14(木) 22:55:38.45

すまん　読み間違いだった　MEMOが多いような気がするが、それも多分外してるな　すまん　居ないことにしといてくれ

2022/04/14(木) 23:23:47.63

予約後はNote
[]で括れ

2022/04/14(木) 23:41:44.78

解決しました。
感謝です！

2022/04/15(金) 14:24:02.27

>>816
クラスになじめなかったくせに

2022/04/15(金) 15:02:32.60

う、うるさい！

2022/04/16(土) 10:04:25.26

無理してクラス使わんでもええんやで

2022/04/16(土) 10:12:12.08

保健室でいいってことか

2022/04/16(土) 10:20:43.39

特別クラスにさえ入れてもらえないのk

2022/04/16(土) 14:51:07.70

今は特殊学級は廃止されつつあると聞いたわ
差別に繋がるからだとか

2022/04/16(土) 14:55:23.27

>>830
それな

・ひまわり学級導入
　差別だから廃止しろ！

・ひまわり学級撤廃
　障がい者と一緒に授業できるわけねーだろ！分けろ！

これを5年ぐらいの周期でず～～～っと繰り返してる。少なくともここ30年はそう

2022/04/16(土) 15:07:04.56

1年目ひまわり学級導入
6年目ひまわり学級撤廃
11年目ひまわり学級導入
16年目ひまわり学級撤廃
21年目ひまわり学級導入
26年目ひまわり学級撤廃

30年目、ひまわり学級は撤廃された状態

2022/04/16(土) 17:39:51.13

コールバイネームしたいから無理にクラス使うというのはある。

2022/04/16(土) 18:34:28.46

自分が通っていた学校の特殊学級は8組て名称だった
6組まではノーマルで何故か7組が無くて8組が特殊だった。

2022/04/16(土) 18:39:26.14

>>833
何故無理にCallbyName使う必要があるの？
標準モジュールなら普通にApplication.Runじゃダメなの？

2022/04/17(日) 02:09:30.35

>>835
コールバックのやり方調べた時に、
何か忘れたけど、他は面倒な制約があって、
コールバイネームしか使わなくなった。

2022/04/17(日) 03:28:38.26

たまーに出てくるオブジェクト指向の話。
もうオブジェクト指向なんて忘れたは。

2022/04/17(日) 07:38:47.19

ワイのコードは素人指向

2022/04/17(日) 09:54:53.72

>>837
それでも知らんうちに使ってるんやで
使ってる奴に意識させないのがオブジェクト指向

2022/04/17(日) 10:13:47.49

excel vbaではオブジェクトを利用したプログラミングにはなるけど、
それだけでオブジェクト指向だとは言えないな

2022/04/17(日) 10:56:37.84

玄人志向が玄人向けだったのは最初だけ

2022/04/18(月) 22:09:45.73

どなたか相談に乗っていただきたいです。
現在、大学の講義で使用するため関数を作成しているのですが、最後に関数に戻り値を入れる際に「代入式の左辺の関数呼び出しは、バリアント型またはオブジェクト型の値を返さなけれななりません。」
とコンパイルエラーが出てしまいます。このエラーはどのように解決したらよいでしょうか？

2022/04/18(月) 22:14:18.56

コード見ないとちょっときつい

2022/04/18(月) 22:20:21.18

コード作成お願いします！

2つのcsvがあってどちらも1列目に主キーがあります。
B：15列目の対応するキーの値を
A：3列目に代入
したいです。

できますかね？

2022/04/18(月) 22:25:33.62

Sub TEST1()
Dim Hight As Double, Time As Double
Hight = 0.4
Time = 2#
MsgBox WaveLength(Hight, Time)
End Sub

Function WaveLength(Hight, Time) As Double

Dim G As Double, PAI As Double
Dim WL0 As Double, WL1 As Double, WL2 As Double

G = 9.80665
PAI = WorksheetFunction.Pi()

WL0 = G * Time * Time / (2# * PAI)
WL1 = WL0

Do While ((WL2 - WL1) / WL1) >= 0.001
WL2 = WL0 * Worksheet.Tanh((2) * PAI * Hight / WL1)
If ((WL2 - WL1) / WL1) < 0.001 Then Exit Do
WL1 = 0.5 * (WL1 + WL2)
Loop

WaveLength() = WL2

End Function

2022/04/18(月) 22:26:31.08

>>845
こういった感じです

2022/04/18(月) 22:27:22.86

VBA自体初めてなので何からしたらいいのかわかっていない状況です。

2022/04/18(月) 22:30:08.42

>>845
functionの返り値使いたい時はfunction名に代入すればok。カッコは不要

Sub TEST1()
MsgBox WaveLength(Hight, Time)
End Sub

Function WaveLength(Hight, Time) As Double
WaveLength = 5
End Function

2022/04/18(月) 22:41:26.28

>>848
できました。ありがとうございます。
すみません、もう少し相談させていただいてもよろしいですか？
ループさせる際に値を変化させてDoにもどすことはできますか？

2022/04/18(月) 22:44:42.92

>>847
本筋と関係ない話だけど、HightとTimeは変数名に使わない方がいいよ
同じ名前の関数が既に存在するからトラブルの原因になる
別の単語か略語を考えて

2022/04/18(月) 22:46:49.95

>>850
小文字一文字とかでも大丈夫ですか？

2022/04/18(月) 22:48:03.57

それが出来るのがFunctionの良いところよ
戻り値は配列とかに入れておけばok

2022/04/18(月) 22:54:56.92

>>851
1文字でも動くけど、誰が見ても意味のわかる言葉にするのがマナー
どうしても別の単語を決められなかったら、Height1とかTime1とかにしとけばいい
1文字にするよりはマシ

2022/04/18(月) 23:00:04.07

マナーってなんだよｗ
あとで自分が見て分からなくなるのが問題
赤の他人が見てもわかるような名前にしておくと、自分のためになる

2022/04/18(月) 23:00:47.59

>>849
＞ループさせる際に値を変化させてDoにもどすことはできますか？
言ってる意味がよくわからんかった

2022/04/18(月) 23:01:50.92

とりあえず、できました。
Sub TEST1()
Dim hight1 As Double, Time1 As Double
hight1 = 0.4
Time1 = 2#
MsgBox WaveLength(hight1, Time1)
End Sub

Function WaveLength(hight1, Time1) As Double

Dim G As Double, PAI As Double
Dim WL0 As Double, WL1 As Double, WL2 As Double

G = 9.80665
PAI = WorksheetFunction.Pi()

WL0 = G * Time1 * Time1 / (2# * PAI)
WL1 = WL0

Do While ((WL2 - WL1) / WL1) >= 0.001
WL2 = WL0 * Worksheet.Tanh((2) * PAI * hight1 / WL1)
WL1 = 0.5 * (WL1 + WL2)
Loop

WaveLength = WL2

End Function

2022/04/18(月) 23:03:04.12

ただ、まちがっているみたいです。

2022/04/18(月) 23:03:10.61

>>850
Hight なんていう関数あったっけ？

2022/04/18(月) 23:09:31.78

Doの中でWL２＝WL0＊tanh(2*PAI*H/WL1)を実行して、((WL2-WL1)/WL1)の絶対値が0.001より小さい場合には関数にWL2を代入して、0.001より大きい場合にはWL1＝0.5*(WL1+WL2))と変換して再度Doを行うという繰り返しです。

2022/04/18(月) 23:13:08.37

すみません、わかりにくいですね。
WL1からなる計算式で求められるWL2とWL1の関係が条件に合わない場合、WL1をWL1とWL2の平均をとって再度WL2を求めたいです。

2022/04/18(月) 23:55:22.83

Do
WL2 = WL0 * Worksheet.Tanh((2) * PAI * hight1 / WL1)
If Abs((WL2 - WL1) / WL1) < 0.001 Then Exit Do

WL1 = 0.5 * (WL1 + WL2)
Loop

2022/04/19(火) 05:01:48.08

どうでもいいが GやPAIは定数として関数の外にだす方が好き

2022/04/19(火) 06:39:40.35

>>858
cellsのプロパティにある
文脈的に予約後ってコトぐらいｗかるだろ

2022/04/19(火) 07:20:27.86

>>863
Cells w
それを言うなら Range だし、Range にあるのは Height な
そもそも単なるプロパティ名で関数でも予約後でもないし

2022/04/19(火) 07:25:56.37

よく見たらhightかよクソがｗ

2022/04/19(火) 07:48:45.10

>>860
ざっくり見た感じだけなので詳しく分からないけどその計算式って正しい？
その計算式の内容と判定条件だと初期値の値によっては計算が収束せずに振動を繰り返すことになるので
ループから脱出できなくなる気がする

2022/04/19(火) 12:03:50.63

Do?Loopの例文見ると条件はWhileが多い気がする
自分はUntil派なんですが

2022/04/19(火) 12:41:24.95

でっていう

2022/04/19(火) 12:53:32.89

Untilはコーディングミスで「なぜか抜けられない」状態が起きた時の解決がめんどくさいからあんま使いたくない
Whileならコーディングミスっても、値が範囲内でループし続けてるくらいしか原因がないから突き止めやすい

2022/04/19(火) 14:33:22.38

>>869
無能自慢？

2022/04/19(火) 14:38:03.91

>>870
リスクは減らしたいってだけの話
自分一人だけがマクロいじるとは限らないし

2022/04/19(火) 15:06:19.06

>>871
いや、お前が無能なだけ

2022/04/19(火) 15:24:45.82

https://imgur.com/srNrR8t
一応、大学から共有されている理論式がこんな感じなのでおそらく会ってます

2022/04/19(火) 16:03:50.77

どうでもいいけど、Excelってそういう計算やったほうがいいんだっけ
小数点以下になるようなものは避けたほうがいいって記憶がある

2022/04/19(火) 16:13:18.16

小数点以下の計算は誤った結果が出ることも結構あるから、
・型はCurrencyにして小数点以下5桁までにする
・可能であれば整数に直してから計算させる
くらいはしておいた方がいいね

2022/04/19(火) 16:39:16.39

Function WaveLength(Height1, Time1) As Double

Dim G As Double, PAI As Double
Dim WL0 As Currency, WL1 As Currency, WL2 As Currency

G = 9.80665
PAI = WorksheetFunction.Pi()

WL0 = G * Time1 * Time1 / (2# * PAI)
WL1 = WL0
WL2 = WL0 * WorksheetFunction.Tanh(2 * PAI * Height / WL1)

Do
WL2 = WL0 * WorksheetFunction.Tanh(2 * PAI * Height / WL1)

If Abs((WL2 - WL1) / WL1) < 0.001 Then Exit Do

WL1 = 0.5 * (WL1 + WL2)
Loop

WaveLength = WL2

End Function
とりあえずこういった感じで修正したものの実行するとオーバーフローするみたいです。
何が原因でしょうか？