09/06/12 14:28:42
50件程度なら重複チェックを省略しても、とりたてて問題はない。
For Each n In name '配列で集計
dic(n) = dic(n) + 1
Next
たったこれだけで集計できる。
データが増えると遅くなるけど。
476:デフォルトの名無しさん
09/06/12 16:22:18
UserFormから数式を入力させて、その数式に該当するセルに処理を行いたいのですが、
ヒントになるサイトか関数などあれば教えてください。よろしくお願いします
477:463
09/06/12 16:27:12
実は集計するだけではなく、
高橋 100点
三根 98点
山田 100点
高橋 100点
青山 97点
山田 99点
(50人くらい、データは1000件くらい)
で100点の人だけ集計して100点の高橋が何人いて、
100点の山田が何人いるみたいなことをしたかったので、
100点で検索して左のセルをみて、
文字列を取得して、その取得した文字列と
関連するの配列名にカウントしたかった
のですが、どうもdictionaryでできそうです。
みなさんありがとうございました。
478:デフォルトの名無しさん
09/06/12 16:27:50
「数式に該当するセル」が意味不明
実例を示せ
479:デフォルトの名無しさん
09/06/12 16:30:15
>>477
その程度ならVBAなんぞ使わんでも一発で集計できるがね
480:デフォルトの名無しさん
09/06/12 16:43:26
>>478
失礼しました
やりたいことは条件付き書式設定のようなことで、
例えば
30
20
50
60
40
80
というセルを選択した後、ユーザーフォームから数式を入力してボタンを押すと
数式に該当するセルに対して、処理を行うということです。
条件付き書式設定を使えというのは無しでお願いします。。。
481:デフォルトの名無しさん
09/06/12 17:31:32
列なの行なの？
なんなのその数字。
482:デフォルトの名無しさん
09/06/12 18:13:09
Chr(13)とvbCrlfの使い分けの判断は何？
483:デフォルトの名無しさん
09/06/12 19:49:23
vbCrLf = Chr(13) & Chr(10)
Chr(13) = vbCr
Chr(10) = vbLf
484:デフォルトの名無しさん
09/06/12 21:11:04
>>482
改行コードは状況によって変わることがあるから
Chr(13)とかChr(10)とかに固定すると具合が悪いこともある
485:デフォルトの名無しさん
09/06/12 21:20:26
ぜんぜん「数式に該当するセル」の説明になってない…
486:デフォルトの名無しさん
09/06/13 09:26:08
俺がエスパーすると
数式の解に該当する数字の入ったセル
487:デフォルトの名無しさん
09/06/13 10:58:14
数式： >=50
数式に該当するセル： 50 60 80
ってことじゃね
488:デフォルトの名無しさん
09/06/13 11:10:30
俺がエスパーすると、
フォームから「A2=A1+10」と入力する。A1に5が入っていたとしたらA2に15を入れる。
どうだ？
489:デフォルトの名無しさん
09/06/13 12:27:04
463が説明しようとする度にエスパーが大量に必要になりそうな悪寒
何をどうしたいのか細切れに話そうとしてるからますます判らん w
490:デフォルトの名無しさん
09/06/13 12:28:17
＿＿＿_
／_ノ ヽ､_＼
oﾟ(（●）) (（●）)ﾟo ,. -- ､
／::::::⌒（__人__）⌒:::::: / __,＞─ ､
| |r┬-| / ヽ
| | | | ｛ |__
| | | | ｝ ＼ ,丿 ヽ
| | | | / ､ ｀┬----‐１ }
| | | | ／ `￢| l ﾉヽ ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
＼ `ー'ｫ / ､ !_/ｌ l / ｝
{ ＼ l / ,'
＼ ´｀ヽ.__,ノ / ﾉ
＼ ヽ､＼ __,ノ ／
￣ ヽ､_ 〉 ,!､__／
491:デフォルトの名無しさん
09/06/13 16:20:49
>>480
数式からEvaluateで戻り値を求めて、その戻り値でフィルターにかけりゃいいじゃん。
それともフィルタオプションで検索条件範囲の1行目を空白にして、2行目に=A2=数式と書きだして抽出するとかね。
492:491
09/06/13 16:24:49
俺のエスパー度はマグニチュード7くらいの自信があるから上で間違いないな。
493:デフォルトの名無しさん
09/06/13 16:52:40
463まとめ
>>463
>>468
>>477
>>480
494:デフォルトの名無しさん
09/06/13 21:30:24
>>493
仲間はずれがいるぜ。
>>480は>>476だな。
495:デフォルトの名無しさん
09/06/13 22:23:18
/ ﾉﾉ ﾉﾉノ ヾヽ、ヽ
/ ﾉｊ ｀ ´ i |
i { ｀ , ,-,、´ i |
{ i ）-―-'（ i |
ヽ i ⌒ } |＿,,,. -‐- ､
__)）, ,ﾉ人 、＿, ノ''"´ , ＼
／ ｀ ー--,. '´ . : :｀（ ゝ、
/ : : :: :´: . : :＼ , ' ´_ ヽ
/ r´: : : : : : ,. ' ´ ヽ>'´ ,'ヽ!
/ γ: : ノ _ ,, ､,, ,,__i ｡ ./ ; ,!
i ir' " ヽ ,,, ''' ´ ｀"７ :/
i |、 ° }, ' ｀ ｙ' /
"'''‐‐- ...,,,_| ヽ、ｰ／ ＿_ ＿/ /
｀'''-,,,て ´ ￣￣ / ,イ
｀''-､__／ / ｀ ／ ,! _,
｀''-,,_ ,..､_,,..イ´ i'´ ｀ゝ''"´
＼_ ,,,,,...ゞ､＿ |ｰ-／
ﾐ〉 !r'´
ヽ ﾐ/、 ／| i i }