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によって作られてしまうのかと思うと忍びなくてな