|
>2名が同時にSHEET2のA2に入力
通常、人が手でする操作を、PCが"同時"と解釈することはありません。
コンマ以下何桁までも一致しているかどうか・・という次元の問題に
なるからです。なので
>バッティングすると思った
のは杞憂ですが、そんなことを考えなかったとしても、ブックを共有する
のは止めておいた方が無難なようです。いろいろとバグが報告されてますので。
で、誰かが書いているように、ログファイルを残すのも一つの手でしょう。
その場合、マクロは CommandButton1_Click イベント一つにまとめて
しまうことが出来ます。コードは・・
Private Sub CommandButton1_Click()
Dim MyF As String, Buf As String
With TextBox4
If .Text = "" Then Exit Sub
Sheets("Sheet2").Range("A65536").End(xlUp) _
.Offset(1).Value = .Text
Buf = Format(Time, "hh:mm:ss") & " ; " & .Text
.Text = ""
End With
MyF = Application.DefaultFilePath & _
"\Log_" & Format(Date, "yymmdd") & ".txt"
Open MyF For Append Access Write As #1
Print #1, Buf
Close #1
End Sub
ぐらいで、よいと思います。
|
|