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/03/19(月) 20:59:21.19

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

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

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

**デフォルトの名無しさん** · 2018/03/19(月) 23:08:18.69

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

**デフォルトの名無しさん** · 2018/03/20(火) 00:08:55.57

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

**デフォルトの名無しさん** · 2018/03/20(火) 00:13:05.69

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

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

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

**デフォルトの名無しさん** · 2018/03/20(火) 06:01:07.86

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

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

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

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

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

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

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

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

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

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

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

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

**デフォルトの名無しさん** · 2018/03/20(火) 15:10:05.57

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

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

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

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

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

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

ボケ殺し

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

アスペなんやで

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

質問です。
任意のフォルダ（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ファイルが一つあります。
どこを修正すれば良いのでしょうか。
教えてください。

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

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

**デフォルトの名無しさん** · 2018/03/20(火) 23:25:24.58

Ruby なら、これだけだが

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

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

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

**デフォルトの名無しさん** · 2018/03/21(水) 11:16:23.41

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

なんとなくだが

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

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

なんとなくだが

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

そいうWithの使い方は嫌い

んとなくだが

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

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

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

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

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

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

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

withってusingみたいに解放してくれるんだ
Set使うより簡潔にできるのね

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

>>464
> コーディングに慣れてる人には
> 一瞬、どこで生成してるの？ってなるから
普通にインデントしてたらそんなことにならん

> 可読性の見地からイマイチかなと思う
お前だけだろ

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

こんなもんコピペグラマーでもしょっちゅう目にしてるはず
この程度でわかりにくいとか、どんだけ素人だ

ただ、老眼の俺にはドットの見落とし、書き漏らしがちょっと怖い

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

>>466
自分も初めて知った。
けどネスト深くなると、破棄されたか分かりにくそうではある。
オブジェクト残ってると問題出るプログラムの場合はちょっと使うの怖いな

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

>>466
withでcloseはしないんじゃないの?
あくまでusingぽくて分かりやすいというだけで。

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

>>470
自作クラスに Sub Class_Terminate() を定義してステップ実行してみればわかる。
End With 後にちゃんと呼び出されるから。

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

無知なのは仕方がないとしてもEnd Withの後にClass_Terminateが呼び出されるのなら
論理的な帰結としてWithがオブジェクトの解放をしているのではないと気がついて欲しかったなあ

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

>>472
解放、close
どっち？

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

それに「無知」とは何のことかな？
非明示的にデストラクトされてもFreeはされない言語があってその事を知らない、という意味かな？
だとしたら知らない

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

>>467
>>468
同じ階層に同じようなObjectがある場合、
Withを使ってる奴だけそんな方法で解放するの？
統一性のないコーディングだなぁ

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

解放の方法が違う程度の事を気にしてたら現場で発狂しまくりだろうなぁ

**デフォルトの名無しさん** · 2018/03/24(土) 00:04:50.79

スタイルは大事だから気にするわな。
気にしない奴はバグ増えまくりだ。
現場が忙しくなると崩れて来る。
そして俺のバグも増えるというわけさ。

気にしない奴とは仕事したくないな。

**デフォルトの名無しさん** · 2018/03/24(土) 00:39:44.09

解放の方法てwそんなもんないわwww

**デフォルトの名無しさん** · 2018/03/24(土) 01:08:51.19

プログラマってどういう大学のでの人たちがやってるんだ？
あんま高学歴のイメージ湧かないんだけど

**デフォルトの名無しさん** · 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
とか

**470** · 2018/03/24(土) 02:46:47.80

スマソが、結局>>456のコードにおいて、fileSystemObjectはEnd withのタイミングでfreeされるってことでok?
で、With OpenTextFile()とした場合も同様にcloseされる理解でok?

**デフォルトの名無しさん** · 2018/03/24(土) 02:53:52.34

>>480
ヘルプにネストすんなボケカスと書いてあったような。
未確認発言失礼。MS-Officeが無いもので。

**デフォルトの名無しさん** · 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
と同等という理解

根拠となる文献は↓の人が挙げてくれるはず

**デフォルトの名無しさん** · 2018/03/24(土) 03:12:24.84

つまりNothingを代入してもオブジェクトが解放されないのと同様にEnd Withでオブジェクトは解放されない
たまたまそこでオブジェクトの参照カウントが0になったから解放されただけ

