Excel VBA 質問スレ Part52

**デフォルトの名無しさん** · 2018/01/27(土) 20:25:05.67

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/

※前スレ
Excel VBA 質問スレ Part51
http://mevius.2ch.net/test/read.cgi/tech/1510107990/

**デフォルトの名無しさん** · 2018/01/27(土) 20:26:07.63

あとこれ
Excel Python 質問スレ
http://mevius.2ch.net/test/read.cgi/tech/1517018055/

**デフォルトの名無しさん** · 2018/01/27(土) 20:37:51.59

ほす

**デフォルトの名無しさん** · 2018/01/27(土) 20:40:42.16

>>1
よう無能wスレ立ても満足にできんのかw

**デフォルトの名無しさん** · 2018/01/27(土) 20:44:44.53

>>4
ならお前が立て直せや無能
そしたら削除依頼だしてくるわ

**デフォルトの名無しさん** · 2018/01/27(土) 21:18:02.81

これはあれか、メゾット君か
パイソンスレでも暴れてるけど
笑えるわ

**デフォルトの名無しさん** · 2018/01/27(土) 22:30:19.28

>>6
ようメゾット君w久しぶりやなw

**デフォルトの名無しさん** · 2018/01/27(土) 22:56:24.41

>>7
はよ立て直せよヘタレ

**デフォルトの名無しさん** · 2018/01/27(土) 23:22:14.86

>>7
うんこ擦り付けるのやめてもらえませんかね

**デフォルトの名無しさん** · 2018/01/27(土) 23:32:58.75

メゾット君は恥じるって感情を持ち合わせている割に自分より上位の人間に勝てない喧嘩売るのは辞めないってのが不思議

**デフォルトの名無しさん** · 2018/01/27(土) 23:46:41.45

>>10
キミが下位の人間()だから喧嘩売られるんだよw
不思議でもなんでもないよメゾット君w

**デフォルトの名無しさん** · 2018/01/27(土) 23:48:38.90

>>11
何が下位で何が上位なのか教えてくれよ
言葉の定義揃えてもらえないとわからないバカだから説明してくれ

**デフォルトの名無しさん** · 2018/01/27(土) 23:51:36.98

>>12
それは上位の人間()を定義した？>>10に聞いたらバカさん

**デフォルトの名無しさん** · 2018/01/27(土) 23:55:56.46

>>13
いや、それに反論した君もその定義を理解してるんだろ？

**デフォルトの名無しさん** · 2018/01/27(土) 23:58:06.82

>>14
馬鹿にしてるだけなんですけどw
逆に聞くけどキミは上位の人間とか本当にあると思ってるの？バカさん

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

>>15
じゃあ何が上位で何が下位かわからずに噛みついてるってことだね
それがわかれば満足だわ、ありがとう

**デフォルトの名無しさん** · 2018/01/28(日) 00:03:07.53

>>16
あのー、馬鹿にしてるってハッキリ言ったよね？w
人の話ちゃんと聞こうよバカさんw

**デフォルトの名無しさん** · 2018/01/28(日) 00:06:37.18

>>17
定義もわからんでバカにするってどう言うことなのかよくわからんわ
メゾット君本人でもなけりゃなんも気にならないと思うんだけど
とにかく、そこはわかってないということはわかったからそれ以上興味ないわ

**デフォルトの名無しさん** · 2018/01/28(日) 00:07:58.80

いや、メゾット君はVBAのコードを読み書き出来ないんだから、このスレでは初歩的な事を聞いてくる初心者より下位やぞ

**デフォルトの名無しさん** · 2018/01/28(日) 00:12:08.48

>>18
そりゃキミがバカなんだからわかるわけないよバカさんw
面白い事言うね！さすがバカさんw

**デフォルトの名無しさん** · 2018/01/28(日) 00:13:56.37

>>20
具体的に

**デフォルトの名無しさん** · 2018/01/28(日) 00:18:17.28

>>21
むしろキミが具体的にキミ自身がバカだと考える理由を説明してくれよバカさんw
ボクはキミの自己紹介を尊重してるだけだよバカさんw

**デフォルトの名無しさん** · 2018/01/28(日) 00:22:13.43

>>5
ほならね理論で草

**デフォルトの名無しさん** · 2018/01/28(日) 00:26:24.39

>>22
それはその時のレスそのままの意味だよ

**デフォルトの名無しさん** · 2018/01/28(日) 12:43:11.93

メゾット君1とはなんぞや

**デフォルトの名無しさん** · 2018/01/28(日) 13:52:51.41

無能の>>1のことなんじゃね？しらんけど

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

ここまで何の技術も質問も無い件

**デフォルトの名無しさん** · 2018/01/28(日) 16:29:29.49

>>25
メゾット君とはプログラミングについての知識が一切無いにも関わらず、このスレに三年ほど前から張り付いていて、
具体性の無い罵詈雑言をレスし続けている名無しの一人

Methodの読み方が分からず「メゾット」と呼んだ事が名称の由来
まともな社会経験が無い為なのか、実用性が極端に薄い独特な思考法で会話をしようとする為、
回線を三つほど使い回して自演している時でも本人と特定出来てしまう

偶然映り込むよう装ってロレックスの腕時計を見せびらかすように写メに撮ってみたり（映り込み方は非常に不自然）、
プログラミングの本を読んで「変数」という概念の存在を数時間で認知できたことを褒めて欲しいと再三強調したり、
どうも虚栄心が異様に強い傾向にあるらしいが、現実では満たされない為に、このスレで他人を罵倒して鬱憤を晴らしてる様だ

平日の日中は反応が無い事が多いので労働に従事しているらしい事が見受けられるが、
中古と思われる書籍しか購入していないなど、知識に対する評価が低い点から見て、社会的地位が低い仕事だと思われる

メゾット君であるかどうかに関わらず、具体的な指摘、コードの付与がないレスはスルーする事をお勧めする

**デフォルトの名無しさん** · 2018/01/28(日) 17:09:44.50

あれ？レス番飛んでるけどメゾット君何かレスしたの？

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

スレ保守のついでに相手してやったのよ
以後はスルーするつもり

**デフォルトの名無しさん** · 2018/01/30(火) 03:46:22.71

2点質問いいでしょうか
1.下記コードのコメントアウトで挟んだ部分の実行時間を短縮したいのですが何かいい方法はありますか？
やりたいことは各セルに＠区切りで3つのランダムな数字が入った状態から、その3つの数字で入力規則のドロップダウンリスト作成→1つ目選択です(実際は1万セル前後あります)
2.複数回実行した時にかかる時間が増えていくのは何故でしょうか？
Excel2016です、よろしくお願いします

Option Explicit

Dim i As Long, start As Long, num As String, area As Variant

Sub test()

