|
▼β さん:
>実際にCommandButton をクリックした時に処理しているコードを
>そのままコピペで貼り付けてアップされてはいかがでしょう。
新しいブックに下のコードで誤作動が起きるんですがβさんの環境では起きないということなんでしょうか?
ThisWorkbookに
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
UserForm1.Show
End Sub
UserForm1に
Private Sub CommandButton1_Click()
Sheet2に記入
End Sub
Module1に
Sub Sheet2に記入()
'
' Sheet2に記入 Macro
'
Application.ScreenUpdating = False
Unload UserForm1
Sheets("Sheet1").Select
ActiveWindow.NewWindow
Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical, ActiveWorkbook:=True
Sheets("Sheet2").Select
Range("B40").Select
Application.ScreenUpdating = True
End Sub
|
|