ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part59
https://mevius.5ch.net/test/read.cgi/tech/1549692750/
探検
Excel VBA 質問スレ Part60
■ このスレッドは過去ログ倉庫に格納されています
2019/03/16(土) 20:39:09.64ID:6HWXzj9o
488デフォルトの名無しさん
2019/04/07(日) 11:59:22.40ID:SzIL1mww >>487
ボタンに特定の名前を付けてそれをハードコーディングすりゃいいと思うがそれじゃ不満なのかな?
ボタンに特定の名前を付けてそれをハードコーディングすりゃいいと思うがそれじゃ不満なのかな?
489デフォルトの名無しさん
2019/04/07(日) 12:06:51.57ID:oR5kGK9/ >>487
img.Nameで名前を調べることができます
If img.Name <> "ボタンの名称" Then
img.Delete
End If
みたいに書けば、特定の画像の消去をスキップできます
img.Nameで名前を調べることができます
If img.Name <> "ボタンの名称" Then
img.Delete
End If
みたいに書けば、特定の画像の消去をスキップできます
490デフォルトの名無しさん
2019/04/07(日) 12:40:05.22ID:z5f8NySY491デフォルトの名無しさん
2019/04/07(日) 13:13:42.16ID:dLz2IshG 削除対象の画像を予めShapeRangeにまとめるなり、削除対象の画像の名前をシートに書き出すなりしてボタンマクロで一括削除させる設計にする方が検索効率や保守効率が良いと思う
ボタン名やコントロール名でハードコーディングするのは下策
ボタンの数やコントロールの種類が増えたときにいちいち手直しする必要が出てくる
ボタン名やコントロール名でハードコーディングするのは下策
ボタンの数やコントロールの種類が増えたときにいちいち手直しする必要が出てくる
492デフォルトの名無しさん
2019/04/07(日) 13:22:52.48ID:UhqEDEIh 動的にコントロールを追加するプログラムを作ってないの?
毎回追加で書いてるの?
それは面倒で下衆だわ
毎回追加で書いてるの?
それは面倒で下衆だわ
493デフォルトの名無しさん
2019/04/07(日) 13:30:07.71ID:HG+SSO0q >動的にコントロールを追加するプログラム
昔作ったわ
EXCELでこの設計は止めたほうが良い。エラー頻発する
昔作ったわ
EXCELでこの設計は止めたほうが良い。エラー頻発する
494デフォルトの名無しさん
2019/04/07(日) 14:02:19.38ID:lv61T0oy495デフォルトの名無しさん
2019/04/07(日) 15:13:26.49ID:zM3BxSpj496デフォルトの名無しさん
2019/04/07(日) 15:19:02.23ID:1196mB+r >>487は差のマクロが登録されたあるひとつのボタンだけを対象に「消したくない」と言っているように思えるのだが
497デフォルトの名無しさん
2019/04/07(日) 15:26:28.77ID:zM3BxSpj498デフォルトの名無しさん
2019/04/07(日) 18:49:28.94ID:wMtd4Rq1 まあ、その時目の前の問題だけクリアーするのは筋が悪い
目的を汎用化し使い易くメンテナンスし易いように組むな普通
目的を汎用化し使い易くメンテナンスし易いように組むな普通
499デフォルトの名無しさん
2019/04/07(日) 19:51:51.79ID:Eip3w86o VBAスレで何言ってんの
そういうことを言い出すとVBAなんか使うなという結論にしかならんよ
そういうことを言い出すとVBAなんか使うなという結論にしかならんよ
500デフォルトの名無しさん
2019/04/07(日) 19:54:51.59ID:9t5fZjJB EXCEL前提ならそりゃVBAになる
501デフォルトの名無しさん
2019/04/07(日) 20:30:11.80ID:J7v3B2LO >>488
ボタンに名前をつけるにはどうすればいいんですか?
ボタンに名前をつけるにはどうすればいいんですか?
502デフォルトの名無しさん
2019/04/07(日) 21:10:44.99ID:dLz2IshG >>497
名前比較で実現出来るかどうかという実現可能性の話をしてるわけではない
あくまで効率性の話をしてるんだが
特定のボタンを消さないようにするという目的だけのためにShapesコレクションをなめてアイテムのNameプロパティを逐一調べるという処理は筋が悪い
ワークシート上に存在する画像や図形、テキストボックス、コントロール等の数だけ名前比較することになるからな
削除対象になる画像をワークシートに追加するタイミングでShapeRangeコレクションに入れ、ボタン押下でDeleteメソッドで一括削除というやり方の方が絶対に速い
名前比較で実現出来るかどうかという実現可能性の話をしてるわけではない
あくまで効率性の話をしてるんだが
特定のボタンを消さないようにするという目的だけのためにShapesコレクションをなめてアイテムのNameプロパティを逐一調べるという処理は筋が悪い
ワークシート上に存在する画像や図形、テキストボックス、コントロール等の数だけ名前比較することになるからな
削除対象になる画像をワークシートに追加するタイミングでShapeRangeコレクションに入れ、ボタン押下でDeleteメソッドで一括削除というやり方の方が絶対に速い
503デフォルトの名無しさん
2019/04/07(日) 21:18:21.02ID:lv61T0oy >>501
Nameプロパティ
Nameプロパティ
504デフォルトの名無しさん
2019/04/07(日) 21:22:19.79ID:6gqi5pp/ 一つも目的だけの為に作り込むのが良いのか汎用性を持たせて使い回せるようにした方が良いのかって事で俺は汎用性がある方が長持ちして良いと思う派
505デフォルトの名無しさん
2019/04/07(日) 21:27:32.10ID:zM3BxSpj >>502
あのさあ、わざわざそんなことするほどの処理かね?
俺だったら名前ではやらんと思うけど、こんなのは何でも良い話だろ。
普通に考えて、ボタン1つに後は画像だけなんじゃね―の?
正直、こんなので効率も糞も無いと思うね。
あのさあ、わざわざそんなことするほどの処理かね?
俺だったら名前ではやらんと思うけど、こんなのは何でも良い話だろ。
普通に考えて、ボタン1つに後は画像だけなんじゃね―の?
正直、こんなので効率も糞も無いと思うね。
506デフォルトの名無しさん
2019/04/07(日) 21:45:02.84ID:SzIL1mww マクロに「Sub なんちゃら」って名前を付けるんだから、それを呼び出すボタンに固有の名前を付けるのは全く自然だ
507デフォルトの名無しさん
2019/04/07(日) 22:33:14.85ID:dLz2IshG >>505
コレクションの総なめや文字列比較での処理分岐は処理速度の問題に直結するだろ
それにマクロで処理しなければならないくらい画像を張り付けてあるシートに対する操作なら尚更処理が重くなる可能性が高い
数百個くらい画像が貼ってあるかもしれないし
割と現実的な設計の話だと思うんだが、まぁ君が効率も糞もないと思うなら仕方ない
コレクションの総なめや文字列比較での処理分岐は処理速度の問題に直結するだろ
それにマクロで処理しなければならないくらい画像を張り付けてあるシートに対する操作なら尚更処理が重くなる可能性が高い
数百個くらい画像が貼ってあるかもしれないし
割と現実的な設計の話だと思うんだが、まぁ君が効率も糞もないと思うなら仕方ない
508デフォルトの名無しさん
2019/04/07(日) 22:37:25.36ID:Dac9mVAO 質問者そっちのけ。
509デフォルトの名無しさん
2019/04/07(日) 22:38:12.36ID:AvqFg232 >>502
> 削除対象になる画像をワークシートに追加するタイミングでShapeRangeコレクションに入れ
とか言うけど、その画像がプログラムで追加されるとは限らんよ
人が適当に描画した図形を単にクリアするボタンかも知れんし
> 削除対象になる画像をワークシートに追加するタイミングでShapeRangeコレクションに入れ
とか言うけど、その画像がプログラムで追加されるとは限らんよ
人が適当に描画した図形を単にクリアするボタンかも知れんし
510デフォルトの名無しさん
2019/04/07(日) 22:43:02.40ID:dLz2IshG >>509
それならShapes.SelectallでShapeRangeコレクションに突っ込んで、マクロ呼び出し用のボタンだけShapeRangeから除外して一括削除だね
とにかくShapesの中でループを回す必要がない
それならShapes.SelectallでShapeRangeコレクションに突っ込んで、マクロ呼び出し用のボタンだけShapeRangeから除外して一括削除だね
とにかくShapesの中でループを回す必要がない
511デフォルトの名無しさん
2019/04/07(日) 22:50:29.75ID:IY2XTri8 >>507
それは数百個貼るような状況の場合の話。
そういう場合なら、その時考える話だ。
例えば、それなりに組める奴ならScreenUpdatingなんかを使っても速度が速くなることは無いだろう。
俺の場合も当然そうだ。
だからと言って、普段そんなに速度を重視して組んでいる訳じゃ無い。
しかしだ、状況により速さが必要になったら当然それ用に変わるだろう。
いつも速度を重視して組んでいるならご苦労なこった。
それは数百個貼るような状況の場合の話。
そういう場合なら、その時考える話だ。
例えば、それなりに組める奴ならScreenUpdatingなんかを使っても速度が速くなることは無いだろう。
俺の場合も当然そうだ。
だからと言って、普段そんなに速度を重視して組んでいる訳じゃ無い。
しかしだ、状況により速さが必要になったら当然それ用に変わるだろう。
いつも速度を重視して組んでいるならご苦労なこった。
512デフォルトの名無しさん
2019/04/07(日) 22:54:24.63ID:AvqFg232513デフォルトの名無しさん
2019/04/08(月) 02:30:49.49ID:OEfF6P+m オブジェクトを直接比較すれば済む話じゃね
なんでわざわざ.Name呼び出して文字列比較するのかわからん
オブジェクトの比較なら何千あっても大して遅くならんし
馬鹿ばっかかよ
なんでわざわざ.Name呼び出して文字列比較するのかわからん
オブジェクトの比較なら何千あっても大して遅くならんし
馬鹿ばっかかよ
514デフォルトの名無しさん
2019/04/08(月) 02:33:33.22ID:OEfF6P+m そもそもshaperangeコレクションにアイテムをremoveするメソッドがあれば済む話なのにな
やっぱVBAって糞だわ
やっぱVBAって糞だわ
515デフォルトの名無しさん
2019/04/08(月) 06:39:30.33ID:2IBrjRoX やっと気付いた?
516デフォルトの名無しさん
2019/04/08(月) 08:39:44.42ID:HwCnDiL+ 20年進歩なければな
517デフォルトの名無しさん
2019/04/08(月) 09:10:46.62ID:5f7aEGaE >>503
ありがとう!
ありがとう!
518デフォルトの名無しさん
2019/04/08(月) 10:38:02.22ID:20rc9alP519デフォルトの名無しさん
2019/04/08(月) 10:40:14.98ID:qrhOu38P vbaは===がない上にisで比較できないパターンがあったはず
ユニークな名前で比較するやり方は正解
ユニークな名前で比較するやり方は正解
520デフォルトの名無しさん
2019/04/08(月) 10:59:09.00ID:f4XbMpJ6521デフォルトの名無しさん
2019/04/08(月) 11:00:40.34ID:20rc9alP522デフォルトの名無しさん
2019/04/08(月) 11:02:06.10ID:20rc9alP >>520
素人でございます、具体的に提示してください
素人でございます、具体的に提示してください
523デフォルトの名無しさん
2019/04/08(月) 11:06:10.01ID:r5MC5DWh うむ
524デフォルトの名無しさん
2019/04/08(月) 11:28:59.16ID:cNRL9eDF Application.Caller と比較するのかな?
525デフォルトの名無しさん
2019/04/08(月) 11:34:02.89ID:20rc9alP526デフォルトの名無しさん
2019/04/08(月) 11:44:28.64ID:f4XbMpJ6 ObjPtr、ポインタ、参照渡しあたりでググれカス
煽りが下手すぎて説明する気にもならん
煽りが下手すぎて説明する気にもならん
527デフォルトの名無しさん
2019/04/08(月) 11:44:45.29ID:qrhOu38P >>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
無能の頂天っすね
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
無能の頂天っすね
528デフォルトの名無しさん
2019/04/08(月) 11:45:39.84ID:20rc9alP529デフォルトの名無しさん
2019/04/08(月) 11:49:55.04ID:f4XbMpJ6 >>528
捨て台詞も下手くそだな
捨て台詞も下手くそだな
530デフォルトの名無しさん
2019/04/08(月) 11:51:20.33ID:qrhOu38P >>528-529
俺から見ればお前ら両方雑魚やぞ
俺から見ればお前ら両方雑魚やぞ
531デフォルトの名無しさん
2019/04/08(月) 11:54:16.26ID:f4XbMpJ6532デフォルトの名無しさん
2019/04/08(月) 11:56:32.80ID:20rc9alP533デフォルトの名無しさん
2019/04/08(月) 11:57:35.69ID:qrhOu38P >>531
終わってんのかよwww知るかwwwwじゃあ何の話してるんだよwwww
終わってんのかよwww知るかwwwwじゃあ何の話してるんだよwwww
534デフォルトの名無しさん
2019/04/08(月) 11:58:24.09ID:20rc9alP >>529
でも、お前(笑)
でも、お前(笑)
535デフォルトの名無しさん
2019/04/08(月) 12:01:13.75ID:20rc9alP >>533
茶飲み話に決まってるだろ・・酒か・・
茶飲み話に決まってるだろ・・酒か・・
536デフォルトの名無しさん
2019/04/08(月) 12:04:25.33ID:cNRL9eDF ObjPtrだろうがなんだろうが「消しちゃいけないこのオブジェクト」を最初にどうやって指定するのかと
537デフォルトの名無しさん
2019/04/08(月) 12:04:58.54ID:f4XbMpJ6 酒飲んでるから!本気じゃないから!
はいノーダメ!
思考がテンプレすぎる
はいノーダメ!
思考がテンプレすぎる
538デフォルトの名無しさん
2019/04/08(月) 12:07:53.61ID:20rc9alP539デフォルトの名無しさん
2019/04/08(月) 12:24:06.89ID:KL9iMO+X540デフォルトの名無しさん
2019/04/08(月) 12:35:47.16ID:20rc9alP541480
2019/04/08(月) 13:06:22.74ID:cVIHdDyE542480
2019/04/08(月) 13:11:52.02ID:cVIHdDyE543デフォルトの名無しさん
2019/04/08(月) 13:17:44.71ID:20rc9alP >>537
まあ、引きこもりのカスだからノーダメ・・全ダメ(笑)
まあ、引きこもりのカスだからノーダメ・・全ダメ(笑)
544デフォルトの名無しさん
2019/04/08(月) 14:13:07.53ID:qrhOu38P545デフォルトの名無しさん
2019/04/08(月) 14:58:52.26ID:9sVYCwmO 質問者はShapesコレクションのFor Eachで消えるボタンだって言ってますよ
546デフォルトの名無しさん
2019/04/08(月) 16:07:16.94ID:20rc9alP >>542
>理解するコツ
それこそ、マニュアルを読めよまたはググれよ
例えば以下でもいいけど、他にもいっぱいある
https://www.becoolusers.com/excel/pivottable.html
だけど、頭の構造によって読んでも分かんない奴も多いからな
必要な時に使うんじゃわからんバカには無理って言ってるんだよ
普段から使えよ
>理解するコツ
それこそ、マニュアルを読めよまたはググれよ
例えば以下でもいいけど、他にもいっぱいある
https://www.becoolusers.com/excel/pivottable.html
だけど、頭の構造によって読んでも分かんない奴も多いからな
必要な時に使うんじゃわからんバカには無理って言ってるんだよ
普段から使えよ
547デフォルトの名無しさん
2019/04/08(月) 16:21:30.00ID:20rc9alP548デフォルトの名無しさん
2019/04/08(月) 16:32:09.53ID:qrhOu38P549デフォルトの名無しさん
2019/04/08(月) 16:59:10.82ID:eHXY0QFN お前らもしかしてわざと無能演じてんの?
だったらすげえや全然気づかなかった
set b = ActiveSeet.Shapes(Application.Caller)
For Each x in ActiveSeet.Shapes
If Not x Is b Then x.Delete
Next
だったらすげえや全然気づかなかった
set b = ActiveSeet.Shapes(Application.Caller)
For Each x in ActiveSeet.Shapes
If Not x Is b Then x.Delete
Next
550デフォルトの名無しさん
2019/04/08(月) 17:02:54.81ID:cVIHdDyE >>546
「いろいろ使ってみろ」とか「マニュアル読め」じゃないんだよ。
自分の言葉で説明してほしいということ。
具体的にはこれはデータベースを扱っているのだから
「フィールド」とか「グループ化」とか「集計」とかそういう具体的な用語を使ってだ。
「いろいろ使ってみろ」とか「マニュアル読め」じゃないんだよ。
自分の言葉で説明してほしいということ。
具体的にはこれはデータベースを扱っているのだから
「フィールド」とか「グループ化」とか「集計」とかそういう具体的な用語を使ってだ。
551デフォルトの名無しさん
2019/04/08(月) 17:08:22.50ID:9eoJzmPe VBAの特徴
内部抗争が酷いが外敵には一致団結して退治する
内部抗争が酷いが外敵には一致団結して退治する
552デフォルトの名無しさん
2019/04/08(月) 17:08:40.67ID:lpvwS4NY >>550
それこそスレチだわ 初心者質問スレでも池よ
それこそスレチだわ 初心者質問スレでも池よ
553デフォルトの名無しさん
2019/04/08(月) 17:12:22.10ID:qrhOu38P >>551
仲良く喧嘩してるんだよwwww
仲良く喧嘩してるんだよwwww
554デフォルトの名無しさん
2019/04/08(月) 17:15:00.42ID:lpvwS4NY555デフォルトの名無しさん
2019/04/08(月) 17:20:52.07ID:ccKDHzfP >>542
他人に期待しすぎ。
それが出来たら今頃は、サイト立ち上げたり、本出したり、どこかで講師やっとるがな。
MSからも含め、VBAよりもピボットテーブルの情報は少ないし、
パーツ、パーツで区切れるVBAよりも、
広範囲で漠然とした「自分のやりたいこと」に使えるかどうか、
試行してみないとなんとも言えない。
他人に期待しすぎ。
それが出来たら今頃は、サイト立ち上げたり、本出したり、どこかで講師やっとるがな。
MSからも含め、VBAよりもピボットテーブルの情報は少ないし、
パーツ、パーツで区切れるVBAよりも、
広範囲で漠然とした「自分のやりたいこと」に使えるかどうか、
試行してみないとなんとも言えない。
556デフォルトの名無しさん
2019/04/08(月) 17:26:33.08ID:eHXY0QFN >>554
押されたボタン以外は消える
ボタン1つと画像複数っていう質問なので削除ボタン以外のShapeを一括削除する仕様だと勝手に読み取った
少なくともNameで比較はありえねーよカスというサンプル
押されたボタン以外は消える
ボタン1つと画像複数っていう質問なので削除ボタン以外のShapeを一括削除する仕様だと勝手に読み取った
少なくともNameで比較はありえねーよカスというサンプル
557デフォルトの名無しさん
2019/04/08(月) 17:28:02.25ID:cVIHdDyE こんなとき図星の決まり文句言わなきゃなんないのかぁ。
「 み ん な 理 解 で き て い な い 。」
理解できてる人なら竹を割ったようにスッキリと解説できるはず。
使いまくれとか、サイト見ろとか、試行してみないとなんとも言えないとか、全部言ってる人がピポットテーブルの本質を理解できていない決定的な証拠じゃないか。
「 み ん な 理 解 で き て い な い 。」
理解できてる人なら竹を割ったようにスッキリと解説できるはず。
使いまくれとか、サイト見ろとか、試行してみないとなんとも言えないとか、全部言ってる人がピポットテーブルの本質を理解できていない決定的な証拠じゃないか。
558デフォルトの名無しさん
2019/04/08(月) 17:39:46.71ID:qrhOu38P >>557
当たってるよ。理解する必要ないからね
ピボットで作るデータの9割ぐらいは基本機能で瞬殺だから「使って覚えろ」としか言えない
複雑な事をしたければ作業列でパーっと作った方が早い、深く理解して得るものが少なすぎる
そもそも大事なことは目標の設定の仕方だから、このスレでどうこう言えない
当たってるよ。理解する必要ないからね
ピボットで作るデータの9割ぐらいは基本機能で瞬殺だから「使って覚えろ」としか言えない
複雑な事をしたければ作業列でパーっと作った方が早い、深く理解して得るものが少なすぎる
そもそも大事なことは目標の設定の仕方だから、このスレでどうこう言えない
559デフォルトの名無しさん
2019/04/08(月) 17:52:36.06ID:TKIMwKN2 >>549
ShapeRangeコレクションにRemoveメソッドがない以上これが最適解だな
ShapeRangeコレクションにRemoveメソッドがない以上これが最適解だな
560デフォルトの名無しさん
2019/04/08(月) 19:14:24.14ID:P0CHcdLi >>556
なんでName で比較しないの?
なんでName で比較しないの?
561デフォルトの名無しさん
2019/04/08(月) 19:33:54.35ID:V7WRm0mr foreach列挙中に対象コレクションから要素消すなよ
562デフォルトの名無しさん
2019/04/08(月) 20:31:30.66ID:r03ED/xX VBAの演算子で一方だけ評価するのってありますか
i < 100 OR data[i] = x みたいに境界超えてないか先にチェックしたい
i < 100 OR data[i] = x みたいに境界超えてないか先にチェックしたい
563デフォルトの名無しさん
2019/04/08(月) 20:33:46.80ID:r03ED/xX i < 100 AND data[i] = x
逆でした
逆でした
564デフォルトの名無しさん
2019/04/08(月) 20:45:56.01ID:lSCOP8uB565デフォルトの名無しさん
2019/04/08(月) 21:11:16.19ID:KL9iMO+X566デフォルトの名無しさん
2019/04/08(月) 21:11:26.99ID:AlMdksUV567デフォルトの名無しさん
2019/04/08(月) 21:13:41.55ID:ARCkkcA0 ・プログラムとして危険
vs
・vbaだしどうでも良くね
ファイッ
vs
・vbaだしどうでも良くね
ファイッ
568デフォルトの名無しさん
2019/04/08(月) 21:15:36.62ID:KL9iMO+X569デフォルトの名無しさん
2019/04/08(月) 21:40:37.98ID:besmAe1s なんでわざわざ名前で比較したがるの?
570デフォルトの名無しさん
2019/04/08(月) 21:48:14.01ID:r03ED/xX571デフォルトの名無しさん
2019/04/08(月) 21:48:31.68ID:besmAe1s ぶっちゃけ1000回比較しても体感できる差は無いけど
ならどちらがいいかは完全にセンスの問題になるわけで
オブジェクトを比較したい場面でオブジェクトそのものを比較できるのにわざわざ名前みながら比べるとか
頭の中どうなってるの
ならどちらがいいかは完全にセンスの問題になるわけで
オブジェクトを比較したい場面でオブジェクトそのものを比較できるのにわざわざ名前みながら比べるとか
頭の中どうなってるの
572デフォルトの名無しさん
2019/04/08(月) 22:07:24.49ID:4iOzxu9L573デフォルトの名無しさん
2019/04/08(月) 22:17:03.71ID:besmAe1s >>572
Is知らなかったからって取り繕わなくてもいいよ
Is知らなかったからって取り繕わなくてもいいよ
574デフォルトの名無しさん
2019/04/08(月) 22:26:49.07ID:4iOzxu9L575デフォルトの名無しさん
2019/04/08(月) 22:36:44.56ID:lpvwS4NY >>573
だから、それは対象のボタンオブジェクトが分かってる場合だろ
最初のお題と違ってボタンがいくつあるかも分からん条件で効率よくってはなし
俺はNameプロパティは変更出来るだろ
だからTypeプロパティだろって言っているだけ
だから、それは対象のボタンオブジェクトが分かってる場合だろ
最初のお題と違ってボタンがいくつあるかも分からん条件で効率よくってはなし
俺はNameプロパティは変更出来るだろ
だからTypeプロパティだろって言っているだけ
576デフォルトの名無しさん
2019/04/08(月) 23:06:03.11ID:AlMdksUV 質問者そっちのけ
577デフォルトの名無しさん
2019/04/09(火) 00:18:47.52ID:8HUOoxmg >>549はデバッグ時に疲れからかモジュールにカーソルをあわせてF5を押してしまう
578デフォルトの名無しさん
2019/04/09(火) 00:44:23.79ID:cuTyECFJ この中で一番重いのはShapes.Delete
それ以外をどんだけ工夫しても、逆にどんなタコなコーディングしても、体感できる差は出ないから
それ以外をどんだけ工夫しても、逆にどんなタコなコーディングしても、体感できる差は出ないから
579デフォルトの名無しさん
2019/04/09(火) 01:51:44.81ID:flshAmjZ 【12日まで】500円を貰える春のばらまきキャンペーン開催中です
@ スマホのApp Storeから「プリン(pring)」をインストールする
A 会員登録を済ませる
B 下図の通りに進む
https://pbs.twimg.com/media/D3pRtQiUwAQLMUR.jpg
C コードを登録 [5gAYSz]
これで五百円を貰えます
スマホでセブンATMからお金を下ろせたり(キャッシュカード不要)便利なアプリですのでよろしければご利用下さい
@ スマホのApp Storeから「プリン(pring)」をインストールする
A 会員登録を済ませる
B 下図の通りに進む
https://pbs.twimg.com/media/D3pRtQiUwAQLMUR.jpg
C コードを登録 [5gAYSz]
これで五百円を貰えます
スマホでセブンATMからお金を下ろせたり(キャッシュカード不要)便利なアプリですのでよろしければご利用下さい
580デフォルトの名無しさん
2019/04/09(火) 06:47:19.14ID:WguqqX2K581デフォルトの名無しさん
2019/04/09(火) 08:39:46.28ID:mg+oftxD マウントやめたら色々な方法見れて役に立つんだけどな
何故一番になりたがるのだろう
何故一番になりたがるのだろう
582デフォルトの名無しさん
2019/04/09(火) 08:43:42.22ID:sTjNwrNP そうさぼくらは世界にひとつだけの花
583デフォルトの名無しさん
2019/04/09(火) 08:45:37.14ID:sTjNwrNP 小さい花や大きな花
ひとつとして同じものはないから
No1にならなくてもいい
もともと特別なonly one
ひとつとして同じものはないから
No1にならなくてもいい
もともと特別なonly one
584デフォルトの名無しさん
2019/04/09(火) 11:49:39.06ID:4ZugEZRH まあ、なんだな久しぶりに実際に使ってみた
ルーチンの仕様
1.フォームコントロールとActiveXコントロールで作成したShapeオブジェクトは全て残す
2.それ以外のShapeオブジェクトは全て消す
3.対象ShapeオブジェクトはActiveSheetのみ
3.フォームコントロールと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コントロールしか
普段は使わない
ルーチンの仕様
1.フォームコントロールとActiveXコントロールで作成したShapeオブジェクトは全て残す
2.それ以外のShapeオブジェクトは全て消す
3.対象ShapeオブジェクトはActiveSheetのみ
3.フォームコントロールと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コントロールしか
普段は使わない
585デフォルトの名無しさん
2019/04/09(火) 13:45:14.72ID:4ZugEZRH 追記しておくけど
目的・仕様をハッキリさせなきゃどんなルーチンも価値評価が難しいな
定義済み定数は定義名を使えよ普通に、ウォッチ式で確認できるから
>For Each x in ActiveSeet.Shapes
誤記スンナ ×ActiveSeet ○ActiveSheet
目的・仕様をハッキリさせなきゃどんなルーチンも価値評価が難しいな
定義済み定数は定義名を使えよ普通に、ウォッチ式で確認できるから
>For Each x in ActiveSeet.Shapes
誤記スンナ ×ActiveSeet ○ActiveSheet
586デフォルトの名無しさん
2019/04/09(火) 16:00:23.87ID:v/sKiq9O >>480
俺がどうしてもexcel捨てられない理由が唯一
ピボットテーブルがあることなんだけどな
(その他のオフィス製品にも近ごろは
載っているようだが
VBAからの操作に慣れきってると
なかなか乗り換えきれない)
手放せなくなるまで使ってみてください
俺がどうしてもexcel捨てられない理由が唯一
ピボットテーブルがあることなんだけどな
(その他のオフィス製品にも近ごろは
載っているようだが
VBAからの操作に慣れきってると
なかなか乗り換えきれない)
手放せなくなるまで使ってみてください
587デフォルトの名無しさん
2019/04/09(火) 22:54:10.35ID:SAQnN0sI >>569
hashCodeがないから
hashCodeがないから
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 中国国営メディア「沖縄は日本ではない」… ★3 [BFU★]
- 中国国営メディア「沖縄は日本ではない」… ★2 [BFU★]
- 高市政権にパイプ役不在…日中高まる緊張 公明党の連立離脱影響、自民内にも懸念「自分でまいた種は自分で刈り取ってもらわないと」 [ぐれ★]
- 小野田氏、”中国経済への依存“に警戒感 高市首相の国会答弁巡り [煮卵★]
- 【こんなの初めて…】民泊には既にキャンセルも 中国の渡航自粛で [ぐれ★]
- 【サッカー】独占入手 最年長JリーガーにW不倫疑惑 『お風呂覗きたいんですが笑』LINE流出も… 慰謝料トラブルを本人に直撃 [冬月記者★]
- 【悲報】ココイチ、売上増収も客離れが止まらずジリ貧。「さらなる値上げも視野」😳 [518915984]
- ネトウヨ「存立危機発言なんて無かった!!!!!!!!!」 [314039747]
- 【なぜ】安倍晋三の評価、地味に上がってる模様… [343591364]
- 円安株安債券安なんだが!終わりだねこの国😿 [929293504]
- 【画像】セクシー女優・天沢りんさん「お休み頂いてた半年間でこんな体になりました🪽🤍」👉予想通りの展開に [242521385]
- 中国国営放送「日本は琉球をただちに中国に返還せよ」 キタ━━━━(゚∀゚)━━━━!!!!! [314039747]