start = Timer
area = Range("B3:B5003")
For i = 1 To UBound(area)
area(i, 1) = Int(Rnd * 1000) & "@" & Int(Rnd * 1000) & "@" & Int(Rnd * 1000)
Next i
Range("B3:B5003") = area
'//////////
For i = 3 To 5003
num = Replace(Range("B" & i), "@", ",")
With Range("B" & i).Validation
.Delete
.Add Type: = xlValidateList, _
Formula1: = Replace(Range("B" & i), "@", ",")
End With
Range("B" & i) = Split(num, ",")(0)
Next i
'//////////
Range("D3") = Round(Timer - start, 2) & " 秒"

End Sub

**デフォルトの名無しさん** · 2018/01/30(火) 07:48:44.61

>>31
いちいちセルからデータを持ってこない
何度も同じ処理をしない

'//////////
area = Range("B3:B5003")
For i = 3 To 5003
num = Replace(area(i - 2, 1) , "@", ",")
With Range("B" & i).Validation
.Delete
.Add Type: = xlValidateList, _
Formula1: = num
End With
area(i - 2, 1) = Split(num, ",")(0)
Next i
Range("B3:B5003") = area
'//////////

**デフォルトの名無しさん** · 2018/01/30(火) 08:10:08.93

どうでもいいけど、セルのインデックスを文字列で指定するのは明らかにスマートじゃない気がする
確かcellsの方が多少速度早いんじゃなかったか

**デフォルトの名無しさん** · 2018/01/30(火) 08:27:38.31

B列固定でとりあえず動作すりゃいいってのならどっちでもいいんじゃない。
将来的に変更可能性あるなら別だけど

**デフォルトの名無しさん** · 2018/01/30(火) 12:45:58.02

>>34
ま、好き好きなんだけどね
自分がこのプログラム引き継いだら書き直すなって思う

**デフォルトの名無しさん** · 2018/01/30(火) 14:45:24.44

>>32-33
修正しました、ありがとうございます

質問2の複数回実行した時にかかる時間が増えていくのは何故でしょうか？

**デフォルトの名無しさん** · 2018/01/30(火) 15:19:01.11

>>36
実行毎にどんどん加算されていくんなら、なんかキャッシュしたまま離してないんじゃないの。
マクロの終わりにEndステートメント使ってみて改善するかどうかだね。

**デフォルトの名無しさん** · 2018/01/30(火) 16:11:27.88

>>37
最後を
Range("D3") = Round(Timer - start, 2) & " 秒"
End '←追加
End Sub
にしたら加算されなくなりました
新規の列だとならなかったので作成したドロップダウンリストの何かが残ってるのかなと思ってたのですがEndは今回初めて知りました

みなさんありがとうございました

**デフォルトの名無しさん** · 2018/01/30(火) 16:16:06.37

すみません、こっちでした
Cells(4, 4) = Round(Timer - start, 2) & " 秒"
End
End Sub

**デフォルトの名無しさん** · 2018/01/30(火) 17:49:35.13

たぶん変数をモジュールレベルで宣言してるからじゃないのこれ
プロシージャ内に宣言して不都合なことある？

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

>>33AやBなら列番号のでもイイかと思うけど
列が多くて256列目にとかなってくると
セルよりrangeで文字の方が追っかけ易いよ

**デフォルトの名無しさん** · 2018/01/31(水) 01:42:08.16

なるほど、マクロの最後にはおまじないとしてEndを書いといたほうがいいのか

**デフォルトの名無しさん** · 2018/01/31(水) 07:52:17.18

>>40
それだな。
プロシージャ内ならENDは要らないと思う。
END使うのは個人的にスマートじゃなくて嫌。止むを得ず止めたい処理にだけ使うけど。

**デフォルトの名無しさん** · 2018/01/31(水) 07:55:30.29

訂正、スマートってよりは場当たり的って感じで嫌

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

>>42
普通にコーディングしてたらそんな必要はない

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

>>41
列をループさせないかつ列名がついてないような表なら無しではないかもしれないね
列名ついてるならEnumなりユーザー定義型なりで名前つけてやるべきだろうと思うが
引数に文字列の結合式を書くことが個人的にはすごく気持ち悪いけどまあそれは人それぞれかもしれないね

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

あとモジュールレベルの変数名はiとか他でも使うような名前にしない方がいいぞ。
他で使っちゃってたりして予期せぬエラーの原因になる。

**デフォルトの名無しさん** · 2018/01/31(水) 10:32:40.89

ここで質問するか微妙ですが質問します。
エクセル起動すると
1004エラーmacrooptionsのエラーが出ます
スタートメニューのすべてのプログラムからエクセルを起動しても同様のエラーがでます
オフィスを再インストールしても同様エラーが出るのですが解決策ないでしょうか？

**デフォルトの名無しさん** · 2018/01/31(水) 11:59:35.68

他のバージョンのOffice製品が混在していないか
インストールされたプログラムで「修復」を試みたか
MSの fix it も試してみるべき

**デフォルトの名無しさん** · 2018/01/31(水) 12:12:55.39

>>47
さらに言えば、モジュール変数はm，グローバル変数はgを先頭に付けたほうが保守しやすい（俺は）

**デフォルトの名無しさん** · 2018/01/31(水) 12:38:18.79

>>50
え・・・
グローバル変数使ってるの？

**デフォルトの名無しさん** · 2018/01/31(水) 13:51:36.51

モジュール変数なら許せてグローバル変数が許せない、ということではないよな？

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

>>52
スコープが広がるごとに許容範囲は狭まるだろ
クラス使うならモジュールレベルの変数は普通に使うつーか、使わんと大したもん作れない

**デフォルトの名無しさん** · 2018/01/31(水) 15:23:18.93

自分は他のソフトを制御するのにVBA使ってるけど、モジュールレベル変数やグローバル変数を使うとインスタンスが残って不具合出ることが多かったから使わないようにしてる。
解放させる手もあるけど、タイミングに気を使うし記述も面倒。そしてなにより不具合発生原因の特定がスコープが広すぎるときつい。
だったらプロシージャ内で終わるの前提で設計する方が楽という結論になった。

あと、公式でプロシージャレベル変数が保持されることに期待するマクロは推奨しないみたいなコメントなかったっけ。

**デフォルトの名無しさん** · 2018/01/31(水) 17:43:55.07

そうそう。
フォームもクラスも使ったプログラミングを始めるとグローバル変数を使わざる負えない場合がある。
下手にENDを使われると同時に開いてるアドインが使い物にならない可能性があるので注意したほうが良いかも

**デフォルトの名無しさん** · 2018/01/31(水) 17:55:21.63

>>55
クラスにろフォームにしろそのモジュール内で完結させるのは前提だけどね
標準モジュールでもモジュールレベル変数が有効なことがないこともないがね
完全にパブリックなグローバル変数は可能な限り使わないのが基本だろう

