Ｐａｇｅ 165 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼既にある数値のセルの中に計算結果を返すこ... いぬだわん 02/10/4(金) 17:42 ┗Re:既にある数値のセルの中に計算結果を返すこ... オシャ 02/10/4(金) 20:36 ┗Re:既にある数値のセルの中に計算結果を返すこ... いぬだわん 02/10/4(金) 21:11 ─────────────────────────────────────── ■題名 ： 既にある数値のセルの中に計算結果を返すこ... ■名前 ： いぬだわん ■日付 ： 02/10/4(金) 17:42 -------------------------------------------------------------------------
| こんにちは。 質問です。 既にある数値のセルの中の数字に計算式を入れて、 その結果を既にある数値のセルの中に計算結果を返すことは可能ですか？ （↑これだけではわかりませんね） 例えば Sheet1のA列に ５ ６ ７ ８ ９ という数字があるとして、 A列の数字に*100をして、 結果をA列のセルの中に入れるのですが。 以下のようにしてやってみたところ、 Sub Test() With Range("A1:A5") .FormulaR1C1 = "=RC*1000" .Value = .Value End With End Sub とやると、計算結果が0になります。 よろしくお願いいたします。 |
| > >Sub Test() >With Range("A1:A5") > .FormulaR1C1 = "=RC*1000" > .Value = .Value >End With >End Sub > >とやると、計算結果が0になります。 RCの中身が空なので、これでは全て 0になってしまうと思います。 こういうのではダメですか？ Sub Test() Dim i As Integer For i = 1 To 5 Cells(i, 1).Formula = Cells(i, 1).Value * 1000 Next End Sub |
| ▼オシャ さん： こんばんは。 早速のお返事ありがとうございました。 やってみたらうまくいきました。 単純なことだったんですね。 ありがとうございました。 |