Excel VBA 質問スレ Part60

**デフォルトの名無しさん** · 2019/03/16(土) 20:39:09.64

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part59
https://mevius.5ch.net/test/read.cgi/tech/1549692750/

**デフォルトの名無しさん** · 2019/04/08(月) 10:59:09.00

>>518
オブジェクトの参照を比較するに決まってんだろ素人か？
>>519
このユースケースで試してからほざけ

**デフォルトの名無しさん** · 2019/04/08(月) 11:00:40.34

>>519
名前なんて好きに変えられるだろ
そんなもんでユニークって言っても筋悪いって言われるんだよ

**デフォルトの名無しさん** · 2019/04/08(月) 11:02:06.10

>>520
素人でございます、具体的に提示してください

**デフォルトの名無しさん** · 2019/04/08(月) 11:06:10.01

うむ

**デフォルトの名無しさん** · 2019/04/08(月) 11:28:59.16

Application.Caller と比較するのかな？

**デフォルトの名無しさん** · 2019/04/08(月) 11:34:02.89

>>524
これは、プロフェッショナルな>>520　様が明快なお答えを出してくれるので
黙っておけよ

**デフォルトの名無しさん** · 2019/04/08(月) 11:44:28.64

ObjPtr、ポインタ、参照渡しあたりでググれカス
煽りが下手すぎて説明する気にもならん

**デフォルトの名無しさん** · 2019/04/08(月) 11:44:45.29

>>487
Sub foo()
For Each img In ActiveSheet.Shapes
If img.Type <> 8 Then
img.Delete
End If
Next
End Sub

ここ数日見てなかったけど何やってるんだお前ら
プロパティ比較すればいいだけだろう、一体何日かかってるんだ
https://i.imgur.com/B5lcGn9.png

>>520
無能の頂天っすね

**デフォルトの名無しさん** · 2019/04/08(月) 11:45:39.84

>>526
具体的に提示できないのですか(笑)
必死でググったか(笑)

**デフォルトの名無しさん** · 2019/04/08(月) 11:49:55.04

>>528
捨て台詞も下手くそだな

**デフォルトの名無しさん** · 2019/04/08(月) 11:51:20.33

>>528-529
俺から見ればお前ら両方雑魚やぞ

**デフォルトの名無しさん** · 2019/04/08(月) 11:54:16.26

>>530
>>494 で示されてることをかなり遅れてドヤ顔で書き込んだ奴がいるらしい
無能かな？

**デフォルトの名無しさん** · 2019/04/08(月) 11:56:32.80

>>530
ボタンはフォームコントロールとActiveXコントロールがあるけど
大丈夫か？　酒飲みながら茶化してるんですまんな

**デフォルトの名無しさん** · 2019/04/08(月) 11:57:35.69

>>531
終わってんのかよｗｗｗ知るかｗｗｗｗじゃあ何の話してるんだよｗｗｗｗ

**デフォルトの名無しさん** · 2019/04/08(月) 11:58:24.09

>>529
でも、お前(笑)

**デフォルトの名無しさん** · 2019/04/08(月) 12:01:13.75

>>533
茶飲み話に決まってるだろ・・酒か・・

**デフォルトの名無しさん** · 2019/04/08(月) 12:04:25.33

ObjPtrだろうがなんだろうが「消しちゃいけないこのオブジェクト」を最初にどうやって指定するのかと

**デフォルトの名無しさん** · 2019/04/08(月) 12:04:58.54

酒飲んでるから！本気じゃないから！
はいノーダメ！

思考がテンプレすぎる

**デフォルトの名無しさん** · 2019/04/08(月) 12:07:53.61

>>537
いやいや、具体的にかけない君が何言っても
笑い話

**デフォルトの名無しさん** · 2019/04/08(月) 12:24:06.89

>>526
そこじゃないと思うぞw
比較するためにはボタンをオブジェクトとして取得しなきゃならん。

どうやって取得する?

>>527
俺もこのやり方をするだろうね。
でも名前でも全く問題無いと思うぞ。

**デフォルトの名無しさん** · 2019/04/08(月) 12:35:47.16

>>537
結局、ググってもそんなコード内から泣いてるのか？
思いつきで、引きこもりのカスが書き込むよなこのスレも

