Excel VBA 質問スレ Part55

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

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

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

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

>>1
すれ立て乙

そして前スレ976のリストビューがずれる現象は
splitしてる結果を比較してみろとエスパー

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
以下、知ったかぶりがVBAにマウントをとる長文と
VBA老害が見当外れのレスをする長文をお楽しみください

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

>>2
それな！
アハハハ、腹いて

**デフォルトの名無しさん** · 2018/07/22(日) 16:10:37.90

>>2
その解説はマクラーにやらせるわ

**デフォルトの名無しさん** · 2018/07/23(月) 18:46:22.51

クラスモジュールの正しい使い方わからん
コレクションとかディクショナリとかそれらにぶっこむ変数定義して関数かましてMEをぶっこんで行くのって使い方として正しいん？
コレクションは標準側にもったり別のクラスに持つべき？

**デフォルトの名無しさん** · 2018/07/23(月) 19:21:59.18

>>5
そんな事が知りたい？
オッケー
じゃあそれもマクラーに解説させるわ

わ · 2018/07/23(月) 20:09:48.91

別に使わなくても良いよ。
コンストラクタ引数が使えないし、オーバーロードないしで読みづらくなるだけ。

**デフォルトの名無しさん** · 2018/07/23(月) 22:37:38.24

oopになりきれてないんだよね
正しいかどうかは状況によるけど俺は何度も繰り返す処理を自作クラスにしておく程度かな
vbaの文字列操作は遅いから自前でjavaのstringbuilderみたいなのつくったりとか

**デフォルトの名無しさん** · 2018/07/24(火) 06:54:57.86

マクラーがPSスレで大暴れしたけど反応薄くてワロタｗｗｗ

**デフォルトの名無しさん** · 2018/07/25(水) 12:44:56.02

たしかにYahoo知恵遅れのPGカテ見てると
なぜそれをVBAでやろうとする？て質問だらけでウンザリするな

**デフォルトの名無しさん** · 2018/07/25(水) 13:42:04.43

VisualStudioとか他の開発環境はダウンロードもインスコも面倒だで
慣れてる人から見れば簡単だろうけど、未経験者には敷居がかなり高い

**デフォルトの名無しさん** · 2018/07/25(水) 14:49:05.99

テキストファイルのコピー/マージ/分割、Webスクレイピングもどき
に貧弱で重いコーディングしかできないVBAですか？という…
せめてPowerShellもバッチも使えよという

**デフォルトの名無しさん** · 2018/07/25(水) 15:28:26.94

>>12
死ねや

**デフォルトの名無しさん** · 2018/07/25(水) 23:29:59.75

意識してスクレイピングという言葉を使っていないんだろうけど、Web操作なら分かるがスクレイピングにPowerShellは向かない。

取ってきたデータをどうするんだよ。
取ってきて終わりで、それをExcelの絡まない他のシステムに渡すだけというなら分かるけどな。
でもそれだったらそもそもExcel関係ないから俺でもそうするかも。
でもその場合でもPowerShellじゃなくて別の言語にするかも知れない。
多分VB.NetかC#とかの方が有力だな。

PowerShellからExcel起動してデータを表示するようなの作ってきたらセンスが無いの一言で終わりだね。
それにユーザーの使い勝手より自分のコードの書きやすさを優先するような奴は使えない。

**デフォルトの名無しさん** · 2018/07/25(水) 23:35:58.97

一緒に働いてたら、同じ動作するVBAのコードを提示して俺のが採用されるだろうな。
何でPS1とxlsxの2つのファイルを扱わなきゃならんと言われて。

**デフォルトの名無しさん** · 2018/07/25(水) 23:41:43.01

もうおまえら好きなの使えよｗｗｗNGワード登録めんどくせーんだよ
ただここはExcel VBAスレだ

**デフォルトの名無しさん** · 2018/07/26(木) 00:36:25.38

ろくなパーサーもない、正規表現すら覚束ないVBAでスクレイピングとかマゾかよ
PowerShell以上に向いないのに

データ取り込んでVBA有利な作業したいって条件でも、
Excelからスクレイピングツール(psでもrbでもcsでもなんでもいい)呼び出すのが正解だろ
使い分けというの言葉を知らんのか

ほんとマクラーは何でもかんでもVBAだけでやろうとするのが好きだな
もしかしてそれしか出来ないのか？

**デフォルトの名無しさん** · 2018/07/26(木) 00:44:22.92

