Excel VBA質問箱 IV

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

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


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

【11452】ただの割り算なのに・・・。 みさっぴ 04/3/9(火) 14:48 質問
【11455】Re:ただの割り算なのに・・・。 IROC 04/3/9(火) 15:04 回答
【11457】Re:ただの割り算なのに・・・。 こうちゃん 04/3/9(火) 15:27 回答
【11459】Re:ただの割り算なのに・・・。 ichinose 04/3/9(火) 15:34 発言
【11510】Re:ただの割り算なのに・・・。 みさっぴ 04/3/10(水) 16:36 お礼
【11458】Re:ただの割り算なのに・・・。 ichinose 04/3/9(火) 15:29 回答

【11452】ただの割り算なのに・・・。
質問  みさっぴ  - 04/3/9(火) 14:48 -

引用なし
パスワード
   ご無沙汰しております。
また初歩的な質問にお付き合いください。

  A  B  C 
1 345 675 
2   534
3   233
4   876
5   654

上のようなエクセルの表があります。
C列には、B列のものを全てセルA1の数値(345)で割ったものを
入れたいと思っています。

p = Range("A1")
  Range("C2").Select
  ActiveCell.FormulaR1C1 = "=(RC[-1]/p)"

そこで、上のような式を書いてみたのですが、
一番上の式ではp=345となるのに、
最後の式ではどうしてもpはpのまま式にのこり、
345という数値になってくれません。
結果、エクセルはNAME!の羅列になってしまいます。

ちょっとしたものを忘れているだけだとは思いますが、
どうか教えてください。

【11455】Re:ただの割り算なのに・・・。
回答  IROC  - 04/3/9(火) 15:04 -

引用なし
パスワード
   セルに数式を書くなら
Sub Sample()
 Range("C1").Formula = "=B1/A1"
End Sub


VBAで計算するなら
Sub Sample()
 Range("C1").Value = Range("B1").Value / Range("A1").Value
End Sub




【11457】Re:ただの割り算なのに・・・。
回答  こうちゃん E-MAIL  - 04/3/9(火) 15:27 -

引用なし
パスワード
   みさっぴさん、こんにちは

A1を固定値で、同じ計算式を設定したいのでしょうか?

変数を使うならこんな感じ・・

  p = Range("A1")
  Range("C2").FormulaR1C1 = "=(RC[-1]/" & p & ")"

で、A1をRC形式で絶対参照するならこんな感じ・・

  Range("C2").FormulaR1C1 = "=(RC[-1]/R1C1)"

【11458】Re:ただの割り算なのに・・・。
回答  ichinose  - 04/3/9(火) 15:29 -

引用なし
パスワード
   みさっぴ さん、IROCさん、こんにちは。

>ご無沙汰しております。
>また初歩的な質問にお付き合いください。
>
>  A  B  C 
>1 345 675 
>2   534
>3   233
>4   876
>5   654
>
>上のようなエクセルの表があります。
>C列には、B列のものを全てセルA1の数値(345)で割ったものを
>入れたいと思っています。
>
> p = Range("A1")
>  Range("C2").Select
>  ActiveCell.FormulaR1C1 = "=(RC[-1]/p)"
""で囲んでしまうとpは、文字列のpになってしまい、345ではありません。
ActiveCell.FormulaR1C1 = "=(RC[-1]/" & p & ")"
としてみたらどうでしょうか?
もっとも、ご提示された例の場合なら、

Sub sample2()
  Range("c1:c5").Formula = "=b1/$a$1"
End Sub

なんて方法もありますが・・・・。

確認してみて下さい。

【11459】Re:ただの割り算なのに・・・。
発言  ichinose  - 04/3/9(火) 15:34 -

引用なし
パスワード
   ▼こうちゃん さん、こんにちは。
かぶりましたね。
失礼しました

【11510】Re:ただの割り算なのに・・・。
お礼  みさっぴ  - 04/3/10(水) 16:36 -

引用なし
パスワード
   なるほど!
数値で認識してもらうには&で囲めばいいのですね!
ありがとうございます。
助かりました!

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