Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7234 / 76732 ←次へ | 前へ→

【75087】Re:シートを比較して同じだったら記号を入力
発言  kanabun  - 13/12/10(火) 11:11 -

引用なし
パスワード
   ▼hama さん:

>▼kanabun さん
>回答ありがとうございます。
>実はA列+B列=C列の記号というか値が100とおり以上あります。

これは、いいかえれば、Sheet2の表は 100行以上ということですよね?

>  For i = 0 To UBound(u) - 1
>    dic(u(i)) = v(i + 1, 1) '例 dic("さ" & vbTab & "た") = "●"
>  Next
>  
>を100以上書かなくては駄目でしょうか?

変数u に 全データが入り、これを0番目から UBound(u) - 1 番目まで
For〜Nextで順に辞書に登録していますので、150あろうと、1500あろうと

>  For i = 0 To UBound(u) - 1
>    dic(u(i)) = v(i + 1, 1)
>  Next

でOKです。

269 hits

【75083】シートを比較して同じだったら記号を入力 hama 13/12/10(火) 0:25 質問
【75085】Re:シートを比較して同じだったら記号を入力 kanabun 13/12/10(火) 10:29 発言
【75086】Re:シートを比較して同じだったら記号を入力 hama 13/12/10(火) 10:47 質問
【75087】Re:シートを比較して同じだったら記号を入力 kanabun 13/12/10(火) 11:11 発言
【75093】Re:シートを比較して同じだったら記号を入力 hama 13/12/10(火) 19:00 お礼

7234 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free