エクセルで作られた表があります。たとえば
列 A B C D  E F G ・ ・ M  計1 計2
  6 8 9 10 5 7 9 ・ ・ 9
計1の欄に=A+C+E+G+・・・+Mとひとつおきに足したいのですが、簡単な式がありましたら教えてください。わかりにくい質問ですみませんが、よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (4件)

おまけ


{=SUM(IF(MOD(COLUMN(A1:M1),2)=1,A1:M1,0))}
Ctrl+shift+Enterで配列数式にしないと、普通の足し算になってしまいます。
    • good
    • 0
この回答へのお礼

早速ためしてみます。ありがとうございます。

お礼日時:2009/05/16 13:07

「計2」の欄には何を?

    • good
    • 0
    • good
    • 0

定石みたいなものがあって、質問者がエクセルの関数の解説書を読んで無い証拠。

有名な問題。学引き関数の解説書には載っている。
1行おきの合計の質問が先日あったと思う。
列も同じでSUMPRODUCTという条件をかけて加算の関数と
条件にMOD関数を使う。
それぞれの関数はGoogleでWEN照会すればたくさん記事が出てくるから読むこと。
例データ
A1:M1に1から13を入れる。
空きセルに =SUMPRODUCT((MOD(COLUMN(A1:M1),2)=1)*(A1:M1))
A,C・・列の合計
B,D・・列の合計なら=1の部分を=0にすると良い。
結果
49
    • good
    • 0
この回答へのお礼

ていねいにありがとうございまいした。

お礼日時:2009/05/16 13:09

このQ&Aに関連する人気のQ&A

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

このQ&Aを見た人が検索しているワード

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

QA1サイズの印刷ができ、Mac対応のプリンタありますか?

 PCは、Macを使用しているのですが、Mac対応で、A1サイズの印刷ができるようなプリンタ探しているのですが、カタログで探してもA3までしか印刷できるものがありませんでした。
 A1サイズの印刷ができ、かつMac対応のプリンタはありますでしょうか?
 よろしくお願いいたします。

Aベストアンサー

A1位のサイズになると「大判プリンタ」で探します。たとえば参考
URLのようなものが出てきます。

参考URL:http://www.i-love-epson.co.jp/products/printer/inkjet/px7000/px70003.htm

Aベストアンサー

左側に1列挿入して、その列に「1,2,3,4,5,1,2,3・・・」と縦に数字を入れます。
縦計を取りたいセルで、
=SUMIF(A1:B20,1,B1:D20) 
のように入力すると、B1,B6,B11,B16のセル計が取れます。
同様に検索条件の「1」を「2」に変えると、
B2,B7,B12,B17のセル計が取れます。

この関数の意味は
=SUMIF(範囲、検索条件、合計範囲)です。

QA1サイズのプリンター選びで悩んでいます

職場でA1サイズのプリンターを買おうと思っています
しかしA1サイズとなると印刷にかなり時間がかかると聞いています
かなり昔のタイプのA1プリンターを使っている人は1枚で30分ぐらいかかると言っています
しかし、メーカーのHPなどには、最近の機種で「2~3分/枚」と記載されています
本当かどうか実際に使っていて知っていたら教えてください
主な用途はCADデータの白黒印刷です

Aベストアンサー

3年くらい前のヒューレット・パッカードを使用していますが、A1の白黒だと5分くらいでしょうか。
CADの図面に塗りつぶしがあったり、写真などの画像を貼り付けてあると10分以上かかります。
最近のモデルなら、もっと早いかもしれません。
1枚で30分というのはオーバーですが、相当前のモデルならそれくらいかかったのかもしれません。

Q=LEFT(A9,LEN(A9)-1)上手くいきません?

A9セルに1,330円 が表示されています。(ある物をコピ-して、テキストで張り付けた物です)
この場合=LEFT(A9,LEN(A9)-1)をA10セルにいれれば、
1330と表示される予定でしたが?1330円と表示されてしまいます。
A10にどの様な関数を入れれば良いのでしょうか?

Aベストアンサー

>ある物をコピ-して、テキストで張り付けた物です
この辺りに問題が隠れていませんか、見えないけど空白があるとか
=LEFT(A9,FIND("円",A9)-1)*1
とかではどうでしょう。

QA1サイズで1cm間隔のマス目のあるポスター

A1サイズで1cm間隔のマス目のあるポスターのような物はありませんか?
カッティングボードのようにメモリがはっきり見やすく、
ポスターの様にほどほどの強度と収納しやすさがある物を探してます。

A1サイズでなくても、
短編40cm、長編80~100cm 程度でも可能です。

