Excel VBA 質問スレ Part55

**デフォルトの名無しさん** · 2018/07/22(日) 14:13:18.78

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

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

**デフォルトの名無しさん** · 2018/07/31(火) 22:34:16.53

>>112
できるっちゃできるし、現にSheet1をメニューのように使って
Sheet追加したりも可能　それはすぐにメニューに反映されるし
文字で説明するよか現物Upした方が早いだろうから　あした

**デフォルトの名無しさん** · 2018/07/31(火) 22:37:03.15

これ？
https://www.tipsfound.com/excel/01306

**デフォルトの名無しさん** · 2018/08/01(水) 18:45:11.44

質問です
画像みたいにSheet2の氏名と県名から数値を検索してSheet1の黄色セルを埋めることは関数でできますか？
https://i.imgur.com/VtolpQf.jpg

**デフォルトの名無しさん** · 2018/08/01(水) 19:29:44.50

できる。

**118** · 2018/08/01(水) 19:37:48.99

>>119
アホ。
やり方を聞いておるんじゃ。

**デフォルトの名無しさん** · 2018/08/01(水) 20:05:31.66

｢できますか？｣としか聞いていないだろ

**デフォルトの名無しさん** · 2018/08/01(水) 20:09:04.73

お金を頂きます

**デフォルトの名無しさん** · 2018/08/01(水) 20:47:02.77

あの説明じゃ何したいんだかさっぱり判らんけど出来るかってんなら出来るんだろうなぁ w

**デフォルトの名無しさん** · 2018/08/01(水) 20:49:54.52

>>121
日本語に不慣れな外人ならその言い訳は通用かもだね
（普通の常識というか社会経験があれば、外人であっても通用しないと思うけど）

**デフォルトの名無しさん** · 2018/08/01(水) 20:58:32.29

（）の中が長すぎる

**デフォルトの名無しさん** · 2018/08/01(水) 21:01:06.09

>>118
vlookup キー 2つ
とかで検索するといい

ただ、普通に作業列作ったほうが良い

**デフォルトの名無しさん** · 2018/08/01(水) 21:14:43.63

つーかVBAスレで関数とはどういうことよ
ＷorksheetFunction？

**デフォルトの名無しさん** · 2018/08/01(水) 21:16:08.42

pivotじゃだめなのん？

**デフォルトの名無しさん** · 2018/08/01(水) 21:56:40.95

>>121
文は文脈に関係なく不変の意味を持つという形式意味論の立場ですね

一方で、自然言語の解釈は文脈や発話者の意図と密接に関係しているという
立場をとるのが語用論です

夏目漱石は「I love you」を「月が綺麗ですね」と訳しなさいと
言ったらしいですがこれなんかは文脈を考えないとわからない言葉です

それでは問題です

最初にりんごが3個あります、あと2個りんごを買ったらいくつになるでしょう？

**デフォルトの名無しさん** · 2018/08/01(水) 23:19:06.30

>>129
スレチなんでそろそろ帰って

**デフォルトの名無しさん** · 2018/08/01(水) 23:56:36.26

>>129
お前みたいな馬鹿が質問するとおかしくなる
馬鹿なら何をしてもいいわけじゃない

**デフォルトの名無しさん** · 2018/08/02(木) 07:19:05.05

>>131
文脈を理解してないあなたの方が馬鹿です
死んでどうぞ

**デフォルトの名無しさん** · 2018/08/02(木) 07:19:41.69

>>130
ただいま

**デフォルトの名無しさん** · 2018/08/02(木) 08:12:15.27

こうして回答も得られず、何も叶わず、￥無駄な人生を歩むのでした

**デフォルトの名無しさん** · 2018/08/02(木) 10:09:33.51

>>118
の者です
なんだかお騒がせしてしまってすいません
Sheet2の別の列に検索キーとして氏名と県名の結合文字列を作ってvlookupで参照するようにしました
もっとスマートなやり方があれば一番良いのですが…

