Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11702 / 13646 ツリー ←次へ | 前へ→

【14643】関数をVBAで実行するには ウシロメタさ 04/6/3(木) 19:02 質問[未読]
【14647】Re:関数をVBAで実行するには ichinose 04/6/3(木) 20:00 回答[未読]
【14648】Re:関数をVBAで実行するには ウシロメタさ 04/6/3(木) 20:00 発言[未読]
【14649】Re:関数をVBAで実行するには ichinose 04/6/3(木) 20:08 発言[未読]
【14651】Re:関数をVBAで実行するには ウシロメタさ 04/6/3(木) 20:21 お礼[未読]

【14643】関数をVBAで実行するには
質問  ウシロメタさ  - 04/6/3(木) 19:02 -

引用なし
パスワード
   e1に税抜き金額
f1に消費税
g1に合計金額が入っています
現在セルに関数を入れていて
f1にRounddown(e1,0.05,0)
g1にg1=e1+f1 と入れています

あるコマンドでg1とf1のセルをdelしてしまうのですが
その後元どうりにg1 f1に計算式を入れたいのです
これはe1 f1 g1共固定セルではなく
アクティブなセル位置からみた相対位置で指定して実行したいのです
ActiveCell.Offset(0, 4).Value みたいに指定したいのです
アクティブなセルは必ずa列です

【14647】Re:関数をVBAで実行するには
回答  ichinose  - 04/6/3(木) 20:00 -

引用なし
パスワード
   ▼ウシロメタさ さん:
こんばんは。

>e1に税抜き金額
>f1に消費税
>g1に合計金額が入っています
>現在セルに関数を入れていて
>f1にRounddown(e1,0.05,0)
     ↑これ、Rounddown(e1*0.05,0) の意味ですよね?

>g1にg1=e1+f1 と入れています
>
>あるコマンドでg1とf1のセルをdelしてしまうのですが
>その後元どうりにg1 f1に計算式を入れたいのです
>これはe1 f1 g1共固定セルではなく
>アクティブなセル位置からみた相対位置で指定して実行したいのです
> ActiveCell.Offset(0, 4).Value みたいに指定したいのです
>アクティブなセルは必ずa列です
'=================================================
Sub test()
  With ActiveCell.Offset(, 5)
   .Formula = "=rounddown(rc[-1]*0.05,0)"
   .Offset(, 1).Formula = "=rc[-2]+rc[-1]"
   End With
End Sub

こんな意味ですか?
アクティブセルがA列の場合、同じ行の
F列にE列の値に対する消費税(5%)の値、
G列にF列+E列の値が入る数式が入ります。

【14648】Re:関数をVBAで実行するには
発言  ウシロメタさ  - 04/6/3(木) 20:00 -

引用なし
パスワード
   ▼自己レスですが、Round関数では問題なく
出来ましたがRoundDOWNではエラーになってしまうのです

ActiveCell.Offset(0, 8).Value = RoundDown(ActiveCell.Offset(0, 7).Value * 0.05, 0)

【14649】Re:関数をVBAで実行するには
発言  ichinose  - 04/6/3(木) 20:08 -

引用なし
パスワード
   ▼ウシロメタさ さん:
私、勘違いしていましたか?

>▼自己レスですが、Round関数では問題なく
>出来ましたがRoundDOWNではエラーになってしまうのです
>
↓こうしたいということですか?

ActiveCell.Offset(0, 8).Value = _
  worksheetfunction.RoundDown(ActiveCell.Offset(0, 7).Value * 0.05, 0)
として下さい。
尚、Round関数が成功したのは、VBAにもRoundという関数があるからです。
でも、意味がちょっと違いますよ!!ワークシート関数Roundとは・・・。

【14651】Re:関数をVBAで実行するには
お礼  ウシロメタさ  - 04/6/3(木) 20:21 -

引用なし
パスワード
   ▼ichinose さん
レスありがとうございます
出来ました!

投稿のタイミングがずれてワタシが2回目を投稿したときに
ichinose さんが回答をしてくださっていたようです

11702 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free