**480** · 2019/04/08(月) 13:06:22.74

>>481
名前などどうでもいいではないか。
https://pds.exblog.jp/pds/1/200808/06/80/b0003180_19511656.jpg

**480** · 2019/04/08(月) 13:11:52.02

>>481
>>482
>>485

理解するコツを聞いているのに
いろいろ使ってみろ、みたいな回答はおかしくないか？

そんなこと承知の上で、理解するコツ、つまり心がけることやこんなことに注目したら理解がスイスイスーダラダッタスラスラスイスイスイっとできるかを聞いているのですが。

**デフォルトの名無しさん** · 2019/04/08(月) 13:17:44.71

>>537
まあ、引きこもりのカスだからノーダメ・・全ダメ(笑)

**デフォルトの名無しさん** · 2019/04/08(月) 14:13:07.53

>>535
納得した
話題のループやグダグダ言う点は確かに酒の関の会話レベル
シラフで話してる奴はすげぇわ

>>539
thisかMe無いんだよな
callerでオブジェクトの取得するには、
名前を取得してｆｏｒｅａｃｈで名前と一致するオブジェクトを探して・・・
になると思う。超面倒くさい

>>542
ピボットに限らずEXCELは使わない機能が膨大にある
やりたいことを決めて、機能を使いこなすのが一番早い

**デフォルトの名無しさん** · 2019/04/08(月) 14:58:52.26

質問者はShapesコレクションのFor Eachで消えるボタンだって言ってますよ

**デフォルトの名無しさん** · 2019/04/08(月) 16:07:16.94

>>542
>理解するコツ
それこそ、マニュアルを読めよまたはググれよ
例えば以下でもいいけど、他にもいっぱいある
https://www.becoolusers.com/excel/pivottable.html
だけど、頭の構造によって読んでも分かんない奴も多いからな
必要な時に使うんじゃわからんバカには無理って言ってるんだよ
普段から使えよ

**デフォルトの名無しさん** · 2019/04/08(月) 16:21:30.00

>>544
お前「caller」の意味わかって書いてる？
今回の場合に使うべきかもわからんのか？

**デフォルトの名無しさん** · 2019/04/08(月) 16:32:09.53

>>547
そう真剣になるなよ、本題についてはもうとっくに>>494で終わってる

で、
＞ボタンをオブジェクトとして取得
これについて俺も知りたい
callerは他言語で言うthisみたいなもんで、通常はオブジェクトで飛んでくる。もうちょい正確に言うとオブジェクトの参照だな
これがオブジェクトで飛んでこないからめちゃくちゃ使い勝手が悪い
オブジェクトで取得する楽な方法あるの？

**デフォルトの名無しさん** · 2019/04/08(月) 16:59:10.82

お前らもしかしてわざと無能演じてんの？
だったらすげえや全然気づかなかった

set b = ActiveSeet.Shapes(Application.Caller)
For Each x in ActiveSeet.Shapes
If Not x Is b Then x.Delete
Next

**デフォルトの名無しさん** · 2019/04/08(月) 17:02:54.81

>>546
「いろいろ使ってみろ」とか「マニュアル読め」じゃないんだよ。
自分の言葉で説明してほしいということ。

具体的にはこれはデータベースを扱っているのだから
「フィールド」とか「グループ化」とか「集計」とかそういう具体的な用語を使ってだ。

**デフォルトの名無しさん** · 2019/04/08(月) 17:08:22.50

VBAの特徴
内部抗争が酷いが外敵には一致団結して退治する

**デフォルトの名無しさん** · 2019/04/08(月) 17:08:40.67

>>550
それこそスレチだわ　初心者質問スレでも池よ

**デフォルトの名無しさん** · 2019/04/08(月) 17:12:22.10

>>551
仲良く喧嘩してるんだよｗｗｗｗ

**デフォルトの名無しさん** · 2019/04/08(月) 17:15:00.42

>>549
確認してないが、それ複数ボタンで動くか？
フォームコントロールとActiveXコントロール有るけど

**デフォルトの名無しさん** · 2019/04/08(月) 17:20:52.07

