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が教えてくれるだろう

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

>>76
>他の言語で当たり前のようにできることがまさか出来ないとは思いませんでした
>こんなことで見積もりを誤ったなんてまるで交通事故にでもあったような気分です

ただの無能じゃん。部下がこんなしょぼいミスしたらブチ切れるわ

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

> VBAはRuby、Python、.NETと比較されるほどの優れた高級言語なので

その認識からしておかしい、ネタだろ？w

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

>>66
実際、貴方が出来ないんだから僕には無理でした
って言えば？って事ですよ
カッコ付けて安請け合いするから変な事になる

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

皮肉質問にまじめに取り合うのはギャグなのか？

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

>>79
あれは定義が見れるだけで
実際のインスタンスから値が取れることにはならん

>>80
俺ならVBAに対する理解がこの程度の部下に
1000を超えるクラスが必要な規模のVBA案件見積させた上司にもブチ切れるわｗ

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

>>57
そｐれっぽいものはあるよ
jsに投げてjsからもらう
http://outofmem.tumblr.com/post/63355773212/vbavba%E3%81%A7json%E3%82%92%E3%83%91%E3%83%BC%E3%82%B9%E3%81%99%E3%82%8B
ぱーっとよんだけどすげーめんどくさそうだった
まぁ0から作るよりかはなんぼかマシ

がんば～

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

>>85
それJSONをVBAで解析するやり方で、
クラスをJSONに出力する方法じゃないから

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

「つづき」の方は一応シリアライズだけど

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

>>86-87
あぁごめん、その続きの方貼ったつもりだったけど前のページ貼ってた
検証する気も起きないけど、ちょっとでも役に立てば

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

バカは適材適所を知らないという見本のような質問だな。

俺の職場にバカがいなくて良かった。

**デフォルトの名無しさん** · 2018/07/29(日) 18:03:41.01

>>89
でもお前無職じゃん

**デフォルトの名無しさん** · 2018/07/30(月) 20:07:26.47

シートからデータを抜き出して重複しないリストを作ろうとしています。
For
If Cells(i+1,1) = .List(i) then
中略
Next
で重複の判定をさせているのですが、エラーが出ます。
InStrで判定させると期待通りに動きます。
検索しているのは数字なのですが、エラーの原因がわかりません。
挙動としては問題ないので、ひとまず満足はしているのですが、もし原因エスパーして頂けるようなら教えてください。

**デフォルトの名無しさん** · 2018/07/30(月) 20:33:15.09

このスレの質問らしいw
エラーが出てるってだけでどんなエラーがどこで出てるのか言わない www

91 · 2018/07/30(月) 20:40:42.50

>>91
今確認し直したらエラーが出ているのではなく、重複の判定ができていませんでした。
デバッグで変数を追っていましたが、表面上は同じ数字が入っているように見えるのですがifの中身を読みに行ってくれません。
例えば100～110の数字を重複なしでリスト化したいのですが、
100
100
101…
といった表示になってしまいます。
質問の仕方もわからないような有様で申し訳ありませんが、よろしくお願いします。

**デフォルトの名無しさん** · 2018/07/30(月) 21:22:34.72

>>91
重複なしのリストは、フィルタをうまく使えば一瞬でできるぞ

あと色々とめんどくさいから
・どういうリストを
・どうしたい
を書いてくれ
コードを書くから、それとどう違うかを照らし合わせると良い

**デフォルトの名無しさん** · 2018/07/30(月) 21:27:58.45

まず質問する前にちゃんとデバッグしようぜ。。

**デフォルトの名無しさん** · 2018/07/30(月) 21:33:24.66

>>91
>検索しているのは数字なのですが
まずこれがあやしい
エクセルは表示されてる物と実際の値は違うぞ

そもそもそのコードで重複除去できると思えんけどな
１重ループで重複除去できるアルゴリズムあるなら教えて欲しいわ

91 · 2018/07/30(月) 22:26:44.11

