Excel VBA質問箱 IV

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

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


7205 / 13644 ツリー ←次へ | 前へ→

【40558】テキストボックスとオプションボタンを組み合わせるには? ☆初心者・・・☆ 06/7/17(月) 2:41 質問[未読]
【40560】Re:テキストボックスとオプションボタンを... かみちゃん 06/7/17(月) 8:13 発言[未読]

【40558】テキストボックスとオプションボタンを組...
質問  ☆初心者・・・☆  - 06/7/17(月) 2:41 -

引用なし
パスワード
   会社で企業リストを作成するのに、フォームを使おうと思い作業をしています。
いろんな本を読んでいるのですが分からず、かなり初歩的な質問とは思いますが
ご教授お願いできればと思います。

【縦列】
 1.企業名 2.担当営業名 3.住所 4.ビル 5.エリア 6.区分




という感じのワークシートを作りたいと思っています。

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
のところで、
オブジェクトはこのプロパティーまたはメソッドをサポートしていません。

となります。
何が間違っているのでしょうか?

【40560】Re:テキストボックスとオプションボタン...
発言  かみちゃん  - 06/7/17(月) 8:13 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>会社で企業リストを作成するのに、フォームを使おうと思い作業をしています。
>いろんな本を読んでいるのですが分からず、かなり初歩的な質問とは思いますが
>ご教授お願いできればと思います。

投稿者名が違うようですが、以下のご質問をされている方と同じ方でしょうか?
マルチポストは、一般的に嫌われる行為ですから、やめたほうがいいですよ。
http://park7.wakwak.com/cgi-bin/sbox/~efc21/wwwlng.cgi?print+200607/06070020.txt

> Tanntoueigyou = Me("OptionButton" & i).Text
> のところで、
> オブジェクトはこのプロパティーまたはメソッドをサポートしていません。

あちらの掲示板にコメントさせていただきます。

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