|
▼かみちゃん こんにちは。
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
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("D4").Select
Else
Range("C3").Select
End If
さっき添付したコードは、おかしいでした。
申し訳ございません
こんな感じで試してみました
やはりはいで答えたあとうまく一覧表のシートのD3に
移動できませんでした。
ご協力お願いします。
|
|