EXCEL VBA scenario

エクセル
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[エクセル][EXCEL VBA scenario]


[シナリオ1]という名前のシナリオ設定追加、変化させるセル設定 "A1,C1"変化させるセルの値を"シナリオA", "シナリオB"に設定、コメント設定に"作成者 : www.jp-ia.com 日付 : 2002 6 2 シナリオ設定"、変更不可設定、表示する設定
ActiveSheet.Scenarios.Add Name:="シナリオ1", ChangingCells:=Range("A1,C1"), _
Values:=Array("シナリオA", "シナリオB"), Comment:= _
"作成者 : www.jp-ia.com 日付 : 2002 6 2" & Chr(10) & "シナリオ設定", Locked:=True, Hidden:=False

[シナリオ2]という名前のシナリオ設定追加、変化させるセル設定 "A2,C2"変化させるセルの値を"シナリオC", "シナリオD"に設定、コメント設定に"作成者 : www.jp-ia.com 日付 : 2002 6 2 シナリオ2追加"、変更可設定、表示する設定
ActiveSheet.Scenarios.Add Name:="シナリオ2", ChangingCells:=Range("A2,C2"), _
Values:=Array("シナリオC", "シナリオD"), Comment:= _
"作成者 : www.jp-ia.com 日付 : 2002 6 2" & Chr(10) & "シナリオ2追加", Locked:=False, Hidden:=False
[シナリオ2]という名前のシナリオ表示
ActiveSheet.Scenarios("シナリオ2").Show

[シナリオ2]という名前のシナリオ削除
ActiveSheet.Scenarios("シナリオ2").Delete

[シナリオ1]という名前のシナリオ編集
ActiveSheet.Scenarios("シナリオ1").ChangeScenario ChangingCells:=Range("A1,C1"), _
Values:=Array("シナリオA", "シナリオB")

With ActiveSheet.Scenarios("シナリオ1")
  .Name = "シナリオ1"
  .Comment = _
  "作成者 : www.jp-ia.com 日付 : 2002 6 2" & Chr(10) & "シナリオ設定" & Chr(10) &  _
  "修正者 : www.jp-ia.com 日付 : 2002 6 3"
  .Locked = True
  .Hidden = False
End With

[シナリオ情報]レポートの種類-シナリオの情報-結果を出力するセル"D5"に設定
ActiveSheet.Scenarios.CreateSummary ReportType:=xlStandardSummary, ResultCells:=Range("D5")





Production Japan Import Application. Since 1998