Ｐａｇｅ 855 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼条件検索 maeda 03/3/10(月) 12:09 ┗Re:条件検索 つん 03/3/10(月) 12:46 ┗Re:条件検索 maeda 03/3/10(月) 13:42 ─────────────────────────────────────── ■題名 ： 条件検索 ■名前 ： maeda <fwhn0621@mb.infoweb.ne.jp> ■日付 ： 03/3/10(月) 12:09 -------------------------------------------------------------------------
| 以下のような条件検索をしたいのですがエラーで処理が出来ません。 １．労働時間が６時間以上で、かつチェックボックスにチェックが入っていないときには メッセージボックスに確認の表示をさせたい。 If .And(労働時間 >= 6, CheckBox4.Value = False) Then MsgBox "社会保険を適用しませんか？", vbExclamation Else Worksheets("個人Data").Cells(touroku + 1, 35).Value = "加入" End If |
| maeda さん、こんにちは >If .And(労働時間 >= 6, CheckBox4.Value = False) Then ここの、条件文の書き方・・・こんな書き方があるのかな？ ちょっと簡単に試してみたら、やっぱりエラーになりましたが・・ If (労働時間 >= 6) And (CheckBox4.Value = False) Then と、されたらいかがでしょう？ あるいは、 If Application.WorksheetFunction.And(労働時間 >= 6) And (CheckBox4.Value = False) Then って、してもＯＫやったけど、別にワークシート関数使うことないね（＾＾; |
| ▼つん さん： OKでした。 ありがとうございます。 ワークシートの計算式の書き方、VBAの書き方、他のソフトの書き方・・・・ いろいろあって解らなくなってしまいます。 |