>>542
他人に期待しすぎ。
それが出来たら今頃は、サイト立ち上げたり、本出したり、どこかで講師やっとるがな。

MSからも含め、VBAよりもピボットテーブルの情報は少ないし、
パーツ、パーツで区切れるVBAよりも、
広範囲で漠然とした「自分のやりたいこと」に使えるかどうか、
試行してみないとなんとも言えない。

**デフォルトの名無しさん** · 2019/04/08(月) 17:26:33.08

>>554
押されたボタン以外は消える
ボタン1つと画像複数っていう質問なので削除ボタン以外のShapeを一括削除する仕様だと勝手に読み取った
少なくともNameで比較はありえねーよカスというサンプル

**デフォルトの名無しさん** · 2019/04/08(月) 17:28:02.25

こんなとき図星の決まり文句言わなきゃなんないのかぁ。
「　み　ん　な　理　解　で　き　て　い　な　い　。」

理解できてる人なら竹を割ったようにスッキリと解説できるはず。
使いまくれとか、サイト見ろとか、試行してみないとなんとも言えないとか、全部言ってる人がピポットテーブルの本質を理解できていない決定的な証拠じゃないか。

**デフォルトの名無しさん** · 2019/04/08(月) 17:39:46.71

>>557
当たってるよ。理解する必要ないからね
ピボットで作るデータの9割ぐらいは基本機能で瞬殺だから「使って覚えろ」としか言えない
複雑な事をしたければ作業列でパーっと作った方が早い、深く理解して得るものが少なすぎる

そもそも大事なことは目標の設定の仕方だから、このスレでどうこう言えない

**デフォルトの名無しさん** · 2019/04/08(月) 17:52:36.06

>>549
ShapeRangeコレクションにRemoveメソッドがない以上これが最適解だな

**デフォルトの名無しさん** · 2019/04/08(月) 19:14:24.14

>>556
なんでName で比較しないの？

**デフォルトの名無しさん** · 2019/04/08(月) 19:33:54.35

foreach列挙中に対象コレクションから要素消すなよ

**デフォルトの名無しさん** · 2019/04/08(月) 20:31:30.66

ＶＢＡの演算子で一方だけ評価するのってありますか
i < 100 OR data[i] = x みたいに境界超えてないか先にチェックしたい

**デフォルトの名無しさん** · 2019/04/08(月) 20:33:46.80

i < 100 AND data[i] = x
逆でした

**デフォルトの名無しさん** · 2019/04/08(月) 20:45:56.01

>>562-563
> ＶＢＡの演算子で一方だけ評価するのってありますか
ない
If i < 100 Then If data(i) = x Then ...
ってやるしかない

**デフォルトの名無しさん** · 2019/04/08(月) 21:11:16.19

>>549
???
それって、固定の名前でやるのに比べてどの程度メリットが有るの?

固定の名前でやる方がまだましだと思うんだが。

**デフォルトの名無しさん** · 2019/04/08(月) 21:11:26.99

>>560
文字列型プロパティの比較判定は重い処理だし、オブジェクト命名の運用に処理結果が依存してしまう
組み込みの列挙定数やオブジェクトポインタで比較判定した方が安全なのは事実

**デフォルトの名無しさん** · 2019/04/08(月) 21:13:41.55

・プログラムとして危険
vs
・vbaだしどうでも良くね

ファイッ

**デフォルトの名無しさん** · 2019/04/08(月) 21:15:36.62

>>566
ほう。
画像が100個あった場合、
文字列で比較と比べてどれくらい速くなるの?

まったくアホらしいと思うんだが。

**デフォルトの名無しさん** · 2019/04/08(月) 21:40:37.98

なんでわざわざ名前で比較したがるの？

**デフォルトの名無しさん** · 2019/04/08(月) 21:48:14.01

>>564
ありがとうございます

発狂する

**デフォルトの名無しさん** · 2019/04/08(月) 21:48:31.68

ぶっちゃけ1000回比較しても体感できる差は無いけど
ならどちらがいいかは完全にセンスの問題になるわけで

オブジェクトを比較したい場面でオブジェクトそのものを比較できるのにわざわざ名前みながら比べるとか

頭の中どうなってるの

