[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『チェックボックスをチェックした時の日付表示』(miko)
チェックボックスが、コントロールツールボックスのチェックボックスであれば、 以下のような感じで出来ます。 Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Range("A1").Value = Date End Sub
(川野鮎太郎)
配置した後で、デザインモードを解除すれば出来ますよ。
(川野鮎太郎)
チェックボックスっぽいことであれば、 ↓のスレが参考になりそうです。 [[20040818141911]]『クリックするだけでチェクマーク』(hiro) 参考までにコードを書いてみました。 チェックボックスを配置したいシートのシートモジュールに貼り付けてみて下さい。 A1:A100にチェックが入るようになっています。 その横のB列に日付が入ります。 (ROUGE) '---- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Target.Column = 1 Then Exit Sub If Target.Row > 100 Then Exit Sub If Target.Value = "" Then Target.Value = "P" Target.Font.Name = "Wingdings 2" Target.Offset(, 1).Value = Date Else Target.Resize(1, 2).Value = "" End If End Sub
> If Not Target.Column = 1 Then Exit Sub の部分を以下のように変更してみて下さい。 (ROUGE) '---- With Target If Not .Column = 4 And Not .Column = 6 And Not .Column = 8 And Not .Column = 10 And _ Not .Column = 12 And Not .Column = 14 And Not .Column = 16 Then Exit Sub End With
行の制限は > If Target.Row > 100 Then Exit Sub の部分で行っています。 この場合、100行より下の場合は何もせんでええよってことにしてます。 4行目から下の行で有効にしたい場合は、 If Target.Row < 4 Then Exit Sub にすればよいということです。 もしず〜っと下の方では何もして欲しくないということであれば、 その条件を加えてあげて下さい。 (ROUGE)
要領は一緒です。 If Target.Row < 4 Then Exit Sub の下に If Target.Row > 50 Then Exit Sub を追加してみてください。 (ROUGE)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.