|
次のような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に入力しようとするとバッティングすると思ったので、ブックの共有にはしていません。変更履歴の記録は、ブックを共有にしないとできないのでしょうか?
どなたか詳しい方、御教えください。
|
|