**デフォルトの名無しさん** · 2018/08/02(木) 19:14:12.00

>>135
sheet1のデータの持ち方がはっきりしないとむずかしいかも
各人名でどれか１つの値しか持たないなら最初の表から簡単にできる

**デフォルトの名無しさん** · 2018/08/02(木) 21:04:52.53

複数シートのデータを3次元配列に格納する効率の良いコードを組みたいんだけど、
サンプルコードをお願いできない？

条件
・三次元配列は(シートのインデックス番号,行,列)を想定
・対象のシートはインデックスの二番目から最後までで、現状5シートだが10シート程度まで増える見込み
・一枚のシート内におけるデータ数は、列数は30程度で固定、行数はシート毎に可変で現状は100程度だが1000程度まで増える見込み

**デフォルトの名無しさん** · 2018/08/02(木) 21:39:08.04

>>137
行、列、シートで三次元になってるから、
sheets(1).cells(2,3)
みたいに配列にいれずそのまま扱うのは駄目なの？

効率がいいかどうかは知らんけど、
二次元配列ならセルを直接保折り込めばok
これをシートの数だけ回せば瞬殺
Sub foo()
a = Range("a1:b2")
End Sub

**デフォルトの名無しさん** · 2018/08/02(木) 22:04:18.70

>>137
max_row = 0 : max_col = 0 : result = array() : jug = array()
for i = 1 to Worksheets.Count
buf = Worksheets(i).UsedRange.Value
Redim Preserve jug(ubound(jug) + 1) : jug(ubound(jug)) = buf
if max_row < ubound(buf, 1) then max_row = ubound(buf, 1)
if max_col < ubound(buf, 2) then max_col = ubound(buf, 2)
next

redim result(ubound(jug) + 1, max_row, max_col)

for i = 0 to ubound(jug)
for row = 1 to max_row
if row > ubound(jug(i), 1) then exit for
for col = 1 to max_col
if col > ubound(jug(i), 2) then exit for
result(i + 1, row, col) = jug(i)(row, col)
next
next
next
これで result(1, 2, 3) で取り出せるし
インデックスが0オリジンでよければ jug(0)(2, 3) でも取り出せる
UsedRangeのとこは適当に書き換えてね

わ · 2018/08/02(木) 23:16:22.80

>>139
こういう感じになるから三次元配列に複数シートのデータを入れようと考えること自体が無駄。
素直に二次元配列をdictionaryにシート名つけて打っ込むのが一番効率的かと。

**デフォルトの名無しさん** · 2018/08/02(木) 23:18:46.98

>>140
綺麗

**デフォルトの名無しさん** · 2018/08/03(金) 00:40:38.97

>>139
こういう馬鹿はすぐにクビ

**デフォルトの名無しさん** · 2018/08/03(金) 05:28:19.46

ユーザ定義型に対してforeach的なことってできないの？
Dictionaryやcollectionじゃないとだめかね

**デフォルトの名無しさん** · 2018/08/03(金) 08:10:11.78

>>143
クラスにすればええやん。

**デフォルトの名無しさん** · 2018/08/03(金) 10:48:59.11

VBAで多態性(ポリフォーリズム)が実現できることを発見した。
ただし親オブジェクトはObjectクラスのみ。
これ以外に方法ないよね？

あとどうしてもコンストラクタを実現したいけど方法ある？
Class_Initializeのブロシージャは使えるんだけど引数が取れないという致命的な欠陥がある。

**デフォルトの名無しさん** · 2018/08/03(金) 10:49:43.01

ポリモーフィズム

**デフォルトの名無しさん** · 2018/08/03(金) 11:24:42.37

>>145
ないんじゃないの
諦めて初期化メソッド作ってそれを利用してるわ、面倒だけど

あー早く.NET化かPythonにならないかなあ

**デフォルトの名無しさん** · 2018/08/03(金) 12:10:29.95

