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使うのは個人的にスマートじゃなくて嫌。止むを得ず止めたい処理にだけ使うけど。