Ｐａｇｅ 594 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼リストボックスの使い方を教えてください PART２ MIC 03/1/22(水) 10:11 ┗Re:リストボックスの使い方を教えてくださ... ポンタ 03/1/22(水) 12:32 ┗Re:リストボックスの使い方を教えてくださ... ポンタ 03/1/22(水) 23:55 ┗ありがとうございます。 MIC 03/1/23(木) 13:35 ┗Re:ありがとうございます。 ポンタ 03/1/23(木) 14:28 ─────────────────────────────────────── ■題名 ： リストボックスの使い方を教えてください PART２ ■名前 ： MIC ■日付 ： 03/1/22(水) 10:11 -------------------------------------------------------------------------
| すいません。再びお力をお貸し下さい。 リストボックスに表示させたリストをコマンドボタンを押してテキストファイルに出力する事はできますでしょうか。 さらに、可能ならそのリスト項目のデータがあるセルの隣のセルの値を出力させたいのですが、可能でしょうか。 どうかよろしくお願い致します。 |
| もっと簡単な方法もありそうですが、 お試しください。 ※"C:\My Documents\Test.TXT"はそちらの環境に合わせて書き換えてください。 Private Sub CommandButton1_Click() Dim objFs As Object, objText As Object Dim i As Integer Set objFs = CreateObject("Scripting.FileSystemObject") Set objText = objFs.CreateTextFile("C:\My Documents\Test.TXT") For i = 1 To ListBox1.ListCount objText.WriteLine (ListBox1.List(i - 1)) Next End Sub |
| >可能ならそのリスト項目のデータがあるセルの隣のセルの値を >出力させたいのですが、可能でしょうか。 ↑への回答を忘れてました。 お試しください。 Private Sub CommandButton1_Click() Dim objFs As Object, objText As Object Dim i As Integer Dim c As Range, MyRange As Range Set objFs = CreateObject("Scripting.FileSystemObject") Set objText = objFs.CreateTextFile("C:\My Documents\Test.TXT") For Each c In Range(ListBox1.RowSource).Offset(0, 1) objText.WriteLine (c.Value) Next End Sub |
| ありがとうございます。 とても助かりました。 |
| 以下のように、削除してから追加してください。 Sub 項目追加() ComboBox1.Clear ComboBox1.AddItem "赤" ComboBox1.AddItem "黒" End Sub それと、基本に忠実にやるなら、以下の手順で作業してください。 1.使っていない列(たとえばZ列)に Z1 赤 Z2 黒 と入力し、Z列を非表示にする 2.デザインモードにして、ComboBox1を右クリック→プロパティをクリックする 3.ListFillRange プロパティに Sheet6!Z1:Z2 を設定する これで、マクロから追加しなくても項目が設定できます。 |