Ｐａｇｅ 14 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼計算結果に数式を残すには？ いぬだわん 02/8/29(木) 13:44 ┗Re:計算結果に数式を残すには？ りん 02/8/29(木) 14:01 ┗Re:計算結果に数式を残すには？ いぬだわん 02/8/29(木) 20:12 ─────────────────────────────────────── ■題名 ： 計算結果に数式を残すには？ ■名前 ： いぬだわん ■日付 ： 02/8/29(木) 13:44 -------------------------------------------------------------------------
| こんにちは。 質問です。 A列に 12 10 35 46 25 という数字があるとします。 その横のB列に intT*5 の計算結果を式と共に入力します。 このintTは TextBox1に任意の数値を入れて算出したもので、 TextBox1に入力された数値をtxtAとし、intTを求める式を Dim intA as Integer intA=CInt(TextBox1.value) intT=intA-2 とします。 Dim intT As Integer Cells("B1").Activate For i = 1 To 5 ActiveCell.Formula = "=+((RC[-1])*5+ intT)" ' ActiveCell.Offset(1, 0).Activate Next i 上記の記述をしてマクロを実行したところ、 B列の計算結果が #NAME? となります。 Activecell.Formula を Activecell.Value にしたところ、B列には計算結果のみ入力されて、式は入力されません。 intT のところを数値として入力し、 計算結果を式と共に入力するにはどうしたらいいのでしょうか。 教えていただれればありがたいです。 よろしくお願いいたします。 |
| いぬだわんさん、こんにちわ。 >ActiveCell.Formula = "=+((RC[-1])*5+ intT)" ' intTが意味不明な文字列として扱われています。 ＆で文字列連結しました。 Sub test() Dim intA As Integer Dim intT As Integer intA = CInt(TextBox1.Value) intT = intA - 2 For i = 1 To 5 Cells(i, 2).Formula = "=+((RC[-1])*5+" & intT & ")" Next i End Sub こんな感じです。 |
| りんさん、こんばんは。 わかりました。 ありがとうございました。 「ごはんがすすむくん」の 「そーだったのねぇぇぇぇぇぇ?！！」 状態です。 ホント助かりました。 |