Excel VBA質問箱 IV

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

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


39530 / 76732 ←次へ | 前へ→

【42312】変更箇所を記録するには
質問  にしもり  - 06/9/6(水) 13:49 -

引用なし
パスワード
   次のようなVBAを書きました。
TextBox4に入れた文字が CommandButton1をクリックするとSheet2の2行目以下に書かれます。

Private Sub CommandButton1_Click()

Dim MyRange As Range
Dim addrow As Integer

  Set MyRange = Sheet2.Range("A1").CurrentRegion
  addrow = MyRange.Rows.Count + 1
  MyProc (addrow)
  
End Sub
Public Sub MyProc(MyRowCount As Integer) 'データ書き込み の 行数

Dim MyRange As Range           'データ範囲
Dim cnt As Integer

  cnt = 1
  Worksheets("Sheet2").Activate
  Set MyRange = Sheet2.Range("A1").CurrentRegion
  MyRange.Cells(MyRowCount, cnt).Value = TextBox4.Value
  cnt = cnt + 1
  TextBox4.Value = ""

End Sub
Private Sub CommandButton2_Click()

  TextBox4.Value = ""

End Sub
Private Sub CommandButton3_Click()

  ThisWorkbook.Worksheets("Sheet1").Select
  ActiveWorkbook.Save
  ActiveWorkbook.Close

End Sub
Private Sub TextBox4_Change()

End Sub
Private Sub UserForm_Click()

End Sub

で、御聞きしたいのはVBAそのものではなくて、変更履歴の記録についてです。
「ツール」「変更履歴の記録」「変更箇所の表示」を押すとボックスがでて、
編集中に変更箇所を記録する(ブックを共有する) にチェックを入れるようになっています。私は、ブック共有にしてまうと(たとえば)2名が同時にSHEET2のA2に入力しようとするとバッティングすると思ったので、ブックの共有にはしていません。変更履歴の記録は、ブックを共有にしないとできないのでしょうか?
どなたか詳しい方、御教えください。

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 お礼

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