Makimakichokoのプロフィール

@Makimakichoko Makimakichoko
ありがとう数0
質問数0
回答数3
ベストアンサー数
0
ベストアンサー率
0%
お礼率
0%

  • 登録日2011/01/30
  • EXCEL2003 マクロ 特定の条件下での罫線

    会計ソフトから落とした財務データを体裁のよい、ひな型へ変換するマクロを作成しています。 2シート構成で、シート"DB"に会計ソフトからの生のデータを読み込み、シート"財務諸表"に"DB"データを編集加工して形成させる仕様です。 データ読込やある程度の書式まではできていますが、罫線については現在は「(とある)セルの下に実線」となっており、読込元で勘定科目が増減した場合などは罫線位置がずれてしまうお粗末な内容です。 ただし、シート"DB"には罫線区分というデータを持っており、罫線なしの科目なら”0”、罫線ありなら"1"という色があるので、シート"DB"上で罫線区分="1"の科目の下にのみ、シート"財務諸表"上で実線を引くような仕様が理想です。 (何もしなくでもこの罫線区分はダウンロードされ、会計ソフト側でマスタ管理しています) これを実現する為のコードをどなたご教示いただけますでしょうか?

  • エクセルマクロでの計算について(2007)

    エクセルマクロ初心者です。 試行錯誤しながら作成しています。 セルB1には直接計算式を入れており(=(480+(A1)*10)/480*I1) その結果次第(70以下)でセルC1に計算結果(=(75-B1)*.48)をいれて 70より大きければセルC1に"-"を入れたいのですが上手く計算してくれません。 この処理を約65個のセルにしようと思っています。(セルの列はバラバラです) どうすればよいかご教示ください。 ちなみに現在作成している文は Private Sub 計算_Click() Worksheets("sheet2").Select If Range("B1").Value <= 70 Then Range("C1").Formula = "=(75 - (B1)) * 0.48" Else: Range("C1").Value = "-" End If End Sub よろしくお願いいたします。

  • エクセルマクロでの計算について(2007)

    エクセルマクロ初心者です。 試行錯誤しながら作成しています。 セルB1には直接計算式を入れており(=(480+(A1)*10)/480*I1) その結果次第(70以下)でセルC1に計算結果(=(75-B1)*.48)をいれて 70より大きければセルC1に"-"を入れたいのですが上手く計算してくれません。 この処理を約65個のセルにしようと思っています。(セルの列はバラバラです) どうすればよいかご教示ください。 ちなみに現在作成している文は Private Sub 計算_Click() Worksheets("sheet2").Select If Range("B1").Value <= 70 Then Range("C1").Formula = "=(75 - (B1)) * 0.48" Else: Range("C1").Value = "-" End If End Sub よろしくお願いいたします。