**デフォルトの名無しさん** · 2018/03/24(土) 04:09:07.06

> freeされる
という表現が悪かったか。
Nothing代入と等価ならそれでええです。いずれにせよその類の機能はwithに無いと思っていたので。
ありがとう。

**デフォルトの名無しさん** · 2018/03/24(土) 05:50:00.67

>>484
うん？.Net系と勘違いしてない？
.Net系は確かに参照しているところが無くなればガベージコレクションで解放するけど
VBAや旧VBであるVB6はNothingを入れるとそのObjectそのものが解放される仕組みだと思ったけど

**デフォルトの名無しさん** · 2018/03/24(土) 05:57:47.30

参考までに

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で実行時エラー)

**デフォルトの名無しさん** · 2018/03/24(土) 06:08:07.14

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

**デフォルトの名無しさん** · 2018/03/24(土) 06:24:23.25

>>488
同様にNotingを入れると？

**デフォルトの名無しさん** · 2018/03/24(土) 08:07:41.90

>>475
そういう場合は使わなきゃいいだけ
応用力ないの？

**デフォルトの名無しさん** · 2018/03/24(土) 08:16:33.84

>>490
そういうのは応用とは言わない
一貫性が無いと言う

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

VBA Set Obj = Nothing は必要か
http://thom.hateblo.jp/entry/2015/12/20/135035

**デフォルトの名無しさん** · 2018/03/24(土) 08:41:38.11

>>484
これでしょ

**デフォルトの名無しさん** · 2018/03/24(土) 09:04:16.28

>>491
一貫性の話はコードの話
応用力はお前自身の話
まあそう言うことも理解できてないバカなのはわかった w

**デフォルトの名無しさん** · 2018/03/24(土) 09:33:19.46

俺はオブジェクトにNothingを入れるのを諦めた
プロシージャの途中で条件によりExit Subする時とかまでカバーしようとすると
コードが変な方向にねじ曲がっていく

**デフォルトの名無しさん** · 2018/03/24(土) 09:40:33.58

>>494
悔しくて草生やした時点でお前の負け

**デフォルトの名無しさん** · 2018/03/24(土) 10:14:46.87

>>480

Parentプロパティってのがあったような
https://oshiete.goo.ne.jp/qa/2463803.html

**デフォルトの名無しさん** · 2018/03/24(土) 10:19:01.04

>>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」で生成したオブジェクトは解放されない（参照が残っているから）

**デフォルトの名無しさん** · 2018/03/24(土) 10:33:33.02

>>486
未だにNothing代入の誤解が蔓延っているんだな
旧VBプログラマーの無知が作りだした因習が新参のマクロプログラマーに受け継がれるっていう
もはやウイルスの如き感染力

**デフォルトの名無しさん** · 2018/03/24(土) 10:43:35.46

>>496
反論できなくて悔しいね w

**デフォルトの名無しさん** · 2018/03/24(土) 10:50:03.59

>>497
それはFormにあると言うだけで全てのオブジェクトにあるわけじゃない
>>480みたいにネストしてあれこれやりたいなら素直に変数にSetした方がいい

**デフォルトの名無しさん** · 2018/03/24(土) 10:50:20.70

>>500
バカはしゃべるな

**デフォルトの名無しさん** · 2018/03/24(土) 11:44:41.58

「ネストしているときはWithを使えないからネストしないときもWithはやめよう」
　↑
これを「一貫性」と呼ぶのか？流石にそういう主張じゃないよな。

**デフォルトの名無しさん** · 2018/03/24(土) 11:51:46.46

ExcelがPythonをネイティブサポートしたら世界はどう変わるか。

**デフォルトの名無しさん** · 2018/03/24(土) 11:55:52.55

>>502
>>500 w

**デフォルトの名無しさん** · 2018/03/24(土) 12:03:27.93

応用力とは言わないんじゃないの
その場しのぎの対応は、一貫性がないんだよ

**デフォルトの名無しさん** · 2018/03/24(土) 12:22:38.50

>>480の汎用的な解ができたよー

【標準モジュール】
Public Function ObjectWrapper(ByRef ObjectRef As Object, Optional ByRef ParentWrapper As ObjectWrapperClass = Nothing) As ObjectWrapperClass
　 Dim wrapper As ObjectWrapperClass
　 Set wrapper = New ObjectWrapperClass
　 Set wrapper.Ref = ObjectRef
　 Set wrapper.Parent = ParentWrapper
　 Set ObjectWrapper = wrapper
End Function