**デフォルトの名無しさん** · 2019/04/08(月) 22:07:24.49

>>569
>>571
別に、名前で比較したいわけじゃ無い。
俺は最初から、こんなのどれでやっても良いだろ派だ。

最初からパフォ－マンスに大きな差が出ないと思ってたし、センスの問題はかなり気にする方だが、今回の問題ではどれでやってもセンスが悪いとも思わない。

**デフォルトの名無しさん** · 2019/04/08(月) 22:17:03.71

>>572
Is知らなかったからって取り繕わなくてもいいよ

**デフォルトの名無しさん** · 2019/04/08(月) 22:26:49.07

>>573
ハァ?
そんな初心者のわけねえだろ。

それに、
>>549って俺に言わせると名前でやってることになるんだがw

>>539で、「どうやって取得する?」って書いたのは、結局名前で取得することになるんじゃね?って意味で、名前でってのはApplication.Callerみたいに名前を取得したら結局同じじゃね?って意味なんだがw

**デフォルトの名無しさん** · 2019/04/08(月) 22:36:44.56

>>573
だから、それは対象のボタンオブジェクトが分かってる場合だろ
最初のお題と違ってボタンがいくつあるかも分からん条件で効率よくってはなし
俺はNameプロパティは変更出来るだろ
だからTypeプロパティだろって言っているだけ

**デフォルトの名無しさん** · 2019/04/08(月) 23:06:03.11

質問者そっちのけ

**デフォルトの名無しさん** · 2019/04/09(火) 00:18:47.52

>>549はデバッグ時に疲れからかモジュールにカーソルをあわせてF5を押してしまう

**デフォルトの名無しさん** · 2019/04/09(火) 00:44:23.79

この中で一番重いのはShapes.Delete
それ以外をどんだけ工夫しても、逆にどんなタコなコーディングしても、体感できる差は出ないから

**デフォルトの名無しさん** · 2019/04/09(火) 01:51:44.81

【12日まで】500円を貰える春のばらまきキャンペーン開催中です　
　　　　　
① スマホのApp Storeから「プリン(pring)」をインストールする　　
② 会員登録を済ませる　　　　　
③ 下図の通りに進む　　
https://pbs.twimg.com/media/D3pRtQiUwAQLMUR.jpg　　　　
④ コードを登録 [5gAYSz]　　

これで五百円を貰えます　　
スマホでセブンATMからお金を下ろせたり（キャッシュカード不要）便利なアプリですのでよろしければご利用下さい

**デフォルトの名無しさん** · 2019/04/09(火) 06:47:19.14

>>576
>>488-489で解決してるからいいんじゃん
あとはよくあるチンケな知識でのマウント合戦だからスルーでオケ

**デフォルトの名無しさん** · 2019/04/09(火) 08:39:46.28

マウントやめたら色々な方法見れて役に立つんだけどな
何故一番になりたがるのだろう

**デフォルトの名無しさん** · 2019/04/09(火) 08:43:42.22

そうさぼくらは世界にひとつだけの花

**デフォルトの名無しさん** · 2019/04/09(火) 08:45:37.14

小さい花や大きな花
ひとつとして同じものはないから
No1にならなくてもいい
もともと特別なonly one

**デフォルトの名無しさん** · 2019/04/09(火) 11:49:39.06

まあ、なんだな久しぶりに実際に使ってみた
ルーチンの仕様
１．フォームコントロールとActiveXコントロールで作成したShapeオブジェクトは全て残す
２．それ以外のShapeオブジェクトは全て消す
３．対象ShapeオブジェクトはActiveSheetのみ
３．フォームコントロールとActiveXコントロールどちらでも動作する

Public Sub コントロール以外のイメージ削除()
Dim shape1 As Shape
For Each shape1 In ActiveSheet.Shapes
'MsgBox (shape1.Name & ":" & shape1.Type) 'これは確認用です・・・コメントアウト
If shape1.Type <> msoOLEControlObject And shape1.Type <> msoFormControl Then
shape1.Delete
End If
Next
End Sub

実際に作成してみて感じたこと
Nameプロパティは全て違うものが振られていく・・追番が付く
フォームコント―ロールを使ってる人がやっぱいるんだ・・俺はActiveXコントロールしか
普段は使わない

