リース物件の料率を出す関数のために、月額をリース月数分並べなくてはなりません。

例えば10000という数字をA列に30回ずらりと下へコピーさせたいのですが、関数かそのほかの方法ありますか。30という数字は物件によって変わります。
よろしくお願いします。

A 回答 (6件)

関数でやって見ます。


B2に回数を入れる。例 とりあえず0を入れる
B3に繰り返し数字 例 とりあえず0を入れる
B4に=IF(COUNTIF($B$2:B3,$B$3)>$B$2,"",$B$3) と入れて
最大入力可能行数分だけ、式を複写。(B4:B33など)
そこで
例えばB2に回数7
B3に数字1000などを入れると、瞬時に
B4:B10が1000になります。
    • good
    • 3
この回答へのお礼

Countif関数ですか!なるほど考えられませんでした。すばらしいです。

式の複写は他の回答の方にあるジャンプ機能を使って、かなりの行数に複写しておき、物件ごとにB2とB3の数字を変えていけばいいんですね。これは使えます。感謝します。

お礼日時:2006/03/12 23:37

(1)コピー元(A1)のセル右下角にカーソルを合わせて(黒十字の状態)からA30までドラッグする。


(2)コピー元(A1)のセル右下角にカーソルを合わせ、右クリックした状態でA30までドラック、セルのコピーを選択クリック。
量にもよりますが、単純なコピーは関数を組まないほうが早くて簡単だと思います。右クリックには便利な機能(書式のコピーや値のコピーなど)があります。試してみてください。補足:書式のコピーはF4を押すと簡単にできます。
    • good
    • 0
この回答へのお礼

確かに少量の場合は複雑な式を入れておくより右クリックを駆使したほうが効率いいですね。アドバイス有難うございました。書式コピー、F4を押してもできなかったので・・・勉強しておきます。

お礼日時:2006/03/12 23:40

オートフィルの機能をご存知であれば蛇足になるのですが・・・・



A1に10000を入力し、A1セルが選択されている状態で右下隅に矢印を合わせると

十字に変わります。その状態でマウスの左ボタンを押したまま30行目までドラッグします
    • good
    • 2
この回答へのお礼

ご回答有難うございます。ドラッグはやったことがあるのですが、おっしゃる通り、いま一度やってみて確認できました。

お礼日時:2006/03/12 23:32

ドラッグしてコピーする以外の方法では以下のような事も可能です。


A1に10000と入れる事とします。

1.A1にカーソルを合わせてCtrl+Cを押す
2.一画面で表示出来ている行数なら、Shiftを押しながら
  コピーしたい行を選択する。
  一画面に収まりきれていない行数(例えば100行)の場合、
  Ctrl+Gを押して100行ならA100と入力して、
  Shiftを押しながらEnter(もしくはOK)する。
3.Ctrl+Vを押す。

これじゃあダメですか?
    • good
    • 0
この回答へのお礼

とんでもない、ダメどころか!
30ぐらいの月数なら範囲指定も簡単ですが、実際15年のリースなど180行コピーが必要なので「ジャンプ」使えますね!有難うございました。助かりました。

お礼日時:2006/03/12 23:30

1.名前ボックスにA1:A30と入力して[Enter]。


 (A1:A30が選択される)
2.10000を入力して[Ctrl]+[Enter]。
    • good
    • 2
この回答へのお礼

名前ボックスは初めて使いました。すばらしい!関数いらずの話だったんですね。有難うございました。

お礼日時:2006/03/12 23:25

はい。

お答えいたします。
まず、簡単な方法としては、その数字を下に、黒く■をドラックしていけばよろしいのではないでしょうか。
また、その数字の下に枠を選択した状態で、範囲をドラックしながら決めます。そして、数字のしたに、同じ数字を書いて、Ctrl+Enterを押せば選択された範囲をいっぺんに表示できます。

そういうことではないのでしょうか!?
    • good
    • 0
この回答へのお礼

こんばんは。
枠を選択し…Ctrl+Enterをやってみました。なるほどこれは使えますよ!有難うございました。実際は枠の選択をしないでもやってみたいですが、恥ずかしながらこのやり方知らなかったので、結構わくわくしました。

お礼日時:2006/03/12 23:23

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aと関連する良く見られている質問

Qエクセル プルダウンの作り方

