エクセルのマクロや関数の質問

質問

いくつかまとめて質問させてください。
よろしくお願いします。

１、シート１のA1に、入れる関数ですが、シート２からシート２０の"C13"の総合計をいれたいのです。
それらを、単純に1個ずつクリックして、＋していけばいいのですが、他にもいくつもありますので、簡単にできる方法があれば教えていただきたいです。

２、.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
コードの一部です。A列にデータがなければ、2行目にコピペします。
データがあれば、次の行にデータをコピペします。
これを、データがなければ、1行目にコピペ、データがあれば、次の行にデータをコピペというふうに変更をお願いしたいです。

３、シート1のA1に、文字列を入力します。
阪神と入力すれば、阪神シートの"D５"、巨人と入力すれば、巨人シートの"D5"を表示できるような関数はありますか？='$A1$'!D5しか思いつきませんでした。

質問攻めですが、よろしくお願いします。

回答No.4

tom04 · ベストアンサー

こんばんは！

（1）に関してですが、串刺し計算方法ではどうでしょうか？
当方使用のExcel2003の場合です（他のバージョンでも同様だと思います。）

Sheet1のA1セルをアクティブに　→　オートサム（Σマークのアイコン）をクリック　→　Sheet2のC13セルをクリック　
→　Shiftキーを押しながら画面左下にある最後のSheet見出しをクリック　→　もう一度オートサムアイコンをクリック
これでSheet2～最後のSheetのC13セルがSheet1のA1セルに表示されるはずです。
数式バーをみてもらうと
=SUM(Sheet2:SheetX!C13)　←X部分は最後のSheet名です　となっていると思います。

（3）については
A1セルにSheet名を入力するとします。
表示したいセルに
=INDIRECT(A1&"!D5")
ではどうでしょうか？

最後に（2）に関してですが、
Offsetで最終行の1行下に貼り付けするようなコードになっていますが、

If Range("A1")="" then
Range("A1").PasteSpecial Paste:=xlPasteValues
Else
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

のような感じでやってみてはどうでしょう？
（検証していないので、ダメだったらごめんなさいね）

以上、参考になれば良いのですが・・・m(__)m

お礼

丁寧にありがとうございます。
感謝しています。

回答No.3

imogasi

出来れば３つにわけて質問してほしい。難易度が違ったりして答えるのが大変。
回答も長くなる可能性はある。
１つ判らないと回答しない回答者もいるだろう。それは回答の多様性を知る上で不利だ。
（１）は「串刺し演算」と言われる、エクセルの常識。エクセルの本を１通り読まないで質問しているね。
WEBでもごおｇぇででも「串刺し演算」で照会して
http://kokodane.com/tec2_38.htm
など読めば良い。
（１）場合を分ければしまいでは。
初心者だと思うが、あまり１つですまそうなどと考えないほうが良い。自分で考えるのは勝手だが、質問までして使うこともなかろう。
End(xlUp)は質問で書いているような、そういうものなのだ（第１行目が空白でも0にならない）。
普通エクセルは第１行目を項目見出しに使うので、あまり質問の場合は出くわさない。意識はしているがあまり
実際では使ったことがない。
d=Range("A" & Rows.Count).End(xlUp).Rowの方（Offset使わず、その後Cells(d+1,"A")=・・の方）が判りやすいのでは。
そのときA1が空白かどうか聞く。
（３）INDIRECT関数利用だろう。
式を入れるシートのA1セルに
=INDIRECT(B1&"!A1")
式を入れるシートのB1にSheet2と入れると、Sheet2にA1セルの値（私の場合１２）を取ってきて式を入れたシートのA1は１２

お礼

甘えてしまってごめんなさい。
以後、気を付けます。
感謝しています。

回答No.2

keithin

＞１
「３Ｄ串刺し計算」と言います。
=SUM(　まで打ち込み
シート２のＣ１３をクリックして =SUM(Sheet2!C13　にしてから
シフトキーを押しながらシート２０のシート名タブをクリックして，数式が　=SUM(Sheet2:Sheet20!C13　になったら，カッコを閉じてEnterして入力して出来上がり。

ただし，シート２から２０まで，合計したいシートが合計したいシートだけ並んでいる必要があります。
シート２と２０の間にはさんだ，他の合計したいシートは順不同です。

＞２
単純に
Range("A" & Rows.Count).End(xlUp).Offset(iif(application.counta(range("A:A") = 0,0,1), 0).PasteSpecial Paste:=xlPasteValues

＞３
=INDIRECT(A1&!D5")

＞質問攻め
こちらのような質問相談掲示板では，１投稿１質問内容が常識的マナーなので，憶えておいてください。

お礼

ありがとうございます。
感謝しています。
以後気を付けます。

回答No.1

mshr1962

1.　
=SUM(シート２:シート２０!C13)

2.　
If　Range("A1") Is Null Then
.Range("A1").PasteSpecial Paste:=xlPasteValues
Else
.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End If

3.
=INDIRECT(A1&"!D5")

お礼

ありがとうございました。
感謝しています。