Excel VBA質問箱 IV

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

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


53949 / 76732 ←次へ | 前へ→

【27589】Re:ComboBoxの重複
発言  kobasan  - 05/8/12(金) 15:43 -

引用なし
パスワード
   みなさん 今日は。

正しいかどうかは別として、次の様な理解に達しました。
間違っていたら教えてください。


  '-----同じ要素を追加しようとすると、エラーが発生するのを利用
  On Error Resume Next
  For Each c In Sheets("Sheet1").Range("A2", LastC)
     mycoll.Add c, c       '<===  '一意データ作成
    'mycoll.Add c, "a"      '<===おもしろい動きをしました
    'mycoll.Add c, c.Value    '<===
    'mycoll.Add c, c.Text    '<===
    'mycoll.Add c, CStr(c.Value) '<===
    'mycoll.Add [Collectionの要素], [Collectionの値(キー)](この値で同じか調べている)
    'エラー内容
    'このキーは既にこのコレクションの要素に割り当てられています
    '
    '
    '[Collectionの要素], [Collectionの値(キー)]の言葉が正しいかどうかは別として、
    'エラー内容といろいろな試行錯誤から、次のようなことが分かりました。
    'Collectionには、[Collectionの要素]が格納されて、
    '[Collectionの値(キー)]で、値が同じか調べているみたいだというのが分かりました。
    
    
  Next
  On Error GoTo 0
  '-----
  Application.EnableEvents = False
  ComboBox1.Clear
  For i = 1 To mycoll.Count
     ComboBox1.AddItem mycoll(i).Value  '<===
    'ComboBox1.AddItem mycoll(i).Address  '<===
  Next

0 hits

【27556】ComboBoxの重複 YU 05/8/11(木) 17:10 質問
【27559】Re:ComboBoxの重複 Jaka 05/8/11(木) 17:41 発言
【27560】Re:ComboBoxの重複 YU 05/8/11(木) 17:46 お礼
【27565】Re:ComboBoxの重複 ichinose 05/8/11(木) 20:36 発言
【27568】Re:ComboBoxの重複 kobasan 05/8/12(金) 9:01 質問
【27589】Re:ComboBoxの重複 kobasan 05/8/12(金) 15:43 発言
【27605】Re:ComboBoxの重複 ichinose 05/8/12(金) 17:19 発言
【27609】Re:ComboBoxの重複 kobasan 05/8/12(金) 19:28 お礼
【27571】Re:ComboBoxの重複 YU 05/8/12(金) 10:00 お礼

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