Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9637 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【26062】入力された日付を保持したい。 abebe 05/6/22(水) 18:17 質問[未読]
【26066】Re:入力された日付を保持したい。 ichinose 05/6/22(水) 18:44 発言[未読]
【26068】Re:入力された日付を保持したい。 りん 05/6/22(水) 18:53 発言[未読]
【26074】Re:入力された日付を保持したい。 ぴかる 05/6/22(水) 20:16 発言[未読]
【26263】Re:入力された日付を保持したい。 abebe 05/6/29(水) 21:20 質問[未読]
【26267】Re:入力された日付を保持したい。 ichinose 05/6/29(水) 23:18 発言[未読]
【26062】入力された日付を保持したい。
質問  abebe  - 05/6/22(水) 18:17 -
引用なし
パスワード
   現在、セルAになにかしら入力があると隣のセルに入力された時刻を入れるような
物を作っています。

自分で作ってみたところ、TODAYの関数を使うのでどうしても日付が変わった後に
エクセルを開くと当然開いた時刻の表示に変わってしまいます。

いつ入力が行われたかを記録したいのですがどのように組めばよろしいでしょうか。
TODAYで引っ張った値を固定/保存できるような組方はできますか？

申し訳ございませんが宜しくお願い致します。
【26066】Re:入力された日付を保持したい。
発言  ichinose  - 05/6/22(水) 18:44 -
引用なし
パスワード
   ▼abebe さん：
こんばんは。

>現在、セルAになにかしら入力があると隣のセルに入力された時刻を入れるような
>物を作っています。
>
>自分で作ってみたところ、TODAYの関数を使うのでどうしても日付が変わった後に
>エクセルを開くと当然開いた時刻の表示に変わってしまいます。
>
>いつ入力が行われたかを記録したいのですがどのように組めばよろしいでしょうか。
>TODAYで引っ張った値を固定/保存できるような組方はできますか？
>
>申し訳ございませんが宜しくお願い致します。
例えば、セルＡ１に対してToday()関数を入力していたとすると、

range("a1").value=[today()]

これで関数ではなく、日付の値が入ります。

但し、このセルＡ１の書式は予め日付に設定しておいて下さい。
【26068】Re:入力された日付を保持したい。
発言  りん E-MAIL  - 05/6/22(水) 18:53 -
引用なし
パスワード
   ichinose さん、abebe さん、こんばんわ。

>range("a1").value=[today()]
>これで関数ではなく、日付の値が入ります。
>但し、このセルＡ１の書式は予め日付に設定しておいて下さい。
 VB(A)のDate関数でもいいですね。
　 Range("A1").Value = Date
【26074】Re:入力された日付を保持したい。
発言  ぴかる  - 05/6/22(水) 20:16 -
引用なし
パスワード
   abebeさん、こんばんは。

ichinoseさん、りんさん、毎度でございます。
りんさんがこちらにも復活されてうれしゅうございます。

もしかしてこんな感じかなと思って作ってみました。
Ａ１〜Ａ１０セルの内容が変わると、その隣のセルに現在日付・時刻が表示されます。
いかがなもんでしょ？　的外れやったら、スンマセンです。

Private Sub Worksheet_Change(ByVal Target As Range)

　　With Target
　　　　If .Column = 1 And .Row >= 1 And .Row <= 10 Then
　　　　　　Cells(.Row, .Column + 1).Value = Now
　　　　End If
　　End With
　　
End Sub
【26263】Re:入力された日付を保持したい。
質問  abebe  - 05/6/29(水) 21:20 -
引用なし
パスワード
   返事が遅くなって申し訳ございません。

>range("a1").value=[today()]
>これで関数ではなく、日付の値が入ります。
>但し、このセルＡ１の書式は予め日付に設定しておいて下さい。

早速使ってみたんですが「入力した数式にはエラーがあります」と
表示され動いてくれません。
すみませんがどこにどのように使えばいいか教えていただけますか？
【26267】Re:入力された日付を保持したい。
発言  ichinose  - 05/6/29(水) 23:18 -
引用なし
パスワード
   ▼abebe さん：
こんばんは。

>返事が遅くなって申し訳ございません。
>
>>range("a1").value=[today()]
>>これで関数ではなく、日付の値が入ります。
>>但し、このセルＡ１の書式は予め日付に設定しておいて下さい。
>
>早速使ってみたんですが「入力した数式にはエラーがあります」と
ひょっとして、セルに数式を入力するように

「=range("a1").value=[today()]」なんて

入力していますか？
これは、VBAのコードなので、セルに入力する数式とは
違います。

セルに入力するような簡単な方法で本日の日付を入力させるなら、

・例えば、セルＡ１を選択して下さい。
・この状態で「Ctrl+;」キーを押して下さい。
（Ctrlキーを押しながら、";"キーを押します）

これで、日付がデータとして入力されます。

これを試してみて下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9637 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free