Excelの時刻表示について

質問

Excelでの時刻表示の質問です。
セルに何かを入力した時（名前など）に他のセルにその入力した時刻を自動的に
表示させたいのですが、そんな事ってできるのでしょうか？
よろしくお願いします。

回答No.4

take_777 · ベストアンサー

すみません。
多分うまくいかなかったのは、コピーして使われたときに、コードの空白部分が全角スペースになっていたからだと思います。全角スペースを消すか、半角スペースに直してもらえれば大丈夫だと思います。

OK-WEBでは半角スペースが消されてしまうので、全角スペースを入れてしまったのですが、それが問題だったみたいですね・・・お手間を取らせてしまい申し訳ありません。

回答No.3

imogasi

VBEの利用の仕方を説明せよとのことですので記します。
（１）エクセルのショートカット・アイコンをクリック（私の場合）する。
（２）Book1のSheet1のシートが出る。
（３）メニューバーのツール－マクロ－ＶｉｓｕａｌＢ 　ａｓｉｃＥｄｉｔｏｒを順にクリックする。
（４）VBEのウインドウが現われる。左側のVBAProjeｃｔ（Book1)のSheet1をダブルクリックする。
（５）右側の上の「General」の▼をクリックする。
（６）「Worksheet」が現われるからそれをクリックする。
（７）Private　Sub　・・・・とSub　Endの間にOK-WEBの解答者のコーディング部分をコピーし貼りつける。
（８）メニュバーの「実行」－「デザインモードの終了」をチェック。
（９）「Ｓｕｂ／ユーザーフォームの実行」をクリックする。
（１０）×でVBEのウインドウを閉じる。
（１１）×でエクセルを閉じる。その時適当な名前をつける。
(注）（１）（２）は本番では、質問の機能を持たせたいシ　　　ートを開き（３）から（１１）までを行う。その時　　　もう一度（７）は繰り返すこと。
　　（２）、（４）のブック名・シート名は勿論自分で設　　　定した名前で出る。（７）はたまたまイベントとし　　　てWorksheet_SelectionChangeでもよさそうとして　　　使いましたが、本当は（５）の右側の▼をクリック
　　して、適当なイベントをクリックして使います。　
　　この機能を止めるときは、上記VBE画面のコーディング　　の最初に「’」を全行に入れて、コメント化すれば良　　い。
　　ＯＫ－ＷＥＢよりコピーするとき、改行が無理に行わ　　れていることがあるので、注意すること。
（訂正）（１）A列でもIf ActiveCell.Column = 1 Then とすれば出来ま　　した。
　　（２）Worksheet_SelectionChangeのイベントより
　　　Private Sub Worksheet_Change(ByVal Target As Range)
　　　　　 If ActiveCell.Column = 1 Then '（注）
　　　 ActiveCell.Offset(-1, 1).Value = Time()
　　　 End If
　　　End Subの方が、マウスのクリックに反応はせず、データ入力
　　　（エンタ）にだけ反応するので良いでしょう。

お礼

入力方法をわかりやすく説明してくださってありがとうございます。
すごく分かりやすかったです。

回答No.2

take_777

補足説明として、前の方とは少しだけ違ったコードを書いてみました。このコードでは、"A1"のセルに何かを入力したときのみ、その右隣のセルに日付と時刻が表示されるようにしています。

ちょっと解説すると、
1. SelectionChangeがカーソルの移動にも反応するのに対し、Changeは入力の結果セルの内容が変化したものに反応します。
2. ActiveCellがカーソルのあるセルに対応するのに対し、Targetは入力の行われたセルに対応します。
3. Time()は時刻だけのデータに対し、Now()は前述の通り日付と時刻を合わせたデータです。
4. ActiveCell.Offset(-1, 1)が、カーソルのあるセルから下に-1、右に1移動したセルという指定なのに対し、ActiveSheet.Cells(1, 1)は、現在使っているシートの上から1番目、左から1番目、つまり"A1"のセルを指定します。
ちなみに、例えばTarget = ActiveSheet.Cells(1, 1)をTarget.Column = 1と変えれば、A列の変更に反応するようになります。

ただ、前の方にしても私のものにしても、このままだとエラーが出る可能性がありますので、仕様をもう少し具体的にして頂ければとは思いますが、実際に両方を使ってみて、コードの意味をご確認されると共に、ご自分の意図に合わせて調整して頂ければと思います。

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target = ActiveSheet.Cells(1, 1) And Target.Value <> "" Then
　　　　Target.Offset(0, 1).Value = Now()
　　End If
End Sub

それと、これもExcel VBAを使っていますが、Excelでツール＞マクロ＞Visual Basic Editorを選択し、Visual Basic Editorを開いて、今開いているシートの名前をダブルクリックすれば入力画面になります。

回答No.1

imogasi

VBAで実質３行の簡単なコーディングをして見ました。
但しA列に入力するとB列には出ない。Offset(-1,1)の
－１があるためらしい。B列より右列にデータをいれること。
C列ならIf文を＝３、D列なら＝４と変えて下さい。（注）
また改行のあと、下行へ移動するモードの時に限リます。
Msgbox　の行は途中確認のため入れたもので不要。
またVBAとは別にCｔｒｌキーを押しながら、＊キーを
押すと時刻がそのセルにセットされますが、この応用は
出来ないでしょうか。日付はCtrl+「＋」キー。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' MsgBox "aa"
' MsgBox Time()
' MsgBox ActiveCell.Column
　　If ActiveCell.Column = 2 Then　'（注）
　　　ActiveCell.Offset(-1, 1).Value = Time()
　　End If
End Sub

お礼

ほぼワープロがわりにExcelを使っている初心者なので、
すみませんがコードの入力方法を教えていただけないでしょうか？
VBAProjectのSheet1のところに入力したんですが（あってますか？）
どうもうまく行きませんでした。
また入力後に何かする事はあるのでしょうか？（保存など）
Ctrl+「＋」キーで時刻がでるなんて初めて知りました。
使わせて頂きます。
すみませんがよろしくお願いいたします。