**デフォルトの名無しさん** · 2018/01/31(水) 19:46:12.53

今までグローバル変数を使わなければ
ならなかった局面に当たったことがない

どんな時に使わなければならなくなる？
いや、いつも外部とのやり取りは
パブリックなメソッドやプロパティで
やってるんだけど

**デフォルトの名無しさん** · 2018/01/31(水) 19:50:56.33

>>56
ID変わったけど55です。それについては異論はないかな。
ただ>>42のように勘違いする人が出てきそうなので、ENDを使わないのも基本だとして根拠を上げてみた。

例えばアドインでは常駐フォームとかWithEventsでイベントをフックするためのクラスを制御するのにグローバル変数を使わないといけない。
しかもENDを使った瞬間に開いてるフォーム全部消えるんだよね。
せめて同一プロジェクトのみのメモリ解放だと良いんだがExcel VBA全体のメモリが開放されてしまう。

ENDはおまじないはおまじないでも、バルスだと思って使って欲しい。

**デフォルトの名無しさん** · 2018/01/31(水) 20:27:34.36

Endを使われても問題が生じない堅牢なアドインの作り方としては、設定値はレジストリに保持しておいてグローバル変数はあくまでキャッシュとして使うのがいいのかな？
（グローバル変数を使う前に必ず存在チェックして、NothingやEmptyなら都度レジストリから値を読み出してインスタンス再生成）

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

ちなみにグローバル変数と書いたけど、Endでモジュールレベルの変数もクリアされるという理解

**デフォルトの名無しさん** · 2018/01/31(水) 20:42:31.70

>>57
可愛い質問やなグローバル変数もプロパティも同じ事やで
お前はまずグローバル変数使わなきゃいいってもんやないて事を覚えた方がええな

**デフォルトの名無しさん** · 2018/01/31(水) 20:43:12.79

>>57
確かにモジュール変数にパブリックメソッドを経由してアクセスするようにすればグローバル変数は必要ないかな。
「使わざるを得ない」という表現は撤回するよ。

>>59
アドイン開発ではそれが基本かな。
ENDに相当する「停止」ボタンをデバッグ中に頻繁に押すから事前とそういう作り方になると思う。

あとレジストリも良いけど俺はXML派かな。
理由はPC間の移行がユーザーレベルでも出来るからだけど、今にして思えばインポートはダブルクリックで出来るレジストリのほうが簡単だな。エクスポートはちょっと厄介だけど。

**デフォルトの名無しさん** · 2018/01/31(水) 20:43:32.54

>>59
そんなことしなくても
ちゃんとスコープ毎に解放する作りにしとけば
いいんじゃない？
処理が走り終わったときはこれこれ、
ブックが閉じるときはこれこれ、
といった感じで

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

>>61
あー・・・

同じと思ってるんだね

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

プリミティブな値を保持するコンテナが欲しいとき、ほとんどの場合はグローバル変数やモジュールレベル変数を使うまでもなくセルなどに書き込むだけで事足りる
セルへのアクセス時には組み込みのイベントがいくつも走るのでそこは要注意だし、巨大な動的配列を使用する場合は処理速度の問題が出てくるけど

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

サーバーの監視業務からいきなりVBAでデータ抽出したりする部署に飛ばされたんだけど、なんかいい勉強方法あります？
SQLサーバから引っ張ったりしてます。

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

endはホントに終わらせたいときにしかつかっちゃダメだろう
PCで言えば強制終了と同じようなもんだ
仕方なしに使うもんで、グローバル変数と同じように出来るだけ使わないようにするもの
少なくともおまじない感覚はダメだな

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

エクセルはメモリを適切に解放しない事が多々あるので、Endが有効な場面もそれだけ増えるというのが困りもの

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

すみません質問です。初心者です
曜日を順番に表示したいのですが、出てくる曜日がデタラメなのです。
どこか悪いんでしょうが、さっぱりわかりません。
ベテラン様、教えてくだされ。

Dim 年 As Integer, 月 As Byte, 日 As Byte
年=2018
月=1
i = 1
For 日 = 1 To 31
Cells(i + 3, 3).Value = Format(年 / 月 / 日, "aaa")
i = i + 1
Next

**デフォルトの名無しさん** · 2018/01/31(水) 22:02:51.06

>>69
適当だけどセルに設定されてる値が
日付型になってないことない？

**デフォルトの名無しさん** · 2018/01/31(水) 22:13:47.19

>>70
日付型にしてみたけど、やはりダメみたいです。

**デフォルトの名無しさん** · 2018/01/31(水) 22:14:33.51

>>69
> Format(年 / 月 / 日, "aaa")
なんで割り算してるの？

**デフォルトの名無しさん** · 2018/01/31(水) 23:18:11.45

Cells(i + 3, 3).Value = Format(DateValue(年 & "/" & 月 & "/" & 日), "aaa")

**デフォルトの名無しさん** · 2018/02/01(木) 00:24:06.09

>>53
クラスモジュールのやつはインスタンスごとに別の実体だからモジュール変数じゃない。

**デフォルトの名無しさん** · 2018/02/01(木) 06:16:45.45

>>72
>>73
うまくいきました。
助かりました、ありがとうございました。

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

急いでるとよく間違えるよな。しかも思い込みでミス発見に時間かかかるかる

**デフォルトの名無しさん** · 2018/02/01(木) 19:37:02.10

>>73
わざわざ日付を文字列にしなくてもいいよ
Cells(i + 3, 3).Value = Format(DateSerial(年, 月, 日), "aaa")

>>76
禿げ同
しょうがないので
> Cells(i + 3, 3).Value = Format(年 / 月 / 日, "aaa")
の行にブレーク掛けて止まったらイミディエートウィンドで
Debug.Print Format(年 / 月 / 日, "aaa")
Debug.Print 年 / 月 / 日
Debug.Print 年
...
ってやってる

**デフォルトの名無しさん** · 2018/02/01(木) 19:45:37.17

>>77
禿乙

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

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/bingo_game.html
すみません　このページでダブルビンゴの判定を追加しようと思うのですがうまくいきません。。。

**デフォルトの名無しさん** · 2018/02/02(金) 10:42:11.74

ワシはティンコを２本もっている
２本目はとっておきだ(´・ω・｀)b

**デフォルトの名無しさん** · 2018/02/02(金) 18:16:54.37

>>80
バケモノじゃねーか

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

>>79
試してないけどこんな感じかね

・関数の先頭に「Dim cn5 As Integer」を追加
・「cn1 = 0: cn2 = 0」の直前行に「cn5 = (cn1 ¥ 5) + (cn2 ¥ 5)」を追加 (「/」ではなく「¥」)
・「cn3 = 0: cn4 = 0」の直前行に「cn5 = (cn3 ¥ 5) + (cn4 ¥ 5)」を追加
・「End With」の直前行に以下を追加
If cn5 = 5 Then
.Range(cf(k)).Value = "BINGO!!"
Beep
End If

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

