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

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