標準入力すら素直に受け取れないVBAじゃ他のツール呼び出すの難しかったね

ごめんね俺が間違ってた
全部VBAでやるのが正解だよ
それしかできないもん

**デフォルトの名無しさん** · 2018/07/26(木) 01:05:48.00

俺マクリスト

**デフォルトの名無しさん** · 2018/07/26(木) 01:06:28.33

お先マックラー

**デフォルトの名無しさん** · 2018/07/26(木) 04:09:18.23

再び降臨　パワーシェルキチガイ

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

>>17
>>18
それでもお前のコードは採用されない。
2ファイルになった時点で埋めようが無い差だ。
VBAで出来ないことなら別だがな。

VBAで標準入出力使うことはあまり無いなあ。
それで困ったことも無い。
そういう環境だと思うが。

**デフォルトの名無しさん** · 2018/07/26(木) 12:22:39.07

powershellは起動するためにもう一工程要る

**デフォルトの名無しさん** · 2018/07/26(木) 14:34:42.45

PSなんて使う必要ないだろ
PSこそ中途半端な機能だわ
こんなの使うくらいならVSとかのIDEで良いよね

**デフォルトの名無しさん** · 2018/07/26(木) 14:36:40.80

一般的な環境ならVSぐらい入ってるしな

**デフォルトの名無しさん** · 2018/07/26(木) 20:38:34.08

vbaだと云々かんぬんはまぁ分からんでもないけどあーするといいこうしろよとか無くps勧めてくるのはありえんわ
知識そこで止まってる化石かなんかかよ

**デフォルトの名無しさん** · 2018/07/26(木) 23:24:39.34

使いにくい言語を使い本来不要な問題を作り出す
その問題を工夫して回避することが大事なんだ
便利なツールを手軽に作りたいだけの軟弱者は別の言語を使えばいい

**デフォルトの名無しさん** · 2018/07/27(金) 00:34:59.37

VBAを否定するつもりはないが固執する理由もない
どの言語も向き不向きはあるしExcel周りはやっぱVBAが一番手軽で楽なんだよ

ただ行番号くらいはデフォルトで設定設けろ

**デフォルトの名無しさん** · 2018/07/27(金) 00:37:19.63

VBAはＷindow10になってさらにクソ化した

**デフォルトの名無しさん** · 2018/07/27(金) 00:40:17.66

VBA質問スレなんだからVBAに固執してくれよ
逆に固執したくないならこのスレに固執するなよ

てかなんでVBA質問スレで最適言語談義が延々続いてるのかさっぱりわからない

**デフォルトの名無しさん** · 2018/07/27(金) 00:50:20.39

それがマウンター

**デフォルトの名無しさん** · 2018/07/27(金) 02:38:29.13

Colloctionに入ってる要素をランダムに並べ替えたいんですが
どういうコード書けばよいですか？

**デフォルトの名無しさん** · 2018/07/27(金) 06:08:47.10

>>32
やりたいのはこういうこと？

Key1 → Value1
Key2 → Value2
Key3 → Value3
↓
Key1 → Value3
Key2 → Value1
Key3 → Value2

**デフォルトの名無しさん** · 2018/07/27(金) 06:20:20.47

>>28
これってVBAの言語的な優位性というかランタイムがエクセルに乗っかってるからってだけだよね
Pythonが乗っかったら急速に消え去りそう
VBAでおまんま食ってる人達は怯えてるだろうね

**デフォルトの名無しさん** · 2018/07/27(金) 07:46:13.68

>>33
いえこういうことです
>>32
やりたいのはこういうこと？

Key1 → Value1
Key2 → Value2
Key3 → Value3
↓
Key3→ Value3
Key1 → Value1
Key2 → Value2

**デフォルトの名無しさん** · 2018/07/27(金) 07:53:09.32

collectionは順番って概念がないからあまり意味ないけど。。
目的次第だけど一度配列にぶっ込んで
インデックス乱数で作ってその順でcollection作り直したら？

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

inputboxにdefaultを設定すると選択状態になりますが、
これを選択しない状態にすることは可能でしょうか？

わ · 2018/07/27(金) 08:20:43.06

>>37
VBAにはinputboxは無いし、text boxにはdefaultプロパティもないんだが、一体なんの話だ？

**デフォルトの名無しさん** · 2018/07/27(金) 08:21:57.58

>>34
いや、あのね...
与えられた環境でどうするかって話で、そんなの当たり前だろ。
VBAも同時に使えるなら消えないだろうし、pythonに置き換わってVBAが使えないならpython覚えるだけだろ。