>>82
間違えた

× If cn5 = 5 Then

○ If cn5 >= 2 Then

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

クロスワードパズル、迷路探索アルゴリズムをExcelVBAで作ることができたので、
今度はテトリス作ってみようと思う。
が、飛躍しすぎ？
キー操作で回転させるとか、→押下で横に移動しつつ落下するとかは、難しそうだな。
タイマとかも張らないといけない？

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

>>84
5年くらい前に作った。
余裕とは言わないけどぷよぷよ作るよりは楽。
タイマーはAPIで見てる。
ブロックはセルに数字を入れて
条件付き書式で着色した。

今作ればクラスの理解があの頃とは全然違うので
多分また違う作りになると思う。

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

テトリスってWinAPIに慣れるために最初に作るようなヤツだから構造的にはそこまで難しくないだろうな
でもエクセルだと描画速度の問題があるから・・・

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

>>86
大丈夫。EXCELとは言えそこまで遅くはないよ。
むしろ遅くなったら作りに問題があると考えていいと思う。

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

宣言済みの変数を全て初期化するにはどうしたらいいですか？

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

>>88
律儀に全部の変数になにかを代入すりゃいいだけだろ

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

>>89
それはそうなんですが変数を追加とかしたときに初期化漏れが出そうで・・・
その方法しかないんですかね？

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

>>88
宣言した直後は初期化されてる
マクロの動作がすべて終了したら自動的に初期化される

マクロの動作の途中ですべての変数を初期化したいなら、初期化するプログラムをいちいち書くしかないけど、
それはもともとの設計が悪い、方針がおかしい

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

構造体の初期値とかな

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

>>90
そもそも初期化漏れってなんだ？たとえば

Dim AAA As Integer

みたいに書いてあると、マクロが実行開始された時点ではAAAは必ず0になってるんだけど
ほかの言語と勘違いしてないか

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

Integerとか使うなよw

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

設計が悪いのは確かです。私がVBAド初心者の頃から改良・機能追加を繰り返したコードでぐちゃぐちゃしてます。Public変数だらけなんです｡
まとめて初期化する方法はなさそうですね、残念ですがレスありがとうございました。

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

>>93
欲しい初期値がデフォルト値とは限らない

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

リセットするプログラム組んでおいて呼び出すとか

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

変数のスコープは短い方がメンテナンス性がいいと思います

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

変数の値なんて必要に応じてセットするもんだろ
なんだよ「全変数初期化」って
プログラミングの基礎からやりなおした方がいい

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

初期化するサブルーチンを作れ

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

>>88が必要だと思ったから聞いてんだろw
何を訳のわからん事言ってんだコイツはw

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

>>97
後からPublic変数を追加した場合、その"リセットするプログラム"も変更の必要ありますよね？
Public変数を一括で初期化できるならいいんですが
>>98
そうですよね。今更ですが実感しています。
>>99
そうです。変数の値を必要に応じてセットしたいんです。
必要な状態とは、変数宣言直後の値なんです。
できませんかね？
>>100
一括で初期化するサブルーチンってできますか？

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

>>102
それを検討する間にソースを書き換えた方が早そう。
それもできない程、巨大なモノならVBAの範疇を超えてると思う。

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

>>102
ひとこと言わせてもらうと
そもそも「一括で全ての変数を初期化する」と言う
機能が必要になっている時点で多分構成的に
破綻していると思う。

変数を設定する前にどんなプログラムをどんな構成で組むのか、
そのためにはどんなライフサイクルの変数が必要で
スコープはどうするのか
次回から考えて作るようにした方がいい。

もっとも、今そんなことを言っても
多分取り返しのつかないようなコードになっているだろうから
とりあえず一つクラスを作っておいて
今パブリック変数として使っている変数を
そのクラスのプロパティとして移してやって、
生成する際にコンストラクタで初期化してやったら
どうだろうか。
条件によって初期値が変わるのならそのクラス内に
そのためのメソッドを作ってもいいと思う。

あまりいい作りとは言えないけど
そのクラスのインスタンスを
モジュール変数にセットしておいて
初期化したいときは新たに生成したものを
その変数に入れてやればとりあえずは
現状よりはもう少し手が入れやすくなると思う。

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

>>102
setvar, letvar, getvar, setarray, letarray, getarray みたいな共通関数を作りましょう。
型ごとに letstrvar, getintvar みたいなのも作っといたほうが便利かな。
まあ大きな関数5～6個と小さな関数30個くらい実装すれば事足りるでしょう。
既存の g_FooBar, g_Baz みたいなPublic変数へのアクセスを全部 letstrvar("g_FooBar", local_str), local_int = getintvar("g_Baz") のような形式に書き換えましょう。
共通関数の中では、実際の値は巨大な配列に保持して、名前とインデックスを紐付けて管理しましょう。
こうすればグローバル変数の置換は機械的にできるし、変数の初期化も一発です。
健闘を祈ります。

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

>>103
>>104
レスありがとうございます。
このVBAコードは自分しか使わないし、自分以外がメンテすることはありえないので、
ろくにプログラミングの基本マナーなんてものを勉強しないまま、コード追加追加でわけわからなくなってしまったものです。
自分の書き込みから短時間で、お前のコードの設計が悪いんだとのレスを多く頂いて正直落ち込んでおります・・・
薄々気付いてはいましたが、他の方から指摘されると流石にこたえました。
少しずつ改善していこうと思います。
その上で、>>104をやっていこうと思います。
現時点で>>104の内容は理解できていませんが､なんかすごい貴重なアドバイスなような気がします。参考にさせていただきます。ありがとうございました。

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

>>106
構成に関しては単一責任原則に沿って作れば
上達が早くなると思うので
もし知らなければググってみた方がいいかも。

初期化というのは実はそこそこ奥の深い話で
ファクトリーパターンやファクトリーメソッドとか
ググると色々出てくるのだけれど
かなりObject指向寄りの話になってしまうので
ここではまぁ興味があればということで。

頑張ってくださいね。

**デフォルトの名無しさん** · 2018/02/09(金) 06:47:45.10

>>102
> 後からPublic変数を追加した場合、その"リセットするプログラム"も変更の必要ありますよね？
変更すればいいじゃない
そもそも今あるPublic変数はともかく今後もPublic変数バンバン増やしちゃるって思ってるの？

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

j自分しか使わないってんなら現状使っているのはそのまま置いといて、いい機会だと
思って新たに作るぐらいの気持ちで、「少しずつ改善」なんて小手先のことやらずに1度徹底的
に作り直したほうが良い。

