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/06(土) 09:18:19.10

>>480
ピボットテーブルな
繰り返し使うしか無い
後は元データもちゃんとしたものじゃないとピボットがうまく機能しない

**デフォルトの名無しさん** · 2019/04/06(土) 09:43:33.17

>>480
色々できて楽しいと思いながら
新しい使い方を検索しながら使いな

**デフォルトの名無しさん** · 2019/04/06(土) 11:28:05.41

>>454の関数で値を計算して返すついでにどこか別のセルの値を設定しようと
Range("A1") = 1
としたって通らないだろ
そんな制約があったんじゃ>>445に対する答えにはならんね

**デフォルトの名無しさん** · 2019/04/06(土) 12:56:33.17

マイクに話しかけたら実行されるようにすりゃいいんじゃないの?

**デフォルトの名無しさん** · 2019/04/06(土) 13:12:45.38

>>480
いろいろやってみると面白いし、
元データをテーブルにして組み合わせると、
計算速度も速いような？

融通が利かない部分もあるけど。
4～3月の月次推移グラフで、
ピボットテーブルには年度合計を出せるのに、
この合計もグラフに反映させる方法あるのか、ないのか・・・
日時時間フィルターのタイムラインは、使い勝手がイマイチ、
とか。

あと、縦横クロス集計のピボットテーブルを
一発でリスト表(3Dマップに使える)に変換する隠れ機能があったり。

**デフォルトの名無しさん** · 2019/04/06(土) 23:19:03.44

まずスレタイぐらい理解できるようになろう

**デフォルトの名無しさん** · 2019/04/07(日) 11:38:35.77

シート内にマクロを設定した
ボタンを１つと、複数の画像があります。

ボタンをクリックしたら以下コードを実行し画像の一括削除を行っています。
しかし、問題があってボタンまで消失してしまいます。

そこでボタンの場合には削除はしない
という風に制御を入れたいのですが、ボタンの名称はどうやって調べればよいでしょうか？

'シート無いの画像をすべて削除する。
For Each img In ActiveSheet.Shapes
img.Delete
Next

**デフォルトの名無しさん** · 2019/04/07(日) 11:59:22.40

>>487
ボタンに特定の名前を付けてそれをハードコーディングすりゃいいと思うがそれじゃ不満なのかな？

**デフォルトの名無しさん** · 2019/04/07(日) 12:06:51.57

>>487
img.Nameで名前を調べることができます

If img.Name <> "ボタンの名称" Then
　　img.Delete
End If

みたいに書けば、特定の画像の消去をスキップできます

**デフォルトの名無しさん** · 2019/04/07(日) 12:40:05.22

>>489
名前なんて変化するのでコーディングするのはない
プロパティで有るだろ、調べてないが常識的に

**デフォルトの名無しさん** · 2019/04/07(日) 13:13:42.16

削除対象の画像を予めShapeRangeにまとめるなり、削除対象の画像の名前をシートに書き出すなりしてボタンマクロで一括削除させる設計にする方が検索効率や保守効率が良いと思う
ボタン名やコントロール名でハードコーディングするのは下策
ボタンの数やコントロールの種類が増えたときにいちいち手直しする必要が出てくる

**デフォルトの名無しさん** · 2019/04/07(日) 13:22:52.48

動的にコントロールを追加するプログラムを作ってないの？
毎回追加で書いてるの？
それは面倒で下衆だわ

**デフォルトの名無しさん** · 2019/04/07(日) 13:30:07.71

＞動的にコントロールを追加するプログラム
昔作ったわ
EXCELでこの設計は止めたほうが良い。エラー頻発する

**デフォルトの名無しさん** · 2019/04/07(日) 14:02:19.38

>>487
For Each work in Shapes
　If work.type = 消したいオブジェクトタイプ Then 消す
Next

**デフォルトの名無しさん** · 2019/04/07(日) 15:13:26.49

>>474
>>478
>>483

スマンな。
>>456の時点では勘違いしてた。

でも、たぶん出来るだろうなと思ってやってみたら出来るな。
それどころか入力セルに対しても出来る。

**デフォルトの名無しさん** · 2019/04/07(日) 15:19:02.23

>>487は差のマクロが登録されたあるひとつのボタンだけを対象に「消したくない」と言っているように思えるのだが

**デフォルトの名無しさん** · 2019/04/07(日) 15:26:28.77

>>491
別にボタン名とかコントロール名でやっても良いと思うよ。
増えようが、名前付けル－ルがデタラメなんてこと無いだろう。
画像ならimgが先頭に付くとか、ボタンならbtnが付くとか、普通そうしてるはずだろ。

>>492
それは、この質問だけ見ただけじゃ何とも言えない。
消えなければ追加する等という作業は最初から必要無い。
動的に追加するような状況とも思えないな。

>>493
それはその組み方が良くないだけだろ。

**デフォルトの名無しさん** · 2019/04/07(日) 18:49:28.94