**デフォルトの名無しさん** · 2019/04/09(火) 13:45:14.72

追記しておくけど
目的・仕様をハッキリさせなきゃどんなルーチンも価値評価が難しいな
定義済み定数は定義名を使えよ普通に、ウォッチ式で確認できるから
>For Each x in ActiveSeet.Shapes
誤記スンナ　×ActiveSeet ○ActiveSheet

**デフォルトの名無しさん** · 2019/04/09(火) 16:00:23.87

>>480
俺がどうしてもexcel捨てられない理由が唯一
ピボットテーブルがあることなんだけどな
（その他のオフィス製品にも近ごろは
載っているようだが
VBAからの操作に慣れきってると
なかなか乗り換えきれない）

手放せなくなるまで使ってみてください

**デフォルトの名無しさん** · 2019/04/09(火) 22:54:10.35

>>569
hashCodeがないから

**デフォルトの名無しさん** · 2019/04/10(水) 10:58:53.58

全部プロシージャで集計と報告系のマクロ書いてるけどグラフ出力とか一部は指定サイトの結果取得とか機能増えすぎて9モジュール1800行とかになってる
なんちゃってプログラマの俺にはもうお辛い…

**デフォルトの名無しさん** · 2019/04/10(水) 11:28:22.21

動きゃいいよ
要件がリッチになりすぎたなら、それはもう技術的に何とかしようとするより外部のSaaSを導入することを検討すべき

**デフォルトの名無しさん** · 2019/04/10(水) 11:37:22.82

>>588
スマンが君の書いてる機能はマクロを使わずにできるものだが
>集計と報告系のマクロ書いてるけどグラフ出力とか一部は指定サイトの結果取得
集計と報告系・・・当然簡単だろ、場合によってはワードも利用する
>グラフ出力
ピボット使えよ、何が不足してるんだ？
>一部は指定サイトの結果取得
こんなのクエーリーの標準機で、起動時に読み込むとか、一定時間おきに読み込めよ

面白がってVBAにしないで、標準の機能で出来ることはExcel様に任せるよ

**デフォルトの名無しさん** · 2019/04/10(水) 12:02:10.37

そこまで作り込む能力があるなら素直にPS, Python, Ruby, node.jsあたり学んだほうが幸せになれるぞ

**デフォルトの名無しさん** · 2019/04/10(水) 12:06:33.25

SIerすらメンテできないようなものを作ると後々自分の首を締めることになるよ
ずっとお守りに時間を奪われて出世は閉ざされ、そのうちシステム刷新でクビよ

**デフォルトの名無しさん** · 2019/04/10(水) 12:13:08.23

ってか、Excelの標準機能も満足に使えないのに無理やりVBAを使うのは
やめた方が良い、標準機のでできることはコードにしないな

**デフォルトの名無しさん** · 2019/04/10(水) 12:26:08.65

>>588
別に多くも無いだろ。
普通の量だよ。

**デフォルトの名無しさん** · 2019/04/10(水) 12:36:37.12

規模的にスケールするような作り方を理解した上でなら全然大した量ではないけど、
なんちゃってプログラマのアドホックなコーディングはだいたい1000行を超えたあたりで限界が来る
俺は絶対お守りしたくない

**デフォルトの名無しさん** · 2019/04/10(水) 12:43:15.27

>>595
そういうののお守りもしたことあるよ。
いやー大変だった。

基本、デバック実行で、何の処理をしているのかを類推することになる。

**デフォルトの名無しさん** · 2019/04/10(水) 12:54:25.06

>>596
それ、楽しいだろ？

**デフォルトの名無しさん** · 2019/04/10(水) 13:43:17.52

>>593
そうなのか？
自分はほぼOffice共有マクロでやっていてExcel固有の機能とかは最低限しか使ってないな

**デフォルトの名無しさん** · 2019/04/10(水) 13:45:51.76

>>592
開発者ならそうだろうけど
開発者じゃなくて業務をしてるだけ
みたいな人がついでに使うのがexcelvbaって感じだから
その人が首になる事はないんじゃないかなぁ?
それにそんな本格的なシステムを組むほど予算が無い
みたいな会社規模だとどのみちどうしようもないし
そういう界隈用って有る様で無いし
表計算
という点では予想外の使われ方だとは思うけど
なんかそういう小零細向けのアプリが有った気がしたけど