**デフォルトの名無しさん** · 2018/02/09(金) 12:00:04.92

グローバル変数、「さっき設定した値を後でまた参照する」的な意味でどうしても必要になることは理解できるけど、
あったとして一つか二つがいいところ。
データセット的なものを配列使わず保持するならたくさん必要になるけど、さすがにそれは配列かコレクション使え。

**デフォルトの名無しさん** · 2018/02/09(金) 19:07:16.76

毎回初期化が必要なグローバル変数があるならいっそ値をワークシートに保存して管理した方が安全だよな

**デフォルトの名無しさん** · 2018/02/09(金) 19:29:49.16

誰か>>105を巨大配列じゃなくてワークシートに記録するやり方で実装してください。

**デフォルトの名無しさん** · 2018/02/09(金) 19:45:27.04

>>105さん渾身のネタ、スベる

**デフォルトの名無しさん** · 2018/02/10(土) 01:27:55.34

Worksheet_Calculateが頻繁に呼び出され、これが主な処理であるとき
Public変数だらけになったことはある
初心者だから他にもっといい方法があったのかもしれんが

**デフォルトの名無しさん** · 2018/02/10(土) 04:42:12.40

でもみんなPublicな変数使ってて怖くない？
標準、あるいはクラスモジュール単位で
作られたメンバ変数が勝手に外部から
書き換えられちゃうんだよ？
しかもブレークポイントにもかからないから
いろんなところから頻繁に書き換えられたら
変な値が入っても犯人探しが大変だし。

前にも書いたけどプロパティにしたり
関数にしたりしてアクセサつけといた方がいいと思うよ。
読み取り専用にも出来るしね。

**デフォルトの名無しさん** · 2018/02/10(土) 05:43:42.77

マクロの設計にもよるだろうけどグローバル変数使わずに大がかりなマクロ作ったことあるから、
絶対に避けられないというのは疑問だな。

だいたい初期化が必要な時点でグローバル変数にするのは不適当だし。

**デフォルトの名無しさん** · 2018/02/10(土) 07:57:32.74

初心者あるあるだな
修正や追加を繰り返すうちにコードがスパゲッティになって、変数がどこで書き換えられたか追跡できなくなったもんだから特定のタイミングで一気に初期化したい
すごい手間がかかってるから全面的な書き直しもやりたくない

保守性やモジュール化などの概念がわかってきたところで覚悟を決めて、設計からやり直した方が幸せになれるパターン

**デフォルトの名無しさん** · 2018/02/10(土) 07:57:57.08

おまえらにはグローバル変数は決して悪いものではないという事を知って欲しい

**デフォルトの名無しさん** · 2018/02/10(土) 12:25:34.71

コントロールのイベントプロシージャはプライベートっていう制約があるから
シートと、ユーザーフォーム間のActiveXコントロールで変数の受け渡しをする場合は、パブリック変数を使用するしかいい方法がないと思う

**デフォルトの名無しさん** · 2018/02/10(土) 12:29:55.88

ワークシートはグローバル変数みたいなもん
印刷さえしなければたいがい便利に使える

**デフォルトの名無しさん** · 2018/02/10(土) 14:00:23.82

シートから直接取ればいいのでは？？
使い回すにしてもプライベート変数で事足りると思うけど。
パブリックにして読み書き自由にする必要はないんじゃないか？

**デフォルトの名無しさん** · 2018/02/10(土) 17:52:03.19

rangeオブジェクトを分割して2つのrangeオブジェクトにしたいのですがこれだと値がおかしいので解決方法教えてください

Set obj = Range("a1:b100")
set obj1 = obj.range(obj.cells(1,1),obj.cells(100,1))
set obj2 = obj.range(obj.cells(1,2),obj.cells(100,2))

**デフォルトの名無しさん** · 2018/02/10(土) 18:04:50.18

>>122範囲をセットしてるだけで
値をセットしているわけではない

**デフォルトの名無しさん** · 2018/02/10(土) 19:22:41.50

>>122
objに設定してるセルが存在するシートの参照式が省略されてるけど、シートはActiveSheetでいいの？
あと、obj1とobj2には値を設定してるわけじゃないんだが、値がおかしいってどういうこと？

**デフォルトの名無しさん** · 2018/02/10(土) 21:53:50.67

vbaに関する質問か分からないけど、
他者が作成したexcel vbaマクロの中身をのぞこうとしたら、パスワードがかかって開けなかった。
どうやったらパスワードを特定できる？

**デフォルトの名無しさん** · 2018/02/10(土) 21:55:42.82

>>125
そんなもの他者が特定出来たらパスワードの意味がないだろう

**デフォルトの名無しさん** · 2018/02/10(土) 21:55:42.88

>>125
パスかけたやつに聞く

**デフォルトの名無しさん** · 2018/02/10(土) 22:02:18.01

>>125
VBAのパスワード保護なんてあってないようなものだからすぐ解除できる
http://neos21.hatenablog.com/entry/2016/09/30/081709

**デフォルトの名無しさん** · 2018/02/10(土) 22:16:02.76

>>123-124
Set obj = Application.InputBox("2列選択", Type:=8)
Set obj1 = obj.Range(obj.Cells(1, 1), obj.Cells(obj.Count / 2, 1))
Set obj2 = obj.Range(obj.Cells(1, 2), obj.Cells(obj.Count / 2, 2))

こんな風にした2列選択した後に1列毎のrangeオブジェクトに割り当てようとしています
試しにobj1.Selectとやって範囲を確認してみると関係のないセルが選択されてしまいました

**デフォルトの名無しさん** · 2018/02/10(土) 23:02:35.50

>>129
Set obj = Application.InputBox("2列選択", Type:=8)
Set obj1 = obj.Worksheet.Range(obj.Cells(1, 1), obj.Cells(obj.Count / 2, 1))
Set obj2 = obj.Worksheet.Range(obj.Cells(1, 2), obj.Cells(obj.Count / 2, 2))

**デフォルトの名無しさん** · 2018/02/10(土) 23:24:31.56

このほうが汎用的なのかな
Set obj = Application.InputBox("2列選択", Type:=8)
Set obj1 = Application.Range(obj.Cells(1, 1), obj.Cells(obj.Count / 2, 1))
Set obj2 = Application.Range(obj.Cells(1, 2), obj.Cells(obj.Count / 2, 2))

**デフォルトの名無しさん** · 2018/02/10(土) 23:27:24.03

>>131はだめか
Application.Range プロパティ (Excel)
＞オブジェクト修飾子を指定せずにこのプロパティを使用すると、 ActiveSheet.Range のショートカットとなります。

>>130でいいと思うけど、Range, Cellsの仕様がいまいち分からなかったから理論的になぜかは説明できない

**デフォルトの名無しさん** · 2018/02/10(土) 23:39:33.30