お世話になります。
エクセルでプルダウンの作り方を教えていただけませんでしょうか?
住所を▼のボタンでクリックしたら【北海道,青森,秋田,岩手・・・】などの選択ができるようにしたいのです。
宜しくお願いします。

Aベストアンサー

メニューから「データ」、「入力規則」、「設定」で「入力値の種類」を「リスト」を選択します。
そうすると「元の値」という表示がでますので、そこで前もって作っておいたリストの範囲を指定します。
多くないのでしたら、そのままそこにカンマで区切って入力しても出来ます。

Aベストアンサー

書式>条件付き書式

セルの値が 次の値より小さい を選択
値は$B1とし、書式を設定。
設定したセルをコピーすればできませんか?

Qエクセルでプルダウンメニューの作り方

  エクセルの画面で、よく三角形を逆さまにした形をクリックするといくつかメニューが出てき、どれかを選べるようになっていますが、その作り方を教えてください。
 会社で人事を担当していますが、三角形(プルダウンボタン)をクリックすると社員氏名一覧が表示され、そこから選択できるようにしたいのです。
 しばらく自力でいろいろやってみましたが、さっぱり見当がつかず、どうやればいいのか分かりませんでした。よろしくお願いします。

Aベストアンサー

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならないでしょうか?
Excel2007の場合は↓のURLが参考になるかもしれません。

http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/excel2007-ny_kis2.html

尚、同一Sheetに「名簿表」を作成する場合は名前定義する必要はなくて
「元の値」の右側の四角をクリックし、リスト表示したいセルをそのまま範囲指定すればOKです。

以上、お役に立てば良いのですが・・・m(_ _)m

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならない...続きを読む

QExcelで、複数のシートの同じセル番地の数値の合計を出したいのですが…。

今、Excelの作業をしています。
そこで、もっと効率のいい方法を知りたくて質問いたしました。

例えば、1つのブックに、シート1・シート2・シート3・シート4とあったとします。
(どのシートも数値は違いますが、形式は同一)
そのシート1~シート4の各セルの合計をシート5に作るには、どうすればいいのでしょうか?

数字の量が多すぎて、とても一つ一つ足していけません。
詳細な回答をよろしくお願いします。

追記:数字の量が多いので、式(+)を入力する方法以外でお願いします。

Aベストアンサー

> シート名を例えば「○○店」「××店」「△△店」「□□店」の順に並べていたとしたら、どう表記すればいいのでしょうか?

No1です。
おなじですよ。最初と最後のシート名ですから
=SUM(○○店:□□店!A1)
でOKです。

Qエクセル(Excel) 納品書の作り方【画像修正版

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が見にくかったのでシート<CENTER></CENTER>だけにしました。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルでコピー!
そのまま最後の24行目までコピーしておきます。

F4セルには
=IF(COUNTBLANK(B4:E4),"",D4*E4)
という数式を入れ、F24までオートフィルでコピー!

これでB列に商品番号を入力すればSheet2のデータが反映され、
E列に数量を入力でF列に金額が表示されると思います。

最後に合計金額のF26セルは
=IF(COUNT(F4:F24),SUM(F4:F24),"")
手数料のF27セルは
=IF(F26="","",F26*0.2)

これで何とか形にならないでしょうか?

※ 振込金額の欄は不明ですので手を付けていません。

参考になりますかね?m(_ _)m

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルで...続きを読む

Q複数のセルすべてに数値が入れば別セルに1と入力

エクセルについて
例えば、A1とA2とA3とA4のすべてに数値が入れば、B1に1としたい。
上記Aセルにひとつでも空白があれば、B1も空白としたいのです。
宜しくお願いいたします。

Aベストアンサー

>すべてに数値が入れば、B1に1としたい。
>上記Aセルにひとつでも空白があれば、B1も空白としたいのです。
条件が不十分です。
それらのセルに文字列が入った場合はどうなるのでしょう?

「空白以外なら」と「何かが入力されていれば」とは別物です。
また、「空白」と「数式によって""が入力されているため何も表示されない」もこの先別物になりますので質問文内に記述したほうがいいでしょう。

そのうちの「すべてが空白なら」で条件分岐すると
B1=IF(COUNT(A1:A4)<>0,"",1)
でできるでしょう。

ただし、指定範囲に数式が入っていて、その数式の結果が「""」の場合は、空白とみなしてくれません。
その場合は
B1={IF(SUM(LEN(A1:A4))<>0,"",1)}
という配列数式でできるでしょう。

Qエクセル(Excel) 納品書の作り方【改めて】

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が貼り付けてあります。商品名は1番以外伏せさせていただいています。
くっつけてありますが、左側がシート1・右側がシート2です。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

画像がいまいちよく見えないのですが、納品書の項目は左から、No、商品番号、商品名、単価、数量、金額でいいのでしょうか(名前は多少違っていても意味があっていればもんだいないです)

でしたら、
C1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,2,FALSE))
D1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,3,FALSE))
E1セルは空白で
F1セルに=IF(D2="","",D2*E2)
といれて、C1からF1までをコピーしてその下の行にタテに貼り付ければ出来ますよ。
おそらくエラーが出たのは、コピーしたときにVLOOKUP関数の最初のセルの指定がずれてしまっているのでは無いかと思いますよ。     

QExcel マクロで特定のセルに入っている数値を参考に空白セルにコピーする方法

Excelのマクロ初心者です。
以下のような表がある時に(D列の数値ー1)行分を
A列~C列の空白セルに上段の文字をコピーしたい場合のマクロを教えてください。
(説明が下手ですみません…)

    A B C D E
1  あ  い  う  2 お
2            こ
3 さ  し  す  1 そ
4 た  ち  つ  3 と
5 の
6 ほ


マクロ実行後はこうなりたいです。

    A B C D E
1  あ  い  う  2 お
2 あ  い  う     こ
3 さ  し  す  1 そ
4 た  ち  つ  3 と
5 た  ち  つ   の
6 た  ち  つ ほ


よろしくお願い致します。

Excelのマクロ初心者です。
以下のような表がある時に(D列の数値ー1)行分を
A列~C列の空白セルに上段の文字をコピーしたい場合のマクロを教えてください。
(説明が下手ですみません…)

    A B C D E
1  あ  い  う  2 お
2            こ
3 さ  し  す  1 そ
4 た  ち  つ  3 と
5 の
6 ...続きを読む

Aベストアンサー

#5の回答者です。
こういう場合、だいたい、回答者の一人が、業を煮やして、キメウチで作ってしまうケースが多いようです。しかし、今回も、こちらはコード見送りました。

言葉よりも、画像のほうが情報が速く正しく伝わりますから、一度、そういう説明の仕方も考えたほうがよいでしょうね。今回も画像を付けます。(ツールは、FastStones Capture for Windowを使用)

原則があって、各々の条件を導きだす方法のほうが楽ですね。

>Ð列の数値よりも空白かどうかを最優先する
 --空白でなかったらコピーをしない

>D1の数値が4だとしてもその下の段に1段しか空いていなければ1段のみのコピー
 --つまり画像の②のような場合は、コピーしない。
 ということになります。

◯画像では、行の終わりを取り入れて6行までとしました。
そうすると、余りがあっても、それもコピーしないとなります。

Qエクセル2007でプルダウンで選んだものに反応

Excel2007でプルダウンで選んだものに反応して隣のセルが自動入力される方法(エクセル2007)
A1をプルダウンで「猫」「犬」から選べるようにし、「猫」を選んだ場合B1に自動に「111」が、「犬」を選んだ場合B1に自動に「222」と入力されるようにしたいです。
ご教授の程、宜しくお願いします。

Aベストアンサー

VLOOKUP関数での方法です。
(1)別シートに入力文字列と対応コード表を作成。(仮にSheet2のA:B列範囲で順不同)
(2)B1に=IF(COUNTIF(Sheet2!A:A,A1),VLOOKUP(A1,Sheet2!A:B,2FALSE),"")を設定
   入力文字列が存在しない場合は空白としています。

Qエクセルでセル内の特定数値を他セルの数値で置換

エクセルで下記のようなことを行いたいです。アドバイスお願い致します。

●処理前
A1⇒ 2151  B1⇒ RSS1234  C1⇒ RSS1234+RSX1234
A2⇒ 3412  B2⇒ RSS5678  C2⇒ RSS5678+RSX5678
A3⇒ 5486  B3⇒ RSS3456  C3⇒ RSS3456+RSX3456




●処理後要望
A1⇒ 2151  B1⇒ RSS2151  C1⇒ RSS2151+RSX2151
A2⇒ 3412  B2⇒ RSS3412  C2⇒ RSS3412+RSX3412
A3⇒ 5486  B3⇒ RSS5486  C3⇒ RSS5486+RSX5486



