Excel VBA 質問スレ Part70

[1 デフォルトの名無しさん (ﾜｯﾁｮｲ b6da-6NWR) 2021/03/18(木) 22:08:43.71 ID:jtngtgXU0]

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part69
https://mevius.5ch.net/test/read.cgi/tech/1607786543/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

[2 デフォルトの名無しさん (ﾜｯﾁｮｲ 013d-drwQ) 2021/03/18(木) 22:33:41.83 ID:e6JgDwDC0]

教えて下さい。
あるシートに買物記録があり、日付や購入店、商品名や単価の他に、商品の分類という列があります。
その列には「文具」「食品」「書籍」等が入力されています。

VBAで以下の動作をさせたいです。
　↓
別シートにあるダウンリストに、選択肢として、この商品分類に入力されている値を設定する。
重複して入力されている値は無視。入力されているすべての「分類」をひとつずつ選択肢にする。
　↑
これをどう書けばいいのか、教えて下さい。
よろしくお願いいたします。

[3 デフォルトの名無しさん (ﾜｯﾁｮｲ 13ad-7MQm) 2021/03/19(金) 02:09:13.85 ID:pQtJO8X70]

関数でも分類列をMATCHで検索してRow()と不一致なら空白として、それを入力規則にすれば出来そう

VBAでやるなら連想配列使って重複弾いて、かな

[4 デフォルトの名無しさん (ｱｳｱｳｳｰ Sa5d-dI/L) 2021/03/19(金) 12:08:42.44 ID:Efxeclnea]

>>2
もう少し個別にどの部分で詰まっているか書いた方がいいんじゃね

[5 デフォルトの名無しさん (ﾜｯﾁｮｲ 4901-gJ6t) 2021/03/19(金) 12:19:16.87 ID:Rf8ZEH4N0]

>>2
ワークシート関数でいいなら

適当なセルに
=UNIQUE(商品の分類が入力された列)
と入力すると重複整理された配列が入力される

プルダウンリストを作りたいセルを選択して「データの入力規則」を選択、
規則をリスト、ソースをさっき作った配列がある列にする

[6 デフォルトの名無しさん (ｱｳｱｳｳｰ Sa5d-/HWa) 2021/03/19(金) 13:13:27.10 ID:LUl3FuSJa]

ピボットグラフのRefresh処理が重くて困ってます
汎用的な処理中に停止すべき項目(画面描画、自動計算、イベント、アラート等)は停止させています
元テーブルの行は100程度です

処理を軽くする方法があればご教示願います

[7 デフォルトの名無しさん (ﾜｯﾁｮｲ 0bda-4Ddi) 2021/03/19(金) 20:19:38.16 ID:TXt81ZmU0]

>>6
ピボットテーブルの設定で「更新時に列幅を自動調整する」のチェックを外す

[8 デフォルトの名無しさん (ﾜｯﾁｮｲ 4901-gJ6t) 2021/03/19(金) 20:23:00.26 ID:Rf8ZEH4N0]

ググるとそれ出て来るけど、あんまり意味ないよ
って言いつつ効果あったら恥ずかしいけど

[9 デフォルトの名無しさん (ﾜｯﾁｮｲ 0bda-4Ddi) 2021/03/19(金) 22:16:15.80 ID:TXt81ZmU0]

初心者にはそのくらいしか教えられん

[10 デフォルトの名無しさん (ｱｳｱｳｳｰ Sa5d-/HWa) 2021/03/19(金) 22:28:12.63 ID:ZGQ0wMm+a]

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

ですが 処理が重くて困っているのはテーブル(ピボットテーブルではない)から作っているピボットグラフなのです

これが重かったりするんですかね…？

[11 デフォルトの名無しさん (ﾜｯﾁｮｲ 4901-gJ6t) 2021/03/19(金) 23:06:18.73 ID:Rf8ZEH4N0]

というか元々のグラフ生成が重いのかマクロが重いのか分からん
普通に更新ボタン押しても重いの？

[12 デフォルトの名無しさん (ｱｳｱｳｳｰ Sa5d-/HWa) 2021/03/19(金) 23:55:25.74 ID:tSoX9T0pa]

>>11
普通に手動でも遅いです…
何かピボットグラフの設定によるものならとも思いますが…

[13 デフォルトの名無しさん (ﾜｯﾁｮｲ 4901-gJ6t) 2021/03/20(土) 00:13:52.57 ID:1HieLmil0]

グラフ更新よりも関数で固まってる可能性の方が高いから、
一度全部の関数を削除してみて解決するか確認した方がいいと思う
自動計算切っててもピボット更新時に再計算されてる筈だし

[14 デフォルトの名無しさん (ｱｳｱｳｳｰ Sa5d-/HWa) 2021/03/20(土) 01:01:30.93 ID:7VltWvHha]

>>13
ありがとうございます
ワークシート関数は使わず、計算は全部vbaでやっています
関数と言えるのはピボットグラフのグラフ部分だけです
ピボットグラフのグラフ部分の関数が重くなっている可能性が考えられるかも、と思いました
ありがとうございます

[15 デフォルトの名無しさん (ﾜｯﾁｮｲ 09da-dI/L) 2021/03/20(土) 04:43:36.06 ID:kQoUW+sA0]

すげえなワークシート関数一切使わんでマクロだけでやるとは

[16 デフォルトの名無しさん (ﾜｯﾁｮｲ 0bda-4Ddi) 2021/03/20(土) 06:51:00.93 ID:EyTYq69F0]

遅いとか速いとか漠然としているので何秒かかっているかもわからんし
データ量やステップが増えればある程度遅くなるのは当然じゃね

[17 デフォルトの名無しさん (ﾜｯﾁｮｲ b15f-1iFT) 2021/03/20(土) 07:28:18.81 ID:/meO8w1y0]

2〜3秒でも遅いと思う人もいるしね

[18 デフォルトの名無しさん (ﾜｯﾁｮｲ 7b35-cZ1W) 2021/03/20(土) 10:08:34.03 ID:D1FjuE5r0]

VBA使ってんならどの部分でどんだけ時間かかってるか測定すりゃいいだけの話なのになぜしないんだろう

[19 デフォルトの名無しさん (ｱｳｱｳｳｰ Sa5d-/HWa) 2021/03/20(土) 11:15:44.57 ID:Awf5aTeqa]

>>18
Refreshのところで3秒かかっています
他処理全部は0.5秒で終わります

[20 デフォルトの名無しさん (ﾜｯﾁｮｲ 0bda-4Ddi) 2021/03/20(土) 20:35:40.01 ID:EyTYq69F0]

PCの性能が低いんじゃね

[21 デフォルトの名無しさん (ﾜｯﾁｮｲ 09da-dI/L) 2021/03/20(土) 20:48:09.36 ID:kQoUW+sA0]

それだ！
パソコンのせい
ゲーミング用買えば全てにおいてスマホ級の速さだ！

[22 デフォルトの名無しさん 2021/03/21(日) 16:59:06.62]

5chのスレで1000まで書き込まれたスレを1から1000までコピペしてsheet1に貼り付け
sheet1を特定のキーワードで検索して、書き込まれたレスと返信があったレスを抽出してsheet2に貼り付けしたいです
返信がない場合は空白と入力したいです
アイデアが思い付きません、宜しくお願いします