set obj = nothing
は最後に入れるべきか、
ほったらかしでも問題無いのか
どうなんだろう？

**デフォルトの名無しさん** · 2018/02/11(日) 00:18:26.88

おまえらには必要

**デフォルトの名無しさん** · 2018/02/11(日) 04:53:44.34

同じＡＤＯでもﾃﾞﾙﾌｧｲのｸﾛｰｽﾞはﾅｯｼﾝｸﾞだけど、ＶＢ系の場合はｸﾛｰｽﾞだよねだいたい
たしかｸﾛｰｽﾞせずにﾅｯｼﾝｸﾞするとｸﾛｰｽﾞできなくなる

**デフォルトの名無しさん** · 2018/02/11(日) 08:29:24.42

>>129
例えばC1:D:4を選択した場合

１．obj.Rangeの中で更にobj.Cellsを指定するということは、C列目を基準にC列目を指定をしていることになる。
だからRangeの中にCellsを書く時はobj.Cellsではなく、obj.Worksheet.Cellsが良い。

２．obj1がC1:C4、obj2にD1:D4をセットしたいってことだよな？
obj.Cells(obj.Count / 2, 1)
この書き方だと行数を半分にしているのだがこれは一体・・・
もしC1:F10を指定した場合にC1:D10、E1:F10に分けたいわけじゃないの？

３．可読性が死ぬからRange使うのをやめよう。
範囲指定をする時はResize、Offsetを使ったほうが直感的です。

当初の質問を参考に２の通りだと仮定して
Set obj1 = obj.Resize(, obj.Column / 2)
Set obj2 = obj.Resize(, obj.Column / 2).Offset(,obj.Column / 2)

Objには2列しか選択されない事が確定しているなら
Set obj1 = obj.Resize(, 1)
Set obj2 = obj.Resize(, 1).Offset(,1)

**デフォルトの名無しさん** · 2018/02/11(日) 10:16:47.04

>>136
1についての文献あれば教えて

2に関しては、2列選択中だから総セル数を2で割れば行数が算出できるってことやろ
obj.Rows.Countのほうがいいとは思うけど

**デフォルトの名無しさん** · 2018/02/11(日) 10:18:33.85

>>137
>1についての文献

あ、想像で書いてるどっかのブログとかじゃなくて
ちゃんとしたMicrosoftの公式文献ね

**デフォルトの名無しさん** · 2018/02/11(日) 10:29:03.91

文献()読んでもわからんからこんな掃き溜めで質問しとんのやろw
ややこしい奴やなあw

**デフォルトの名無しさん** · 2018/02/11(日) 10:34:27.69

>>139
俺は回答者側や

**デフォルトの名無しさん** · 2018/02/11(日) 10:37:10.14