>>94
　　　　　　　　　納入日…
納入先1　納入先1'　製品名　納入額
納入先1　製品名1''　製品名　納入額
納入先2　納入先2'　製品名　納入額
このような元データから納入先1と2をそれぞれリスト化してUserFormのリストボックス1と2に表示、そこから納入先のデータを引き渡して別途データまとめるものを作ろうとしてました。
納入先については数字で管理されています。
納入先1にはさらに細かくいくつかの納入先2があり、リストボックス1に納入先1のリストを表示、選択された納入先1に紐付いている納入先1'を表示させるのが目標です。
ExcelVBA逆引き辞典とネット参考に関係しそうなコードを自分で打っていくと上記のようなコードが出てきたので使ってました。重複除外のコードは本から流用してます。
よろしくお願いします。

>>96
なんとなくそこが原因だとは思うのですが、具体的にどうなっているのかわかりません。
cellsでは数値を返して、listでは文字列として見ているような理解でいいのでしょうか。

>>95
一行ずつ動かしてみましたが、cellsと.listの中身は同じ表示をするのにifの中に入ってもらえなかったのでどうなっているのかもわかりませんでした。

**デフォルトの名無しさん** · 2018/07/30(月) 22:28:08.17

Dim d As New Dictionary(Of String, MyClass)

なぜかエラーが出るのですがなぜでしょうか???

**デフォルトの名無しさん** · 2018/07/31(火) 06:55:09.36

>>97
vba リストボックス重複除去
辺りで検索すれば山程出てくるよ

**デフォルトの名無しさん** · 2018/07/31(火) 07:13:22.38

>>98
エラーの内容は書こう

多分参照設定してない
http://itref.fc2web.com/vb/vba/dictionary.html

**デフォルトの名無しさん** · 2018/07/31(火) 07:15:42.13

やはりVBAばかりやるとプログラミングの基礎がおろそかになるね
見た目を意識したスプレッドシートをそのままデータとして使う、といった発想は基礎ができてないVBAer特有の現象
Excel VBAは入門用と宣伝されることが少なくないが、正直、特殊な環境だから初心者は避けたほうがいい

**デフォルトの名無しさん** · 2018/07/31(火) 07:18:36.03

と、VBA利権にたかるウジ虫がほざいてます

**デフォルトの名無しさん** · 2018/07/31(火) 07:21:50.77

>>101
誰もvbaでプログラミングの基礎なんて覚えないでしょ
よっぽどで無い限りフレームワークは無料

vb6以前なら仕方ないけどね、あの頃は色々と有料だった

**デフォルトの名無しさん** · 2018/07/31(火) 07:22:29.70

VBAerて…また新語作りやがったな

**デフォルトの名無しさん** · 2018/07/31(火) 08:10:41.76

どの言語でも言えることをさもVBAでのみ起こるかのように言うw

CだろうがPythonだろうが誰かが頓珍漢なことをした時に言えば良いんだから

**デフォルトの名無しさん** · 2018/07/31(火) 08:25:14.43

星持ちは荒らしてばっかりか

**デフォルトの名無しさん** · 2018/07/31(火) 08:26:46.09

専ブラJune使ってるんだけど何の設定もしてないのにあぼーんされてるのってなんで？
デフォでNGワード登録されてる単語あるの？

**デフォルトの名無しさん** · 2018/07/31(火) 08:46:49.23

>>107
> デフォでNGワード登録されてる単語あるの？
当然ある。　このスレで確認できる

NGワード絞り込みスレッド★117
https://agree.5ch.net/test/read.cgi/mango/1532726276/

最後に「This is Original」と出ればＯＫ
「Rock54ed.」とでればＮＧワードが含まれている

**デフォルトの名無しさん** · 2018/07/31(火) 16:04:06.73

レベルが低いから質問しに来てるのに
質問者のレベルが低いとあざ笑うだけの書き込みしに来る人ってのは
やっぱりVBAプロなんでしょうか

**デフォルトの名無しさん** · 2018/07/31(火) 16:07:23.76

>>109
え？質問をする理由はレベルが低いから｢だけ｣だと思ってるの？馬鹿なの？

**デフォルトの名無しさん** · 2018/07/31(火) 19:23:40.75

>>110
答えになってない！

**デフォルトの名無しさん** · 2018/07/31(火) 21:26:26.03

セル関数だけで今開かれているWorkbookのWorksheetの一覧を作れるかい?

**デフォルトの名無しさん** · 2018/07/31(火) 21:29:34.12