**デフォルトの名無しさん** · 2019/04/10(水) 13:54:38.83

>>598
それが、組織内での共通認識ならいいんでないの
マクロは俺は基本的に避けるが、好みだよ
でも、「Excel固有の機能とかは最低限」じゃあExcel使う意味あるの？

**デフォルトの名無しさん** · 2019/04/10(水) 14:02:44.70

まあ、勘違いするバカ多いんだよな
プログラムは自分で作ってるとか、俺が考えたとか(笑)

**デフォルトの名無しさん** · 2019/04/10(水) 14:16:50.81

俺が育てた AA略

**デフォルトの名無しさん** · 2019/04/10(水) 16:17:57.40

>>600
ExcelはUIとしては優れていると思うよ。
操作するユーザーとのデータのやりとりとかグラフ出力とかね。
でもSQLでやるようなクエリーはもちろん不向きだし、途中段階のデータ加工処理にも不向きだと思うんだがね。

**デフォルトの名無しさん** · 2019/04/10(水) 16:30:55.55

>>603
でも、そんなの君の好みだろ
不向き気なら使う必要ないな
ってか使えるとこだけうまく使うんだろ
なのに文句だけいゆうのな

**デフォルトの名無しさん** · 2019/04/10(水) 16:34:40.21

まあ、何も使いこなせない奴って文句しかないんだよな

**デフォルトの名無しさん** · 2019/04/10(水) 16:43:58.33

>>603
まぬけは返事も出来んか？

**デフォルトの名無しさん** · 2019/04/10(水) 18:36:25.41

>>604
文句なんか言ってないだろ？単に不向きなことはExcelにやらせてないというだけのことじゃないか
そもそも>>593がそっちの趣味主観から始まっているわけだしな

**デフォルトの名無しさん** · 2019/04/10(水) 18:38:22.55

>>606
そっちこそ俺の書いた

「SQLでやるようなクエリーはもちろん不向きだし、途中段階のデータ加工処理にも不向きだと思う」

に具体的な反論があるなら言ってみてはどうなのか

**デフォルトの名無しさん** · 2019/04/10(水) 20:18:31.42

>>608
PowerPivotとPowerQuery使えば楽勝だぞ

**デフォルトの名無しさん** · 2019/04/10(水) 22:29:11.86

>>608
>「SQLでやるようなクエリーはもちろん不向きだし、途中段階のデータ加工処理にも不向きだと思う」
>に具体的な反論
お前は不向きの内容も具体的に書き込んでないのにどのようなアドバイスが欲しいのかな？
処理速度かな？

**デフォルトの名無しさん** · 2019/04/11(木) 00:47:10.88

問題点がなにかも自覚しないから不満なだけで止まるんだよな
で、自分ではなくツールのせいにする楽なこった

**デフォルトの名無しさん** · 2019/04/11(木) 00:55:46.53

老害的な様相を呈してる

**デフォルトの名無しさん** · 2019/04/11(木) 12:26:22.18

>>610
言いたかないが、それはレベルが低いだろ。
普通に考えれば分かることだ。

**デフォルトの名無しさん** · 2019/04/11(木) 15:17:56.46

>>603
＞でもSQLでやるようなクエリーはもちろん不向きだし、途中段階のデータ加工処理にも不向きだと思うんだがね。

工夫次第で普通にできる。別に不向きじゃないと思う
そういうのはAccessのほうが向いてると言われればその通りだと思うが

**デフォルトの名無しさん** · 2019/04/11(木) 17:36:19.55

また不毛なマウントの取り合いしてる…

**デフォルトの名無しさん** · 2019/04/11(木) 18:18:36.48

不毛で悪いか

**デフォルトの名無しさん** · 2019/04/11(木) 18:23:33.78

また髪…

**デフォルトの名無しさん** · 2019/04/11(木) 18:50:46.18

やめろ

**デフォルトの名無しさん** · 2019/04/11(木) 20:16:57.24

同時接続数の超えられない壁