EXCEL VBAの質問です


http://www.sigoto.co.jp/excel/activex/lesson11/activex50.htm
このコードなんですが、集計を取るのではなく

ぶどう りんご いちご みかん バナナ
 ●   ●   ●    ●
      ●         ●    ●
 ●        ●    ●

このように一回のアンケートごとに行をずらしたいです。
サンプルコードを書いていただけないでしょうか?
よろしくお願いします

回答の条件
  • 1人2回まで
  • 登録:2007/07/05 20:32:15
  • 終了:2007/07/12 20:35:21

回答(1件)

id:taknt No.1

きゃづみぃ回答回数13538ベストアンサー獲得回数11982007/07/05 23:09:05

ポイント60pt

Private Sub 登録ボタン_Click()

For k = 3 To 65536

If Range("B" & k) & Range("C" & k) & Range("D" & k) & Range("E" & k) & Range("F" & k) = "" Then Exit For

Next k

If k = 65536 Then End

If チェックぶどう = True Then Range("B" & k) = "●"

If チェックりんご = True Then Range("C" & k) = "●"

If チェックいちご = True Then Range("D" & k) = "●"

If チェックみかん = True Then Range("E" & k) = "●"

If チェックバナナ = True Then Range("F" & k) = "●"

チェックぶどう = False

チェックりんご = False

チェックいちご = False

チェックみかん = False

チェックバナナ = False

End Sub

id:taro_tan

今日ははてながメンテをやっていたせいか動作がおかしいみたいですね(;^_^A

ありがとうございました。

たすかりました♪

2007/07/05 23:42:57

この質問への反応(ブックマークコメント)

トラックバック

  • 回答できないから トラバしてみた takntの作り話 2007-07-05 22:26:29
    登録ボタン_Click()の中を 以下のようにすればいい。 Private Sub 登録ボタン_Click() For k = 3 To 65536 If Range(”B” & k) & Range(”C” & k) & Range(”D” & k) & Range(”E” & k) & Range(”F
  • fuentebellaの日記 2007-07-05 22:56:27
  • はてな人力検索1183635132の回答 fuentebellaの日記 2007-07-05 22:56:29
    http://q.hatena.ne.jp/1183635132 Excelのマクロの質問は普通すぐに回答がつくのに、だれも答えないならやってみようと回答したら、回答ができないだけだった。。。 夜なのに誰かはてなの復旧作
「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません