root8110のプロフィール
- ベストアンサー数
- 6
- ベストアンサー率
- 30%
- お礼率
- 46%
- 登録日2014/09/14
- 関数の計算結果を再度関数に組み込む方法は
例えばです。 A) セルA1に 「10」、 セルB1に「20」 、 セルC1 に 「30」 の各々の数字が入力されていて、セルD1にSUM関数を使って、合計した 数値を入力するものとします。 セルD1には、SUM関数計算結果として「60」という数字が表示される。 ここからが、質問のポイントなのですが、 B)セルE1にセルD1に表示された「60」の18倍した計算を自動計算した結果を表示することはでいないのでしょうか。 あまりうまく表現できないのですがアドバイスしていただきたい点お分かりいただけたでしょうか。 別の表現の仕方をしますと、 セルD1、SUm関数 セルA1+セルB1+セルC1のSum関数の計算結果表示 セルE1 セルD1×18 ※セルE1には、上記の「セルD1×18」の自動計算式を入力したいのですが、 首尾よく入力できません。 あまり要領よく質問できていないかもわかりませんが、よろしくお願いします。
- 締切済み
- SY777
- Excel(エクセル)
- 回答数7
- エクセル作成データーを自動で文字を返して反映
エクセルシートに作成したシートのデーターを、別シートに自動で反映させてたいと思っております。 該当する文字を入力するだけでマクロや関数を使用してその下にある数字を全てコピーする事はできますか。 添付シートを参照して頂ければと思いますが、シート1の元データーから、別シート2に文字を返して、その下にある文字が自動で反映できるような仕組みを構築したいと考えております。 添付は抜粋で元データーは400件以上ある為に、コピー&ペースト作業や=でsheet 1 から引っ張ってくるには時間がかなりかかっていて困っております。 そこで、品目だけ入力すればその下の数字が自動で反映出来ればと思っております。 トラックの搬入時間管理の為、タイムリーな処理が必要な為、お知恵をお借りできればと思いいます。 お忙しい所申し訳ありませんが、どなたかお力添えをよろしくお願いいたします。
- 締切済み
- oba7030
- Excel(エクセル)
- 回答数4
- エクセル作成データーを自動で文字を返して反映
エクセルシートに作成したシートのデーターを、別シートに自動で反映させてたいと思っております。 該当する文字を入力するだけでマクロや関数を使用してその下にある数字を全てコピーする事はできますか。 添付シートを参照して頂ければと思いますが、シート1の元データーから、別シート2に文字を返して、その下にある文字が自動で反映できるような仕組みを構築したいと考えております。 添付は抜粋で元データーは400件以上ある為に、コピー&ペースト作業や=でsheet 1 から引っ張ってくるには時間がかなりかかっていて困っております。 そこで、品目だけ入力すればその下の数字が自動で反映出来ればと思っております。 トラックの搬入時間管理の為、タイムリーな処理が必要な為、お知恵をお借りできればと思いいます。 お忙しい所申し訳ありませんが、どなたかお力添えをよろしくお願いいたします。
- 締切済み
- oba7030
- Excel(エクセル)
- 回答数4
- 掃除機とか洗濯機も何かしらのプログラミング言語で作
私はプログラマーを目指しているものなのですが 掃除機とか洗濯機も何かしらのプログラミング言語で作られているのでしょうか? 電化製品とプログラミングは無関係ですか? パソコンのOSはプログラミングされてますよね?
- ベストアンサー
- DDPLDUWCCGTXI
- その他(プログラミング・開発)
- 回答数6
- Vlookup関数で行と列を両方Loopで回したい
エクセル2010です。 Vlookup関数を使って、下記のようなコードを作りました。 行のLoopはできたのですが、列がわからなくて 1列ごと、50列まで書きました。 列のLoopはどうすればいいのでしょうか? よろしくお願いいたします。 Sub 毎月集計() Dim i As Byte Dim 範囲 As Range Dim myV As Variant Sheets("実績").Select Set 範囲 = Worksheets("2月").Range("B7:AZ20") For i = Application.InputBox("開始行を半角で入力してください。", Default:=123, Type:=1) To Application.InputBox( _ "最終行を半角で入力してください。", Default:=123, Type:=1) myV = Application.VLookup(Range("B" & i).Value, 範囲, 2, False) If IsError(myV) Then Range("C" & i).Value = "0" Else Range("C" & i).Value = myV End If myV = Application.VLookup(Range("B" & i).Value, 範囲, 3, False) If IsError(myV) Then Range("D" & i).Value = "0" Else Range("D" & i).Value = myV End If 以下省略 Next i End Sub
- ベストアンサー
- kisaragijec
- Windows 7
- 回答数2