>>145
オブジェクトをNEWして初期化メソッドを呼ぶ
でオブジェクトを返す関数を作るぐらいしか回避策が思いつかない

**デフォルトの名無しさん** · 2018/08/03(金) 18:29:30.81

>>148
みんなそうしてると思う。
定番でしょ。

**デフォルトの名無しさん** · 2018/08/03(金) 19:49:24.72

>>145
VBAはインターフェースを定義できたりするよ
オブジェクトの生成はオブジェクト指向らしくファクトリクラス作るとか

**デフォルトの名無しさん** · 2018/08/03(金) 20:07:46.13

VBAは手軽だって言ってた人いたけど上のような事をするならVBAでする必要ある？
VBAでするには面倒だよね

**デフォルトの名無しさん** · 2018/08/03(金) 20:18:21.80

そうだねPowerShellなら(ry

**デフォルトの名無しさん** · 2018/08/03(金) 20:21:52.83

インターフェースを定義するか、そこまではしなくても良いかと考えるかだな。
どっちもあり有り得るけど、大きなプログラムなら定義して小さなプログラムなら定義しないって感じ。
でも、クラス作るべきって思うこともそんなに多くない。

VBAでするのは面倒とか感じることは無いな。
VBAでクラス作るのにピッタリな時は作って得られる恩恵が多いから感じないし、ピッタリな時は少ないから普段は無理して作らん。

**デフォルトの名無しさん** · 2018/08/03(金) 20:36:12.66

VBAでクラス設計ってなんかうさんくさい感じがして使わないんだけどC#みたいな感覚で設計出来るの？

**デフォルトの名無しさん** · 2018/08/03(金) 20:54:03.97

>>145>>149
一体エクセルで何を作っているんだ？

**デフォルトの名無しさん** · 2018/08/03(金) 20:55:51.99

気になる
何作ってるの？

**デフォルトの名無しさん** · 2018/08/03(金) 22:16:03.36

ひと昔前ならともかく今はいろんなツールが無料だからねぇ
excelはさくっと一覧表やグラフを作るときにしか使ってないや
ちょっとした作業が1週間くらいの見積もりで入ったけど、Redmine立てるのめんどくせーな、
一人作業だしタスク100以下ならエクセル一覧表で管理すりゃ、まあいーかポチポチー、みたいな感じ
こうなるともうVBAは大した役にはたたんのだな
プログラム書くほどの込み入った仕事なら、別の手段で楽に、収穫を大きくしようかってなる

何でも揃ってるこの時代に、あえてVBAを主力で使ってる人たちが、
普段Excelでどんな仕事してるのか興味ある

**デフォルトの名無しさん** · 2018/08/03(金) 22:24:24.13

Excelより優れた表計算ソフトはいまだにないからのお

**デフォルトの名無しさん** · 2018/08/03(金) 22:44:29.83

知らないだけかもよ

**デフォルトの名無しさん** · 2018/08/03(金) 22:51:02.21

例えあったとしても、デファクトスタンダードという地位はもう揺るぎないものだろう

**デフォルトの名無しさん** · 2018/08/03(金) 23:02:27.33

ハンバーガーとコカコーラは世界で一番売れてるから一番優秀な食品だとかいう話を思い出した

**デフォルトの名無しさん** · 2018/08/03(金) 23:05:21.62

バーガーとコーラだけじゃあっという間に病気だよ

**デフォルトの名無しさん** · 2018/08/03(金) 23:50:22.61

相変わらず具体例でねえなぁこのスレ
お前らほんとにVBA使ってんのか？ｗｗｗ

**デフォルトの名無しさん** · 2018/08/04(土) 00:14:17.09

>>155
何作るってエクセル単独で何かするか
Accessに繋いでなんかするかぐらいだけど
Accessに繋ぐならクラス使った方がキレイにまとまるからクラス使うよ

**デフォルトの名無しさん** · 2018/08/04(土) 07:34:19.25

>>164
接続部分だけクラスにまとめるって感じ？
それならまぁ、わからんでもないけど・・・うーん

**デフォルトの名無しさん** · 2018/08/04(土) 08:36:12.58

エクセルは簡単な関数までで出来ることに使う
定期で使ってコードを書くような事ならC#でWinアプリかWebアプリにする
そんな使い分けです

**デフォルトの名無しさん** · 2018/08/04(土) 08:59:40.72

ある文字が文字配列の要素の中に存在するかどうかを調べるには
for i = 0 to Ubound(配列)～のようにして
添え字を使ったループで一個ずつ比較するしかないですかね?
Pythonなどのように、値 in 配列とかで一発で判定できると楽なのだが

**デフォルトの名無しさん** · 2018/08/04(土) 09:27:21.51

for eachあるよ

**デフォルトの名無しさん** · 2018/08/04(土) 14:03:53.24

Worksheet Functionのmatchなら一発でしょ、インデックスはわからんけど
filter関数のほうが早いんだっけ？
てか職場の老害が作るコードがいちいちforでぶん回すコード書いててイライラ

**デフォルトの名無しさん** · 2018/08/04(土) 14:10:44.90

filterやmatchも中でforでぶん回してるよ

**デフォルトの名無しさん** · 2018/08/04(土) 14:20:20.63

パフォーマンス無視でコードをシンプルにしたいだけなら Instr(Join( ))

**デフォルトの名無しさん** · 2018/08/04(土) 14:50:32.42

>>164
自分はAccessに繋ぐ所はクラス作らないからどんな所が上手くまとまると思うのか知りたいな。

自分はマ―クシートの管理と実際の用紙との比較をしやすいように管理上の結果(Excelシート)をForm上の用紙レイアウトに再現するようなプログラムでクラスを使ったのが良かった。
用紙上に配置するのはImageコントロールを使ったラジオボタンのようなものとテキストボックス、ラべル、他でユーザーが使う用紙にあわせて好きな位置に配置出来る編集モ―ドと配置後にデ―タにあわせてチェック状態を表示編集できる運用モードを持ったもの。
種類の違う可変個数のコントロールを同じように扱うのに便利。

**デフォルトの名無しさん** · 2018/08/04(土) 15:05:27.11

>>172
普通に接続して切断する処理はクラス使った方がキレイにまとまるよ
ファイル処理も同じ。

**デフォルトの名無しさん** · 2018/08/04(土) 15:43:02.15

質問なのだが、エクセル関数とvba の使い分ける基準ってどうしてる？

**デフォルトの名無しさん** · 2018/08/04(土) 16:55:00.51

>>174
シート上で使うとき？
なければ作る。

コード上で使うとき？
簡潔に書けるほう、またはパフォーマンスのいい方。
>>174

**デフォルトの名無しさん** · 2018/08/04(土) 17:18:02.49

>>167
文字配列ってなに？
Stringのことですか？

**デフォルトの名無しさん** · 2018/08/04(土) 17:43:58.28

>>176
このコードでいう test_string のことです
複数の値を取りうる入力項目のチェックなんかはいつもこうしています

Sub test()
Dim test_string As Variant
test_string = Array("one", "two", "three")

Dim i As Integer
For i = 0 To UBound(test_string)
If "one" = test_string(i) Then
MsgBox "one" & "はありまーす"
End If
Next
End Sub

**デフォルトの名無しさん** · 2018/08/04(土) 17:49:50.34

シート上で使うとき！

**デフォルトの名無しさん** · 2018/08/04(土) 17:51:01.98

>>177
ループで検索する、でいいじゃないですか。
一致（=）だけじゃなく Like での合致とかも選べるように汎用化しとくとなおよい

**デフォルトの名無しさん** · 2018/08/04(土) 19:29:54.74

>>174
重い時やミスしそうな処理が絡む時はvba
もちろん関数で実現できない時もvba

関数を使うのはビジュアルで見たい時

まぁ基本的には関数だな

**デフォルトの名無しさん** · 2018/08/04(土) 19:58:42.71

>>177
こういう処理は関数化した方がよい

Sub test()
　　Dim test_string As Variant
　　test_string = Array("one", "two", "three")

　　If あるかな(test_string, "one") Then
　　　　MsgBox "one" & "はありまーす"
　　End If
End Sub

Function あるかな(a, b)
　　If InStr(Join(a, "&"), b) Then
　　　　あるかな = True
　　Else
　　　　あるかな = False
　　End If
End Function

**デフォルトの名無しさん** · 2018/08/04(土) 20:00:16.54

バグ修正

Function あるかな(a, b)
If InStr("&" & Join(a, "&") & "&", "&" & b & "&") Then
あるかな = True
Else
あるかな = False
End If
End Function

**デフォルトの名無しさん** · 2018/08/04(土) 20:08:45.16

Functionの戻り値を関数名に代入する構文が最高に気持ち悪いんだけどどうにかならんの？

**デフォルトの名無しさん** · 2018/08/04(土) 20:39:40.48

はじめまして。
下記のようなマクロを組もうと考えています。

x人の生徒がいます。
この生徒を1グループあたりy人となるようにzグループにわけます。
このときグループ毎の生徒のテストの平均点の差が小さく、またグループ毎の標準偏差の差も小さくしたいです。

このようなマクロを作るのにあたって、どのような方向性で作成していけば良いでしょうか。

**デフォルトの名無しさん** · 2018/08/04(土) 21:04:07.47

>>184
マクロ？

**デフォルトの名無しさん** · 2018/08/04(土) 21:04:16.50

>>184

→→→
←←←
→→→

こう割り振ればいんじゃないかな

A B C
-----
9 8 7
4 5 6
3 2 1

**デフォルトの名無しさん** · 2018/08/04(土) 21:22:04.15

>>177
> Dim test_string As Variant
> test_string = Array("one", "two", "three")
なんとなくだが名前はtest_stringsにして欲しいな

>>181
> If InStr(Join(a, "&"), b) Then
> 　あるかな = True
> Else
> 　あるかな = False
> End If
なんで
あるかな = InStr(Join(a, "&"), b)
って書かないんだろう…

**デフォルトの名無しさん** · 2018/08/04(土) 21:33:22.58

>>187
ほんこれ
ture/falseしか代入しないのに分岐する必要性がわからない。

**デフォルトの名無しさん** · 2018/08/04(土) 21:38:34.48

>>183
グローバル変数にでも代入してみるとか？
他の言語にも気持ち悪いとこいっぱいあるから気にしなくていいよ
C言語のint main()もそのint 0はどこへ返すんだよって気になるし

**184** · 2018/08/04(土) 21:44:58.48

>>186
レスありがとうございます。
しかし、その方法だと点数のばらつきが大きいときに、各グループごとの平均と標準偏差が均等にならずに使えないんですよね、、、

私としては下記の手順でできるのではないかと考えています。
①コンボボックスでグループ数と、グループ毎の生徒数を選択してもらう。
②エクセルに新しいシートを作る
③既存のシートに記入されている学生について、1の条件のすべての組み合わせを、2で作成した新しいシートのセルに列挙する
④3で書き出したそれぞれの組み合わせについて既存のシートの点数を参照し、average関数およびstdev関数を用いて平均及び標準偏差を2で作成した新しいシートに書き出す
⑤3の各組み合わせについて、グループ毎の平均のばらつきの少ないものを上位何%かのみを抽出
⑥5で抽出した組み合わせについてさらに、グループ毎の標準偏差のばらつきの少ないものを上位何%かのみ抽出

質問としては
a)他に良い方法があるか
b)組み合わせを書き出す際に重複を作り出さないようにするためにはどのようにすれば良いか
の2点です。
これらについて特に詳しく教えていただけないでしょうか。
よろしくお願いいたします。