>>109
質問内容を変に隠すのが嫌われてるだけだよ
あと、わかったフリ

**デフォルトの名無しさん** · 2018/07/31(火) 21:29:56.81

>>112
セル関数って何？

**デフォルトの名無しさん** · 2018/07/31(火) 21:53:17.28

>>114
=aaa()みたいにセルに関数入力するやつ

**デフォルトの名無しさん** · 2018/07/31(火) 22:34:16.53

>>112
できるっちゃできるし、現にSheet1をメニューのように使って
Sheet追加したりも可能　それはすぐにメニューに反映されるし
文字で説明するよか現物Upした方が早いだろうから　あした

**デフォルトの名無しさん** · 2018/07/31(火) 22:37:03.15

これ？
https://www.tipsfound.com/excel/01306

**デフォルトの名無しさん** · 2018/08/01(水) 18:45:11.44

質問です
画像みたいにSheet2の氏名と県名から数値を検索してSheet1の黄色セルを埋めることは関数でできますか？
https://i.imgur.com/VtolpQf.jpg

**デフォルトの名無しさん** · 2018/08/01(水) 19:29:44.50

できる。

**118** · 2018/08/01(水) 19:37:48.99

>>119
アホ。
やり方を聞いておるんじゃ。

**デフォルトの名無しさん** · 2018/08/01(水) 20:05:31.66

｢できますか？｣としか聞いていないだろ

**デフォルトの名無しさん** · 2018/08/01(水) 20:09:04.73

お金を頂きます

**デフォルトの名無しさん** · 2018/08/01(水) 20:47:02.77

あの説明じゃ何したいんだかさっぱり判らんけど出来るかってんなら出来るんだろうなぁ w

**デフォルトの名無しさん** · 2018/08/01(水) 20:49:54.52

>>121
日本語に不慣れな外人ならその言い訳は通用かもだね
（普通の常識というか社会経験があれば、外人であっても通用しないと思うけど）

**デフォルトの名無しさん** · 2018/08/01(水) 20:58:32.29

（）の中が長すぎる

**デフォルトの名無しさん** · 2018/08/01(水) 21:01:06.09

>>118
vlookup キー 2つ
とかで検索するといい

ただ、普通に作業列作ったほうが良い

**デフォルトの名無しさん** · 2018/08/01(水) 21:14:43.63

つーかVBAスレで関数とはどういうことよ
ＷorksheetFunction？

**デフォルトの名無しさん** · 2018/08/01(水) 21:16:08.42

pivotじゃだめなのん？

**デフォルトの名無しさん** · 2018/08/01(水) 21:56:40.95

>>121
文は文脈に関係なく不変の意味を持つという形式意味論の立場ですね

一方で、自然言語の解釈は文脈や発話者の意図と密接に関係しているという
立場をとるのが語用論です

夏目漱石は「I love you」を「月が綺麗ですね」と訳しなさいと
言ったらしいですがこれなんかは文脈を考えないとわからない言葉です

それでは問題です

最初にりんごが3個あります、あと2個りんごを買ったらいくつになるでしょう？

**デフォルトの名無しさん** · 2018/08/01(水) 23:19:06.30

>>129
スレチなんでそろそろ帰って

**デフォルトの名無しさん** · 2018/08/01(水) 23:56:36.26

>>129
お前みたいな馬鹿が質問するとおかしくなる
馬鹿なら何をしてもいいわけじゃない

**デフォルトの名無しさん** · 2018/08/02(木) 07:19:05.05

>>131
文脈を理解してないあなたの方が馬鹿です
死んでどうぞ

**デフォルトの名無しさん** · 2018/08/02(木) 07:19:41.69

>>130
ただいま

**デフォルトの名無しさん** · 2018/08/02(木) 08:12:15.27

こうして回答も得られず、何も叶わず、￥無駄な人生を歩むのでした

**デフォルトの名無しさん** · 2018/08/02(木) 10:09:33.51

>>118
の者です
なんだかお騒がせしてしまってすいません
Sheet2の別の列に検索キーとして氏名と県名の結合文字列を作ってvlookupで参照するようにしました
もっとスマートなやり方があれば一番良いのですが…

**デフォルトの名無しさん** · 2018/08/02(木) 19:14:12.00

