希望通りの回答があったのですが、カスタマイズできません。

同じ質問・・・ということになるかもしれないのですが、この質問
http://oshiete1.goo.ne.jp/kotaeru.php3?q=116276
の回答の中の、ＶＢＡ文で、Ａ列に入力すると、Ｂ列に入力した時点の日付が自動的に入力されるというものなのですが、
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Sheet1" Then 'Sheet1を変更
If Target.Count = 1 Then 'A列を変更
If Target.Column = 1 Then '1つのセルを変更
Application.EnableEvents = False 'イベントの発生を止める
If Target <> "" Then 'A列で入力した場合
Target.Offset(0, 1) = Format(Now(), "yyyy/mm/dd h:mm")
Else 'A列で消去した場合
Target.Offset(0, 1) = ""
End If
Application.EnableEvents = True
End If
End If
End If
End Sub
すごく使いたいのですが、自分のシート用にカスタマイズすることができません。
ＶＢＥのヘルプや、書籍で調べたのですが、どうしてもうまくいかないので、
質問させてください。
この場合、Ａ列に入力するとＢ列に出るようになっているのですが、他の列で使いたい場合、どこをどう変えれば良いのでしょうか？
また、考え方（仕組み）として、どういう作業がされて自動的に出てくるようになっているのでしょうか？（これは勉強のために聞きたいのですが）
コメントがところどころに書いてもらっているのですが、勉強不足で申し訳ありませんが、すぐ使いたいＶＢＡなので、どうか教えてください。

No.2 ベストアンサー 回答者： ahsblue 回答日時： 2001/12/05 16:42

追加の質問にお答えします。

複数の条件のいずれかを満たす場合は「OR」で連結が可能です。
例の場合ですと、Ａ列、Ｃ列に値が入った時間を右隣のセルに入れるということを行う訳ですから、プログラムにすると、４行目が以下のように変わります。

If Target.Column = 1 or Target.Column = 3 Then

でよろしいかと思います。

この回答へのお礼

遅くなって申し訳ありません。
本当にありがとうございます！！！
できました！うれしいです。
そうか、Ａ列に入ったとき、または、Ｃ列に入ったとき・・・という風に考えるのですね～。教えていただくと単純ですが、自分で指示を考えるとなるとそういう風に思い浮かびません。何だか難しく考えてしまって・・・。

こんなこと、手入力すればいいことではないか！と思われるでしょうが、
いくつもの作業を同時に進めていますので、これで、現時点での数をメモを取るように入力するだけで、誰でも使える表ができました。
早速使えます。
本当にありがとうございました<(_ _)>

お礼日時：2001/12/06 09:18

No.1 回答者： ahsblue 回答日時： 2001/12/05 14:49

まずは、解説からです。

１行目：関数宣言部分で引数はシートオブジェクト、レンジオブジェクトです。
２行目：シート名が「Sheet1」である場合、次の処理を行う
３行目：現在選択している範囲が１列である場合、次の処理を行う。
※※※→質問のコメントは適切でないと思います。
４行目：選択している列がＡ列である場合、次の処理を行う
５行目：イベントの多発防止のおまじない。
６～７行目：選択セルに値が入っている場合、Ｂ列に日時設定
８～９行目：選択セルが空欄の場合、Ｂ列の日時を削除
１１行目：イベント多発防止のおまじない解除

という感じですね！
Ａ列の変更は、４行目を変更します。
Ａ＝１、Ｂ＝２、・・・Ｚ＝２６、ＡＡ＝２７という感じです。
Ｂ列は、Ａ列を起点にした場所を指定しています。
９行目がそれにあたりまして、offset（０，１）の部分です。
左に書いてる０の意味：行（縦方向）を表していまして、
１つ上の行＝－１
同じ行＝０
１つ下の行＝１

右に書いてる１の意味：列（横方向）を表していまして、
１つ左の列＝－１
同じ列＝０
１つ右の列＝１

という意味です。いかがでしょうか？

この回答への補足

早速の回答、ありがとうございます！！
解説どおり、他の列で試してみたところ、うまくいきました！
私はどうも、見当違いの場所を変更していました。
このように解説していただくと、難解な作業をしているわけでもなく、こんなに便利になるんですねー。
ＶＢＡ、がんばって勉強しようという気持ちがさらに強まりました。
丁寧な解説をいただいたのにさらに・・・というのは言いづらいのですが、もしよろしければ、これを同じシートで２つの部分で使うには、どこを変えればよいのか教えていただけないでしょうか？というのは、
私が作っているシートでは、開始時刻と、終了時刻という項目があり、その両方でできれば使いたいのです。（これはＡから始まるとしますが）
　開始時刻　　　　終了時刻
Ａ列　　Ｂ列　　Ｃ列　　Ｄ列
数　　　時刻　　　数　　時刻　　←項目名
50　　11：00　　100　　12；00
このように、Ａ列に計測開始時刻の時点での数量を入れると、Ｂ列にその時刻が自動的に入り、計測終了時刻の時点での数をＣ列に入れると、その時刻が自動的にＤ列に入るというものを作りたいのです。
これは無理でしょうか？こうしたい場合、まったく別のマクロになってしまうのでしょうか？
すみません！！どうかお願いいたします。

補足日時：2001/12/05 16:04