Excel VBA質問箱 IV

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

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


28218 / 76732 ←次へ | 前へ→

【53817】addItemについて
質問  ポポ  - 08/2/8(金) 10:37 -

引用なし
パスワード
   こんにちは。

今まで動いていたんですが、読込みエラーになってしまい、作り直しています。
で、以前は問題なかったもので、同じ命令文にしたのですが、エラーになるため、
参考書を参考に作り直しました。でも”型が一致しません”とエラーがでてしまいます。どこがいけないのか、どうすれば対処できるのか教えてください。お願いします。

worksheets("品種")にA1:D1にはコンボボックス(ここでは"区分”)に入る値
それに関連してcells(.row.count,i).End(xlUp).Rowまでリストが作成してあります。
コンボ”区分”で選択した値から関連のあるリストの列をcomboBox1に表示して選択するユーザーフォームを作成しています。

区分1  区分2  区分3    実際にはA1:D1まで4種類あります
リスト1  リスト2-1  リスト3-1
リスト2  リスト2-2  リスト3-2
リスト3       リスト3-3    ←こんな感じのリストがworksheets("品種")にある
リスト4

以前の命令文:
'区分表示
Private Sub UserForm_Initialize()
  With Worksheets("品種")
    Da = Range("A1").CurrentRegion.Value
    For i = 2 To .Range("A1").End(xlToRight).Column
      Me.区分.AddItem Da(1, i)
    Next i
  End With

End Sub

'品種表示
Private Sub 区分_Change()    ↓Comboboxは3つあるので、同じ命令文が
'品種名1             あと二つつきます(ComboBoxの名称は変更) 
  'Me.区分.Clear        
  With Worksheets("品種")
    For i = 1 To .Range("A1").End(xlToRight).Column
      If Me.区分.Value = Da(1, i) Then
        For ii = 2 To Cells(Rows.Count, i).End(xlUp).Row
          Me.ComboBox1.AddItem Da(ii, i)
        Next ii
        Exit For
      End If
    Next i
  End With

End Sub

変更後:
currentRegionは空白のあるリストということでAの列と行を空白にしました。

'区分表示
Private Sub UserForm_Initialize()
  With Worksheets("品種")
    Da = Range("B2").CurrentRegion.Value
    For i = 2 To .Range("B2").End(xlToRight).Column
      Me.区分.AddItem Da(2, i)
    Next i
  End With

End Sub

'品種表示
Private Sub 区分_Change()
'品種名1
  'Me.区分.Clear
  With Worksheets("品種")
    For i = 2 To .Range("B2").End(xlToRight).Column
      If Me.区分.Value = Da(2, i) Then
        For ii = 3 To Cells(Rows.Count, i).End(xlUp).Row
          Me.ComboBox1.AddItem Da(ii, i)
        Next ii
        Exit For
      End If
    Next i
  End With
End Sub
1 hits

【53817】addItemについて ポポ 08/2/8(金) 10:37 質問
【53824】Re:addItemについて Jaka 08/2/8(金) 12:09 発言
【53828】Re:addItemについて ポポ 08/2/8(金) 14:08 発言
【53830】Re:addItemについて Jaka 08/2/8(金) 14:35 発言
【53834】Re:addItemについて VBWASURETA 08/2/8(金) 15:42 発言
【53838】Re:addItemについて ポポ 08/2/8(金) 17:10 お礼
【53833】Re:addItemについて VBWASURETA 08/2/8(金) 15:38 発言
【53839】Re:addItemについて ポポ 08/2/8(金) 17:26 質問
【53840】Re:addItemについて VBWASURETA 08/2/8(金) 18:06 質問
【53857】Re:addItemについて ポポ 08/2/12(火) 9:40 発言
【53859】Re:addItemについて VBWASURETA 08/2/12(火) 10:00 回答
【53862】Re:addItemについて ポポ 08/2/12(火) 10:34 発言
【53863】Re:addItemについて VBWASURETA 08/2/12(火) 10:42 回答
【53865】Re:補足 VBWASURETA 08/2/12(火) 11:13 発言
【53866】Re:補足 ポポ 08/2/12(火) 11:59 お礼
【53867】Re:補足 VBWASURETA 08/2/12(火) 13:46 発言
【53869】Re:補足 ポポ 08/2/12(火) 16:10 質問
【53872】Re:補足 VBWASURETA 08/2/12(火) 18:28 質問
【53874】修正しましたが・・・ ポポ 08/2/13(水) 9:28 質問
【53877】Re:修正しましたが・・・ VBWASURETA 08/2/13(水) 13:10 回答
【53883】Re:修正しましたが・・・ VBWASURETA 08/2/13(水) 17:02 質問
【53886】Re:修正しましたが・・・ ポポ 08/2/13(水) 18:10 発言
【53897】Re:修正しましたが・・・ VBWASURETA 08/2/14(木) 9:45 回答
【53905】Re:修正しましたが・・・ ポポ 08/2/14(木) 11:30 お礼
【53910】Re:修正しましたが・・・ VBWASURETA 08/2/14(木) 14:34 発言
【53912】ありがとうございます ポポ 08/2/14(木) 15:49 お礼
【53858】Re:addItemについて Jaka 08/2/12(火) 9:43 発言
【53864】Re:addItemについて ポポ 08/2/12(火) 10:45 発言

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