【クラスモジュール : ObjectWrapperClass】
Private m_ref As Object
Private m_parent As ObjectWrapperClass

Public Property Set Ref(ByRef ObjectRef As Object)
　 Set m_ref = ObjectRef
End Property
Public Property Get Ref() As Object
　 Set Ref = m_ref
End Property

Public Property Set Parent(ByRef ObjectWrapper As ObjectWrapperClass)
　 Set m_parent = ObjectWrapper
End Property
Public Property Get Parent() As ObjectWrapperClass
　 Set Parent = m_parent
End Property

Public Property Get Self() As Object
　 Set Self = Me
End Property

**デフォルトの名無しさん** · 2018/03/24(土) 12:24:31.16

>>507の使用例

With ObjectWrapper(CreateObject("Scripting.FileSystemObject"))
　 With ObjectWrapper(.Ref.GetFolder(ThisWorkbook.Path), .Self)
　　 For Each ff In .Ref.Files
　　　If LCase(.Parent.Ref.GetExtensionName(ff.Path)) = "xls" Then N = N + 1
　　 Next
　 End With
End With

**デフォルトの名無しさん** · 2018/03/24(土) 13:02:42.69

java臭いw

**デフォルトの名無しさん** · 2018/03/24(土) 15:59:40.14

1点質問です。

ODBC接続するマイクロソフトクエリ（xxxx.dqy)をエクセルVBA(EXCEL2010)から起動する際、
ユーザとパスワードを自動入力してログインするマクロを作成したいのですが、
どのように記載すればいいでしょうか。詳しい方、ご教示下さい。
宜しくお願い致します。

sub mac()

Workbooks.Open ("C:\TEMP\xxxx.dqy")
'/// ユーザ(abc)、パスワード(p1a#s%s)自動入力

end sub

**デフォルトの名無しさん** · 2018/03/24(土) 17:38:17.30

>>504
どっかのサイトからポトペタして貼り付けたのが動きませんけどって
阿鼻叫喚の地獄絵図

**デフォルトの名無しさん** · 2018/03/24(土) 17:56:47.42

>>511
それなら今と変わらなくね？

**デフォルトの名無しさん** · 2018/03/25(日) 00:20:48.30

勉強して会社エクセルに入れたいんだけどセキュリティ的にどうなのでしょうか？
管理者権限がなくてもできますか？

**デフォルトの名無しさん** · 2018/03/25(日) 00:27:54.20

>>513
セキュリティ的には完全にアウトだから入れたかったら会社の上司に相談すること

**デフォルトの名無しさん** · 2018/03/25(日) 00:43:47.76

>>513
今の時代にエクセルが入ってない職場ってどういうところなんか気になるな

**デフォルトの名無しさん** · 2018/03/25(日) 00:44:35.98

なにを入れるんだよｗ

**デフォルトの名無しさん** · 2018/03/25(日) 01:05:24.75

ヒキニートの妄想だろ

**デフォルトの名無しさん** · 2018/03/25(日) 01:44:51.57

日本は中小企業が大部分を占めるのでExcelの需要が大きいんだと思う。

**デフォルトの名無しさん** · 2018/03/25(日) 01:45:45.66

10年以上受け継がれてる見積もりシートとかあるわ。

**デフォルトの名無しさん** · 2018/03/25(日) 04:17:50.28

中小企業が大部分なのはどこの国でも同じなんだが

**デフォルトの名無しさん** · 2018/03/25(日) 04:57:24.72

>>520
雇用者数に対する中小企業割合は日本では8割、アメリカ、イギリス、ドイツなどで5割程度のようだが、これおそらく生産性に直結してると思う。
資本が集中していない分、日本は競争力が低い。
一方で、中小企業割合が大きいということは、一国一城の主となれる割合が大きいことでもあり、儲からないけど好きなことで飯が食えるという意味では良いことなのかもしれない。

**デフォルトの名無しさん** · 2018/03/25(日) 05:01:26.01

ちなみに欧米でも中小企業が8割を占める国があり、イタリアがそうらしいです。
イタリアは職人的な工芸製品のイメージがあり、製品本来の価値よりブランドイメージが先行している感じがする。
そこは見習うべき点かもしれない。
同じものを売るなら高く売ったほうが良いからね。