まあ、その時目の前の問題だけクリアーするのは筋が悪い
目的を汎用化し使い易くメンテナンスし易いように組むな普通

**デフォルトの名無しさん** · 2019/04/07(日) 19:51:51.79

VBAスレで何言ってんの
そういうことを言い出すとVBAなんか使うなという結論にしかならんよ

**デフォルトの名無しさん** · 2019/04/07(日) 19:54:51.59

EXCEL前提ならそりゃVBAになる

**デフォルトの名無しさん** · 2019/04/07(日) 20:30:11.80

>>488
ボタンに名前をつけるにはどうすればいいんですか？

**デフォルトの名無しさん** · 2019/04/07(日) 21:10:44.99

>>497
名前比較で実現出来るかどうかという実現可能性の話をしてるわけではない
あくまで効率性の話をしてるんだが
特定のボタンを消さないようにするという目的だけのためにShapesコレクションをなめてアイテムのNameプロパティを逐一調べるという処理は筋が悪い
ワークシート上に存在する画像や図形、テキストボックス、コントロール等の数だけ名前比較することになるからな
削除対象になる画像をワークシートに追加するタイミングでShapeRangeコレクションに入れ、ボタン押下でDeleteメソッドで一括削除というやり方の方が絶対に速い

**デフォルトの名無しさん** · 2019/04/07(日) 21:18:21.02

>>501
Nameプロパティ

**デフォルトの名無しさん** · 2019/04/07(日) 21:22:19.79

一つも目的だけの為に作り込むのが良いのか汎用性を持たせて使い回せるようにした方が良いのかって事で俺は汎用性がある方が長持ちして良いと思う派

**デフォルトの名無しさん** · 2019/04/07(日) 21:27:32.10

>>502
あのさあ、わざわざそんなことするほどの処理かね?
俺だったら名前ではやらんと思うけど、こんなのは何でも良い話だろ。

普通に考えて、ボタン1つに後は画像だけなんじゃね―の?
正直、こんなので効率も糞も無いと思うね。

**デフォルトの名無しさん** · 2019/04/07(日) 21:45:02.84

マクロに「Sub なんちゃら」って名前を付けるんだから、それを呼び出すボタンに固有の名前を付けるのは全く自然だ

**デフォルトの名無しさん** · 2019/04/07(日) 22:33:14.85

>>505
コレクションの総なめや文字列比較での処理分岐は処理速度の問題に直結するだろ
それにマクロで処理しなければならないくらい画像を張り付けてあるシートに対する操作なら尚更処理が重くなる可能性が高い
数百個くらい画像が貼ってあるかもしれないし

割と現実的な設計の話だと思うんだが、まぁ君が効率も糞もないと思うなら仕方ない

**デフォルトの名無しさん** · 2019/04/07(日) 22:37:25.36

質問者そっちのけ。

**デフォルトの名無しさん** · 2019/04/07(日) 22:38:12.36

>>502
> 削除対象になる画像をワークシートに追加するタイミングでShapeRangeコレクションに入れ
とか言うけど、その画像がプログラムで追加されるとは限らんよ
人が適当に描画した図形を単にクリアするボタンかも知れんし

**デフォルトの名無しさん** · 2019/04/07(日) 22:43:02.40

>>509
それならShapes.SelectallでShapeRangeコレクションに突っ込んで、マクロ呼び出し用のボタンだけShapeRangeから除外して一括削除だね
とにかくShapesの中でループを回す必要がない

**デフォルトの名無しさん** · 2019/04/07(日) 22:50:29.75

>>507
それは数百個貼るような状況の場合の話。
そういう場合なら、その時考える話だ。

例えば、それなりに組める奴ならScreenUpdatingなんかを使っても速度が速くなることは無いだろう。
俺の場合も当然そうだ。
だからと言って、普段そんなに速度を重視して組んでいる訳じゃ無い。
しかしだ、状況により速さが必要になったら当然それ用に変わるだろう。

いつも速度を重視して組んでいるならご苦労なこった。

**デフォルトの名無しさん** · 2019/04/07(日) 22:54:24.63

>>510
> マクロ呼び出し用のボタンだけShapeRangeから除外して
どうやってやるつもり？

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

オブジェクトを直接比較すれば済む話じゃね
なんでわざわざ.Name呼び出して文字列比較するのかわからん
オブジェクトの比較なら何千あっても大して遅くならんし
馬鹿ばっかかよ

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

そもそもshaperangeコレクションにアイテムをremoveするメソッドがあれば済む話なのにな
やっぱVBAって糞だわ

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

やっと気付いた？

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

20年進歩なければな

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

>>503
ありがとう！

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

>>513
オブジェクトを直接比較の何を比較するんだよ
全てのオブジェクトは代入で使ってるもの以外
違うんだけど

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

vbaは===がない上にisで比較できないパターンがあったはず
ユニークな名前で比較するやり方は正解

**デフォルトの名無しさん** · 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で解決してるからいいんじゃん
あとはよくあるチンケな知識でのマウント合戦だからスルーでオケ