Excel VBA質問箱 IV

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

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


39481 / 76732 ←次へ | 前へ→

【42361】Re:変更箇所を記録するには
回答  Kein  - 06/9/8(金) 2:16 -

引用なし
パスワード
   >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

ぐらいで、よいと思います。

0 hits

【42312】変更箇所を記録するには にしもり 06/9/6(水) 13:49 質問
【42318】Re:変更箇所を記録するには mw 06/9/6(水) 15:46 回答
【42319】Re:変更箇所を記録するには にしもり 06/9/6(水) 16:04 質問
【42353】Re:変更箇所を記録するには ハチ 06/9/7(木) 17:47 回答
【42361】Re:変更箇所を記録するには Kein 06/9/8(金) 2:16 回答
【42370】Re:変更箇所を記録するには にしもり 06/9/8(金) 13:26 質問
【42385】Re:変更箇所を記録するには ponpon 06/9/9(土) 0:24 発言
【42443】Re:変更箇所を記録するには にしもり 06/9/12(火) 10:44 質問
【42445】Re:変更箇所を記録するには ハチ 06/9/12(火) 12:00 発言
【42452】Re:変更箇所を記録するには にしもり 06/9/12(火) 15:02 お礼

39481 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free