Excel VBA質問箱 IV

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

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


51893 / 76732 ←次へ | 前へ→

【29691】Re:リストボックスからリストボックスへリスト移動時
回答  りん E-MAIL  - 05/10/11(火) 22:07 -

引用なし
パスワード
   初心者 さん、こんばんわ。

>ユーザーフォームにて
>リストボックスを二つ、
>コマンドボタンを一つ、
>テキストボックスを一つ用意し、

これらがそのままの名前で準備されているとして。

Private Sub CommandButton1_Click()
  On Error Resume Next
  ListBox2.Text = ListBox1.Text
  On Error GoTo 0
  '
  If ListBox2.ListCount = 0 Or ListBox1.Text <> ListBox2.Text Then
    ListBox2.AddItem ListBox1.Text 'なければアイテム追加
  End If
End Sub

Private Sub ListBox1_Change()
  If ListBox1.ListIndex >= 0 Then TextBox1.Text = ListBox1.Text
End Sub

Private Sub ListBox2_Change()
  If ListBox2.ListIndex >= 0 Then ListBox1.Text = ListBox2.Text
End Sub

Private Sub UserForm_Activate()
  ListBox1.Clear '念のためクリア
  ListBox2.Clear '念のためクリア
  TextBox1.Text = ""
  'シート1というワークシートのデータを読み込む
  ListBox1.RowSource = "シート1!A1:A10"
End Sub

こんな感じです。
リストボックスの値が数値の時は、Valueでの比較がうまくいかなかったのでTextで比較しました。

0 hits

【29677】リストボックスからリストボックスへリスト移動時 初心者 05/10/11(火) 17:29 質問
【29688】Re:リストボックスからリストボックスへ... hine 05/10/11(火) 20:15 発言
【29691】Re:リストボックスからリストボックスへリ... りん 05/10/11(火) 22:07 回答
【29703】Re:リストボックスからリストボックスへリ... 初心者 05/10/12(水) 9:08 質問
【29740】Re:リストボックスからリストボックスへリ... りん 05/10/12(水) 21:40 回答
【29763】Re:リストボックスからリストボックスへリ... 初心者 05/10/13(木) 10:25 質問
【29764】Re:リストボックスからリストボックスへリ... 初心者 05/10/13(木) 10:25 質問
【29704】Re:リストボックスからリストボックスへリ... 初心者 05/10/12(水) 9:13 質問
【29732】Re:リストボックスからリストボックスへリ... りん 05/10/12(水) 19:23 発言
【29760】Re:リストボックスからリストボックスへリ... 初心者 05/10/13(木) 9:35 発言

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