**デフォルトの名無しさん** · 2018/03/25(日) 05:04:38.97

イタリアのExcel割合を調べてくれたまえ。

**デフォルトの名無しさん** · 2018/03/25(日) 21:29:27.29

中小とか関係無いだろ。
大企業でExcel入ってない所なんて聞いたこと無いぞ。

**デフォルトの名無しさん** · 2018/03/25(日) 22:39:02.13

大企業はエクセルの他にTableauとかSAPとかSalesforceみたいなの入れてたりするやん
大抵の中小にはエクセルしかない

**デフォルトの名無しさん** · 2018/03/25(日) 23:08:52.28

>>525
入っててもExcel使ってるだろ。
それも、そういうのより有用にな。
お前が言ってるのはプラスアルファの部分で必須という点ではExcelの方が上だぞ。

**デフォルトの名無しさん** · 2018/03/25(日) 23:31:43.16

Excelのほかにはちゃんとしたデータベースが導入されていれば
事務部門には必要にして十分だろう

**デフォルトの名無しさん** · 2018/03/25(日) 23:34:10.07

Excelの最大の問題点は情報の共有。
日本の大企業がExcelに頼っているならそれが弱点かもしれない。

**デフォルトの名無しさん** · 2018/03/26(月) 00:27:14.12

>>528
働いたこともないニートが妄想で語るなよ

**デフォルトの名無しさん** · 2018/03/26(月) 11:51:23.00

情報の共有ってことだと社内データベースが不可欠だけど素人では運用するのが難しい。
このネックはなかなか解消できないのかもね。
開発ツールとかはただでいくらでも手に入るし運用も問題にならない。
ルールで導入できないとかそういうのは自業自得だから。

**デフォルトの名無しさん** · 2018/03/26(月) 12:00:07.22

>>528
Excelの共有機能を使えば万事解決やろ

**デフォルトの名無しさん** · 2018/03/26(月) 12:06:51.37

>>531
無駄だろな。
俺は階層ディレクトリにも疑問を持っているのだが、おそらく理解する人は少ないだろうなあ。
一番被害を被ってるはずのウェブ屋さんが「階層ディレクトリは素晴らしい」と言い張りそうな気がする。

**デフォルトの名無しさん** · 2018/03/26(月) 12:08:37.31

業務用のパッケージソフトってだいたい300万位がエントリーレベルなので、そうおいそれと買い換えられない。
ここもネックになってる。

**デフォルトの名無しさん** · 2018/03/26(月) 12:20:45.13

ただで手に入るSQLSever ExpressとVisual Studio Express で機能的には十分なんだけどね。
運用が難しいってだけじゃなくて、「ツールを導入するのが好きな人」の陰謀なんじゃないかと勘ぐっているw

**デフォルトの名無しさん** · 2018/03/26(月) 13:06:59.27

業務用ソフトってのはサポート込みなんだけど
どこの企業でも運良くパソコンオタクが入社して時間を持て余してるわけじゃないんで

データのバックアップから非常用の電源まで、まとめて面倒を見るのは大変だし、いちいち調べて対処するのは効率が悪い
ノウハウを持った会社からパッケージで買った方がずっとコストも安いし対応も早いし安心できる

**デフォルトの名無しさん** · 2018/03/26(月) 13:23:21.66

VBEのコードウインドウの背景色を濃いグレーに変えたのですが、プロシージャの区分線の色も濃いグレーのために背景と同化して見えなくなってしまいました
プロシージャの区分線の色を変更する方法ってありませんか？

**デフォルトの名無しさん** · 2018/03/26(月) 13:23:49.36

>>535
業務ソフトじゃなくてツールの話をしてるんだけど？
定型業務以外の、何か調べてレポートしたりとかマーケティング向けの調査とかそういうの。

**デフォルトの名無しさん** · 2018/03/26(月) 13:29:25.15

300万の製品を10年使われると年間30万、月2万5千円だろ。
だったら月2万5千円で最新バージョンが使い続けられるといいのだがな。
アップデートが途中で打ち切られるので未だにXPがあるんだよな。
XPで何でもできるならそれでもいいんだが、新しいソフトはXPサポートしないしな。
300万は微妙すぎる金額だよな。
まあ微妙だからこそ、その価格に集中するんだろうけど。