Ｐａｇｅ 787 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼チェックボックスで条件追加 hana 03/2/23(日) 21:57 ┗Re:チェックボックスで条件追加 ポンタ 03/2/24(月) 17:48 ┗Re:チェックボックスで条件追加 hana 03/2/24(月) 19:15 ─────────────────────────────────────── ■題名 ： チェックボックスで条件追加 ■名前 ： hana ■日付 ： 03/2/23(日) 21:57 -------------------------------------------------------------------------
| こんばんは。以前こちらで教えていただきながら作成した シフト表があります。（お世話になりました） フォームを表示し、commandボタンを押すとTextBox1への入力値 (コード）をListBox1（日付・行）とListBox2(名前・列）で 選択したセルに転記するようになっています。（先に入力がある とメッセージ等あります） 更にチェックボックス（他の方法でもいいです）を足して、 チェックが入っていたら転記と同時にセルの色も変えたいと 思い、以下のようにしてみたのですが、「colorindexプロパティが 設定できません」となってしまいます。おかしい所をご指摘 頂けないでしょうか？ For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then bln1 = True For j = 0 To ListBox2.ListCount - 1 If ListBox2.Selected(j) Then 'セルが空ならTextBox1を入力 If Cells(i + 8, j * 2 + 9).Value = "" Then Cells(i + 8, j * 2 + 9).Value = TextBox1.Value '・・・・・・・・・？？？？？？・・・・・・・・・・・ If CheckBox1.Value = true then Cells(i + 8, j * 2 + 9).Interior.ColorIndex = 40 End If '・・・・・・・・・・・・・・・・・・・・・・・・・・ 'セルの値が0ならエラーメッセージを表示し入力不可 ElseIf Cells(i + 8, j * 2 + 9).Value = 0 Then Me.Hide myname = Cells(6, j * 2 + 9).Text MsgBox (myname & "さんは休日希望日です！フォームから入力す ることはできません！"), vbExclamation Me.Show Exit Sub 'セルに0以外の値があればメッセージを表示しフォームに戻る Else Me.Hide myname = Cells(6, j * 2 + 9).Text MsgBox (myname & "さんは予定が入っています！フォームから入 力することはできません！"), vbExclamation Me.Show Exit Sub End If End If bln2 = True Next End If Next |
| hanaさん、こんにちは。 シートの保護をしていると、 実行時エラー '1004': Interior クラスの ColorIndex プロパティを設定できません。 というメッセージが出ますが、いかがでしょう？ |
| ポンタさんこんばんは。いつもありがとうございます。 仰る通り保護を外したら大丈夫でした。毎回毎回躓く度に お導き頂きありがとうございます。。 |