>>135
sheet1のデータの持ち方がはっきりしないとむずかしいかも
各人名でどれか１つの値しか持たないなら最初の表から簡単にできる

**デフォルトの名無しさん** · 2018/08/02(木) 21:04:52.53

複数シートのデータを3次元配列に格納する効率の良いコードを組みたいんだけど、
サンプルコードをお願いできない？

条件
・三次元配列は(シートのインデックス番号,行,列)を想定
・対象のシートはインデックスの二番目から最後までで、現状5シートだが10シート程度まで増える見込み
・一枚のシート内におけるデータ数は、列数は30程度で固定、行数はシート毎に可変で現状は100程度だが1000程度まで増える見込み

**デフォルトの名無しさん** · 2018/08/02(木) 21:39:08.04

>>137
行、列、シートで三次元になってるから、
sheets(1).cells(2,3)
みたいに配列にいれずそのまま扱うのは駄目なの？

効率がいいかどうかは知らんけど、
二次元配列ならセルを直接保折り込めばok
これをシートの数だけ回せば瞬殺
Sub foo()
a = Range("a1:b2")
End Sub

**デフォルトの名無しさん** · 2018/08/02(木) 22:04:18.70

>>137
max_row = 0 : max_col = 0 : result = array() : jug = array()
for i = 1 to Worksheets.Count
buf = Worksheets(i).UsedRange.Value
Redim Preserve jug(ubound(jug) + 1) : jug(ubound(jug)) = buf
if max_row < ubound(buf, 1) then max_row = ubound(buf, 1)
if max_col < ubound(buf, 2) then max_col = ubound(buf, 2)
next

redim result(ubound(jug) + 1, max_row, max_col)

for i = 0 to ubound(jug)
for row = 1 to max_row
if row > ubound(jug(i), 1) then exit for
for col = 1 to max_col
if col > ubound(jug(i), 2) then exit for
result(i + 1, row, col) = jug(i)(row, col)
next
next
next
これで result(1, 2, 3) で取り出せるし
インデックスが0オリジンでよければ jug(0)(2, 3) でも取り出せる
UsedRangeのとこは適当に書き換えてね

わ · 2018/08/02(木) 23:16:22.80

>>139
こういう感じになるから三次元配列に複数シートのデータを入れようと考えること自体が無駄。
素直に二次元配列をdictionaryにシート名つけて打っ込むのが一番効率的かと。

**デフォルトの名無しさん** · 2018/08/02(木) 23:18:46.98

>>140
綺麗

**デフォルトの名無しさん** · 2018/08/03(金) 00:40:38.97

>>139
こういう馬鹿はすぐにクビ

**デフォルトの名無しさん** · 2018/08/03(金) 05:28:19.46

ユーザ定義型に対してforeach的なことってできないの？
Dictionaryやcollectionじゃないとだめかね

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

>>143
クラスにすればええやん。

**デフォルトの名無しさん** · 2018/08/03(金) 10:48:59.11

VBAで多態性(ポリフォーリズム)が実現できることを発見した。
ただし親オブジェクトはObjectクラスのみ。
これ以外に方法ないよね？

あとどうしてもコンストラクタを実現したいけど方法ある？
Class_Initializeのブロシージャは使えるんだけど引数が取れないという致命的な欠陥がある。

**デフォルトの名無しさん** · 2018/08/03(金) 10:49:43.01

ポリモーフィズム

**デフォルトの名無しさん** · 2018/08/03(金) 11:24:42.37

>>145
ないんじゃないの
諦めて初期化メソッド作ってそれを利用してるわ、面倒だけど

あー早く.NET化かPythonにならないかなあ

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

>>145
オブジェクトをNEWして初期化メソッドを呼ぶ
でオブジェクトを返す関数を作るぐらいしか回避策が思いつかない

**デフォルトの名無しさん** · 2018/08/03(金) 18:29:30.81

>>148
みんなそうしてると思う。
定番でしょ。

**デフォルトの名無しさん** · 2018/08/03(金) 19:49:24.72

>>145
VBAはインターフェースを定義できたりするよ
オブジェクトの生成はオブジェクト指向らしくファクトリクラス作るとか

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

