Excel VBA 質問スレ Part52

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

104

： デフォルトの名無しさん [sage] 2018/02/08(木) 22:47:07.92

:XpMtH+Ey

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

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

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

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

105

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

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") のような形式に書き換えましょう。
共通関数の中では、実際の値は巨大な配列に保持して、名前とインデックスを紐付けて管理しましょう。
こうすればグローバル変数の置換は機械的にできるし、変数の初期化も一発です。
健闘を祈ります。

106

： デフォルトの名無しさん [sage] 2018/02/08(木) 23:00:19.46

:aY4A4Yk1

>>103

>>104

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

>>104

をやっていこうと思います。
現時点で

>>104

の内容は理解できていませんが､なんかすごい貴重なアドバイスなような気がします。参考にさせていただきます。ありがとうございました。

107

： デフォルトの名無しさん [sage] 2018/02/08(木) 23:48:09.40

:XpMtH+Ey

>>106

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

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

頑張ってくださいね。

108

： デフォルトの名無しさん [sage] 2018/02/09(金) 06:47:45.10

:Oqb9O2xf

ttp://neos21.hatenablog.com/entry/2016/09/30/081709

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

109

： デフォルトの名無しさん [sage] 2018/02/09(金) 08:10:43.77

:pONSvQ5P

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

110

： デフォルトの名無しさん [sage] 2018/02/09(金) 12:00:04.92

:liPrOEdm

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

111

： デフォルトの名無しさん [sage] 2018/02/09(金) 19:07:16.76

:pFe+ikyv

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

112

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

誰か

>>105

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

113

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

:mfiNCmZ5

>>105

さん渾身のネタ、スベる

114

： デフォルトの名無しさん [sage] 2018/02/10(土) 01:27:55.34

:UqvxHzys

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

115

： デフォルトの名無しさん [sage] 2018/02/10(土) 04:42:12.40

:sZXQwMqu

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

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

116

： デフォルトの名無しさん [sage] 2018/02/10(土) 05:43:42.77

:FhCw4HrB

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

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

117

： デフォルトの名無しさん [sage] 2018/02/10(土) 07:57:32.74

:vxg4RvSK

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

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

118

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

:4c5k2dma

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

119

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

:silh4Kun

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

120

： デフォルトの名無しさん [sage] 2018/02/10(土) 12:29:55.88

:XBpzoSQ/

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

121

： デフォルトの名無しさん [sage] 2018/02/10(土) 14:00:23.82

:7mQmOVGk

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

122

： デフォルトの名無しさん [sage] 2018/02/10(土) 17:52:03.19

:pkIiHatw

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))

123

： デフォルトの名無しさん [sage] 2018/02/10(土) 18:04:50.18

:o71hUKxM

>>122

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

124

： デフォルトの名無しさん [sage] 2018/02/10(土) 19:22:41.50

:+Zdspcyw

>>122

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

125

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

:9qCKy78B

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

126

： デフォルトの名無しさん [sage] 2018/02/10(土) 21:55:42.82

:Ohg/Tsol

>>125

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

127

： デフォルトの名無しさん [sage] 2018/02/10(土) 21:55:42.88

:yN3uaIXc

>>125

パスかけたやつに聞く

128

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

>>125

VBAのパスワード保護なんてあってないようなものだからすぐ解除できる
外部リンク

129

： デフォルトの名無しさん [sage] 2018/02/10(土) 22:16:02.76

:5tf0t1pe

>>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とやって範囲を確認してみると関係のないセルが選択されてしまいました

130

： デフォルトの名無しさん [] 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))

131

： デフォルトの名無しさん [] 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))

132

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

>>131

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

>>130

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

133

： デフォルトの名無しさん [sage] 2018/02/10(土) 23:39:33.30

:o71hUKxM

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

134

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

:q9UPBdZm

おまえらには必要

135

： デフォルトの名無しさん [sage] 2018/02/11(日) 04:53:44.34

:LDeaRbgm

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

136

： デフォルトの名無しさん [sage] 2018/02/11(日) 08:29:24.42

:AIGXauyP

>>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)

137

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

>>136

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

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

138

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

>>137

>1についての文献

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

139

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

:q9UPBdZm

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

140

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

>>139

俺は回答者側や

141

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

:q9UPBdZm

>>140