何か良い物がありましたらぜひ教えて頂きたいです。

Aベストアンサー

カッターマットで10mmグリッドのA1サイズがありますが。
http://store.shopping.yahoo.co.jp/diy-tool/o01-0082.html

模造紙もありますね。
http://square.ocnk.net/product/1481

他にもカッティングシートやテーブルクロス、包装紙の類で使えそうな物がありそうですが、デザイン上で線が太いものが多いでしょうね。

QExcelでひとつ置き(A1、A3、A5・・・)に合計とかふたつ置き(A1、A4、A7・・・)に合計というのは可能なのでしょうか?

タイトルの通りなのですが、
エクセルの雛形の関係上例えば
A1に「あ」という商品の代金 A2にその消費税
A3に「い」という商品の代金 A4にその消費税…
などという入力をすることがあり、
最後に商品代金だけ、消費税だけを計算したいとき
今まではA1+A3+A5+・・・という風に手でいちいち計算していたのですが
何か利用できそうな関数・数式はないものかと思い質問しました。

同じように2つ置き(A1+A4+A7+・・・)の方法もありませんでしょうか?

Aベストアンサー

一例です。
A1:A10範囲とします。
■奇数行の計数
=SUMPRODUCT((MOD(ROW(A1:A10),2)=1)*A1:A10)
■奇数行の計数
=SUMPRODUCT((MOD(ROW(A1:A10),2)=0)*A1:A10)

■3行毎の計数
=SUMPRODUCT((MOD(ROW(A1:A10),3)=1)*A1:A10)

QA1の2倍サイズの原稿作成

お願いします。

建築の勉強をしている友達から「パソコンでA1の2倍サイズのプレゼンボードを作成したいのだけど(それに写真や文章を入れたいようです。)何のソフトを使用すればいの?。」という質問をされたのですが・・・僕もよく分かりません。^^;

どんなソフトで作るものなんでしょう?(イラストレーターとかで良いのでしょうか?)

あとA1の2倍のサイズの名称はなんというのでしょうか?(A0?)

どうかお願いします。

Aベストアンサー

あら・・・確認不足ですいません!!
確かに、設定できませんね・・・

その場合はお手数ですが、作成されるときに分割して作成されること
お勧めします。
つまり、A0サイズを8分割し、A3で8枚程度に収まるように作成されれば
OKだと思います。
 もしくは、A2サイズよりやや小さい寸法で4分割


>でも、本人の技術的な問題で「Photo shop」と「Word」は、ある程度使えるらし>いですが、「Illustrator」はよく分からないと言ってました。^^;

とのことですので、やはりWordなどで使い慣れたソフトで作成すること
お勧めします
図面などは、画像にしてしまえば貼り付け出来ますので、十分だと
思いますよ
作成頑張って下さいね

QEXCEL C+→C  A+→A と変える方法

EXCEL C+ → C   A+ → A と変える方法
===================
氏名 評価
山田 A+ B C+  A  
池田 B  C A+  C+
佐藤 C+ A B  A+
………………
安部 B  C+ C A+


これを
C+ → C  Bはそのまま  A+ → A と変える方法
===================
氏名 評価
山田 A B C A  
池田 B C A C
佐藤 C A B A
………………
安部 B C C A

とこのようにしたいのですがどのようにしたらよいでしょうか。
よろしくお願いします。

  

Aベストアンサー

「編集」→「置換」で(必要なら範囲指定してから)
C+ → C
A+ → A
とすれば良いと思います。

QA4サイズをA1にするときのスキャン解像度は?

A4サイズの印刷物(写真と少し文字あり)を
A1サイズのポスターにしたいのですが
スキャナで取り込む時、どのくらいの解像度にすればよいのでしょうか?
スキャナには50dpi~12800dpiが選べるのですが
12800はサイズが大きすぎて出来ないようです。
印刷するプリンタはcanonのW6200です。

アドバイスどうぞよろしくお願いします。

Aベストアンサー

プリンタの解像度と,スキャナの解像度は意味するところが違います。プリンタの解像度はスキャナの解像度より高くないと意味がありません。プリンタの解像度と一緒にしないでください。

一般的にカラー画像の場合,スキャナの解像度は200~350dpiあれば良いといわれています。
例えばFujifilmのデジカメプリントマシンは300dpiで写真にします。この300dpi前後という値は,写真のように手元でじっと見るような場合に最適な解像度です。遠くから見る場合はもっと低くても大丈夫です。
それで,A4サイズをA1サイズにする場合,面積比8倍=長さ比2.8倍ですので,600dpi~1000dpiくらいで取り込めば,A1にした時に最適な解像度になると思います。
ただし,印刷物を取り込む場合,もともとの原画が点の集まりでできているため,取り込む際にモアレが発生する事があります。また,A1のポスターを近くて見る人はいない(遠くから眺める)ので,低い解像度で取り込んだものを引き伸ばしても実質的には問題ないと思います。

