人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

EXCEL VBAの質問です

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

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

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

●質問者: taro_tan
●カテゴリ:コンピュータ インターネット
✍キーワード:Excel VBA いちご ぶどう みかん
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●60ポイント

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

◎質問者からの返答

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

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

たすかりました♪

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