Új hozzászólás Aktív témák

• #24512 lumpy92 aktív tag

  Új Válasz 2014-12-06 12:51:17 #24512

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lumpy92

  aktív tag

  Egy cella tartalmát egy tartományon belül (60-100) szeretném változtatni, ebből számol a Solver, és a makró is ezt használja. A kérdésem az,hogy hogy lehetne a makróba beleírni ezt úgy,hogy ne kelljen rengetegszer bemásolnom az eredeti utasítást ,és abban a cella átírását manuálisan átpötyögni egyesével?

  Itt az első 2 eset látszik

  Range("F66").Select
  ActiveCell.FormulaR1C1 = "60"
  SolverOk SetCell:="$L$73", MaxMinVal:=2, ValueOf:=0, ByChange:="$E$41:$K$49", _
  Engine:=1, EngineDesc:="GRG Nonlinear"
  SolverOk SetCell:="$L$73", MaxMinVal:=2, ValueOf:=0, ByChange:="$E$41:$K$49", _
  Engine:=1, EngineDesc:="GRG Nonlinear"
  Application.DisplayAlerts = False
  Application.Run "SolverSolve", True
  Range("L73").Select
  Selection.Copy
  Sheets("B").Select
  ActiveWindow.SmallScroll Down:=-27
  Range("L4").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Sheets("A").Select
  Range("F66").Select
  Application.CutCopyMode = False
  ActiveCell.FormulaR1C1 = "61"
  SolverOk SetCell:="$L$73", MaxMinVal:=2, ValueOf:=0, ByChange:="$E$41:$K$49", _
  Engine:=1, EngineDesc:="GRG Nonlinear"
  SolverOk SetCell:="$L$73", MaxMinVal:=2, ValueOf:=0, ByChange:="$E$41:$K$49", _
  Engine:=1, EngineDesc:="GRG Nonlinear"
  Application.Run "SolverSolve", True
  Application.DisplayAlerts = False
  Range("L73").Select
  Selection.Copy
  Sheets("B").Select
  Range("L5").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Sheets("A").Select

  

  "never send to know for whom the bells tolls; it tolls for thee"

Új hozzászólás Aktív témák