ここから本文です

エクセルでA1セルに何かの文字列が入力されたら、そのタイムスタンプがB1に自動的...

このエントリーをはてなブックマークに追加

質問者

buffaloskinnersonstageさん

2008/3/616:23:11

エクセルでA1セルに何かの文字列が入力されたら、そのタイムスタンプがB1に自動的に入力されるようにする方法はないでしょうか? 宜しくお願いします。

閲覧数:
4,554
回答数:
2
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

bigstorm1969さん

2008/3/616:40:56

マクロで宜しければ。

1.「ツール」⇒「マクロ」⇒「Visual Basic Editor」を開く

2.「挿入」「標準モジュール」を追加し、下記変数を宣言
Public var As Variant
Public var2 As Variant

3.ワークブックモジュールに下記を貼り付け
Private Sub Workbook_Open()

var = ActiveWindow.RangeSelection.Address
var2 = ActiveWindow.RangeSelection.Row

End Sub

4.ワークシートモジュールに下記を貼り付け
Private Sub Worksheet_Activate()

var = ActiveWindow.RangeSelection.Address
var2 = ActiveWindow.RangeSelection.Row

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range(var).Column = 1 And Range(var).Value <> "" Then
Range("B" & var2).Value = Now()
Else
Range("B" & var2).Value = ""
End If

var = Target.Address
var2 = Target.Row

End Sub

以上です。

質問した人からのコメント

2008/3/13 09:05:42

ありがとうございました。大変助かりました。

質問時にマクロ可と明記しておくべきでした。

ちょい足しを取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル
  • このエントリーをはてなブックマークに追加
ベストアンサー以外の回答
1〜1件/1件中

グレード

カテゴリマスター

allsun3sanさん

2008/3/618:12:45

簡単にB1に
=NOW()
と入力しておき
A1入力後 B1で右クリック→コピー→右クリック→形式を選択して貼り付け→値 →Ok
または何秒かずれていいのなら A1確定後B1で
CTRLを押したまま ; を押し : を押すと今日の日にち、:を押した時刻が・・・2008/3/618:15のの様に入力されます

NOW関数では
セルに新規入力・セルの編集でその度に更新しますので・・・

これを自動化はマクロしかありません。

ちょい足しを取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

ID/ニックネームを選択し、「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問や知恵ノートは選択されたID/ニックネームのMy知恵袋で確認できます。

ほかのID/ニックネームで利用登録する