>>140
俺は回答者側や(ｷﾘｯ

あのさあ～お前羞恥心ないの？www

**デフォルトの名無しさん** · 2018/02/11(日) 10:38:14.38

ほったらかしで問題ない場合と
そうでない場合があるので
よくわからなければ明示的に
Nothing入れといた方がいい

**デフォルトの名無しさん** · 2018/02/11(日) 10:54:41.06

>>138
> あ、想像で書いてるどっかのブログとかじゃなくて
> ちゃんとしたMicrosoftの公式文献ね
偉そうにほざく前にMSDNぐらいググれ
https://msdn.microsoft.com/ja-jp/library/cc408924.aspx

**デフォルトの名無しさん** · 2018/02/11(日) 10:58:29.29

>>143
どこにobj.Rangeの引数としてobj,Cellsが指定された場合の解釈のされ方が書いてあるの？
どこみてもActiveSheet.Rangeの引数として使ってる例ばっかりだし、内部的にどういう形式に変換されてるのか全然読み取れないんだわ

**デフォルトの名無しさん** · 2018/02/11(日) 11:40:12.40

>>144
> 偉そうにほざく前にMSDNぐらいググれ
って書いてあるのにバカすぎる
URLは単なるヒントな
まあ普通の理解力あればあれで充分だと思うが w

**デフォルトの名無しさん** · 2018/02/11(日) 11:49:28.10

>>145
煽りはいいから笑
結局探したけど見つけられなかったんだろ？
気持ちは分かるわ

**デフォルトの名無しさん** · 2018/02/11(日) 12:24:58.11

そう思いたいならそれでいいんじゃね w

**デフォルトの名無しさん** · 2018/02/11(日) 12:56:24.79

>>137
公式文献は知らないがそういうもんだと納得している。

想像（）とか、こんなくらい知ってるわヴォケとか言われそうだが
set ws = Worksheets(1)があると仮定して。

これはどれもRange("B2")への参照を示すわけだが
ws.Cells(2,2)
ws.Cells(2,2).Cells(1,1)
ws.Cells(2,2).Range("A1")

CellsとかRangeは同一ワークシート内であれば、いくらでも参照先を変更できる。
例えばこれはどれもRange("C3")への参照。
B2を基準(1,1)として(2,2)を見ていることになるからだ。
ws.Cells(2,2).Cells(2,2)
ws.Cells(2,2).Range("B2")
ws.Range(ws.Cells(2,2).Range("B2"))

問題の件はobjに既にRangeが格納されているからわかりづらいが
Set obj = ws.Range("B2")　の場合に
obj.Range(ws.Cells(2,2))　というのは
ws.Range("B2").Range(ws.Cells(2,2))　ってことだよね
単一セルの場合はws.Range("B2").Cells(2,2)と同一の結果になる。

範囲の場合も考え方は同じだがRange(a,b)でaとbに範囲を渡した場合
aとbを合わせた領域の最端の範囲を示すのは言わずもがな。

結局のところ何も難しい話ではなくて、Offsetの相対指定とResizeの範囲指定を同時にできるのがRangeだっていう話に戻る。

普段ws.Range("A1")と書いているものは、実はws.cells(1,1).Range("A1")の省略形だって考えて俺は納得した。

**デフォルトの名無しさん** · 2018/02/11(日) 13:17:28.48

>>148
素直な君には正解を教えてあげる w

For example, if the selection is cell C3, Selection.Cells(2, 2) returns cell D4
https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-item-property-excel

**デフォルトの名無しさん** · 2018/02/11(日) 16:48:17.26

>>148
ありがとう。

結局、想像でしかないけど、
obj.Range(obj.Cells(x, x), obj.Cells(x, x))
を独自関数
SelectionRangeCells(obj, obj.Cells(x, x), obj.Cells(x, x))
に置き換えると、こんな感じのことをしているのかね。

Function SelectionRangeCells(ByRef rng As Range, ByRef cell1 As Range, ByRef cell2 As Range) As Range
Dim startRow As Long
Dim endRow As Long
Dim startColumn As Long
Dim endColumn As Long
startRow = WorksheetFunction.Min(cell1.Row, cell2.Row)
endRow = WorksheetFunction.Max(cell1.Row, cell2.Row)
startColumn = WorksheetFunction.Min(cell1.Column, cell2.Column)
endColumn = WorksheetFunction.Max(cell1.Column, cell2.Column)
Set SelectionRangeCells = rng.Resize(endRow - startRow + 1, endColumn - startColumn + 1).Offset(startRow - 1, startColumn - 1)
End Function

obj.Range("A1")という形式の場合は公式ドキュメントに明確に書かれてるね。
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/range-range-property-excel

obj.Range(obj.Cells(x, x), obj.Cells(x, x))
の場合はobj.Cells(x, x)が実体セルを指していてobjとの相対位置も分かってるわけだから
Rangeプロパティ内で相対参照を算出する実装方法も考えられるしそのほうが使う側は分かりやすいはずだけど
そう実装していないという明確な記述がどこにもなかったから実際に動かしてみての想像しかできなかった。

（ちなみに>>149がなにやら勘違いしているようだがCells(x, x)【Cells._Default(x, x)】が何を返すかを知りたかったわけではない）

**デフォルトの名無しさん** · 2018/02/11(日) 17:24:07.93

>>150
> （ちなみに>>149がなにやら勘違いしているようだがCells(x, x)【Cells._Default(x, x)】が何を返すかを知りたかったわけではない）
その理解力で人を勘違い呼ばわりとか w

**デフォルトの名無しさん** · 2018/02/11(日) 17:54:51.66

>>151
俺からしたらおまえも>>150と似たりよったりだからw
まあ今回の件は僅差でお前の勝ちだけどw

**デフォルトの名無しさん** · 2018/02/11(日) 18:02:54.57

メゾット君も負けを認められるほど成長したかと感心したもののレス見ると何で勝利宣言してんのか分からなかった

**デフォルトの名無しさん** · 2018/02/11(日) 21:45:11.45

今回の使い方は良いのか悪いのか
ちょっと判断つきかねるなぁ
可読性がちょっとね

扱い方そのものは悪いとは思わない
書いてる人も気付いているか分からないけど
やってることはデコレータパターンの
それにかなり近いんだよね
洗練されればそれなりに便利かも知れないね

**デフォルトの名無しさん** · 2018/02/11(日) 22:48:44.70

タスクスケジューラで、Private Sub Workbook_Open()、の記述のあるブックを開くと、
Private Sub Workbook_Open()が実行されるときもあれば、実行されないときもある。
なんでなんだろ？
その違いが今のところ掴めないでいるんですが、どなたか何か情報をお持ちではないですか？

**デフォルトの名無しさん** · 2018/02/11(日) 23:09:13.81

>>155
ログオフしてるときに動かしたいなら事前にちょっと設定が必要だけどそこら辺は大丈夫？
http://gagaj.hateblo.jp/entry/2015/03/21/162218

**デフォルトの名無しさん** · 2018/02/11(日) 23:28:58.59

>>156
ユーザーがログオンしているときのみ実行する、にチェックが入っていますので違うと思います。
念のため、紹介してもらったサイトに従いフォルダを作成しましたがそれでも変わらずです。
他に情報ありましたらお知らせください。ありがとうございました。

**デフォルトの名無しさん** · 2018/02/12(月) 07:06:15.59

>>155
実行されない時があるってことは実行される時もあるの？
auto_open()も試してみてよ。
微妙に挙動が異なるので動くかも。
詳しくは違いでググって下さい

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

あほやなあオープンマクロが動かんのはオープンしとらんからにきまっとるんやがw

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

>>157
> 他に情報ありましたらお知らせください。ありがとうございました。
て言うかまずお前が情報書けよ

> ユーザーがログオンしているときのみ実行する、にチェックが入っていますので違うと思います。
なんて後から言われても困る

**デフォルトの名無しさん** · 2018/02/12(月) 10:49:27.81

スケジュールで走らせるのが目的なら
イベントにたよらなくても
VBSからVBAのプロシージャを直で指定して呼べた気がする
でVBSの方をスケジューラーに登録しておく
ググれば方法が見つかると思うのでお試しあれ

**デフォルトの名無しさん** · 2018/02/12(月) 11:56:54.51

>>86
おまえはどんなショボいPCを使っているのか？Windows95でCPUは486DXか？

**デフォルトの名無しさん** · 2018/02/12(月) 12:41:45.34

>>161
COM経由で操作するなら似たようなもん

**デフォルトの名無しさん** · 2018/02/12(月) 14:28:15.32

へーsystemアカウント用のDesktopフォルダ作るのか
なるほどね

**デフォルトの名無しさん** · 2018/02/15(木) 10:49:13.30

VBE起動したあとVBEのウィンドウを最大化するんだけど、
ブックを閉じてVBEを開くと小さいウィンドウで開くから、また最大化する・・・のが面倒なんですが、
前回終了時のウィンドウサイズを記憶させることってできます？

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

>>165
標準機能では無理
【気軽に「こんなソフトありませんか？」Part.176】
https://egg.5ch.net/test/read.cgi/software/1511329804/

**デフォルトの名無しさん** · 2018/02/17(土) 18:05:06.20

vbaで正規表現書いていたのですが(?:)って使えないんでしょうか？
キャプチャして欲しくない部分が結果に混ざるのでできれば最初から消しておきたいんですが
結果に対して処理するしかないんですかね

**デフォルトの名無しさん** · 2018/02/17(土) 18:26:45.53

>>167
いま手元に環境ないから試せないけどRegExp (Microsoft VBScript Regular Expressions 5.5)使ってるなら使えるはずだが...

**デフォルトの名無しさん** · 2018/02/17(土) 18:39:43.21

>>167
普通にキャプチャしてSubMachesで必要な部分だけ取り出せばいい

**デフォルトの名無しさん** · 2018/02/17(土) 20:20:00.39

できました
ありがとうございました

**デフォルトの名無しさん** · 2018/02/18(日) 00:43:49.98

>>170
礼などいらんよ

**デフォルトの名無しさん** · 2018/02/18(日) 09:52:01.75

>>170
いいってことよ(´・ω・｀)b

**デフォルトの名無しさん** · 2018/02/20(火) 20:34:05.33

派遣先の親分がVBAの動作速度の改善のためにHDDをSSDに替えよう
なんて言っているけれど
VBAとSSDって動作速度の面で関係ありますか？

これってSATA接続のHDD上のExcelファイルを編集するのとUSBメモリ（USB2.0接続）では速度差が出ると言っているようなものだろうけれど
いかんせんUSBメモリはすべて捨ててしまって検証が出来ないです…

**デフォルトの名無しさん** · 2018/02/20(火) 20:46:01.61

>>173
派遣先の親分に対して何がしたくて、どういう裏付けのための「お言葉」を貰いに来たの？

**デフォルトの名無しさん** · 2018/02/20(火) 20:51:34.56

>>174
SSDには拘らずPC全てを新調する流れに誘導したいです

**デフォルトの名無しさん** · 2018/02/20(火) 20:54:53.19

ファイルを100個作って保存するとかなら効果あるかも？
誤差の範囲だと思うけど

VBAの速度を上げるならCPUパワーとロジックに力をそそぐべき

**デフォルトの名無しさん** · 2018/02/20(火) 21:13:27.65

やっぱり、そう思いますよねー
ちなみに10シート1000行50列をそれぞれ入力規則10種に違反しているものは無いかくまなく調べる…
みたいなマクロなんですけど
開発者は条件分岐はとりあえずIf文をネストすれば良いみたいな考え方らしくSelect文がゼロなんですよ
これってなんか工夫できそうな気がするんですけど
まぁもうちょっと分析してみます

**デフォルトの名無しさん** · 2018/02/20(火) 21:20:14.98

ごめんなさいIDかわりました

**デフォルトの名無しさん** · 2018/02/20(火) 21:36:39.55

たぶんループ内でセルアクセスしまくってるだろうから
一気に取ってきてメモリで処理して結果をズドン
にすれば1000倍オーダーで高速化するでしょう
健闘をいのる

**デフォルトの名無しさん** · 2018/02/20(火) 21:45:10.31

とりあえず親分を立ててSSDにする
↓
ほとんど全て作業が快適になるけど肝心のマクロは変わらず
↓
やっぱりCPUか、でPC新調する
↓
もったいないので新PCにSSD載せる
↓
マクロも他の作業も爆速になる

これしかないやろ

**デフォルトの名無しさん** · 2018/02/20(火) 21:51:41.56

>>179
セルアクセス！初耳にして今後のキーワードになりそうな言葉です！
がんばります！

>>180
そこまで景気よく行けたらいいなぁ…

**デフォルトの名無しさん** · 2018/02/20(火) 22:19:42.59

セル.valueを一旦全部配列に取り込んで
メモリ上で処理して
配列を最後にまとめて貼り付けれ
画面描画とイベント抑止も追加な

**デフォルトの名無しさん** · 2018/02/21(水) 07:37:11.81

>>177
まぁIf文でもSelect文でも使いどころが見合ってればいいけど
それより気を付けなければいけないのはOrやAndの扱いだね。
.Net系のOrElseやAndAlsoと違って前に設定した条件を満たしていても後続の条件を評価してしまう。

まだ単純な値を比較するなら誤差程度の時間差しか出ないけど
関数やメソッドの戻り値を条件にしていて、
その関数が重い処理であればそれだけ無駄な時間が掛かってしまう。

後はもしクラスに詳しければポリモーフィズムでなるべく無駄な分岐は避けた方が良いかな。
その分処理時間だけでなく改修やテストの時間も削減が見込める。

**デフォルトの名無しさん** · 2018/02/21(水) 23:14:40.16

処理時間の高速化が目的なら
セル範囲をバリアント型配列に代入して配列内で処理をしてから、処理後の結果を配列からセル範囲に出力すれば劇的に早くなるよ

**デフォルトの名無しさん** · 2018/02/22(木) 01:57:42.07

エクセルで家計簿作りたいんだけど、みんなどうしてるん？
ものすっごい管理するのが面倒くさくなるんだけど…

家計簿を複式で書きたいから毎回商品名やら収入支出まで全部書くんだけど、
最近面倒臭くなってきたからこの辺の操作を簡略化したいのよ

商品名を全部書くのが面倒くさいから大雑把な商品項目を作って
商品項目の選択制にしたいんだけどどうすりゃいいんだ？

例えば、お茶買ったとしたら、飲み物って項目を選択して
収入支出のどっちかを選択して金額を入れればいいだけ、みたいな
あと、飲み物のグループだけを表示できるようにしたりもしたい
自分がその月に何にお金を一番使ってるのか項目毎に分析したいんだ

**デフォルトの名無しさん** · 2018/02/22(木) 05:34:45.99

ユーザーフォーム作って選択すればいいんじゃね？
あとはKey に該当する商品だけ合計するとかでおk

**デフォルトの名無しさん** · 2018/02/22(木) 07:11:07.10

>>185
セルを選択形式にしたいなら「入力規制」でググれ
だがその項目を決まった位置に書いておけば
それすら必要ないように思える。

多分VBA必要ない。

**デフォルトの名無しさん** · 2018/02/22(木) 07:13:19.54

>>185
つ「エクセル簿記」

**デフォルトの名無しさん** · 2018/02/22(木) 07:17:47.39

>>185
> 自分がその月に何にお金を一番使ってるのか項目毎に分析したいんだ
スレチになるけどそう言う目的あるならフリーの家計簿ソフト使った方がいいと思うよ

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

フリーの家計簿ソフトなんて作ってるのはみんな>>185みたいな奴だぜ
オレオレ便利機能が欲しいから作っちゃいましたみたいな
家計簿なんてそんなもん
作れるなら自分で作っちゃうアプローチのが正解

**デフォルトの名無しさん** · 2018/02/22(木) 10:32:45.75

さらにスレチだけど、そもそも複式で書く意味って？
支出と費用計上のタイミングがずれる
収入と収益計上のタイミングがずれる
なんてことがある場合に複式の利点があるんだろうけど
そもそも家計簿作る人ってそこまでやんの？
米を１０ｋｇ買ってきました
資産計上します
消費の都度費用計上しますとか？

**デフォルトの名無しさん** · 2018/02/22(木) 18:43:19.33

アスペ感強すぎwww

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

家計簿の無料アプリなんて、いくらでもあるだろ

既にあるものは作るな。
世の中に無いものを作れ

**デフォルトの名無しさん** · 2018/02/22(木) 19:45:49.11

ほんと定期的にやばそうな人くるよな

**デフォルトの名無しさん** · 2018/02/22(木) 21:13:28.78

++や+=や?みたいな演算子ないんでしょうか？
毎回代入やifしないと駄目？

**デフォルトの名無しさん** · 2018/02/22(木) 21:36:57.24

>>195
だめ

**デフォルトの名無しさん** · 2018/02/22(木) 21:45:28.24

ありがとう
不便だなあ…('A`)

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

>>197
不便だよ
不便なところをどうやって何とかするのかを
考えるのもVBAの醍醐味

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

>>195
?:（三項演算子）はIIf( )で似たようなことができる
ただしC++の三項演算子と違って関数だから引数はすべて評価される
なので
a = 0
b = IIf(a <> 0, 1 / a, 0)
とかやると0割りエラーになるので注意

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

And や Or も前件だけで真偽判定してくれなくて全文評価するから不便だよな