|
下記のようにユーザフォームでのイベントで
Private Sub CommandButton1_Click()
Dim sh As Worksheet
On Error Resume Next
Set sh = Worksheets(ListBox1.Text)
On Error GoTo 0
'ないとき
If sh Is Nothing Then
Worksheets("元帳").Copy After:=Worksheets(Worksheets.Count)
Set sh = ActiveSheet
sh.Name = ListBox1.Text
sh.Cells(2, 2).Value = "前期繰越"
sh.Cells(2, 5).Value = TextBox1.Value
sh.Cells(2, 7).Value = TextBox2.Value
'あるときは数値をクリアして転記
Else
'文字数値のみクリア
On Error Resume Next
sh.Range("A2:G200").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
sh.Range("B2").Select
With sh.Cells(2, 2).Value = "前期繰越"
sh.Cells(2, 5).Value = TextBox1.Value
sh.Cells(2, 7).Value = TextBox2.Value
End With
On Error GoTo 0
'クリアここまで
.
.
.
と後へ続くのですが、
上記のクリアの際、shのシートもクリアされ転記も出来ていますが、
ユーザーフォームが表示される(コマンドボタンを置いてある)
別シートのセルまでクリアされてしまいます。
どのように回避すればよいのでしょうか?
|
|