Sub formulate()
'
' formulate Macro
' Macro recorded 10/5/00 by University of Georgia
'
' Keyboard Shortcut: Ctrl+f
'
SetCell:="$M$30", MaxMinVal:=2, ValueOf:="0", ByChange:="$D$4:$D$28"
SolverSolve
Sheets("Sensitivity Report 10").Select
ActiveCell.Offset(8, 6).Range("A1:A13").Select
Selection.Copy
Sheets("Formulate").Select
ActiveWindow.SmallScroll Down:=-7
ActiveCell.Offset(-16, -7).Range("A1").Select
ActiveSheet.Paste
Sheets("Sensitivity Report 10").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
End Sub
'
' formulate Macro
' Macro recorded 10/5/00 by University of Georgia
'
' Keyboard Shortcut: Ctrl+f
'
SetCell:="$M$30", MaxMinVal:=2, ValueOf:="0", ByChange:="$D$4:$D$28"
SolverSolve
Sheets("Sensitivity Report 10").Select
ActiveCell.Offset(8, 6).Range("A1:A13").Select
Selection.Copy
Sheets("Formulate").Select
ActiveWindow.SmallScroll Down:=-7
ActiveCell.Offset(-16, -7).Range("A1").Select
ActiveSheet.Paste
Sheets("Sensitivity Report 10").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
End Sub
کامنت