| |
次のようなVBAを書きました。
TextBox4に入れた文字が CommandButton1をクリックするとSheet2の２行目以下に書かれます。
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そのものではなくて、変更履歴の記録についてです。
「ﾂｰﾙ」「変更履歴の記録」「変更箇所の表示」を押すとボックスがでて、
編集中に変更箇所を記録する（ﾌﾞｯｸを共有する） にチェックを入れるようになっています。私は、ﾌﾞｯｸ共有にしてまうと（たとえば）２名が同時にSHEET２のA２に入力しようとするとバッティングすると思ったので、ﾌﾞｯｸの共有にはしていません。変更履歴の記録は、ﾌﾞｯｸを共有にしないとできないのでしょうか？
どなたか詳しい方、御教えください。
|
|
にしもり
- 06/9/6(水) 13:49 -