**デフォルトの名無しさん** · 2018/08/04(土) 21:47:53.70

>>183
Pascal由来の構文だからいまさらどうしようもない

**デフォルトの名無しさん** · 2018/08/04(土) 21:55:39.30

>>187
VBA専門の人って変な常識で固まってるからしょうがない

**デフォルトの名無しさん** · 2018/08/04(土) 21:56:58.85

>>189
？？？
グローバル？
まじでいみわからんどういうことなんだ
VBA職人の思考パターンほんと異次元なんだけど

**デフォルトの名無しさん** · 2018/08/04(土) 22:05:27.29

>>187>>192
多少冗長でもエクセルがうまく動いて正しい結果が得られるなら問題ない
手作業で10分かかるものが10秒になればそれでいいって世界
最適化すれば0.1秒になるところでも10秒かけていいのだよ
その10秒を最適化する時間で、別の5分の仕事を3秒に短縮する方がよっぽど大事

>>193
Public g
Sub s()
Debug.Print f
Debug.Print g
End Sub
Function f()
'これが嫌なら
f = "return f"
'こう書けば
g = "return g"
End Function

**デフォルトの名無しさん** · 2018/08/04(土) 22:07:10.27

>>190
大体でいいならrand()で時間かけて総当たりして、最も偏差が少ない物で良いと思う

