| |
以前にこちらでお世話になったのですが、再度教えていただきたく投稿させていただきました。よろしくお願い致します。
一ヵ月分を各シートに入力しているのですが、月末（３０日・３１日）のみマクロが起動しないので、起動させるようにしたいのです。
各シートには１日〜３１日まで入力できるようになっていますが、入力日は翌日に入力するので、月末の入力は翌月の１日に入力になります。
Workbookには、下記のように入力しています。
rivate Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Range("B34").Value = 2 Then
UserForm1.Show
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Target.Column
Case 5, 6, 14
Target.Offset(0, 1).Select
Case 15
Target.Offset(0, 17 - 15).Select
Case 7
If Sh.Range("B34").Value = 4 Then
Target.Offset(0, 7).Select
Target.Range("F1,H1").Select
Target.Range("H1").Activate
ElseIf Sh.Range("B34").Value = 5 Then
Target.Offset(0, 7).Select
Target.Range("F1").Select
Target.Range("K1").Activate
End If
End Select
End Sub
UserForm1の所には、Formに入力するとシートに入力されるようになっています。
Private Sub 稼動1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
総稼動玉数合計.Text = Val(稼動2.Text) + Val(稼動1.Text)
End Sub
Private Sub 稼動2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
総稼動玉数合計.Text = Val(稼動1.Text) + Val(稼動2.Text)
End Sub
Private Sub 差玉1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
差玉合計.Text = Val(差玉2.Text) + Val(差玉1.Text)
End Sub
Private Sub 差玉2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
差玉合計.Text = Val(差玉1.Text) + Val(差玉2.Text)
End Sub
Private Sub 売上1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
総売上合計.Text = Val(売上2.Text) + Val(売上1.Text)
End Sub
Private Sub 売上2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
総売上合計.Text = Val(売上1.Text) + Val(売上2.Text)
End Sub
Private Sub 決定_Click()
Range("e" & Day(Date) - 0).Value = 総稼動玉数合計.Value
Range("f" & Day(Date) - 0).Value = 差玉合計.Value
Range("g" & Day(Date) - 0).Value = 総売上合計.Value
Unload Me
End Sub
宜しくお願い致します。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
