|
かみちゃん こんにちは。
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
MsgBox ("D3に移動します")
Range("D3").Select
Sheets("一覧表").Select
Columns("D:D").Select
Selection.ColumnWidth = 8.38
Columns("F:F").Select
Selection.ColumnWidth = 8.38
Columns("G:G").Select
Selection.ColumnWidth = 8.38
Sheets("一覧表").Select
Range("D3").Select
Else
Range("C3").Select
End If
はいで答えたあとうまく[一覧表]のシートのD3に
移動しましたが出来ませんでした。
|
|