俺は回答者側や(ｷﾘｯ

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

142

： デフォルトの名無しさん [sage] 2018/02/11(日) 10:38:14.38

:YMxCZLKM

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

143

： デフォルトの名無しさん [sage] 2018/02/11(日) 10:54:41.06

:A61Ds/EI

>>138

> あ、想像で書いてるどっかのブログとかじゃなくて
> ちゃんとしたMicrosoftの公式文献ね
偉そうにほざく前にMSDNぐらいググれ
外部リンク

ttps://msdn.microsoft.com/ja-jp/library/cc408924.aspx

144

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

>>143

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

145

： デフォルトの名無しさん [sage] 2018/02/11(日) 11:40:12.40

:A61Ds/EI

>>144

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

146

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

>>145

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

147

： デフォルトの名無しさん [sage] 2018/02/11(日) 12:24:58.11

:A61Ds/EI

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

148

： デフォルトの名無しさん [sage] 2018/02/11(日) 12:56:24.79

:AIGXauyP

>>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")の省略形だって考えて俺は納得した。

149

： デフォルトの名無しさん [sage] 2018/02/11(日) 13:17:28.48

:A61Ds/EI

>>148

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

For example, if the selection is cell C3, Selection.Cells(2, 2) returns cell D4
外部リンク

ttps://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-item-property-excel

150

： デフォルトの名無しさん [] 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")という形式の場合は公式ドキュメントに明確に書かれてるね。
外部リンク

ttp://https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/range-range-property-excel"> 外部リンク

ttps://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プロパティ内で相対参照を算出する実装方法も考えられるしそのほうが使う側は分かりやすいはずだけど
そう実装していないという明確な記述がどこにもなかったから実際に動かしてみての想像しかできなかった。

（ちなみに

151

： デフォルトの名無しさん [sage] 2018/02/11(日) 17:24:07.93

:A61Ds/EI

>>150

> （ちなみに

>>149

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

152

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

:q9UPBdZm

>>151

俺からしたらおまえも

>>150

と似たりよったりだからw
まあ今回の件は僅差でお前の勝ちだけどw

153

： デフォルトの名無しさん [sage] 2018/02/11(日) 18:02:54.57

:zWT4td5V

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

154

： デフォルトの名無しさん [sage] 2018/02/11(日) 21:45:11.45

:jnjDiTfu

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

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

155

： デフォルトの名無しさん [sage] 2018/02/11(日) 22:48:44.70

:49jQhb5f

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

156

： デフォルトの名無しさん [sage] 2018/02/11(日) 23:09:13.81

:S5L6PYJ0

>>155

ログオフしてるときに動かしたいなら事前にちょっと設定が必要だけどそこら辺は大丈夫？
外部リンク

ttp://gagaj.hateblo.jp/entry/2015/03/21/162218

157

： デフォルトの名無しさん [sage] 2018/02/11(日) 23:28:58.59

:49jQhb5f

>>156

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

158

： デフォルトの名無しさん [sage] 2018/02/12(月) 07:06:15.59

:Mlpgnb6c

>>155

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

159

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

:xQy5Bsyb

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

160

： デフォルトの名無しさん [sage] 2018/02/12(月) 08:30:35.08

:F3ZoN7fb

>>157

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

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

161

： デフォルトの名無しさん [sage] 2018/02/12(月) 10:49:27.81

:fd37PB9t

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

162

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

:ovw7+iFl

>>86

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

163

： デフォルトの名無しさん [sage] 2018/02/12(月) 12:41:45.34

:F3ZoN7fb

>>161

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

164

： デフォルトの名無しさん [sage] 2018/02/12(月) 14:28:15.32

:RHpKon14

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

165

： デフォルトの名無しさん [sage] 2018/02/15(木) 10:49:13.30

:n3ZAbmwK

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

166

： デフォルトの名無しさん [sage] 2018/02/15(木) 12:06:52.20

:tgIxQ6Uj

>>165

標準機能では無理
【気軽に「こんなソフトありませんか？」Part.176】
外部リンク

ttps://egg.5ch.net/test/read.cgi/software/1511329804/

167

： デフォルトの名無しさん [sage] 2018/02/17(土) 18:05:06.20

:XvsvycnR

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

168

： デフォルトの名無しさん [sage] 2018/02/17(土) 18:26:45.53

:DOQJ47ER

>>167

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

169

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

>>167

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

170

： デフォルトの名無しさん [sage] 2018/02/17(土) 20:20:00.39

:XvsvycnR

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

171

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

:trAPtbQv

>>170

礼などいらんよ

172

： デフォルトの名無しさん [sage] 2018/02/18(日) 09:52:01.75

:VPiCj08E

>>170

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

173

： デフォルトの名無しさん [sage] 2018/02/20(火) 20:34:05.33

:po95iPWj

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

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

174

： デフォルトの名無しさん [sage] 2018/02/20(火) 20:46:01.61

:D3Dd0C9m

>>173

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

175

： デフォルトの名無しさん [sage] 2018/02/20(火) 20:51:34.56

:po95iPWj

>>174

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

176

： デフォルトの名無しさん [sage] 2018/02/20(火) 20:54:53.19

:egNrIJ1q

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

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

177

： デフォルトの名無しさん [sage] 2018/02/20(火) 21:13:27.65

:qLAJwQw3

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

178

： デフォルトの名無しさん [sage] 2018/02/20(火) 21:20:14.98

:qLAJwQw3

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

179

： デフォルトの名無しさん [sage] 2018/02/20(火) 21:36:39.55

:egNrIJ1q

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

180

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

:Qs1V/krE

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

これしかないやろ

181

： デフォルトの名無しさん [sage] 2018/02/20(火) 21:51:41.56

:qLAJwQw3

>>179

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

>>180

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

182

： デフォルトの名無しさん [sage] 2018/02/20(火) 22:19:42.59

:kZvvD5Jp

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

183

： デフォルトの名無しさん [sage] 2018/02/21(水) 07:37:11.81

:pdEcbkjv

>>177

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

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

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

184

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

:y7Un/hTJ

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

185

： デフォルトの名無しさん [sage] 2018/02/22(木) 01:57:42.07

:gwSYBKpq

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

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

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

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

186

： デフォルトの名無しさん [sage] 2018/02/22(木) 05:34:45.99

:6+gpZmum

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

187

： デフォルトの名無しさん [sage] 2018/02/22(木) 07:11:07.10

:/kJbMS0V

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

多分VBA必要ない。

188

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

つ「エクセル簿記」

189

： デフォルトの名無しさん [sage] 2018/02/22(木) 07:17:47.39

:FxhP8B8J

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

190

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

:YVYiWWcv

フリーの家計簿ソフトなんて作ってるのはみんな

ttp://excel-ubara.com/excelvba4/EXCEL270.html

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

191

： デフォルトの名無しさん [sage] 2018/02/22(木) 10:32:45.75

:jLYjEY9/

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

192

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

:VgNmulNi

アスペ感強すぎwww

193

： デフォルトの名無しさん [sage] 2018/02/22(木) 19:08:12.44

:K6gwUVsb

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

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

194

： デフォルトの名無しさん [sage] 2018/02/22(木) 19:45:49.11

:1JOjbwTy

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

195

： デフォルトの名無しさん [sage] 2018/02/22(木) 21:13:28.78

:c7GHDdxz

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

196

： デフォルトの名無しさん [sage] 2018/02/22(木) 21:36:57.24

:UMUr68HJ

>>195

だめ

197

： デフォルトの名無しさん [sage] 2018/02/22(木) 21:45:28.24

:c7GHDdxz

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

198

： デフォルトの名無しさん [sage] 2018/02/22(木) 22:03:55.07

:/kJbMS0V

>>197

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

199

： デフォルトの名無しさん [sage] 2018/02/22(木) 22:05:36.37

:6NHeYF5q

>>195

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

200

： デフォルトの名無しさん [sage] 2018/02/22(木) 22:31:32.98

:rSjpq6iH

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

201

： デフォルトの名無しさん [sage] 2018/02/22(木) 22:44:59.91

:Dms0Es6m

条件式は1本にまとめるよりIfをネストした方が処理が速いこともあるし
C#なんかとは考え方をまるっきり変えてコーディングしないと

202

： デフォルトの名無しさん [sage] 2018/02/23(金) 00:01:36.17

:aLU7NSfS

その内LINQやラムダ式が使えないから不便だって言う人が出てきそうな勢いだな

Pythoneまで待てや

203

： デフォルトの名無しさん [sage] 2018/02/23(金) 08:52:34.86

:AfM26Mh3

｢プログラミング環境なんて数年おきに改訂され進化していくもの｣
という感覚は正しい｡
しかしあたりまえが通じない世界もある｡
それが、「廃れた開発環境」と「リソースの足りないプロジェクト」だ。

204

： デフォルトの名無しさん [] 2018/02/23(金) 12:15:48.66

:E8zJnigo

どしたの急に？

205

： デフォルトの名無しさん [sage] 2018/02/23(金) 12:32:39.13

:AiDQ1wxe

Excel2010以降で、コンテキストメニュー追加するとき
commandbars().add
でコメントを右クリックした時のメニューは（）の中は何になりますか？

206

： デフォルトの名無しさん [] 2018/02/23(金) 22:05:45.08

コメントを右クリックの意味がわからん

207

： デフォルトの名無しさん [] 2018/02/23(金) 22:09:49.60

:NDjRlvGW

まずコメントって知ってるか？

208

： デフォルトの名無しさん [sage] 2018/02/23(金) 22:21:14.89

:LlcGT0P+

日本語崩壊しててワロタ

209

： デフォルトの名無しさん [] 2018/02/24(土) 00:24:56.44

ひょっとして、無指定だと何のショートカットキーが表示されるか(「開く(O)」みたいなの)を聞きたいのではなく(表示されないやろ…てか試せばよくね？と思ってた)、
commandbarsの引数に何を指定すればVBAのエディタのコメントを右クリックしたときのコンテキストメニューに項目を追加できますか？っていう質問なのか？
何の質問をしているのかまったく分からなかったが、がんばって一番意味が通りそうな解釈をしてみた

210

： デフォルトの名無しさん [] 2018/02/24(土) 00:54:26.24

:S7UxFmQS

よく頑張った、もう少しで賞を差し上げます

211

： デフォルトの名無しさん [] 2018/02/24(土) 03:12:36.02

:Cy5WZ5pS

どなたか知恵をください
日本語IMEの変換候補がドロップダウンリストで出てくるアレを
区切り記号入れて（カンマがいいかな）
一つのセルに列挙できませんかね？
例えばA1に半角英で「yama」と入力したら
B1に「山,ヤマ,やま,耶麻,耶摩,八馬,矢間」みたいな

212

： デフォルトの名無しさん [sage] 2018/02/24(土) 03:35:37.11

:39HZSDcZ

>>211

できる
基本的にはImmGetCandidateListかImmGetConversionListを使う
IMEの制御はドロ沼だからあんまり完璧を求めないようにほどほどにな

213

： デフォルトの名無しさん [] 2018/02/24(土) 04:09:09.96

:Cy5WZ5pS

>>212

即レスありがと！
そこのリファレンス読んでくるわ！

214

： デフォルトの名無しさん [] 2018/02/24(土) 23:15:34.68

:KQx6tQtJ

MACでエクセルを使用して、ボタンクリックでphpを実行させてデータを取得してエクセル
に出力する方法を教えて下さい。

215

： デフォルトの名無しさん [sage] 2018/02/25(日) 02:02:21.78

:fGofbzeE

モスじゃだめなのかい？

216

： デフォルトの名無しさん [] 2018/02/25(日) 07:39:33.73

:tVogG6Wu

寒っ

217

： デフォルトの名無しさん [sage] 2018/02/25(日) 10:24:12.12

:jtYvuOjV

今日は暖かいよ

218

： デフォルトの名無しさん [] 2018/02/25(日) 10:56:06.58

:tVogG6Wu

寒っ寒っ！！

219

： デフォルトの名無しさん [sage] 2018/02/25(日) 11:00:26.62

:fGofbzeE

そだねー

220

： デフォルトの名無しさん [] 2018/02/25(日) 17:02:52.72

:TpkMAgUG

ここはエクセルの質問スレちゃうの？、あほばっかだな。

221

： デフォルトの名無しさん [sage] 2018/02/25(日) 19:21:52.64

:eyGxL2ZU

ｿﾀﾞﾈｰ

222

： デフォルトの名無しさん [sage] 2018/02/25(日) 19:54:07.26

:UkkX22dp

>>220

スレタイ読めが判ると思うが

223

： デフォルトの名無しさん [] 2018/02/25(日) 20:22:35.82

:JQVcjONo

１０万件くらいのリストを作ってそれをある規則で並べかえたいんだけど、一番高速で行うにはどういう手法がありますか？

224

： デフォルトの名無しさん [sage] 2018/02/25(日) 20:39:07.10

:uEiWTozj

お前がやらずに、出来る奴に
キチンと敬意と対価を払って
やってもらう
ノウとかハウとかは後で身に付けたらいい

225

： デフォルトの名無しさん [] 2018/02/25(日) 20:53:22.41

>>223

ggrks ([g]oogleでし[r]べてみた[k]っかです[s]んこうにしてね)

外部リンク

226

： デフォルトの名無しさん [] 2018/02/26(月) 07:46:27.51

:nDommPCV

>>225

すみません
ありがとうございました

227

： デフォルトの名無しさん [sage] 2018/02/26(月) 10:23:38.67

:2Ht8owgk

>>226

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

228

： デフォルトの名無しさん [sage] 2018/02/26(月) 17:52:12.51

:NcBRNf65

Ruby なら、VBA より速いし、そんなに難しくない

229

： デフォルトの名無しさん [sage] 2018/02/26(月) 18:56:12.78

:+OqK48cA

Worksheet_SelectionChangeのコード中に､
If Target.Count=1 then Exit Sub
のところで今日急にオーバーフローのエラーが出るようになって
ちょっとググったらCountLargeというのがあることを知ってとりあえず解決したんだけど
一つのセルしか選択肢てないのに・・・
ウォッチ式にTargetを追加して確認したらTargetの中にItemはひとつしかないのにTarget.Countはオーバーフローってなんだこれ？

230

： デフォルトの名無しさん [sage] 2018/02/27(火) 23:52:36.36

:ht7HfYcX

コピー禁止

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.CutCopyMode = False

End Sub

コピー→別のファイル（Excelなど）に貼り付けが出来てしまう

コピー→マウスを動かすだけでキャンセルするようなVBAはないよね、、、。

231

： デフォルトの名無しさん [sage] 2018/02/28(水) 01:32:02.58

:urFvMZOz

APIでクリップボード自体をクリアしたらダメかね

232

： デフォルトの名無しさん [sage] 2018/02/28(水) 01:36:53.98

:Ddk6veDH

>>209

コメントアウトのコメントじゃなくてセルに付与するコメントのことだぞ

233

： デフォルトの名無しさん [sage] 2018/02/28(水) 05:54:26.44

:PdZXKZv3

フォルダに大量に入ってる動画ファイルの名前と容量を抽出してエクセルファイルに出力したり出来ませんか？

234

： デフォルトの名無しさん [sage] 2018/02/28(水) 06:16:52.08

:9FYD/BHY

できらぁ!!

235

： デフォルトの名無しさん [] 2018/02/28(水) 07:17:25.76

VBAにできないことなんてないぞ

236

： デフォルトの名無しさん [] 2018/02/28(水) 07:39:47.81

:6WnrRHIY

え！！VBAでファイルの名前と容量の抽出を！？

237

： デフォルトの名無しさん [sage] 2018/02/28(水) 07:42:05.80

:XToZbbWL

とりあえずファイル操作は全部FSO使っておけば何とでもなる

238

： デフォルトの名無しさん [] 2018/02/28(水) 08:04:41.58

:9Zs6j1Ub

ちょっと横からで申し訳ないです

>>233

に似たようなことをFSOでフォルダ内のファイルを数万件取得していて、foreachで一つずつ配列にいれてるんだけどかなり時間がかかる。。一括で取得する方法とかありますかね？

239

： デフォルトの名無しさん [sage] 2018/02/28(水) 08:08:27.77

:Aj9baD3x

>>238

配列に入れないで処理する方法を考える

240

： デフォルトの名無しさん [sage] 2018/02/28(水) 08:11:14.51

:mCK56HVf

エロ動画フォルダに入ってるファイルサイズ取得して一致したらかたっぽを削除するマクロ作ったわ

241

： デフォルトの名無しさん [sage] 2018/02/28(水) 08:23:05.93

:5dUEHtJL

そんなもんフリーソフト落としてくるだけで出来るわ。
一覧表に起こしてアレコレしたいときに捗る

242

： デフォルトの名無しさん [sage] 2018/02/28(水) 09:22:10.92

:2zUSyVD3

朝っぱらから元気で草

243

： デフォルトの名無しさん [sage] 2018/02/28(水) 18:29:56.39

:EAuLwM42

>>233

エロ動画を大量に集めすぎてどこに何があるか微妙にすぐ見つけれなくなった俺と同じ悩みなんだろうか

244

： デフォルトの名無しさん [sage] 2018/02/28(水) 19:15:28.02

:Tb7VJEa0

Function func(ByVal arg) As int
処理
End Function
Dim var As Function
var = address(func)
Call var(argument)
みたいに、関数へのポインタでコールするのはどう書くの。

245

： デフォルトの名無しさん [] 2018/02/28(水) 20:22:58.19

:6WnrRHIY

>>244

Dim var As Object
Set var = Ref(func)
Call ByRef var(argument)

246

： デフォルトの名無しさん [sage] 2018/02/28(水) 22:29:15.05

:ugxprRf8

PowerShell なら以下で、ファイル名・サイズを、カンマ区切りで表示できる

cd で、そのフォルダへ移動してから、
ls | %{ $_.Name + "," + $_.Length }

結果をファイルに出力するなら、
ls | %{ $_.Name + "," + $_.Length } > ファイル名

出力
test01.rb,341
test02.rb,216
test03.rb,453

247

： デフォルトの名無しさん [] 2018/03/01(木) 22:00:03.32

:AveIjfm9

エクセルに出力できとらんやんw

248

： デフォルトの名無しさん [] 2018/03/01(木) 22:10:39.18

結果をファイルに出力するなら、
ls | %{ $_.Name + "," + $_.Length } > ファイル名.csv

249

： デフォルトの名無しさん [] 2018/03/01(木) 22:22:42.13

:AveIjfm9

でたwwwエクセルとcsvの区別がついてない奴wwwww

250

： デフォルトの名無しさん [sage] 2018/03/02(金) 07:10:15.29

:8gOr4FTA

ブックオープン時にフォームだけ開きたい場合ってどうしたらいい？

251

： デフォルトの名無しさん [] 2018/03/02(金) 07:17:55.07

>>250

[表示]-[ウィンドウ]-[非表示]

252

： デフォルトの名無しさん [sage] 2018/03/02(金) 08:53:24.56

:NzNuwPhv

クラス継承前提で設計してしまったのだが、どうしてくれるの。

253

： デフォルトの名無しさん [sage] 2018/03/02(金) 09:38:57.79

:5NrcBP5g

お前がマヌケだったって事だろ。
作り直せ

254

： デフォルトの名無しさん [] 2018/03/02(金) 12:05:11.13

>>252

ポリモーフィズムはImplementsがあるから、あとはどうにでも工夫できるやろ

255

： デフォルトの名無しさん [] 2018/03/02(金) 19:00:30.03

:ALTNLkg9

>>252

コピペは攻守ともに最強の継承やぞ

256

： デフォルトの名無しさん [sage] 2018/03/02(金) 21:57:53.05

:YGnqgkH5

スーパークラス作ってそれをオーバーライドしてけば省力化できると思ったのかな？

257

： デフォルトの名無しさん [] 2018/03/02(金) 22:07:46.54

省力化は委譲で代替できる

258

： デフォルトの名無しさん [] 2018/03/02(金) 22:19:05.00

:ALTNLkg9

え？委譲で省力化を！？

259

： デフォルトの名無しさん [sage] 2018/03/03(土) 08:40:25.03

:xibgNHFN

正直VBAのクラスは他のObject指向言語に比べるとその辺見劣りするのは仕方ない。元々構造化言語だし。

そこをどうするかを考えて行くのが醍醐味でもあるんだけど
やっぱり移譲にも限界があって例えばフォームを継承してもっと機能を追加したり変更したりしたいとき、
.Net系であれば単純に継承してメソッドやプロパティを追加やオーバーライドすれば良いものが、
移譲の場合は全て呼出し口を設定しなければならなかったりするので
こういう場合は余り現実的とは言えない。

移譲や継承を使うのとはまた違った方法を考える必要があるんだけど
それを考えるのもまた醍醐味。

260

： デフォルトの名無しさん [sage] 2018/03/03(土) 09:00:54.41

:QwmpO0ZF

>醍醐味
ﾌﾟｯｸｽｸｽ

261

： デフォルトの名無しさん [sage] 2018/03/03(土) 09:05:29.61

:CziLTh5W

他に現実的な解法が無いからVBA使っているだけで、誰も好んで使っているわけではないんだけど、
かといって自分の無能を全てVBAのせいにしている発言を見るとイラッとするのは確か

262

： デフォルトの名無しさん [sage] 2018/03/03(土) 11:49:03.81

:Rcnk03vE

>>260

☆ミ DAIGOアジ ☆ミ

263

： デフォルトの名無しさん [sage] 2018/03/03(土) 12:45:47.64

:axcuG9mm

完全に割り切って ByVal As Object または ByVal As Variant で委譲オンリー

264

： デフォルトの名無しさん [sage] 2018/03/03(土) 14:19:14.14

:axcuG9mm

間違えた
ByVal As Object または ByRef As Variant

265

： デフォルトの名無しさん [] 2018/03/04(日) 00:55:22.93

:DAVLACwj

それのどこが醍醐味なの？

266

： デフォルトの名無しさん [sage] 2018/03/04(日) 09:54:22.41

:K2njBMWG

エクセルのマクロちょいちょいと組み立てて自動化させたら

ズルをするな、計算機でちゃんと計算して打ち込め

って怒られた

意味わかんねー

267

： デフォルトの名無しさん [sage] 2018/03/04(日) 09:58:17.84

:3XS25AQI

計算機

268

： デフォルトの名無しさん [sage] 2018/03/04(日) 10:02:50.11

:aHerEJAV

パソコンが登場し始めた前世紀になら居ただろうけど、このご時世だと信じがたいわな

269

： デフォルトの名無しさん [sage] 2018/03/04(日) 10:39:41.20

:/M0AdgD3

その手の輩は

1.そんなもんを自動化したら
　工数がへるから残業する理由が
　なくなるだろ

2.人月商売なのに何で利益減らす行為するん

3.手作り、真心込めて、おもてなし

さて、どれ？

270

： デフォルトの名無しさん [sage] 2018/03/04(日) 10:51:00.13

:6PsP9d9s

単なるバカ

271

： デフォルトの名無しさん [sage] 2018/03/04(日) 10:55:35.55

:m9Z0+hmg

>計算機でちゃんと計算して打ち込め

いや～、そこまで言うなら計算機なんて信じず算盤で計算しろ
が正しいでしょ w

272

： デフォルトの名無しさん [sage] 2018/03/04(日) 11:30:31.21

:7ZGw1DO5

今の時代でも、碌にパソコン使えないくせに、やたらパソコンで作業したがるおじさん・若手はいるし
ああいう人たちが「下手にパソコン使わせると遅くなる」ってイメージを植え付けているのかもしれない

あとマクロ組む工程までいれると、さして時間短縮になっていない人とか

273

： デフォルトの名無しさん [] 2018/03/04(日) 12:45:40.43

:nY2/C6yI

自己満なんやからええやんけ

274

： デフォルトの名無しさん [sage] 2018/03/04(日) 14:52:14.27

:6GOtxg/5

内製にせよ外注するにせよ他人にマクロ作ってもらうとなると時間も経費もかかるし、改修も容易じゃないからな
多少時間かかってもマクロを自分で組めた方が楽なのは間違いないけどね
管理職のくせにマクロの効用を理解できないような奴が、マクロ実装にかかる時間だけを見て手間がかかるからやめろとか言ってくることが結構あるからな

275

： デフォルトの名無しさん [] 2018/03/04(日) 15:51:22.29

:DAVLACwj

結構あるってことはみんなお前のマクロにはもう懲り懲りなんじゃないの？

276

： デフォルトの名無しさん [sage] 2018/03/04(日) 15:59:46.94

:ewEnZjbB

エクセルマクロだと正しいか間違ってるかの判断が（上司にとって）出来ない
上司が使えないプログラミング言語は禁止ねっていうのと同じ種類の問題だと思うよ

277

： デフォルトの名無しさん [sage] 2018/03/04(日) 17:55:29.98

:ibRKmML9

マクロは自分用だとすごく便利
他人が作りっぱなしにしたマクロをだましだまし使うのは地獄

278

： デフォルトの名無しさん [sage] 2018/03/04(日) 18:24:28.65

:jmE3cBn5

エラーハンドリング全然されず
Sheet の初期化(単なるクリア)も
人間がやらないとダメな仕様
のマクロに機能拡張しろってのが
あったけどとりあえず5分で
チンカスであることを強調した上でC#で作り直した思い出

279

： デフォルトの名無しさん [] 2018/03/04(日) 19:26:15.30

自分だけでこっそり使うんならいざしらず、
他人に使ってもらいたいんなら
使ってもらえるような作り方&ドキュメント整備しろってことだな

280

： デフォルトの名無しさん [sage] 2018/03/04(日) 20:05:19.79

:IczeIIEA

エクセルは説明書ページを簡単に添付できる（シート追加するだけ）のがいい
EXE形式だとreadme.txtやHELPなんて読んでもらえないしな
まぁ、エクセルで説明ページがあってもよまないやつがおおいから結局コメント機能使いまくりだったり
画面上に説明書いちゃうけど

281

： デフォルトの名無しさん [sage] 2018/03/04(日) 20:22:52.23

:DWVE2Vb5

もっぱらpowershellやvbscriptで書いてる
元のワークブック汚さずに済むし

282

： デフォルトの名無しさん [sage] 2018/03/04(日) 22:51:58.52

:a3KsBQsp

>>281

ちなみにどう使い分けしてる？
powershell 使い始めたんだけど思うような動作しなくて、結局vbsでいいやってなっちゃう。

283

： デフォルトの名無しさん [sage] 2018/03/04(日) 22:53:07.28

:a3KsBQsp

>>281

ちなみにどう使い分けしてる？
powershell 使い始めたんだけど思うような動作しなくて、結局vbsでいいやってなっちゃう。

284

： デフォルトの名無しさん [sage] 2018/03/04(日) 23:02:24.00

:XOwF/6X2

デバッグ中に別シートに集計中なのに
元データのシートを破壊してしまって涙目
アクティブシートのカレントリージョンをクリアで綺麗サッパリ(´Д｀)

285

： デフォルトの名無しさん [] 2018/03/04(日) 23:41:13.27

:DAVLACwj

マクロはおめえのオモチャじゃねえんだよ
これに懲りたらスッパリとマクロから足を洗うんだな

286

： デフォルトの名無しさん [sage] 2018/03/05(月) 10:31:45.26

:Bgh1BGUs

マクロは個人のオモチャでいいだろう
性能や信頼性は作り手による

287

： デフォルトの名無しさん [] 2018/03/05(月) 12:18:46.09

:Qtnfm99f

>>286

何開き直っとんねんお前もマクロいじるの禁止な

288

： デフォルトの名無しさん [sage] 2018/03/05(月) 13:06:15.33

:RmFDDOch

糞マクロでもいいじゃない
だって人間だもの

げいつ

289

： デフォルトの名無しさん [sage] 2018/03/05(月) 16:20:35.95

:Bgh1BGUs

>>287

マクロは個人のものだと言っとるだろうが
他人に直接影響を及ぼさないんだから禁止もへったくれもない

290

： デフォルトの名無しさん [] 2018/03/05(月) 19:21:30.95

:2ygytXOa

エクセルVBAのグラフの範囲指定Rows.Countで困っております。
お力添え頂きたくお願いしたいです。

A1からD600まで範囲指定して、K1からK600 までをVBAで範囲指定したいのですが、
なお601行目はすべて空白で、602行目には合計数が入っています。
600行目というのは日によって異なり入力値の最大数がばらばらです。

手動でやる際は A1をターゲットし、Shift →×4、CTRL＋SHIFT＋↓、
CTRLを押しながらK1をターゲットCTRL＋SHIFT＋↓で選択。

これをVBAに置き換えるために行ったのですが
某サイトで

Set Target = Union(Range(Range("A1"), Cells(Rows.Count, 4).End(xlUp)), _
Range(Range("K1"), Cells(Rows.Count, 11).End(xlUp)))

というような指定方法がありましたので行ってみましたが
合計数が入力されている602行目が範囲に含まれており困っております。

A1:D600(空白まで),K1:K600(空白まで) というように指定するにはどのようにすればよいでしょか。

291

： デフォルトの名無しさん [sage] 2018/03/05(月) 19:32:56.50

:AenKmQiD

>>282-283

>>281

じゃないけど俺は新規作成はPowerShellに一本化した
まだちょっとはあ？ってなる挙動があるけどやりたいことはだいたいできてる

292

： デフォルトの名無しさん [sage] 2018/03/05(月) 21:32:20.85

:2t/pwmDg

>>290

Range("a1").CurrentRegion
Range("k1").CurrentRegion
でやってみよう

293

： デフォルトの名無しさん [sage] 2018/03/05(月) 21:48:18.83

:2t/pwmDg

>>290

言い忘れたけど
A～DとKが表としてつながってない想定ね

一つの表からなら
Range(Range("a1"), Range("d1").End(xlDown))
Range(Range("k1"), Range("k1").End(xlDown))
でそれぞれの範囲をとれる

294

： デフォルトの名無しさん [] 2018/03/05(月) 22:25:16.54

:2ygytXOa

>>293

ありがとうございます。
2つ目に書いていただいた表が一個の場合を想定しています。
Rangeで行う事が出来るのですね。
Cells(Rows.Count, 4).End(xlUp)をxlDwonに
変えてもダメだったのでかなり絶望してました。

A1～A20とかに書かれている条件でそれが含まれていたら↓を検索するとかも
これでできそうな気がしてきました。
ありがとうございました。

295

： Excel→MySQL [] 2018/03/06(火) 01:06:36.39

:fiBtEf92

すみません、あまり仕組みがよくわからず
こちらに質問致します。
やり方の案内でも助かります。

Excelかtxtのデータをシート上に配置したボタンワンクリックで
→MySQLにアップデートって出来ますか？

バーコードリーダー等のlogファイル
xls,csv,txt
―――A――――B
1、barcode　棚卸数
2、9876543, 21
3、1234567，89

MySQLデータベース
1、メーカ、型番、コード、品名、在庫数
2、Pansomy,THE123,9876543,USOメモリー,3
3、Hitasun,END987,1234567,モバテリー,7

在庫数を棚卸数で上書きが出来れば良いです。
よろしくお願いいたします。

296

： デフォルトの名無しさん [sage] 2018/03/06(火) 07:49:34.86

:RSFFAx7v

>>291

なるほど。
VBSはドラッグ&ドロップが使いやすいが終息方向。
VBAは開発しやすいがあくまでオフィスの製品ありき。
pythonは流行ってるが会社のマシンにデフォで入ってない。

導入のしやすさ、汎用性からpowershell かなあ。ただ動作が遅いのが気になるけど

297

： デフォルトの名無しさん [sage] 2018/03/06(火) 08:23:29.61

:Djyon39L

最終行取得する時って、おまえらどっち派？

298

： デフォルトの名無しさん [sage] 2018/03/06(火) 08:25:04.77

:2b8pbF8x

アレを使っちゃう派
誤取得する場合があるって聞くけどまだ未経験

299

： 295 [sage] 2018/03/06(火) 08:26:39.35

:qLV0sr+i

『棚卸数の入力作業vba』（Masayo）エクセル Excel [エクセルの学校]
www.excel.studio-kazu.jp
こちらのサイトを参考に
外部リンク

ttp://www.excel.studio-kazu.jp/kw/20111019173742.html

VBAのマクロをボタン登録で
エクセルのbook 内のsheet2セルからsheet1に書き込む事は出来るのですが、

powershell?が何なのか知りませんがそれで可能ならそれでも良いです。

ボタンを押すとインポートファイルを指定できる物でも良いのですが、

ただ、PhpMyAdminからの操作が素人には難しくてめんどうなので、
ログファイルをドラッグドロップでアップデートかボタン１つでやれないかと思います。

VBSや.hta(html application)でMySQLにアクセスする方法とかでも良いです。

ログファイル名とフォルダが固定ならスケジュール自動化も視野にしたいです。

よろしくお願いいたします。

300

： デフォルトの名無しさん [sage] 2018/03/06(火) 08:31:48.14

:2b8pbF8x

>>295

ODBCの存在を知らないとかそういう話？
外部リンク

ttps://qiita.com/msano/items/fdcc0cbb8e41b988ce2d

もしくはySQLコマンドラインツールでもできると思う

301

： 295 [] 2018/03/06(火) 08:50:29.68

:qLV0sr+i

>>300

ODBCを使うんですか？ありがとうございます。
具体的な使い方がわからないので、ご提示のサイトで勉強したいと思います。

＞ySQLコマンドラインツール
マウスかタッチパネル操作のみのおじいちゃんでも出来ますか？

302

： 295 [] 2018/03/06(火) 10:37:26.93

:qLV0sr+i

>>300

ご紹介頂いたページを見てみました。
誠に申し訳ないのですが
ログのcsvファイルを新規でMySQLのテーブルに入れたい訳ではなく、
ExcelにMySQLからデータをダウンロードしたいのでも有りません。
確かにsheet1にMySQLからのダウンロードは可能です、sheet2にcsvのファイルも準備できます。
そして、先のVBAを用いてsheet2からsheet1の書き換えと消し込みが出来ましたが、

sheet1の書き換え後のデータをMySQLに戻すには
一旦csvで保存して、MySQLのテーブルをdrop かtruncate してから
書き換え保存したcsvをMySQLにインポートするしか無いのでしょうか？

303

： デフォルトの名無しさん [sage] 2018/03/06(火) 10:58:38.66

:o11Cbfr7

>>297

ケースバイケース
空白もカウントしたいかどうかで方法を変える

304

： デフォルトの名無しさん [sage] 2018/03/06(火) 12:48:25.53

:Z8jG7st4

>>297

ケースバイケース
特に他人が作った表にマクロ仕込むときはそう
エクセルスキルがない奴が作るデータは表の配置が本当に酷いから、目で確認しないと意図した通りのセルにアクセスできないことが多い

305

： デフォルトの名無しさん [sage] 2018/03/06(火) 15:34:28.04

:907OdX1W

先生、どうかご指導お願いします。
得意先名が記載してある列に対して
営業所や支店を削除して整理したいと考えてます

下記はAAA㈱〇〇営業所という社名、営業署名を
AAA㈱と置き換えようとして作成しているマクロです
下記のようにワイルドカードを使って置き換えようとすると
スルーされてしまって変換できません
どうしたらスルーせずに変換できるようになるでしょうか？

Dim Mrow, TOcol, i, t As Long
Dim Mrange As Range

Mrow = Cells(Rows.Count, 1).End(xlUp).Row
TOcol = Rows(1).Find(what:="得意先", lookat:=xlWhole).Column

Range(Cells(2, TOcol), Cells(Mrow, TOcol)).Select
For Each Mrange In Selection

Mrange.Value = Replace(Mrange.Value, "AAA㈱*", "AAA㈱")

Next Mrange

306

： デフォルトの名無しさん [sage] 2018/03/06(火) 15:40:08.21

:Kz9r/khc

Replaceにワイルドカードに対応した機能なんてあったっけ？

307

： デフォルトの名無しさん [sage] 2018/03/06(火) 16:55:46.30

:syG3HE1y

>>305

素直に置換窓でしたら？
って愚問かしら

308

： デフォルトの名無しさん [sage] 2018/03/06(火) 17:00:18.43

:o11Cbfr7

>>305

Mrange.Value = Split(Mrange.Value, "㈱")(0) & "㈱"

309

： デフォルトの名無しさん [sage] 2018/03/06(火) 17:10:48.55

:Kz9r/khc

>>308

楽したいときはそれよくやる

310

： デフォルトの名無しさん [sage] 2018/03/06(火) 17:44:23.62

:RSFFAx7v

これマクロでやる必要あるのかな、関数でやる方が早くて楽だと思うけど。

311

： デフォルトの名無しさん [sage] 2018/03/06(火) 18:07:44.86

:J8w9cnP2

ここで詳しく説明したくない何かがあるのさきっと

312

： デフォルトの名無しさん [sage] 2018/03/06(火) 19:04:37.73

:907OdX1W

どうもありがとうございました！

関数使ってしまうと私しか操作ができないので
CSVで読み込んだらボタン一つで誰でも結果が出せるようにしたかったのです^^
どもありがとうございました！

313

： デフォルトの名無しさん [sage] 2018/03/07(水) 01:38:36.16

:x26Og5c6

これInStrとLeft使えば済む話だろ

314

： デフォルトの名無しさん [sage] 2018/03/07(水) 07:52:35.02

:dk6C+v+n

この程度の動作でわざわざマクロ組んでボタン付けるのって無駄な気がするけど。
実際は複雑な条件分岐でもあるのかな。
大量にcsvがあるなら、一人で一括処理した方が早いし。
複数人で手分けするにしてもこれアドインで配るのか。
イマイチ作業がピンとこないな。

315

： デフォルトの名無しさん [] 2018/03/07(水) 07:57:02.27

:g1VMydGw

頭が悪いだけだから気にすんな

316

： デフォルトの名無しさん [] 2018/03/07(水) 08:25:40.94

業務アプリからCSV吐き出してExcelでインポートする定型業務なんだろ

317

： デフォルトの名無しさん [sage] 2018/03/07(水) 12:27:05.35

:ITQ9LWXL

>>305

Mrange.Replace what:="AAA㈱*", replacement:="AAA㈱"

318

： デフォルトの名無しさん [sage] 2018/03/07(水) 18:33:39.24

:jNQbCOPg

>>316

そういう感じか。
自分なら作業フォルダ決めて、そこに突っ込んだファイルでループ回して一括処理するな。
配布するならVBSでドロップしたら処理するようにしとく。
とりあえずボタンなどつけず、不可視でやった方が効率いいと思うな。

319

： デフォルトの名無しさん [] 2018/03/07(水) 20:37:03.79

:fiBk/l1y

終わった問題にくどくど文句言ってんじゃねえよバカw

320

： デフォルトの名無しさん [sage] 2018/03/09(金) 05:37:29.78

:Ioc33b8P

あるURLからsendkeysでctrl＋a ,ctrl ＋cで全画面をコピーし、セルに貼り付けたいのですが、macなのでIEが使えず、困っています。
どなたかわかる方いらっしゃいますか？？

321

： デフォルトの名無しさん [sage] 2018/03/09(金) 07:17:33.28

:iKQibMl2

社内で使ってるソフトがVB6で動いてるんだけど、見直すことになって中身見てるんだけど変数宣言してなかったり変数名なのかコントロールなのか分からんしGOtoで飛びまくってあっちゃこっちゃ移動して見辛いのをキレイに直す近道は何かね？

322

： デフォルトの名無しさん [sage] 2018/03/09(金) 07:53:39.76

:KC7p8RhA

全面作り直し

323

： デフォルトの名無しさん [sage] 2018/03/09(金) 08:09:53.68

:p11XwhXH

ついでにc#にでも書き換えたら

324

： デフォルトの名無しさん [] 2018/03/09(金) 08:21:10.99

>>321

一度に一つのポイントに絞って直していくといいよ。
たとえば、コントロール名の命名規則を全体的に統一、
動作確認、変数宣言強制、動作確認、
GoToを排除（関数切り出しやループ構文）、動作確認、
で、機能・動作は同じままで中身が綺麗になったら
C#やらPythonやらに移植するのもいいかもね。

325

： デフォルトの名無しさん [sage] 2018/03/09(金) 10:05:38.77

:iKQibMl2

>>324

やっぱそういうかんじですよね。ゆくゆくC♯にはするつもりです。

326

： デフォルトの名無しさん [sage] 2018/03/09(金) 12:03:12.65

:f4+dGRtD

普通放置するだろ

327

： デフォルトの名無しさん [sage] 2018/03/09(金) 12:07:04.28

:iKQibMl2

″￥工＊.＊″

これどういう意味？

328

： デフォルトの名無しさん [sage] 2018/03/09(金) 12:10:16.16

:49Hhyu8r

>>327

ワイルドカード文字列
で、ググれ

329

： デフォルトの名無しさん [sage] 2018/03/09(金) 12:43:24.23

:iKQibMl2

>>328

″￥工(任意の文字列).(任意の文字列)″

って感じ？

330

： デフォルトの名無しさん [sage] 2018/03/09(金) 12:54:06.72

:D+ALvGrM

>>321

goto文を切り離して呼び出して使おう

331

： デフォルトの名無しさん [sage] 2018/03/09(金) 13:21:58.26

:8uMVsz+u

ExcelVBAパスワード解析（解除）が出来ないプロテクトをかける方法がないかな。
※解除出来るVBAが出回ってる、、、。

ソースを見せろと上司から言われて困っています、、、。

332

： デフォルトの名無しさん [sage] 2018/03/09(金) 13:46:20.12

:Bwgez1ze

業務として作ったものであれば上司の指示に従うべきかと

333

： デフォルトの名無しさん [sage] 2018/03/09(金) 15:21:24.04

:7ef4doJx

>>325

その質問をここにするような馬鹿頭じゃ無理なんじゃ？

334

： デフォルトの名無しさん [sage] 2018/03/09(金) 17:46:42.77

:wpod4SXa

>>332

改善したことがすべて上司のおかげになってる。
上司のことを神様の存在？かな、、、。
わかりました。
ありがとうございました。
クソ会社を辞めてくる。

335

： デフォルトの名無しさん [sage] 2018/03/09(金) 17:56:22.24

:f4+dGRtD

つまり食い物にされている、と？

336

： デフォルトの名無しさん [sage] 2018/03/09(金) 17:58:04.10

:CekgNpjO

>>321

まずは全てのコードの先頭にOption Explicitを入れて変数宣言をきちんとするところからかな

337

： デフォルトの名無しさん [] 2018/03/09(金) 19:01:08.54

:M2r/B6Zk

初心者って必ず

>>336

言うよなw
誰に騙されとんのお前ら？w

338

： デフォルトの名無しさん [sage] 2018/03/09(金) 19:33:16.36

:CekgNpjO

自称玄人 w

339

： デフォルトの名無しさん [sage] 2018/03/09(金) 20:27:41.68

:f4+dGRtD

変数宣言をし忘れることはなくてもtypoのリスクはなくならないからな。

340

： デフォルトの名無しさん [sage] 2018/03/09(金) 20:50:54.71

:qnoZKStj

Visual Studioにコピペして修正すると捗る
typoとかもチェックしてくれるし

341

： デフォルトの名無しさん [sage] 2018/03/09(金) 21:09:01.46

:BWrGum71

typoってそこまで問題になるかな。
マクロを大きな塊で作るとか、途中でテストしないとかじゃないと問題になるような発生の仕方しないと思うんだけど。

342

： デフォルトの名無しさん [sage] 2018/03/09(金) 21:27:32.88

:Y3Dk8KBt

変数名ミスあるある

使ったことない関数と偶然同じ名前
よく似た変数をいくつも宣言してて、間違えたのにエラーにならない
逆に関数名をタイプミスして変数と解釈される

343

： デフォルトの名無しさん [sage] 2018/03/09(金) 21:35:07.60

:f4+dGRtD

>>341

大して問題にはならないと思うけど、多少は時間を浪費してしまうんじゃないか？

344

： デフォルトの名無しさん [] 2018/03/09(金) 22:09:00.28

>>331

業務で作成したソースコードを隠すとか何考えてるの？？？

345

： デフォルトの名無しさん [sage] 2018/03/09(金) 23:06:24.40

:s0Ox43/Q

お昼休みや定時後サービス残業やプライベート潰して土日に頑張って作ったマクロだから他人に無償で差し出せと言われたら躊躇なく消し去る

346

： デフォルトの名無しさん [] 2018/03/09(金) 23:10:16.18

>>345

じゃあ最初から作ったとか言わずに誰にもバレないようにこっそり使っとけ

頭のおかしな部下を持つ上司に同情するわ

347

： デフォルトの名無しさん [sage] 2018/03/09(金) 23:30:45.58

:s0Ox43/Q

ｿﾀﾞﾈｰ

348

： デフォルトの名無しさん [] 2018/03/09(金) 23:48:40.84

:jpL8SCkU

VBAというプログラミング言語は、昔からある枯れた技術だけど
エクセルを使っていない職場は、無いと言えるぐらい普及しているから
業務のＡＩ化の流れから需要が減る可能性は少ないだろうなあ

349

： デフォルトの名無しさん [] 2018/03/10(土) 00:01:14.03

:4nlfLUix

>>348

エクセルよりお前の需要の心配しろよ能天気さんw

350

： デフォルトの名無しさん [sage] 2018/03/10(土) 00:38:30.02

:PZ/jlzJE

パソコンによって紙が減るって言われていたのに印刷物が増えたように、
AI化するとカバー出来る業務が増えた結果、逆に忙しくなりそう。

351

： デフォルトの名無しさん [sage] 2018/03/10(土) 02:32:10.79

:0GMAoiXq

超有能になったカイルが復活するか

352

： デフォルトの名無しさん [sage] 2018/03/10(土) 09:24:51.95

:AY0LzIsz

パソコンによって誰でも気軽に印刷物を作成できるようになった
だから紙の書類は増えたんだけど
それ以上に母数となる書類は増えてるんだよ
印刷されてない電子書類の数も含めたら、やっぱり紙の書類の割合は減ってる

353

： デフォルトの名無しさん [] 2018/03/10(土) 10:46:17.42

:xR2Zob7T

割合なんかはじめから問題になってないってゆう

354

： デフォルトの名無しさん [sage] 2018/03/10(土) 13:46:15.19

:OgFFirzA

実際に減ったのは髪

355

： デフォルトの名無しさん [sage] 2018/03/10(土) 21:17:23.13

:27Zew0ET

Excel2013

デザインモードってONでもOFFでもどこが変わったのかわからないんだけど、
何が違うんですか？
検索したら、OFFの時はオブジェクトを右クリックしてもコード編集ができないとか書いてあって、
そんなことないんだけど！

356

： デフォルトの名無しさん [sage] 2018/03/10(土) 21:32:40.22

:/UsVOqQZ

>>355

いいか、よく聞けよ
世の中には2種類のオブジェクトがあるんだ
フォームコントロールと、ActiveXコントロールだ

357

： デフォルトの名無しさん [sage] 2018/03/10(土) 21:57:01.21

:27Zew0ET

>>356

知ってる。ActiveXコントロールの方は一切使わないんだよね。

358

： デフォルトの名無しさん [sage] 2018/03/11(日) 09:02:12.87

:eeeFjAQk

UseｒFormのオプションボタンが2つ(AとB)あったとします。
あるFrameのvisibleをFalseにしておいて、Bが選択された時だけTrueにしたいのですが、
①Bを選択→Frameが表示される
②Aを選択
③Bの選択は解除されるが、Frameが表示されたまま
になってしまいました。

Bの選択が解除されるのを認識させるにはどうしたらよいでしょうか？

359

： デフォルトの名無しさん [sage] 2018/03/11(日) 09:10:40.94

:WgDqrFTJ

Bが選択された時だけTrueにしたのなら
つぎは
Aが選択された時にバルスにしたらいいんじゃないかい？

360

： デフォルトの名無しさん [sage] 2018/03/11(日) 09:36:36.42

:eeeFjAQk

>>359

ありがとうございます。

ボタンは今後増やす予定で、
たとえば、ボタンCを追加した場合は、
A_Clickと同様にC_ClickにもBのバルスを追加する必要がありますよね。
ボタンを追加する度に同じ処理を入れるのはイマイチかと思いましたが、
このぐらいの1行で済む処理なら問題なしおですかね。

361

： デフォルトの名無しさん [] 2018/03/11(日) 11:12:45.26

:1qbV0tMy

>>275

やめろー
言うんじゃない、言うなー
作らせておいてちょっとミスると「こんなんだったら手作業でも一緒だよね」とかぬかしやがって。
朝まで電卓叩いて俺徹夜しましたオレ頑張ってますアピールしてろハゲ

362

： デフォルトの名無しさん [sage] 2018/03/11(日) 12:00:11.76

:3gQJTH+l

ひょっとして：Changeイベント

363

： デフォルトの名無しさん [] 2018/03/11(日) 13:16:00.78

Option Explicit

Private Sub OptionButton1_Change()
Frame1.Visible = OptionButton1
End Sub

Private Sub UserForm_Initialize()
Frame1.Visible = OptionButton1
End Sub

364

： デフォルトの名無しさん [sage] 2018/03/11(日) 18:26:53.04

:rR985EAX

>>360

お、悪くない着眼点だねー。
都度分岐を増やすと手の入ったところは全て再テストし直しになるし
その分岐がいろんなところに発生したら結構大変だよね。

いくつか方法があるよ。

例えば処理名とTRUE、FALSEの状態をシートに記載しておいて
処理に該当する状態を取得して設定する方法。
そういうことの出来る関数を一つ作っておいて
後は処理名を引数にでも渡して状態を取得するようにすれば都度分岐が増えることは無い。

他にもボタンが増えるということは
何かしら新しい処理が増えると言うことだから
新しく増えた側の処理に状態を持たせたりとか。

まぁ、その辺のことは前にも同じようなレスがあったと思ったけど
そういうのを組み入れるのと長期的に見てそこまでのものでは無いんじゃ、と言うのが
組み入れるかどうかの判断基準になるんじゃないかな。

365

： デフォルトの名無しさん [] 2018/03/11(日) 20:18:26.70

:lvju0XX+

長いねん

366

： デフォルトの名無しさん [sage] 2018/03/11(日) 20:52:08.82

:eeeFjAQk

>>364

ありがとうございます。

プログラムを考えるのが面白くなってきました。

367

： デフォルトの名無しさん [] 2018/03/11(日) 23:24:33.00

:iweXkOC/

データのある最終行を取得したいのですが、
うまくうごきません。

Range("A10", Cells(Rows.Count, 1)).End(xlUp).Select

A10から下に続く最後の行数（データ個数15個、空白なし）を取得したいのですが、
なぜか返ってくる数は24ではなく、
1048575です。

知識が浅く、解決できません。
どなたかご助言お願いします。

368

： デフォルトの名無しさん [sage] 2018/03/11(日) 23:30:27.72

:XQUvZIO5

Range("A10").End(xlDown).Select

369

： デフォルトの名無しさん [] 2018/03/11(日) 23:47:11.35

:iweXkOC/

>>368

余計なものがあったんですね。
ありがとうございます。
少し進みました。

370

： デフォルトの名無しさん [] 2018/03/12(月) 00:02:45.31

:HsTapSs6

シート1～10まであって、a+b=cって計算を、シート1～7で行ってます
aとbは入力シートに入力した数値で、各シートが、個別に入力シートから引っ張ってきています

各シートで同じ変数を元に同じ計算をしてるが作り方って変ですかね？
なんでそんなことしてるの？というと、検討するシートを1つ作って、そのあと別検討シートを追加、という作り方をしていった結果、検討内容自体は違うものの、共通の計算があるっていう状態になっていて、特に意識したわけではないです
このエクセルを整理することを考えた時、共通の計算は、別個シートを作って、そこで計算させておくべきでしょうか？？

371

： デフォルトの名無しさん [] 2018/03/12(月) 05:43:32.66

シートが必須なの？
標準モジュールじゃあかんの？

372

： デフォルトの名無しさん [] 2018/03/12(月) 12:42:37.39

:cBxGAu9U

UserFormの部品の位置を微調整するために、
ズーム表示させる方法はありませんか？
(今は、Windows標準の拡大鏡を使ったりしています)

373

： デフォルトの名無しさん [sage] 2018/03/12(月) 14:30:50.92

:Bvz0V3Xa

>>372

微調整なら数値からやればいいのでは

374

： デフォルトの名無しさん [sage] 2018/03/12(月) 17:18:50.94

:UMPN+oMV

スペースがあるかないかもわからん馬鹿がなぜそんなことを気にするかね

375

： デフォルトの名無しさん [] 2018/03/12(月) 18:40:09.24

:BreNV4lT

>>371

あっvbaスレに間違えて書き込んでしまいました
すみませんvba使いません

376

： デフォルトの名無しさん [sage] 2018/03/13(火) 00:27:26.72

:qWMLlpqF

UserFormを作成中にF5押下でお試し実行ができますが、
普通にやるとモーダルになります。
F5押下でもモードレスで実行する方法ってありますか？

377

： デフォルトの名無しさん [] 2018/03/13(火) 01:15:13.77

>>376

UserFormのShowModalプロパティをFalseにする

378

： デフォルトの名無しさん [sage] 2018/03/13(火) 01:17:05.94

:qWMLlpqF

>>377

ありがとうございます。

379

： デフォルトの名無しさん [sage] 2018/03/13(火) 07:54:16.83

:j6R4vUCh

>>378

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

380

： デフォルトの名無しさん [sage] 2018/03/13(火) 11:51:11.57

:pjKAsbJg

ここはレベル高ぇ。
でも、みんな、協力しているのはとても嬉しいです。
勉強になる。
ありがとうございます。

381

： デフォルトの名無しさん [sage] 2018/03/13(火) 17:49:20.30

:Fj3wIRvx

よろしくお願いします。年１のプレイヤーです。

商品コード（1000～1000000）に対して、別シートにある原価を
vlookupで検索し、商品コードの右セルに代入しようとしているのですが
1000番台はエラーにならず、200000台からエラーになってしまいます
（1000番台の次は200000台にコードが飛びます）

「worksheetfunctionクラスのVlookupプロパティを取得できません」

なにが原因かわからなくてヘルプお願いします。

=================================================
For i = 2 To 最終行
原価 = 0
With Sheets("原価")
原価 = WorksheetFunction.VLookup(Cells(i, 商品コード列), .Range(.Cells(1, 1), .Cells(10, 1000)), 6, False)
End With
Next i

382

： デフォルトの名無しさん [] 2018/03/13(火) 17:57:59.90

>>381

「vlookup vba」でggrks

検索結果の例: 外部リンク

ttps://www.sejuku.net/blog/29654

383

： 381 [sage] 2018/03/13(火) 18:11:15.85

:Fj3wIRvx

すみません。解決しました。

384

： デフォルトの名無しさん [sage] 2018/03/14(水) 01:32:37.37

:jWcIaZnH

済んだﾊﾅｼで済みません

385

： デフォルトの名無しさん [] 2018/03/14(水) 20:38:23.29

:LX5CWuB3

ＩＥやＥｘｃｅｌを非ｱｸﾃｨﾌﾞのままﾊﾞｯﾁ処理してると、ＣＰＵやﾒﾓﾘをやたら消費するのはなんでだろ？
ＡｐｐＡｃｔｉｖａｔｅで対処はできてるけど、理由が分からないのが気持ち悪い
（ちなみにＡｐｐＡｃｔｉｖａｔｅは自ｱﾌﾟﾘを前面にできないのはなんでだろ？いちいち別のＶＢＳを呼び出してる）

Ｅｘｃｅｌが「遅くなる」点については調べてる人がいて、「非ｱｸﾃｨﾌﾞでは遠慮して動くから」と
ＣＰＵが櫛型に動いてる様子を紹介してた

ならＣＰＵ使用率が下がるはずなのに現実は逆で、やたら使用率が上がり、ﾒﾓﾘも何倍も上がる
遅い分ｲﾍﾞﾝﾄが貯まってｽﾀｯｸが貯まってﾒﾓﾘが上がって、そのためにＣＰＵも上がるのかな
「遠慮する」機構が裏目に出てるのかな

386

： デフォルトの名無しさん [sage] 2018/03/14(水) 21:36:34.44

:e3akNBzY

>>385

一目で馬鹿とわかる文章

387

： デフォルトの名無しさん [sage] 2018/03/14(水) 21:38:17.91

:QheYb9tS

IE, Excel などのプロセスを終了していないとか？
ドンドン起動しても終了しないから、プロセスが無限に増えていってるとか？

タスクマネージャーで見れば？

388

： デフォルトの名無しさん [sage] 2018/03/14(水) 22:18:16.08

:LX5CWuB3

>>387

１ﾌﾟﾛｾｽの話
それに、ﾌﾟﾛｾｽが貯まってる話ならなんでＡｐｐＡｃｔｉｖａｔｅで解決するのん？

389

： デフォルトの名無しさん [sage] 2018/03/14(水) 23:50:59.44

:+W/Ve/Kf

>>388

馬鹿丸出し

390

： 387 [sage] 2018/03/14(水) 23:58:49.45

:QheYb9tS

例えば、コマンドプロンプトから、Ruby を起動して、そのソースコードから、
Selenium WebDriver で、ブラウザを起動すると、
これらは、GUI のプロセスだから、プロセスに親子関係がある。
(親) コマンドプロンプト → Ruby (子) → ブラウザ (孫)

だから、親か子を終了すると、孫のブラウザも終了する

でも、VBScript(VBS) などで、CUI モードを使うと、親子関係を断ち切るから、
(親) VBS → ブラウザ・Excel (子)

VBS を終了しても、ブラウザ・Excel は終了されない。
子プロセスを、自分で管理せず、OS に任せている状態になる

391

： ３８５ [sage] 2018/03/15(木) 01:02:06.87

:3pohbyhz

>>390

話聞いてる？

392

： ３８５ [sage] 2018/03/15(木) 01:06:52.75

:3pohbyhz

>>390

あ、分かった、俺が悪かった
ﾀｽｸｽｹｼﾞｭｰﾗで直接ｴｸｾﾙを起動した場合は、この現象起きなかった気がする
ＤＯＳのﾊﾞｯﾁ経由で起動すると起きる気がする
で、「ＯＳに任せる」と、非ｱｸﾃｨﾌﾞ時に無駄にＣＰＵとﾒﾓﾘを食うと
なるほど
留意点は分かったけど、理屈は分からんｗ

393

： 387 [sage] 2018/03/15(木) 01:42:16.85

:NnpmsWbw

プロセスには、2種類ある

ユーザーが管理している、画面を持つ(GUI)プロセスと、

OS が管理している、画面を持たない(CUI)、
バックグラウンドで動作する、サーバーのようなプロセス

上は、プロセスに親子関係があるけど、
下は、OS がプロセスの親になるとか？

394

： デフォルトの名無しさん [sage] 2018/03/15(木) 06:34:45.23

:z1/gBAj5

フォルダ内の複数のエクセルファイルを開いて指定シートをコピーして閉じるを繰り返したい。コピーするシートは各エクセルに対して1シートのみ。

シート名は個人名でそれぞれバラバラなんだけどいい方法ない？

395

： デフォルトの名無しさん [sage] 2018/03/15(木) 06:42:29.06

:VNc1eFwU

1シートしかないブックにする

396

： デフォルトの名無しさん [] 2018/03/15(木) 07:23:11.51

>>394

人が開いたときにそのシートを特定するときはどうしてんの？
それをプログラムに落とせばいい

397

： デフォルトの名無しさん [sage] 2018/03/15(木) 08:20:13.69

:Q+OFwlGZ

質問です。
whatif のデータテーブルで、sheet1にある式をsheet2から参照したいのですが、「代入セルの参照が正しくありません。」というエラーが出ます。
sheet1の同じシート内でやる時はエラーは出ないのですが、別シートは参照出来ないのでしょうか。

398

： デフォルトの名無しさん [] 2018/03/15(木) 08:24:47.39

>>397

VBAの質問じゃなくね？

399

： デフォルトの名無しさん [sage] 2018/03/15(木) 12:47:59.22

:kdbViSCg

メゾット君いて草

400

： デフォルトの名無しさん [sage] 2018/03/15(木) 13:26:06.11

:GiNZbVBW

>>397

馬鹿は死ねよ

401

： デフォルトの名無しさん [sage] 2018/03/15(木) 19:29:22.65

:givVJukY

>>397

はい。
対象のシートをアクティブにして下さい、

402

： デフォルトの名無しさん [sage] 2018/03/15(木) 21:40:55.79

:khWCS+hx

入力規則でセルに選択リストを作りました
で、セルのプルダウンで選んだアイテムが
何行目か？っていうのを知りたいんだけれど
doとかfor文でリスト先頭から一致検索するしかないのかな？
一発でアイテムのカウント何件目か取得する事って出来たりするんかなぁ？

403

： デフォルトの名無しさん [sage] 2018/03/15(木) 22:18:17.27

:obWJCYhi

match関数で行けないかな？

404

： デフォルトの名無しさん [sage] 2018/03/16(金) 07:44:18.61

:D9gIY3FC

>>394

なんだが、フォルダ内のエクセルをループして開いて、目的のシートのオブジェクト名を統一してファイル開いてオブジェクト名をfor eachでヒットさせて、functionでそのシートをテキストにしたいんだがどうすればいい？ループさせてヒットさせるまではできた。
結果txtファイルは同フォルダ内の１個あってそれに更新して書き込んで行きたいんだが。
誰か教えて下さい。

405

： デフォルトの名無しさん [] 2018/03/16(金) 08:28:41.10

:qMVu/e+c

意味わからんしほぼ丸投げ感ある

406

： デフォルトの名無しさん [sage] 2018/03/16(金) 08:55:16.84

:4vfDYpgH

csvにエクスポートでもすればいいよ
マクロの記録でコード作れば

407

： デフォルトの名無しさん [sage] 2018/03/16(金) 17:01:45.82

:tJ/sJf9+

全キャラエリーン化MOD希望します

408

： デフォルトの名無しさん [sage] 2018/03/16(金) 17:02:19.93

:tJ/sJf9+

誤爆ｗ

409

： デフォルトの名無しさん [sage] 2018/03/16(金) 22:56:27.26

:hrS8kMFb

>>404

だけどネットで探しながら作ってみてできたんだけど、
一回目のエクセルブックの指定したシートをoutputでテキストファイルに書き込み。2回目以降をApend？だっけ？で続きに書き込んでいくんだけど、outputとApend の違いだけで書き込みコードが2つあるのを一つにまとめるにはどうしたら出来ますか？

410

： デフォルトの名無しさん [sage] 2018/03/16(金) 23:04:26.61

:ikUU8ykN

>>409

Append　でやれば
ファイルがないときは勝手に作ってくれるよ

411

： デフォルトの名無しさん [] 2018/03/17(土) 00:32:21.24

>>409

フラグ格納用の変数(初期値False)をFor文の外側で定義して
変数がFalseだったら初回用の処理をしてTrueを代入して
変数がTrueだったら2回目以降の処理をすればいい

412

： デフォルトの名無しさん [sage] 2018/03/17(土) 06:33:04.45

:n47xCJZ+

質問です
今EXCELで対戦格闘ゲームを作っているのですが
キャラクター同士の当たり判定は
それぞれ攻撃用、体用と別々に持つことで
正しく動いています。
ただ攻撃が当たった時のヒットマークを表示する位置を
どのように算出すれば良いかが思いつきません。
何か良い方法はないでしょうか？
ちなみにキャラクターはシートのセルを方眼紙のように見立てて
横256*縦200で1セルを1ドットに見立てて行っています。

413

： デフォルトの名無しさん [sage] 2018/03/17(土) 07:23:19.78

:n47xCJZ+

言い忘れていましたが
当たり判定は各キャラクターの動作毎、絵柄毎に
攻撃用が1～3個、体用が1～5個の四角い範囲を持っていて
それが重なったかどうかで判定を行なっています。
動作とは例えば小パンチとか、大パンチとかを指します。
同じ絵柄でも違う動作の場合は
違う範囲で当たり判定を行えるようにしています。

414

： デフォルトの名無しさん [sage] 2018/03/17(土) 07:48:47.16

:71uTBaAx

>>412

スレ違い
ゲームデザインとかアルゴリズムの類であってVBAの質問ではないと思う

415

： デフォルトの名無しさん [sage] 2018/03/17(土) 08:14:30.06

:n47xCJZ+

>>414

多分そう一蹴されて終わるかもとは思っていました。
興味がある方は返答頂けると有り難いです。

416

： デフォルトの名無しさん [] 2018/03/17(土) 08:23:52.27

:0VMaqrOi

>>415

思っていた？？
なら最初にそう書けよ
スレ違いの上に後出しじゃんけん
一番嫌われるパターン

要約すると「死ね」

417

： デフォルトの名無しさん [sage] 2018/03/17(土) 09:02:41.97

:8EqoOoha

生きる!!!!!

(´・ω・｀)b

418

： デフォルトの名無しさん [sage] 2018/03/17(土) 09:10:30.63

:71uTBaAx

>>415

「ゲームプログラミングなら俺に聞け」とか、そういうスレの方が絶対いいと思う

419

： デフォルトの名無しさん [sage] 2018/03/17(土) 11:01:00.47

:plFeqth9

ヒットマークとやらをどう表示したいのかも書いてない
こんなんで回答がつくわけない
質問の体を装ったただの俺こんなの作ってるスゲーだろアピール

420

： デフォルトの名無しさん [sage] 2018/03/17(土) 12:28:23.68

:zttMJW/5

当たり判定とヒットマークの位置関係だけあらかじめ決めておいて、あとはヒットした当たり判定のセル位置のアドレスなり座標なりからオフセット参照するだけじゃん

421

： デフォルトの名無しさん [] 2018/03/17(土) 12:53:01.02

:0VMaqrOi

>>420

構うなや

どうせまた後出しで「その方法も考えたんですが
～～が～～だからそれではダメなんです。」とか
慇懃無礼にマウント取ってくるから

422

： デフォルトの名無しさん [sage] 2018/03/17(土) 13:02:49.05

:JhGe8NGg

マウントって簡単に言いすぎ
倫理をふりかざして人を委縮させようとする言動に限らないと
言葉の力がなくなってしまう

423

： デフォルトの名無しさん [sage] 2018/03/17(土) 13:38:51.05

:heA3uIoa

>>410

>>411

助かります。やってみます

424

： デフォルトの名無しさん [sage] 2018/03/17(土) 14:18:21.64

:7XiT0JZV

>>412

もしかして当たった位置が判らないということですか？

425

： デフォルトの名無しさん [sage] 2018/03/17(土) 15:07:46.54

:JHaB3/LC

>>412

へぇ、このスレでは珍しい質問だね。
あくまでひとつの方法としての提案だけど、
当たり判定が出来るということは攻撃範囲と体範囲って呼んでるけど、
それが重なったことは判定出来てるんだよね？

なら重なった範囲の中心にヒットマークを出すようにすればいいと思うよ。

つまりキャラAの右下セルよりキャラBの左上セルが
左上にあって、かつ
キャラAの左上セルよりキャラBの右下セルが右下にある場合、これがキャラが重なった「当たった」ことに該当するんだけど、
この状態からキャラAの右下セルからキャラBの左上セルの縦横それぞれの差分を出して
それを2で割ってキャラAの右下セルの縦と横にそれぞれ足してやれば求められるはず。

後は複数判定用の範囲を持ってるというところで
どの範囲を優先するかの優先順位をつけて。
頑張って下さいね。

426

： デフォルトの名無しさん [sage] 2018/03/17(土) 22:00:46.63

:plFeqth9

自演死ね

427

： デフォルトの名無しさん [] 2018/03/18(日) 01:02:38.92

:5x2puHKk

教えてください。
別ブックを範囲（A10:B24）指定してコピーして
現在のブックA10をはじめとした範囲にペーストしたいのですが、
なぜか参照ブックをアクティブにした上で範囲指定ができません。

最初のブック・・・A.xlsm
参照ブック・・・nal.xls　　参照シート：sheet10
参照ブックのデータ最終行・・・i　(24が入っています）

Dim i As Integer

Workbooks("nal.xls").Activate
i = Worksheets("sheet10").Range("A10").End(xlDown).Row

Workbooks("nal.xls").Activate

Worksheets("sheet10").Activate

Range(Cells(10, 1), Cells(i, 2)).Select　　←RangeクラスのSelectメソッドが失敗しました。
Selection.Copy

どなたか助けてください。

428

： デフォルトの名無しさん [sage] 2018/03/18(日) 03:11:59.88

:Ml7D0I3C

複数シートでゴニョゴニョする際は
Worksheets("sheet10").Range(Worksheets("sheet10").Cells(10, 1), Worksheets("sheet10").Cells(i, 2)).Select
と略さずに書くといいよ
デバッグ中につい違うページ開いちゃうと後で泣きを見る

429

： デフォルトの名無しさん [sage] 2018/03/18(日) 03:58:35.89

:JrJJTzVM

Aブックに、BブックをOpenするコードが書いてあります。
困ったことにBブックが正常に開くこともあれば、
長時間たってもビジー状態が続き開かないこともあります。
これはAブックから開くときだけでなく、Bブックのアイコンをダブルクリックしても同様です。
そんなときでも､エクセルを強制終了した後にBブックを開くとなぜか問題なく開くことも多いです。

Bブックの問題を取り除くのが正しい方法なんでしょうが、とりあえずの対策として、
wb = Workbooks.Open(strPath & "\" & "B.xslm")
で、AブックがBブックをOpenした後に一定時間経過後にBブックの特定のセルの内容を読み取れなければ、
Bブックを強制的に閉じて、再度Bブックを開き直すというコードを書こうと思ったのですが、
wb = Workbooks.Open(strPath & "\" & "B.xslm") を実行すると、
Bブックが開くまでAブックのマクロが止まってしまい、Bブックのセルが読めるかどうか判定することができません｡

どうしたらよいでしょうか？

430

： デフォルトの名無しさん [sage] 2018/03/18(日) 04:24:15.80

:/1Of5770

>>429

開けていないものを閉じろと言うのは無理ゲー

431

： デフォルトの名無しさん [sage] 2018/03/18(日) 06:47:14.19

:JFJ3EKTR

最初にタスクマネージャーで、
起動中のすべてのExcel を、強制終了させてから実行すれば？

たぶん、起動中のExcel が、そのブックをつかんでいるのだろう

432

： 412 [] 2018/03/18(日) 11:12:47.56

:l25Pelu+

皆さん色々返答ありがとうございます。

>>420

さんと

>>425

さんの意見を
参考にさせて頂きました。
特に

>>425

さんの案は取り入れてみたところ
範囲が大きいときでも小さいときでも
見た目いい位置に表示されしかも汎用的に
使えるようでありがたいです。

>>420

さんの案は乱舞系必殺技のような
受けた相手の位置を補正しながら出す技に最適のようです。
ちょっと行き詰まったところだったので
非常に助かりました。ありがとうございました。

433

： デフォルトの名無しさん [sage] 2018/03/18(日) 11:21:02.32

:A1IN0XTG

>>432

VBA初心者でこのスレをたまにチラチラ見ているものですが
「EXCELで対戦格闘ゲーム」ってものがどういうものなのか全然想像できないです
（どうやったらそんなことできるの！　てかどんな画面になるの！！　状態です）

もしよろしければ、何か雰囲気の掴めそうな画像か
もしくは、そういう人たちが作ったゲームのリンクなどを紹介していただけると嬉しいです

434

： 427 [] 2018/03/18(日) 21:11:28.30

:5x2puHKk

>>428

お返事遅くなってすみません。
コード丸写しで略さずにかいたところ、うまく動きました。
エラーの前のbookとsheetをアクティブにしただけでは足りなかったようで。
勉強になりました。
ありがとうございました。

435

： デフォルトの名無しさん [sage] 2018/03/18(日) 21:34:46.44

:utQAsfrI

436

： デフォルトの名無しさん [sage] 2018/03/18(日) 21:35:52.97

:utQAsfrI

ontimeでopenするとかは?

437

： デフォルトの名無しさん [sage] 2018/03/19(月) 07:21:13.16

:We1Ev2gv

>>433

ちと古いけどこういうのがある

Excel VBA アクションゲーム作成入門 Excel 2007/2003/2002 対応
外部リンク

ttps://book.impress.co.jp/books/2686

438

： デフォルトの名無しさん [sage] 2018/03/19(月) 20:14:20.80

:uXl73OAC

>>437

紹介ありがとうだけど…、本だとやっぱりよく実感がつかめない…
でその本のタイトルで色々ググってみたら実際にゲームをやってる動画が出てきた

エクセルでスーパーマリオを作ってみた
外部リンク

ttp://www.nico video.jp/watch/sm12052293

Excelでこんなものが作れちゃうってすごい！（というか見てもなお信じられないが）

439

： デフォルトの名無しさん [sage] 2018/03/19(月) 20:59:21.19

:Lmqu9UWt

>>438

お前みたいな馬鹿には無理ってだけ
dll呼び出しできるから何でもやろうと思えばできる

440

： デフォルトの名無しさん [] 2018/03/19(月) 22:27:28.31

:bkGJBs4p

スーパーマリオのDLLとかあるんか？
すげーなエクセルって

441

： デフォルトの名無しさん [sage] 2018/03/19(月) 23:08:18.69

:SfVA8M0M

>>440

DLLは自分でいくらでも作れるし、スーパーマリオもDLL化は可能だけど普通はそんなバカなことはやらない

442

： デフォルトの名無しさん [sage] 2018/03/20(火) 00:08:55.57

:w5UAsH4d

>>439

バカはお前
DLLなんていくら出来たところでゲーム作れるだけの知識がなければ何も出来ない
知ったかぶりしてないで死んどけゴミ

443

： デフォルトの名無しさん [sage] 2018/03/20(火) 00:13:05.69

:XeOK7PK4

>>442

作れる知識と作る意義を感じるかは別問題
馬鹿は死ねよ

444

： デフォルトの名無しさん [sage] 2018/03/20(火) 01:20:07.81

:NBntR4Uy

はいはい、メゾット君は無視しましょうね～

445

： デフォルトの名無しさん [sage] 2018/03/20(火) 06:01:07.86

:w5UAsH4d

メゾット野郎はいつも口先ばかりwwwwwwww
違うってんならゲーム作ってみせろ無能wwwwwwwwwww

446

： デフォルトの名無しさん [] 2018/03/20(火) 08:02:11.84

:Su8VuYEw

ゲームをエクセルで作る意味って何があるの？

447

： デフォルトの名無しさん [] 2018/03/20(火) 08:03:53.80

:TJC60I00

意味は他人に教わるものじゃない
自分で見出すのだ

448

： デフォルトの名無しさん [] 2018/03/20(火) 08:14:23.93

:mdjnVZmX

やろうと思えばできるって言ってもなあ
やってない人が言ってもみたいな

449

： デフォルトの名無しさん [] 2018/03/20(火) 08:32:50.91

:Su8VuYEw

マリオのゲームってもコントロールしてるわけじゃないでしょ？
ドットに色表示してるだけじゃないの？

450

： デフォルトの名無しさん [] 2018/03/20(火) 09:49:54.48

:uUCQMwFd

>>439

DLL使うんならExcelでやる意味なさそうだがな

Excelのセルでドット絵を描いてVBAでアクションゲームを作るということに
Excelでアクションゲームを作る意義があるんだと思うが

451

： デフォルトの名無しさん [sage] 2018/03/20(火) 15:10:05.57

:HXa9qFC5

>>449

> マリオのゲームってもコントロールしてるわけじゃないでしょ？
> ドットに色表示してるだけじゃないの？
本まである（

>>437

）のに何言ってるんだろう…

452

： デフォルトの名無しさん [] 2018/03/20(火) 16:00:38.63

:J0Id73NT

DLLしたあとｲﾝｽｺするんだったっけ。

453

： デフォルトの名無しさん [] 2018/03/20(火) 19:53:45.15

:FFuoeUFR

>>452

同じフォルダに置いておけば使えるだろw

454

： デフォルトの名無しさん [sage] 2018/03/20(火) 20:20:30.33

:GZSZ4At9

ボケ殺し

455

： デフォルトの名無しさん [] 2018/03/20(火) 22:16:37.59

:BysB7y8w

アスペなんやで

456

： デフォルトの名無しさん [] 2018/03/20(火) 22:48:23.28

:9kggXYDo

質問です。
任意のフォルダ（ThisBookと同じフォルダ）の中にある
xlsファイルの数を取得する方法を考えています。

Dim N as Integer
　　With CreateObject("Scripting.FileSystemObject")
For Each ff In .GetFolder(ThisWorkbook.Path).Files
If UCase(.GetExtensionName(ff.Path)) = "xls" Then N = N + 1
Next
End With

ネットで調べてみたものの、カウントがされません。
現在対象のフォルダにはxlsファイルが一つあります。
どこを修正すれば良いのでしょうか。
教えてください。

457

： デフォルトの名無しさん [] 2018/03/20(火) 23:07:13.92

:BysB7y8w

>>456

UCaseの意味をもう一度調べてみれば？

458

： デフォルトの名無しさん [sage] 2018/03/20(火) 23:25:24.58

:qVb9KqM8

Ruby なら、これだけだが

puts Dir.glob('*.txt').size #=> 5

459

： デフォルトの名無しさん [] 2018/03/20(火) 23:29:52.36

:9kggXYDo

>>457

調べました。
UCaseではなく、LCaseだったんですね。
先に進めました。
ありがとうございました。

460

： デフォルトの名無しさん [sage] 2018/03/21(水) 11:16:23.41

:7pPMZ9pD

>>459

UCase/LCase　よりも
StrConv(, vbUpperCase) や StrConv(, vbLowerCase)
を使った方がより良いと思う。

なんとなくだが

461

： デフォルトの名無しさん [] 2018/03/21(水) 23:19:13.74

:1JiLJjJR

そーゆー感性ってすごく大事

なんとなくだが

462

： デフォルトの名無しさん [sage] 2018/03/22(木) 23:48:33.27

:wY4uz5GL

そいうWithの使い方は嫌い

んとなくだが

463

： デフォルトの名無しさん [sage] 2018/03/23(金) 05:10:41.67

:fhxmeXqE

寧ろ、with はああいう使い方をすべきなんじゃないの。単なる記述の省略としてだけでなく。

464

： デフォルトの名無しさん [sage] 2018/03/23(金) 07:23:25.20

:KEQJOoX5

いんや、.NetのUsingみたいに解放は確実に出来るけど
ひとつのスコープにひとつしか使えないし
コーディングに慣れてる人には
一瞬、どこで生成してるの？ってなるから
可読性の見地からイマイチかなと思う

465

： デフォルトの名無しさん [sage] 2018/03/23(金) 07:26:59.80

:L9ucwTOA

既におなじみの使い方だろうとしか

466

： デフォルトの名無しさん [] 2018/03/23(金) 07:47:34.14

:Kb85u4Z4

withってusingみたいに解放してくれるんだ
Set使うより簡潔にできるのね

467

： デフォルトの名無しさん [sage] 2018/03/23(金) 08:04:55.76

:FQA7q+b8

>>464

> コーディングに慣れてる人には
> 一瞬、どこで生成してるの？ってなるから
普通にインデントしてたらそんなことにならん

> 可読性の見地からイマイチかなと思う
お前だけだろ

468

： デフォルトの名無しさん [sage] 2018/03/23(金) 08:12:14.14

:3JBwFnH8

こんなもんコピペグラマーでもしょっちゅう目にしてるはず
この程度でわかりにくいとか、どんだけ素人だ

ただ、老眼の俺にはドットの見落とし、書き漏らしがちょっと怖い

469

： デフォルトの名無しさん [sage] 2018/03/23(金) 12:22:12.90

:5CV31jFy

>>466

自分も初めて知った。
けどネスト深くなると、破棄されたか分かりにくそうではある。
オブジェクト残ってると問題出るプログラムの場合はちょっと使うの怖いな

470

： デフォルトの名無しさん [sage] 2018/03/23(金) 18:30:24.67

:fhxmeXqE

>>466

withでcloseはしないんじゃないの?
あくまでusingぽくて分かりやすいというだけで。

471

： デフォルトの名無しさん [sage] 2018/03/23(金) 19:28:31.68

:L9ucwTOA

>>470

自作クラスに Sub Class_Terminate() を定義してステップ実行してみればわかる。
End With 後にちゃんと呼び出されるから。

472

： デフォルトの名無しさん [] 2018/03/23(金) 20:26:02.56

:qUw1cRZJ

無知なのは仕方がないとしてもEnd Withの後にClass_Terminateが呼び出されるのなら
論理的な帰結としてWithがオブジェクトの解放をしているのではないと気がついて欲しかったなあ

473

： デフォルトの名無しさん [sage] 2018/03/23(金) 20:32:59.84

:L9ucwTOA

>>472

解放、close
どっち？

474

： デフォルトの名無しさん [sage] 2018/03/23(金) 20:43:47.72

:L9ucwTOA

それに「無知」とは何のことかな？
非明示的にデストラクトされてもFreeはされない言語があってその事を知らない、という意味かな？
だとしたら知らない

475

： デフォルトの名無しさん [sage] 2018/03/23(金) 22:16:31.73

:LTH6T9fs

>>467

>>468

同じ階層に同じようなObjectがある場合、
Withを使ってる奴だけそんな方法で解放するの？
統一性のないコーディングだなぁ

476

： デフォルトの名無しさん [sage] 2018/03/23(金) 22:31:56.84

:DV5xQmy6

解放の方法が違う程度の事を気にしてたら現場で発狂しまくりだろうなぁ

477

： デフォルトの名無しさん [sage] 2018/03/24(土) 00:04:50.79

:X8NV5dnx

スタイルは大事だから気にするわな。
気にしない奴はバグ増えまくりだ。
現場が忙しくなると崩れて来る。
そして俺のバグも増えるというわけさ。

気にしない奴とは仕事したくないな。

478

： デフォルトの名無しさん [] 2018/03/24(土) 00:39:44.09

:TyYpGZwY

解放の方法てwそんなもんないわwww

479

： デフォルトの名無しさん [] 2018/03/24(土) 01:08:51.19

:nM3MUJGs

プログラマってどういう大学のでの人たちがやってるんだ？
あんま高学歴のイメージ湧かないんだけど

480

： デフォルトの名無しさん [] 2018/03/24(土) 02:40:55.22

Withをネストして内側から外側を参照するにはどうすればいいの？
最悪それ自身のオブジェクトを変数に保持できればいいけどできないよね？

>>456

を例にとると（この場合ネストするメリットは何もないけど）
Dim N As Integer
　With CreateObject("Scripting.FileSystemObject")
　　Dim obj As Object
　　Set obj = .
　　With .GetFolder(ThisWorkbook.Path)
　For Each ff In .Files
　If LCase(obj.GetExtensionName(ff.Path)) = "xls" Then N = N + 1
　Next
　　End With
End With
とか
Dim N As Integer
　With CreateObject("Scripting.FileSystemObject")
　　With .GetFolder(ThisWorkbook.Path)
　For Each ff In .Files
　If LCase(..GetExtensionName(ff.Path)) = "xls" Then N = N + 1
　Next
　　End With
End With
とか

481

： 470 [sage] 2018/03/24(土) 02:46:47.80

:fNSyCTew

スマソが、結局

>>456

のコードにおいて、fileSystemObjectはEnd withのタイミングでfreeされるってことでok?
で、With OpenTextFile()とした場合も同様にcloseされる理解でok?

482

： デフォルトの名無しさん [sage] 2018/03/24(土) 02:53:52.34

:fNSyCTew

ttp://thom.hateblo.jp/entry/2015/12/20/135035

ヘルプにネストすんなボケカスと書いてあったような。
未確認発言失礼。MS-Officeが無いもので。

483

： デフォルトの名無しさん [] 2018/03/24(土) 03:02:44.42

>>481

With New ObjectX
.Exec
End With
は、
Dim obj As ObjectX
Set obj = New ObjectX
obj.Exec
Set obj = Nothing
と同等という理解

根拠となる文献は↓の人が挙げてくれるはず

484

： デフォルトの名無しさん [] 2018/03/24(土) 03:12:24.84

:TyYpGZwY

つまりNothingを代入してもオブジェクトが解放されないのと同様にEnd Withでオブジェクトは解放されない
たまたまそこでオブジェクトの参照カウントが0になったから解放されただけ

485

： デフォルトの名無しさん [sage] 2018/03/24(土) 04:09:07.06

:fNSyCTew

> freeされる
という表現が悪かったか。
Nothing代入と等価ならそれでええです。いずれにせよその類の機能はwithに無いと思っていたので。
ありがとう。

486

： デフォルトの名無しさん [sage] 2018/03/24(土) 05:50:00.67

:3Pb/XQ//

>>484

うん？.Net系と勘違いしてない？
.Net系は確かに参照しているところが無くなればガベージコレクションで解放するけど
VBAや旧VBであるVB6はNothingを入れるとそのObjectそのものが解放される仕組みだと思ったけど

487

： デフォルトの名無しさん [] 2018/03/24(土) 05:57:47.30

:Ou2f/XLi

参考までに

With New ObjectX
.Exec
End With
→End Withで解放される

With New ObjectY
.Exec
GoTo Line1
End With
Line1:
→解放されない(関数の最後で解放)

GoTo Line2
With New ObjectZ
Line2:
.Exec
End With
→生成されない(.Execで実行時エラー)

488

： デフォルトの名無しさん [] 2018/03/24(土) 06:08:07.14

:Ou2f/XLi

>>486

仮にClass1で以下のプロパティが定義されているとすると
Public Property Get Self() As Class1
Set Self = Me
End Property

以下のWithで生成されたオブジェクトはEnd Withで解放されない
Dim obj As Class1
With New Class1
Set obj = .Self
End With

489

： デフォルトの名無しさん [sage] 2018/03/24(土) 06:24:23.25

:3Pb/XQ//

>>488

同様にNotingを入れると？

490

： デフォルトの名無しさん [sage] 2018/03/24(土) 08:07:41.90

:dVRvT3Vm

>>475

そういう場合は使わなきゃいいだけ
応用力ないの？

491

： デフォルトの名無しさん [sage] 2018/03/24(土) 08:16:33.84

:wM3wzjps

>>490

そういうのは応用とは言わない
一貫性が無いと言う

492

： デフォルトの名無しさん [sage] 2018/03/24(土) 08:21:58.80

:Ypx42xzO

VBA Set Obj = Nothing は必要か
外部リンク

493

： デフォルトの名無しさん [sage] 2018/03/24(土) 08:41:38.11

:G40hdKBQ

>>484

これでしょ

494

： デフォルトの名無しさん [sage] 2018/03/24(土) 09:04:16.28

:dVRvT3Vm

>>491

一貫性の話はコードの話
応用力はお前自身の話
まあそう言うことも理解できてないバカなのはわかった w

495

： デフォルトの名無しさん [sage] 2018/03/24(土) 09:33:19.46

:DtiNFwiJ

俺はオブジェクトにNothingを入れるのを諦めた
プロシージャの途中で条件によりExit Subする時とかまでカバーしようとすると
コードが変な方向にねじ曲がっていく

496

： デフォルトの名無しさん [sage] 2018/03/24(土) 09:40:33.58

:E2uahCPZ

>>494

悔しくて草生やした時点でお前の負け

497

： デフォルトの名無しさん [sage] 2018/03/24(土) 10:14:46.87

:maeX3hx+

ttps://oshiete.goo.ne.jp/qa/2463803.html

Parentプロパティってのがあったような
外部リンク

498

： デフォルトの名無しさん [] 2018/03/24(土) 10:19:01.04

:Ou2f/XLi

>>489

何を勘違いしているのか知らんが、Nothingを入れても参照が残っている限り解放はされない

>>488

のClass1の定義で、

Dim obj As Class1
Dim obj_ref As Class1

Set obj = New Class1

Set obj_ref = obj.Self

Set obj = Nothing
→「New Class1」で生成したオブジェクトは解放されない（参照が残っているから）

499

： デフォルトの名無しさん [] 2018/03/24(土) 10:33:33.02

:TyYpGZwY

>>486

未だにNothing代入の誤解が蔓延っているんだな
旧VBプログラマーの無知が作りだした因習が新参のマクロプログラマーに受け継がれるっていう
もはやウイルスの如き感染力

500

： デフォルトの名無しさん [sage] 2018/03/24(土) 10:43:35.46

:dVRvT3Vm

>>496

反論できなくて悔しいね w

501

： デフォルトの名無しさん [sage] 2018/03/24(土) 10:50:03.59

:dVRvT3Vm

>>497

それはFormにあると言うだけで全てのオブジェクトにあるわけじゃない

みたいにネストしてあれこれやりたいなら素直に変数にSetした方がいい

502

： デフォルトの名無しさん [] 2018/03/24(土) 10:50:20.70

:TyYpGZwY

>>500

バカはしゃべるな

503

： デフォルトの名無しさん [] 2018/03/24(土) 11:44:41.58

:D3IeoiHR

「ネストしているときはWithを使えないからネストしないときもWithはやめよう」
　↑
これを「一貫性」と呼ぶのか？流石にそういう主張じゃないよな。

504

： デフォルトの名無しさん [] 2018/03/24(土) 11:51:46.46

:Z79Bg+7E

ExcelがPythonをネイティブサポートしたら世界はどう変わるか。

505

： デフォルトの名無しさん [sage] 2018/03/24(土) 11:55:52.55

:3GLZsUhU

>>502

>>500

506

： デフォルトの名無しさん [] 2018/03/24(土) 12:03:27.93

:nM3MUJGs

応用力とは言わないんじゃないの
その場しのぎの対応は、一貫性がないんだよ

507

： デフォルトの名無しさん [sage] 2018/03/24(土) 12:22:38.50