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程度です

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