• 締切済み

Excelの自動にてセルに記述する作業について、

Excelの自動セル記述について、どうぞ宜しくお願いします。 新規作成後、１つのセル(A1)に数値(100)を入力後、セル(A2)に自動で数値(200(A1*2))で表示。その後も下セル(A3)にセル(A1)で入力した値(*2)を下へ次々に追記する式を教えて下さい。入力場所(A1)は変わりません。 下セルの数は決めず、下セルがNULL値かどうかの条件分岐(if文)も付けたと思います。 初歩的な質問ですが、処理の速い式を教えて下さい。

noname#100774
noname#100774

みんなの回答

  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.2

よくわかりませんが、Ａ1セルに打ち込んだ数字を2倍して下へ下へ入れていけばいいんですよね？ 当該シートのタブを右クリックし、出てきたワークシートモジュールに以下を転記してみてください。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Not IsNumeric(Target.Value) Then Exit Sub If Target.Offset(1).Value = "" Then Target.Offset(1).Value = Target.Value * 2 Else Target.End(xlDown).Offset(1).Value = Target.Value * 2 End If Target.Select End Sub

  • mu2011
  • ベストアンサー率38% (1910/4994)
回答No.1

>下セルがNULL値かどうかの条件分岐(if文)も付けたい この意味が不明ですが、次の数式をA2以降に必要分コピーして下さい。 =IF(ISNUMBER($A$1),$A$1*2,"")

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • Excel2002でセルへの数値代入

    使用しているのはExcel2002なんですが 関数などを使用して空白セルへ数値及び文字列を 代入することって可能でしょうか？ 例を挙げると、 セルA1に7という値を入力すると、 セルC1にある関数が「10-A1」という計算を行って セルB1に3という値を返すようにしたいのです。 また、セルB1に4という値を入力すると、 セルC1で計算を行い、セルA1には6が返る。 このようにセルA1、B1ともに、人の手で数値の 入力が行われる可能性があるので、表示部分のセルに 関数式を記述せず、空白としておく。 C1に入力する関数は IF(B1="",10-A1,10-B1) として、この結果を、またIFなどを使って 空白の方のセルに入力してあげればいいかなー というところまでは考え付いたのですが・・・ どなたか教えてください。

  • エクセルＶＢＡの記述について

    ＯＳはＷｉｎ９８、エクセル２０００です。 次の処理をＶＢＡで処理したいのですがうまく作動しま せん。 ご教授願います。 セルＡ１から下に向かって１から２０までランダムに数 値が入ってます。 同じ数値は無く、数値も３行（セルＡ３）で終わる場合 も有ります。 この場合セルＣ１から下に向かって順にＡ１＆Ａ２、Ａ １＆Ａ３と記述したいのですが・・・ 例） Ａ１に５、Ａ２に７、Ａ３に１５、Ａ４に１０でしたら Ｃ１に５７、Ｃ２に５１５、Ｃ３に５１０、Ｃ４に７１５ Ｃ５に７１０、以下・・・と記述 よろしくお願いします。m(_ _)m

  • Excel で計算式のコピーをしたいのだけど、一つのセルは固定して使いたい

    こんなことをしたいです。 セルＤ２＝数値 セルＡ３＝数値 セルＢ３＝計算式　＝if(D2>A3,"○","×") このあと、セルＡ３～Ａ１００まで数値が入ります。 セルＢ４～Ｂ１００まではＢ３の計算式コピーして、同様の比較をしたいのですが、セルＤ２の値をずっと使いたいです。 計算式のコピーでは自動的に行数を代えてくれるのは普段はありがたいのですが、今回はＤ２の部分は固定にしたいです。セルＢ３の計算式の記述で何とかなると思うのですがどのように変えたらよいか？是非教えてください。

  • EXCELで数値の同じセルの行を自動的に選択したい

    ある固定のセル（例えばＡ列１行目）に入力した値と同一値が入っているセル（Ａ列の？行）を検索し、その行すべての値を固定の行（例えば２行目）に自動的に入力する方法はありますか。 具体的に言うと、 前提条件として、行は日々増えていきます。 (1)セル（Ａ１）に「２００６／１１」と自分で入力すると、 (2)Ａ列内で「２００６／１１」を自動的に検索する。 (3)その結果セル（Ａ１５）に同一値が見つかったとする。 (4)１５行目の数値（列Ａ～列Ｇまで）を２行目に自動的にコピーする。 自分で入力するのは(1)だけです。 このようなことはどうすればできるのでしょうか。

  • エクセルのセルに記述した式をVBAで読込む方法

    エクセルのセルに 　ａ＊ｘ＾２＋ｂ＊ｘ＋ｃ　という式を埋め込んでおいて 　（式はａ，ｂ，ｃの数値は定数、ｘはマクロ側でいろいろな数値を指定されます。） ＶＢＡのマクロに 　ε＝ａ＊ｘ＾２＋ｂ＊ｘ＋ｃ のように式を埋め込む方法はないでしょうか。 例えば 　ｎ＝．．．． 　ｘ＝ｓｉｎ（ｎ＊３．１４／１８０） ε＝ａ＊ｘ＾２＋ｂ＊ｘ＋ｃ 　Ｒａｎｇｅ（”Ｄ２”）．ｖａｌｕｅ＝ε 　 この中段の行にエクセルのセルの式を呼び出したいのです。 この式はセルにはいろいろな２次式、３次式が任意に組み込まれ、ＶＢＡを実行するたびに埋め込まれた式に自動的に記述し直すようにしたいのです。 （数式の結果の数値を入れるのではなくて式を入れたいのです） 可能でしょうか。その場合どのようなコードが考えられるでしょうか。 よろしくお願いします。

  • Excelでセルの色づけを自動に行いたいです。

    Excelでセルの色づけを自動に行いたいです。 入力した数値と同じ数のセルに、自動で色をつける事は可能でしょうか？ 例えば、A1のセルに「5」と入力すると、隣のセルB1～F1までの5つのセルが 塗りつぶされるというようなことをしたいと思っています。 条件付書式、またはVBAで方法があれば教えて下さい。

  • Excel ３つの条件文を一つのセルにいれたい。。

    Excel、下述の ３つの条件文を一つのセルにいれたい。。です。 その一つのセルを仮にD2とします =IF(A2="","",A2*O2) =IF(B2="","",B2*O2) =IF(C2="","",C2*O2) A2に数値がはいっていなかったらD2は空白で、数値が入っていたらA2*O2の計算をする B2に数値がはいっていなかったらD2は空白で、数値が入っていたらB2*O2の計算をする C2に数値がはいっていなかったらD2は空白で、数値が入っていたらC2*O2の計算をする つまり、上述のIF文を一つにまとめたいのです。 頭が悪くてわかりません、誰か助けてください！！！！お願い致しますm(_ _)m

  • エクセルVBA記述方法についての質問です。

    初心者です。色々調べるとVBAを使わないと下記の処理はできないみたいで・・・ わかる方がいれば是非教えて頂きたいです。 今回、毎日入力している数値に対して作業日付（更新日時）を残したいのですが、 例えば、A列のセルに数値を入力すると、入力したセルの右側のセル（この場合Ｂ列）に 日付と時間が残るようにしたいです。 Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("a1") Then Target.Cells(1, 2).Value = Now() End If End Sub 自分でも色々調べてやってみましたが、上記の記述だと、Ａ１に入力すればＢ１に作業日時が残ります。 やりたいことはこれに限りなく近いのですが、対象入力範囲をＡ列にしたいです。 Ａ列のどのセルに数値を入力しても、入力したセルの右側（Ｂ列）に作業日時を残していきたいです。 どのように記述すれば良いのかわからないので是非アドバイスを下さい。 よろしくお願い致します。

  • EXCELで数値により自動で区分値を与える

    あるセルに、計算によって出力された数値があり、この値により、別の指定したセルに区分を表す数値を与える方法はあるでしょうか？ 具体的には、0～15未満は1、15～30未満は2、30～45未満は3、45～60未満は4、60以上は5を表すとして、計算によって出力されたセルAの値を判断して、セルBに1～5までの値を自動で入力する方法です。

  • Excelはセルの足し算ってできるんですか？

    ちょっと気になったので質問します。 セルA6に10 セルA10に20 セルE5に4 という数値がそれぞれ入力されていた場合 任意のセルXの数式欄に「=A6+E5」といった感じで セルA10の値(20)を表示したいのですが、Excelでこのような処理は不可能でしょうか？ 上記の式「=A6+E5」だと14になりますよね。 セルA6+4でセルA10にしたいんです。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する