**デフォルトの名無しさん** · 2018/08/04(土) 22:29:32.76

>>189
>C言語のint main()もそのint 0はどこへ返すんだよって気になるし

OSになんじゃないのか？

**デフォルトの名無しさん** · 2018/08/04(土) 22:42:04.41

>>184
ソルバーアドインのエボリューショナリーエンジンで解決できそう
生徒のグループ分けをなるべく少ない変数で表すモデル作るのが難しそうだが

バイトのシフト表作ってみるみたいなサイトあった気がするから参考に

頑張れば数理的に最適解も求まりそう

**デフォルトの名無しさん** · 2018/08/04(土) 22:43:45.76

>>196
いやまぁそうなんだけど、理解が浅い時はそう感じてたよ

**デフォルトの名無しさん** · 2018/08/04(土) 23:00:54.48

>>194
なんでグローバルにしたの?

**デフォルトの名無しさん** · 2018/08/04(土) 23:15:34.93

instr(join(だと部分一致で誤爆する

**デフォルトの名無しさん** · 2018/08/04(土) 23:17:23.65

>>199
＞Functionの戻り値を関数名に代入する構文が最高に気持ち悪い
って言ってる人がいたので回避策を提示しただけ
勿論こんなコード俺は書かないよ

**184** · 2018/08/04(土) 23:26:11.15

>>195
>>197
レスありがとうございます。

私がしようとしていたすべての組み合わせを試す方法だと、(仮に生徒48人を1グループあたり8人の6グループに分ける場合だと組み合わせの総数が4×10^30になってしまい、)かなり効率が悪いということですね。

アドバイスしていただいたソルバーを用いた方法とrand関数を用いた方法の双方について調査し、検討してみようと思います。
また行き詰まったら質問させてください！
その際はどうぞよろしくお願いいたします。

**デフォルトの名無しさん** · 2018/08/04(土) 23:26:28.61

>>201
いやぜんぜん回避策になってないじゃん
そもそも戻り値として返してないんだが
VBAコミュニティだとグローバル変数に入れると戻り値として返したことになるって風習でもあんの？

**デフォルトの名無しさん** · 2018/08/04(土) 23:27:52.91

ref使えばいいってなるわな

**デフォルトの名無しさん** · 2018/08/05(日) 00:06:17.04

>>203
知るかボケ

**デフォルトの名無しさん** · 2018/08/05(日) 00:32:29.81

>>202
ここは何のスレだかわかっているか？低脳

**デフォルトの名無しさん** · 2018/08/05(日) 01:06:08.74

>>184
例えば、40人を、5グループ8人毎

min(最大平均点 - 最小平均点)
min(最大標準偏差 - 最小標準偏差)

こういう問題は、Ruby のアルゴリズムの問題だろ。
combination, permutation とか

こんな問題は、一筋縄ではいかない。
ものすごい組み合わせ爆発が起こるから、vba なら、何日も掛かる

**デフォルトの名無しさん** · 2018/08/05(日) 01:14:27.29

そんなん言語関係ないやん、アルゴリズムの問題だろ

Rubyの関数で短時間で解ける問題なら、VBAでも数倍ぐらいの時間で同じ結果は出せる

**207** · 2018/08/05(日) 01:17:12.67

>48人を、1グループあたり8人の6グループ

グループA は、48*47*46*45* 44*43*42*41 / 8!
グループB は、40*39*38*37* 36*35*34*33 / 8!
...
グループF は、8! / 8! = 1

ここから、A～F のグループ名を変えるだけで、
同一になるものを省くから、6! で割る

**207** · 2018/08/05(日) 01:22:35.24

48人分のデータを作って「プログラミングのお題スレ」にでも書き込んでみ。
誰か解けるか、計算時間が掛かりすぎて解けないか

こういうのはプログラミングコンテストの問題だから、
vba で解くような問題ではない！

**デフォルトの名無しさん** · 2018/08/05(日) 01:28:53.98

だからソルバー使えって
数理計画法とか大学でやらなかったのか？

**デフォルトの名無しさん** · 2018/08/05(日) 02:38:17.19

夏休みの宿題は自分でやれ

**デフォルトの名無しさん** · 2018/08/05(日) 08:28:04.96

>>200
その通りだよね
それにJoinなんて例に出た短い配列にしか通用しないし

**デフォルトの名無しさん** · 2018/08/05(日) 08:47:11.10

>>203
戻り値を使わないという回避策なんじゃないの?

そもそも何が気持ち悪いのか分からない。
プログラミング経験無ければReturn 0よりVBAの方が感覚的にぴったり来るわ。
気持ち悪いという人はa=a+1を気持ち悪いと思う人?

関数名に代入する?
関数名じゃない。
関数そのものに代入してるというか、関数そのものを定義しているんでしょ。
俺は初めて見た時にすんなり頭に入ったね。

**デフォルトの名無しさん** · 2018/08/05(日) 09:53:33.07

何故関数名に代入するのが気持ち悪く感じるのかというと、後に述べるような危険性を無視しているからだと思う。

1.戻り値を関数名に代入しなければならない。
プロシャージャ中に何度も関数名が出てくるため、関数名を変更した時に変え忘れてエラーになることがある。
例えばhoge()全体をコピーして挙動の異なるhoge2を作ったとき、hoge2の中のhoge=***はコンパイルエラーにならないめ、テストするまでエラーを発見できない。
※コピペ直後に「完全に一一致」でプロシージャ内置換すれば良いのは分かっているが、そういう問題ではない。

対処法としては、関数の最初にDim Retしておき、文中ではRetに戻り値を代入、End Sub直前に関数名にRetを代入する。

2.戻り値を設定していないのにExit Subできてしまう。
せっかく1の対処法実施しても途中でExit Subされたら意味がない。
せめてExit Sub 戻り値という書き方ができればよかったのだが。

対処法としてはExit Subを禁止して、そもそもExitが必要ない書き方に変えるかEnd Function直前までワープするGoToを使用する。

よって、関数を定義するときの推奨テンプレ
Function hoge() As Variant
Dim Ret As Variant
'-----
'処理
'Exit Subは禁止。GoTo ExitSubを使うこと

'-----
ExitSub:
hoge = Ret
End Function

もちろん異論は認める。