A列が空白になるまで上記置換が行われる。


となるようなVBAを作りたいのです。
アドバイスお願い致します。

Aベストアンサー

 置換をしたい範囲を選択しているシート上にあるC列~D列としますと、次の様なVBAマクロは如何でしょうか?


Sub Macro()

Dim SN As String
Dim LR As Long

SN = ActiveSheet.Name
ActiveSheet.Select
If Application.WorksheetFunction.Count(Columns("A:A")) = 0 Then Exit Sub
LR = Application.WorksheetFunction.Match(9E+307, Columns("A:A"))
Range("B1:D" & LR).Replace What:="=", Replacement:=" ="
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(SN).Select
Sheets(Sheets.Count).Range("C1:D" & LR).FormulaR1C1 = _
"=SUBSTITUTE('" & SN & "'!RC,MID('" & SN & "'!RC2,MIN(" & _
"IF(ISNUMBER(FIND(0,'" & SN & "'!RC2)),FIND(0,'" & SN & "'!RC2),LEN('" & SN & "'!RC2)+1)," & _
"IF(ISNUMBER(FIND(1,'" & SN & "'!RC2)),FIND(1,'" & SN & "'!RC2),LEN('" & SN & "'!RC2)+1)," & _
"IF(ISNUMBER(FIND(2,'" & SN & "'!RC2)),FIND(2,'" & SN & "'!RC2),LEN('" & SN & "'!RC2)+1)," & _
"IF(ISNUMBER(FIND(3,'" & SN & "'!RC2)),FIND(3,'" & SN & "'!RC2),LEN('" & SN & "'!RC2)+1)," & _
"IF(ISNUMBER(FIND(4,'" & SN & "'!RC2)),FIND(4,'" & SN & "'!RC2),LEN('" & SN & "'!RC2)+1)," & _
"IF(ISNUMBER(FIND(5,'" & SN & "'!RC2)),FIND(5,'" & SN & "'!RC2),LEN('" & SN & "'!RC2)+1)," & _
"IF(ISNUMBER(FIND(6,'" & SN & "'!RC2)),FIND(6,'" & SN & "'!RC2),LEN('" & SN & "'!RC2)+1)," & _
"IF(ISNUMBER(FIND(7,'" & SN & "'!RC2)),FIND(7,'" & SN & "'!RC2),LEN('" & SN & "'!RC2)+1)," & _
"IF(ISNUMBER(FIND(8,'" & SN & "'!RC2)),FIND(8,'" & SN & "'!RC2),LEN('" & SN & "'!RC2)+1)," & _
"IF(ISNUMBER(FIND(9,'" & SN & "'!RC2)),FIND(9,'" & SN & "'!RC2),LEN('" & SN & "'!RC2)+1)" & _
"),4),'" & SN & "'!RC1)"
Sheets(SN).Range("C1:D" & LR).Value = Sheets(Sheets.Count).Range("C1:D" & LR).Value
Application.DisplayAlerts = False
Sheets(Sheets.Count).Delete
Application.DisplayAlerts = True
Range("B1:D" & LR).Replace What:=" =", Replacement:="="

End Sub

 尚、上記のマクロは、あくまで

>⇒B列には、必ず数値が含まれております。
>置換をしたい範囲のセル(D列までとすれば、B~D列)には、VBが走る前の初期状態ではいずれも必ず同じ4桁の数値が含まれている状態に致します。

という条件が満たされている場合においてのみ有効なマクロです。
 もしB列に入力されている文字列が、例えば

R2S1234

等の様に4桁ではない数字(この場合は「2」)が、4桁の数字よりも前の部分に含まれているものであった場合には、正しい結果を得られませんので注意して下さい。

 置換をしたい範囲を選択しているシート上にあるC列~D列としますと、次の様なVBAマクロは如何でしょうか?


Sub Macro()

Dim SN As String
Dim LR As Long

SN = ActiveSheet.Name
ActiveSheet.Select
If Application.WorksheetFunction.Count(Columns("A:A")) = 0 Then Exit Sub
LR = Application.WorksheetFunction.Match(9E+307, Columns("A:A"))
Range("B1:D" & LR).Replace What:="=", Replacement:=" ="
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(SN).S...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング