|
▼かみちゃん こんにちは。
Sub Sample()
Dim Ret As Integer
Ret = MsgBox(Range("A3").Value & "分の集金は、" & _
Range("C2").Value & Format(Range("C3").Value, "#,##0円 ") & _
Range("E2").Value & Format(Range("E3").Value, "#,##0円 ") & _
Range("G2").Value & Format(Range("G3").Value, "#,##0円 ") & vbCrLf & _
"この金額を修正しますか?", vbYesNo)
If Ret = vbYes Then
Sub Sample()
Dim Ret As Integer
Ret = MsgBox(Range("A3").Value & "分の集金は、" & _
Range("C2").Value & Format(Range("C3").Value, "#,###0円 ") & _
Range("C2").Value & Format(Range("C3").Value, "#,###0円 ") & _
Range("C2").Value & Format(Range("C3").Value, "#,###0円 ") & vbCrLf & _
"この金額を修正しますか?", vbYesNo)
If Ret = vbYes Then
Sheets("一覧表").Select
Columns("D:D").Select
Selection.ColumnWidth = 0
Columns("F:F").Select
Selection.ColumnWidth = 0
Columns("H:H").Select
Selection.ColumnWidth = 0
Range("D4").Activate
Else
Range("C3").Select
End If
End Sub
はいを選んだときエラーが出て400って表示されます。
どうすれば一覧表のシートのD4にアクティブセルを移動できますか。
|
|