**デフォルトの名無しさん** · 2018/07/27(金) 08:24:28.31

>>35
もう1個Collection作ってランダムに入れれば良いんじゃね?

**デフォルトの名無しさん** · 2018/07/27(金) 08:50:15.62

VBAを.net対応にすれば良いのに

**デフォルトの名無しさん** · 2018/07/27(金) 09:41:22.77

>>34
VBAでおまんま食ってるPython未経験だけど
Python移行を熱烈に希望します

**デフォルトの名無しさん** · 2018/07/27(金) 09:43:45.36

>>41
せめてそれくらいはしてほしいよな
理想はC#AだがVB.netAでもいいわ

**デフォルトの名無しさん** · 2018/07/27(金) 12:10:40.85

>>40
なるほど。
テストでこういうコードを「アホレ　スイスイスーダララッタ　スラスラスイスイスイ」と一瞬で作ったら一発で成功した。
あらためてオレは頭がいいな。

------------------------------
Sub test()
Dim i As Integer
Dim r As Integer
Dim c1 As Collection
Dim c2 As Collection
Dim c As Class1
Set c1 = New Collection
Set c2 = New Collection
For i = 1 To 100
Set c = New Class1
c.i = i
c1.Add c
Next i
For i = 1 To 100
r = Int(Rnd * (100 - i + 1)) + 1
c2.Add c1(r)
c1.Remove r
Next i
For i = 1 To 100
Debug.Print c2(i).i
Next i
End Sub
------------------------------
Class1
Public i As Integer
------------------------------

**デフォルトの名無しさん** · 2018/07/27(金) 12:24:17.95

Vbaってコレクションのランダムソートごときにすごい行数を使うんだなあ驚いた

**デフォルトの名無しさん** · 2018/07/27(金) 13:22:27.47

1、2、3、たくさん、すごい、って数える部族の人ｺﾝﾆﾁﾜ

**デフォルトの名無しさん** · 2018/07/27(金) 14:10:45.72

VBAのIDEには行数が書いてないから致し方ない

**デフォルトの名無しさん** · 2018/07/27(金) 17:04:08.64

VBAもBASICの一種だから行番号は付けられるんだけどね

Sub Foo()
10 Dim i As Integer
20 Debug.Print i
30 i = i + 1: GoTo 20
40 End Sub

**デフォルトの名無しさん** · 2018/07/27(金) 20:35:05.00

>>37
inputbox関数のことです
引数defaultに文字を入力した時、選択されないようにしたいのです

Sub foo()
bar = InputBox("", "", "選択されてしまう")
baz = Application.InputBox("", "", "選択されてしまう")
End Sub

**デフォルトの名無しさん** · 2018/07/27(金) 22:41:24.03

選択されてしまうって、文字が？
inputboxの仕様だから難しいね

vbsだけど
https://stackoverflow.com/questions/28989351/vbscript-inputbox-unselect-the-text

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

>>50
そうです、文字が選択されてしまいます
フォームでも作るしかないみたいですね
ただ、右キーで選択解除できるのは大きな収穫でした（endキー使っていました）
ありがとうございました

**デフォルトの名無しさん** · 2018/07/28(土) 00:48:56.31

おれはテキストボックスにフォーカスが当たったらテキストが選択されてない方が嫌だけどな
ダイアログボックスのUIに対するガイドラインみたいなのなかったかな

**デフォルトの名無しさん** · 2018/07/28(土) 01:05:32.09

おまえがどうかなんて聞いてない

**デフォルトの名無しさん** · 2018/07/28(土) 01:21:56.22

また偏った知識で変なUIがVBによって作られてしまうのかと思うと忍びなくてな

**デフォルトの名無しさん** · 2018/07/28(土) 05:02:40.84

>>48
Integerオーバーフローまで無限ループw

**デフォルトの名無しさん** · 2018/07/28(土) 06:27:05.92

16bitだからすぐにオーバーフローするけどね

**デフォルトの名無しさん** · 2018/07/28(土) 07:31:07.15

クラスインスタンスをJSONにシリアライズしたいのですがどうすればいいでしょうか
クラスの種類が1000種類ぐらいあるので個別に作ると工数が足りません

**デフォルトの名無しさん** · 2018/07/28(土) 07:32:26.75

それVBAでやるの？？

**デフォルトの名無しさん** · 2018/07/28(土) 07:44:25.29

