[[20140728061923]]　『チェックボックスにチェックを入れた時刻を表示す』（代表作業者）　ページの最後に飛ぶ

『チェックボックスにチェックを入れた時刻を表示するには』（代表作業者）

Sub checkbox_click()
'

 Windows("工程A.xlsm:1").Activate・・・・・・?@

 Sheets("土木").Activate・・・・・・・・・・?A

'Worksheets("土木").acutivate

If checkbox92071.Value = True Then Range("ｃr14") = Date
End Sub

こんなものを作ってみましたが?@?Aを有効にするとインデックスが有効範囲にないと出Windows("工程A.xlsm:1").Activateが黄色になります。

?Aのみを有効にするとオブジェクトが必要となりIf checkbox92071.Value = True Then まで黄色になります。
正直言って今るぐるぐる回りです。
マクロは結構組んでいますがVBAは初めてです教えてください
よろしくお願いいたします

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

  Workbooks("工程A.xlsm").Activate
 では？
（seiya） 2014/07/28(月) 08:40

 チェックボックスと日付を入れたいセルが同じなら、ブックやシートの選択は不要だと
 思いますし、別シートだとチェックボックスとセルにそれぞれ修飾が必要だと思いますが、
 別シートなのでしょうか。
 まずそのあたりの説明が必要だと思います。

 とりあえず同一シートで、表示したいのが「時刻」だとすると
 If checkbox92071.Value = True Then Range("CR14") = Now
 でよいと思います。

 時刻の書式はあらかじめ設定ください。
（Mook） 2014/07/28(月) 09:32

ありがとうございました
余計なものを書き足していたようで
If checkbox92071.Value = True Then Range("CR14") = Now
だけにしたところうまくいきましたがチェックを入れるとFALSEからTRUEにまではなるのですがNOW表示になりません。再度の教えを賜りたい。お願いします
（代表作業者） 2014/07/28(月) 15:08

 >NOW表示になりません。
 の意味がわかりませんが、やりたいことはチェックを入れたときに CR14 セルに現在時刻を
 出したいということではないのでしょうか。

 Now は 現在日時を取得する関数（時刻だけでよければ Time でも可）ですが、先にも書いた
 ようにCR14セルの書式を "h:mm:ss" 等、表示したい形式にあらかじめ設定しておいて
 ください。

 あるいは時刻を出したいのはセルではなくチェックボックスのキャプションなのでしょうか？
（Mook） 2014/07/28(月) 16:10

コメント返信：

[ 一覧(最新更新順) ]

[[20140728061923]] 『チェックボックスにチェックを入れた時刻を表示す』（代表作業者） ページの最後に飛ぶ

[[20140728061923]]　『チェックボックスにチェックを入れた時刻を表示す』（代表作業者）　ページの最後に飛ぶ