|
会社で企業リストを作成するのに、フォームを使おうと思い作業をしています。
いろんな本を読んでいるのですが分からず、かなり初歩的な質問とは思いますが
ご教授お願いできればと思います。
【縦列】
1.企業名 2.担当営業名 3.住所 4.ビル 5.エリア 6.区分
1
2
3
という感じのワークシートを作りたいと思っています。
1.3.4.はテキストボックス
2.5.6.はオプションボタン
2.は7つの(1〜7)選択肢
5.は4つの(8〜11)選択肢
6.も4つの(12〜15)選択肢
に使用をと思います。
現在の作成状況ですが、
〜〜〜〜〜〜〜〜〜〜〜〜〜〜
Private Sub CommandButton1_Click()
Dim i As Integer
Dim Kigyoumei As String
Dim Tanntoueigyou As Boolean
Dim Jyuusyo As String
Dim Birumei As String
Dim Eria As Boolean
Dim Kubunn As Boolean
Dim Kensuu As Long
Dim Gyou As Long
Kigyoumei = TextBox1.Text
For i = 1 To 7
If Me("OptionButton" & i).Value Then
Tanntoueigyou = Me("OptionButton" & i).Text
Exit For
End If
Next
Jyuusyo = TextBox2.Text
Birumei = TextBox3.Text
For i = 8 To 11
If Me("OptionButton" & i).Value Then
Eria = Me("OptionButton" & i).Text
Exit For
End If
Next
Kubunn = OptionButton.Text
With Worksheets("企業リスト")
Kensuu = .Cells(2, 7).Value
Kensuu = Kensuu + 1
Gyou = Kensuu + 1
.Cells(Gyou, 1).Value = Kigyoumei
.Cells(Gyou, 2).Value = Tanntoueigyou
.Cells(Gyou, 3).Value = Jyuusyo
.Cells(Gyou, 4).Value = Birumei
.Cells(Gyou, 5).Value = Eria
.Cells(Gyou, 6).Value = Kubunn
.Cells(2, 7).Value = Kensuu
End With
TextBox1.Value = ""
' .Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
' .Value = ""
' .Value = ""
End Sub
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
といろいろ聞いて回りここまで来ました。
しかし、ここからエラーが出ます。
Tanntoueigyou = Me("OptionButton" & i).Text
のところで、
オブジェクトはこのプロパティーまたはメソッドをサポートしていません。
となります。
何が間違っているのでしょうか?
|
|