エクセルの学校：全文検索：Hyper Estraier：チェックボックス

Results of 1 - 1 of about 978 for チェックボックス (0.008 sec.)

[[20150924124617]]: #score: 5499; @digest: 3c2abacb8837d4a0b90797865c8ae40f; @id: 68949; @mdate: 2015-09-24T04:30:15Z; @size: 1456; @type: text/plain; #keywords: クi (15951), ク忘 (5991), checkboxes (5263), ら38 (5112), xlon (2850), クボ (2753), ク出 (1856), ス4 (1841), チェ (1809), へ進 (1644), ェッ (1638), sheet6 (1493), 定値 (1324), ク" (1277), 択出 (1109), 、固 (946), ック (875), sheet5 (842), 。チ (783), ボッ (744), 材料 (733), 記述 (702), 御座 (621), クス (597), screenupdating (539), 、チ (498), 失敗 (480), い様 (460), 適切 (448), 固定 (436), 角ス (436), 述し (329); 『記述の仕方』（ふみ）
チェックボックスが4から38まであり、どれか1つチェックされていれば次のシートへ進み、チェック忘れで1つもチェック出来ていなければメッセージを出して次へ進まない様にしたいのですが、 チェックボックスの数が多い為、下記の様なコードを書きました。（チェックボックスは1つしか選択出来ない様にしてあります）しかし If Sheet5.CheckBoxes("チェック i").Value = xlOn Then の記述が適切では無く、CheckBoxesメソッドは失敗しました Worksheetオブジェクトのエラーになります。 チェックボックス4から38まで順番に確認するにはどの様に記述したら良いでしょうか。チェックボックスはフォームコントロールです。よろしくお願いします。 Dim i As Long For i = 4 To 38 If Sheet5.CheckBoxes("チェック i").Value = xlOn Then GoTo 2 End If Next i MsgBox "材料を選択して下さい。" Application.ScreenUpdating = True Exit Sub 2 Sheet6.Select Sheet6.Range("K10").Activate Application.ScreenUpdating = True End Sub ＜使用 Excel:Excel2007、使用 OS:Windows7 ＞ ---- "チェック i" では、 i も含めて、固定値になります。変数は、固定値の外に出しましょう。 "チェック " & i チェックの後の半角スペースも忘れずに " " のなかに記述しておいてくださいね。（β） 2015/09/24(木) 13:20 ---- βさん、ありがとう御座いました。うまくいきました。なんとか自分で考えようと色々調べるのですが、時間ばかりかかって出来ません。いつも助けて頂いて申し訳ないのですが、本当にありがとう御座います。（ふみ） 2015/09/24(木) 13:30 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201509/20150924124617.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