VBAは手軽だって言ってた人いたけど上のような事をするならVBAでする必要ある？
VBAでするには面倒だよね

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

そうだねPowerShellなら(ry

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

インターフェースを定義するか、そこまではしなくても良いかと考えるかだな。
どっちもあり有り得るけど、大きなプログラムなら定義して小さなプログラムなら定義しないって感じ。
でも、クラス作るべきって思うこともそんなに多くない。

VBAでするのは面倒とか感じることは無いな。
VBAでクラス作るのにピッタリな時は作って得られる恩恵が多いから感じないし、ピッタリな時は少ないから普段は無理して作らん。

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

VBAでクラス設計ってなんかうさんくさい感じがして使わないんだけどC#みたいな感覚で設計出来るの？

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

>>145>>149
一体エクセルで何を作っているんだ？

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

気になる
何作ってるの？

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

ひと昔前ならともかく今はいろんなツールが無料だからねぇ
excelはさくっと一覧表やグラフを作るときにしか使ってないや
ちょっとした作業が1週間くらいの見積もりで入ったけど、Redmine立てるのめんどくせーな、
一人作業だしタスク100以下ならエクセル一覧表で管理すりゃ、まあいーかポチポチー、みたいな感じ
こうなるともうVBAは大した役にはたたんのだな
プログラム書くほどの込み入った仕事なら、別の手段で楽に、収穫を大きくしようかってなる

何でも揃ってるこの時代に、あえてVBAを主力で使ってる人たちが、
普段Excelでどんな仕事してるのか興味ある

**デフォルトの名無しさん** · 2018/08/03(金) 22:24:24.13

Excelより優れた表計算ソフトはいまだにないからのお

**デフォルトの名無しさん** · 2018/08/03(金) 22:44:29.83

知らないだけかもよ

**デフォルトの名無しさん** · 2018/08/03(金) 22:51:02.21

例えあったとしても、デファクトスタンダードという地位はもう揺るぎないものだろう

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

ハンバーガーとコカコーラは世界で一番売れてるから一番優秀な食品だとかいう話を思い出した

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

バーガーとコーラだけじゃあっという間に病気だよ

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

相変わらず具体例でねえなぁこのスレ
お前らほんとにVBA使ってんのか？ｗｗｗ

**デフォルトの名無しさん** · 2018/08/04(土) 00:14:17.09

>>155
何作るってエクセル単独で何かするか
Accessに繋いでなんかするかぐらいだけど
Accessに繋ぐならクラス使った方がキレイにまとまるからクラス使うよ

**デフォルトの名無しさん** · 2018/08/04(土) 07:34:19.25

>>164
接続部分だけクラスにまとめるって感じ？
それならまぁ、わからんでもないけど・・・うーん

**デフォルトの名無しさん** · 2018/08/04(土) 08:36:12.58

エクセルは簡単な関数までで出来ることに使う
定期で使ってコードを書くような事ならC#でWinアプリかWebアプリにする
そんな使い分けです

**デフォルトの名無しさん** · 2018/08/04(土) 08:59:40.72

ある文字が文字配列の要素の中に存在するかどうかを調べるには
for i = 0 to Ubound(配列)～のようにして
添え字を使ったループで一個ずつ比較するしかないですかね?
Pythonなどのように、値 in 配列とかで一発で判定できると楽なのだが

**デフォルトの名無しさん** · 2018/08/04(土) 09:27:21.51

for eachあるよ

**デフォルトの名無しさん** · 2018/08/04(土) 14:03:53.24

Worksheet Functionのmatchなら一発でしょ、インデックスはわからんけど
filter関数のほうが早いんだっけ？
てか職場の老害が作るコードがいちいちforでぶん回すコード書いててイライラ

**デフォルトの名無しさん** · 2018/08/04(土) 14:10:44.90

filterやmatchも中でforでぶん回してるよ

**デフォルトの名無しさん** · 2018/08/04(土) 14:20:20.63

パフォーマンス無視でコードをシンプルにしたいだけなら Instr(Join( ))

**デフォルトの名無しさん** · 2018/08/04(土) 14:50:32.42

>>164
自分はAccessに繋ぐ所はクラス作らないからどんな所が上手くまとまると思うのか知りたいな。

自分はマ―クシートの管理と実際の用紙との比較をしやすいように管理上の結果(Excelシート)をForm上の用紙レイアウトに再現するようなプログラムでクラスを使ったのが良かった。
用紙上に配置するのはImageコントロールを使ったラジオボタンのようなものとテキストボックス、ラべル、他でユーザーが使う用紙にあわせて好きな位置に配置出来る編集モ―ドと配置後にデ―タにあわせてチェック状態を表示編集できる運用モードを持ったもの。
種類の違う可変個数のコントロールを同じように扱うのに便利。

**デフォルトの名無しさん** · 2018/08/04(土) 15:05:27.11

>>172
普通に接続して切断する処理はクラス使った方がキレイにまとまるよ
ファイル処理も同じ。

**デフォルトの名無しさん** · 2018/08/04(土) 15:43:02.15

質問なのだが、エクセル関数とvba の使い分ける基準ってどうしてる？

**デフォルトの名無しさん** · 2018/08/04(土) 16:55:00.51

>>174
シート上で使うとき？
なければ作る。

コード上で使うとき？
簡潔に書けるほう、またはパフォーマンスのいい方。
>>174

**デフォルトの名無しさん** · 2018/08/04(土) 17:18:02.49

>>167
文字配列ってなに？
Stringのことですか？

**デフォルトの名無しさん** · 2018/08/04(土) 17:43:58.28

>>176
このコードでいう test_string のことです
複数の値を取りうる入力項目のチェックなんかはいつもこうしています

Sub test()
Dim test_string As Variant
test_string = Array("one", "two", "three")

Dim i As Integer
For i = 0 To UBound(test_string)
If "one" = test_string(i) Then
MsgBox "one" & "はありまーす"
End If
Next
End Sub

**デフォルトの名無しさん** · 2018/08/04(土) 17:49:50.34

シート上で使うとき！

**デフォルトの名無しさん** · 2018/08/04(土) 17:51:01.98

>>177
ループで検索する、でいいじゃないですか。
一致（=）だけじゃなく Like での合致とかも選べるように汎用化しとくとなおよい

**デフォルトの名無しさん** · 2018/08/04(土) 19:29:54.74

>>174
重い時やミスしそうな処理が絡む時はvba
もちろん関数で実現できない時もvba

関数を使うのはビジュアルで見たい時

まぁ基本的には関数だな

**デフォルトの名無しさん** · 2018/08/04(土) 19:58:42.71

>>177
こういう処理は関数化した方がよい

Sub test()
　　Dim test_string As Variant
　　test_string = Array("one", "two", "three")

　　If あるかな(test_string, "one") Then
　　　　MsgBox "one" & "はありまーす"
　　End If
End Sub

Function あるかな(a, b)
　　If InStr(Join(a, "&"), b) Then
　　　　あるかな = True
　　Else
　　　　あるかな = False
　　End If
End Function

**デフォルトの名無しさん** · 2018/08/04(土) 20:00:16.54

バグ修正

Function あるかな(a, b)
If InStr("&" & Join(a, "&") & "&", "&" & b & "&") Then
あるかな = True
Else
あるかな = False
End If
End Function

**デフォルトの名無しさん** · 2018/08/04(土) 20:08:45.16

Functionの戻り値を関数名に代入する構文が最高に気持ち悪いんだけどどうにかならんの？

**デフォルトの名無しさん** · 2018/08/04(土) 20:39:40.48

はじめまして。
下記のようなマクロを組もうと考えています。

x人の生徒がいます。
この生徒を1グループあたりy人となるようにzグループにわけます。
このときグループ毎の生徒のテストの平均点の差が小さく、またグループ毎の標準偏差の差も小さくしたいです。

このようなマクロを作るのにあたって、どのような方向性で作成していけば良いでしょうか。

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

>>184
マクロ？

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

>>184

→→→
←←←
→→→

こう割り振ればいんじゃないかな

A B C
-----
9 8 7
4 5 6
3 2 1

**デフォルトの名無しさん** · 2018/08/04(土) 21:22:04.15

>>177
> Dim test_string As Variant
> test_string = Array("one", "two", "three")
なんとなくだが名前はtest_stringsにして欲しいな

>>181
> If InStr(Join(a, "&"), b) Then
> 　あるかな = True
> Else
> 　あるかな = False
> End If
なんで
あるかな = InStr(Join(a, "&"), b)
って書かないんだろう…

**デフォルトの名無しさん** · 2018/08/04(土) 21:33:22.58

>>187
ほんこれ
ture/falseしか代入しないのに分岐する必要性がわからない。

**デフォルトの名無しさん** · 2018/08/04(土) 21:38:34.48

>>183
グローバル変数にでも代入してみるとか？
他の言語にも気持ち悪いとこいっぱいあるから気にしなくていいよ
C言語のint main()もそのint 0はどこへ返すんだよって気になるし

**184** · 2018/08/04(土) 21:44:58.48

>>186
レスありがとうございます。
しかし、その方法だと点数のばらつきが大きいときに、各グループごとの平均と標準偏差が均等にならずに使えないんですよね、、、

私としては下記の手順でできるのではないかと考えています。
①コンボボックスでグループ数と、グループ毎の生徒数を選択してもらう。
②エクセルに新しいシートを作る
③既存のシートに記入されている学生について、1の条件のすべての組み合わせを、2で作成した新しいシートのセルに列挙する
④3で書き出したそれぞれの組み合わせについて既存のシートの点数を参照し、average関数およびstdev関数を用いて平均及び標準偏差を2で作成した新しいシートに書き出す
⑤3の各組み合わせについて、グループ毎の平均のばらつきの少ないものを上位何%かのみを抽出
⑥5で抽出した組み合わせについてさらに、グループ毎の標準偏差のばらつきの少ないものを上位何%かのみ抽出

質問としては
a)他に良い方法があるか
b)組み合わせを書き出す際に重複を作り出さないようにするためにはどのようにすれば良いか
の2点です。
これらについて特に詳しく教えていただけないでしょうか。
よろしくお願いいたします。