取り込んだ画像の容量から逆算してみましょう。300dpiでフルカラーA4サイズだとだいたい3500×2500=875万画素になる(※)ので24ビットカラーのビットマップの場合,約25MBもの容量がいります。150dpiにすると約6.5MBになります。100dpiだと3MB弱くらいです。だから,フォトレタッチソフトなどの能力を考えて取り込む解像度を決める必要があると思います。

※A4サイズ(297mm×210mm)を300dpiで取り込む場合の画像サイズ
 縦のドット数(ピクセル数)は
 (297(mm)÷25.4)×300(dpi)≒3500(ドット)
 横のドット数は
 (210(mm)÷25.4)×300(dpi)≒2500(ドット)
 この場合の画素数は875万画素
 それを24ビット(=3バイト)カラーで取り込む場合
  875万×3=26250000(バイト)≒25MB

解像度を半分にすると縦横半分になるので画素数は1/4,解像度を1/3にすると画素数は1/9になるので,それに比例して画像ファイルのサイズも小さくなります。
また,A4で取り込んだ画像をA1に拡大すると,解像度は1/2.8になります。

プリンタの解像度と,スキャナの解像度は意味するところが違います。プリンタの解像度はスキャナの解像度より高くないと意味がありません。プリンタの解像度と一緒にしないでください。

一般的にカラー画像の場合,スキャナの解像度は200~350dpiあれば良いといわれています。
例えばFujifilmのデジカメプリントマシンは300dpiで写真にします。この300dpi前後という値は,写真のように手元でじっと見るような場合に最適な解像度です。遠くから見る場合はもっと低くても大丈夫です。
それで,A4サイズをA1サイ...続きを読む

Q【エクセル】A列の最終行+1を取得するを、A列の最大値+1を取得するに変更するには?

ワークシートA列の最終行を取得してそれに+1することで新規の物件Noを返すように下記のように書きました。
しかし、作業の関係上、ワークシートの行を並び替えする設定をしたため、
A列の数値が1から順番では無くなっています。
そこでA列の値で最大値を求め、その値+1を新規物件Noとして返すように変更したいと考えています。

下記をどのように変更すれば良いか、ご教授お願いいたします。


Private Sub CommandButton1_Click()

Dim Last行番号 As Long
Dim Last物件No As Long
Dim New物件No As Long

' 最後尾の行番号を取得する
Last行番号 = 最終行を取得する関数()

' 最後尾の物件Noを取得する
Last物件No = 指定行の物件Noを取得する関数(Last行番号)

' 次の物件Noを求める
New物件No = Last物件No + 1
Worksheets("顧客基本情報" & Me.TextComboHakkounen.Value).Cells(Last行番号 + 1, 1).Value = New物件No
Worksheets("銀行振込一覧表").Cells(Last行番号 + 1, 1).Value = New物件No
Worksheets("電気料金一覧表").Cells(Last行番号 + 1, 1).Value = New物件No
Worksheets("水道料金一覧表").Cells(Last行番号 + 1, 1).Value = New物件No

End Sub

Private Function 最終行を取得する関数(Optional 列番号 As Long = 1)
Const 最終行番号 = 1048576
最終行を取得する関数 = Worksheets("顧客基本情報" & Me.TextComboHakkounen.Value).Cells(最終行番号, 列番号).End(xlUp).row
End Function

Private Function 指定行の物件Noを取得する関数(行番号 As Long, Optional 列番号 As Long = 1)
指定行の物件Noを取得する関数 = Worksheets("顧客基本情報" & Me.TextComboHakkounen.Value).Cells(行番号, 列番号).Value
End Function

ワークシートA列の最終行を取得してそれに+1することで新規の物件Noを返すように下記のように書きました。
しかし、作業の関係上、ワークシートの行を並び替えする設定をしたため、
A列の数値が1から順番では無くなっています。
そこでA列の値で最大値を求め、その値+1を新規物件Noとして返すように変更したいと考えています。

下記をどのように変更すれば良いか、ご教授お願いいたします。


Private Sub CommandButton1_Click()

Dim Last行番号 As Long
Dim Last物件No As Long
Dim New物件N...続きを読む

Aベストアンサー

ワークシート関数使ってください。
https://www.moug.net/tech/exvba/0100035.html
Max関数なら早いし。


人気Q&Aランキング