>>58
そうです
エクセルVBAの使用以外の開発は全て禁止されています

**デフォルトの名無しさん** · 2018/07/28(土) 07:51:40.54

VBAでクラスを1,000種類？
バカなのかネタなのかはっきりしてくれ w

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

>>60
要件を満たすには必要なのです

**デフォルトの名無しさん** · 2018/07/28(土) 08:35:55.74

ならバカ決定

**デフォルトの名無しさん** · 2018/07/28(土) 08:37:47.02

ならお前の工数見積もりのミスだな
おとなしく謝って人員投入してもらえ

**デフォルトの名無しさん** · 2018/07/28(土) 09:15:35.74

そこをなんとか
バカは承知なのですが他の選択肢は禁止されているんです
工夫でどうにかなりませんかね？

**デフォルトの名無しさん** · 2018/07/28(土) 09:59:39.84

出来ませんって言えば？
実際出来ないんだし
正直に言えば済むだろ

**デフォルトの名無しさん** · 2018/07/28(土) 10:13:43.19

こんな簡単なことがVBAではできないのでしょうか？

**デフォルトの名無しさん** · 2018/07/28(土) 10:15:03.35

出来る出来ないじゃなく
出来るけど工数がかかるだけだろ…馬鹿か？

**デフォルトの名無しさん** · 2018/07/28(土) 10:21:59.57

>>67
もしできるなら工数はほとんどかかりませんよ
できないから工数がかかって大変なのでなんとか工夫してできませんか？という話をしてます
人にバカという前に自分の理解力の程度を自覚したほうが良いのでは？

**デフォルトの名無しさん** · 2018/07/28(土) 10:30:26.33

apiでメッセ送れば未選択状態に出来なかったかな？

**デフォルトの名無しさん** · 2018/07/28(土) 10:45:40.00

クラス定義はテキストだし、JSONもテキストだし、変換しようと思えばできるじゃない
まさかそこの手法レベルで悩んでたの？
クラス定義が1000種類もあり、変換定義を書く工数が足りないって話だとばかり思っていたよ…

**デフォルトの名無しさん** · 2018/07/28(土) 10:48:20.08

何の禅問答だよ

**デフォルトの名無しさん** · 2018/07/28(土) 11:18:14.54

クラスのソースからコンバータ自動生成するプログラム作れば解決
つかクラス1000個とか、ＶＢＡに向いてないのを差し引いても、どう考えても設計間違ってるわ

**デフォルトの名無しさん** · 2018/07/28(土) 12:09:18.04

VBAではJSONシリアライズのようなちょっとした処理のためにVBAパーサーを書かなければならないんですか？
他の言語だと基本ライブラリを使って1行で出来る処理なのでにわかには信じられません

経験上、コード生成は資源管理や後々のメンテナンスでトラブルが発生することが多いのでできれば避けたいです
VBAは工夫しだいで何でも出来る言語だと思います
もっと工夫して実行時に解決することはできませんかね？

>>72
小さいオフィスの事務作業ではどうか知りませんが1000クラスは業務システムでは少ない方ですよ
1つのシステムでプロジェクト(機能)が100以上、それぞれのプロジェクトに画面がいくつか、クラスが10〜、なんてことは別に珍しくもないです

**デフォルトの名無しさん** · 2018/07/28(土) 12:11:55.65

しゃあないやん、VBAてそうなんだもん

**デフォルトの名無しさん** · 2018/07/28(土) 12:12:24.12

見積甘かったのを言語のせいにされても

**デフォルトの名無しさん** · 2018/07/28(土) 12:17:55.21

VBAはRuby、Python、.NETと比較されるほどの優れた高級言語なので
他の言語で当たり前のようにできることがまさか出来ないとは思いませんでした
こんなことで見積もりを誤ったなんてまるで交通事故にでもあったような気分です

**デフォルトの名無しさん** · 2018/07/28(土) 12:28:41.80

使った事ないけどリフレクションぐらいあるに決まってんだろwww
それ使えば簡単に実装できるわ

**デフォルトの名無しさん** · 2018/07/28(土) 12:39:19.60

上司だかお客だかにそう説明すりゃええやん

**デフォルトの名無しさん** · 2018/07/28(土) 12:39:27.77

オブジェクトブラウザにクラス一覧やメソッド一覧が表示される
という事はメタデータの取得方法が存在するって事だ
詳しい方法はいつもの達人VBAerが教えてくれるだろう