**デフォルトの名無しさん** · 2018/08/04(土) 21:47:53.70

>>183
Pascal由来の構文だからいまさらどうしようもない

**デフォルトの名無しさん** · 2018/08/04(土) 21:55:39.30

>>187
VBA専門の人って変な常識で固まってるからしょうがない

**デフォルトの名無しさん** · 2018/08/04(土) 21:56:58.85

>>189
？？？
グローバル？
まじでいみわからんどういうことなんだ
VBA職人の思考パターンほんと異次元なんだけど

**デフォルトの名無しさん** · 2018/08/04(土) 22:05:27.29

>>187>>192
多少冗長でもエクセルがうまく動いて正しい結果が得られるなら問題ない
手作業で10分かかるものが10秒になればそれでいいって世界
最適化すれば0.1秒になるところでも10秒かけていいのだよ
その10秒を最適化する時間で、別の5分の仕事を3秒に短縮する方がよっぽど大事

>>193
Public g
Sub s()
Debug.Print f
Debug.Print g
End Sub
Function f()
'これが嫌なら
f = "return f"
'こう書けば
g = "return g"
End Function

**デフォルトの名無しさん** · 2018/08/04(土) 22:07:10.27

>>190
大体でいいならrand()で時間かけて総当たりして、最も偏差が少ない物で良いと思う

**デフォルトの名無しさん** · 2018/08/04(土) 22:29:32.76

>>189
>C言語のint main()もそのint 0はどこへ返すんだよって気になるし

OSになんじゃないのか？

**デフォルトの名無しさん** · 2018/08/04(土) 22:42:04.41

>>184
ソルバーアドインのエボリューショナリーエンジンで解決できそう
生徒のグループ分けをなるべく少ない変数で表すモデル作るのが難しそうだが

バイトのシフト表作ってみるみたいなサイトあった気がするから参考に

頑張れば数理的に最適解も求まりそう

**デフォルトの名無しさん** · 2018/08/04(土) 22:43:45.76

>>196
いやまぁそうなんだけど、理解が浅い時はそう感じてたよ

**デフォルトの名無しさん** · 2018/08/04(土) 23:00:54.48

>>194
なんでグローバルにしたの?

**デフォルトの名無しさん** · 2018/08/04(土) 23:15:34.93

instr(join(だと部分一致で誤爆する