[[20060529084515]] 『チェックボックスをチェックした時の日付表示』(miko) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『チェックボックスをチェックした時の日付表示』(miko)
チェックボックスを使用したいのですが、その時、チェックした時の日付けを
指定したセルに表示する方法はありますでしょうか?
アドバイスよろしくお願い致します。
Excel2000
Windows2000


 チェックボックスが、コントロールツールボックスのチェックボックスであれば、
 以下のような感じで出来ます。
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Range("A1").Value = Date
End Sub

 (川野鮎太郎)


アドバイスありがとうございます。
恐縮ですが、コントロールボックスのチェックボックスは
どのようにしたらチェックマークを入れられるのでしょうか?(miko)


 配置した後で、デザインモードを解除すれば出来ますよ。

 (川野鮎太郎)

出来ました!!
ありがとうございました。
(miko)


希望どおり出来ましたが、この場合はチェックボックス1つ1つ設定しないといけないようですね。私の構想の中では1枚のシートにこの方法で数百個のチェックボックスを作りたかったのですが・・・・。地道にやるしかないですね。
(miko)

 チェックボックスっぽいことであれば、
↓のスレが参考になりそうです。
[[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

ありがとうございます。出来ました。
ちなみにお伺いしたいのですが、クリックする列を
D,F,H,J,L,N,Pの7列使いたい場合は上記コードのどの部分を
変更すれば良いのでしょうか?
よろしくお願い致します。(miko)

 > 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


出来ました。ありがとうございます。
理想通りです。
VBAは難しいですけど,便利ですね。
(miko)

もう1つお願い致します。
上のコードで4行目より上記の設定をしたい場合はどの部分を変更すればよいでしょうか?
お願い致します.(miko)

 行の制限は
 > If Target.Row > 100 Then Exit Sub
の部分で行っています。
この場合、100行より下の場合は何もせんでええよってことにしてます。
4行目から下の行で有効にしたい場合は、
If Target.Row < 4 Then Exit Sub
にすればよいということです。
もしず〜っと下の方では何もして欲しくないということであれば、
その条件を加えてあげて下さい。
(ROUGE)

ありがとうございました。
たびたび申し訳ございませんが、
4行目から50行目までと指定する場合はどのようにしたら良いですか?
使い方が分からないので・・・・。(miko)

 要領は一緒です。
If Target.Row < 4 Then Exit Sub
の下に
If Target.Row > 50 Then Exit Sub
を追加してみてください。
(ROUGE)

ありがとうございます。
思った通りのシートが作れました。
(miko)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.