Home > モーグ公式ブログ > 【オフパー】Vol.801 条件に合ったセルの合計を求める方法は?

【オフパー】Vol.801 条件に合ったセルの合計を求める方法は?





2009年06月23日

【オフパー】Vol.801 条件に合ったセルの合計を求める方法は?

◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
 あなたのスキルに+1 
    
          Office & VBA パーフェクトマスター
   
 >> http://www.moug.net/ 【オフパー】Vol.801 2009/06/17  
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
【目次】

 ★ モーグからのお知らせ
   条件に合ったセルの合計を求める方法は?
   モグタンのイチオシ!オススメ書籍やサイトを紹介中♪
   
 ★ オデッセイコミュニケーションズからのお知らせ
   新VBAエキスパート Excel VBA スタンダード公式テキスト 販売開始!!

 ★ Office 製品共通一般機能テクニック
   〜 複数のワークシートを選択し同時にレイアウトを整える

 ★ 一問多答!!

 ★ モーグフリーソフト紹介

 ★ 田中亨の ExcelVBAテクニック
   〜 MsgBox関数の使い方
   
 ★ 編集後記

***************************************************************************
 ★モーグからのお知らせ
***************************************************************************

 ▼条件に合ったセルの合計を求める方法は?
 
  SUM関数で指定した範囲の合計を求める方法は、当然ご存じだと思いますが
  例えば1つの表内の指定したエリアごとの合計を求めるといった条件に合った
  セルの合計を求める方法はご存知ですか?
  
  ╋…━…━…━…━…╋
    ♪方法はこちら♪ → http://www.moug.net/tech/exopr/0090013.htm
  ╋━…━…━…━…━╋


 ▼モグタンのイチオシ!オススメ書籍やサイトを紹介中♪
 
  モグタンのイチオシ ご覧になったことはありますか?
  スキルアップへのオススメ書籍やお役立ちサイトなどを紹介中です。
  また、ご自身のHPにモーグバナーを置きたい!という方も募集中です♪
  
  ╋…━…━…━…━…╋
    ♪詳細はこちら♪ → http://www.moug.net/relax/ichi-oshi.html
  ╋━…━…━…━…━╋

***************************************************************************
 ★オデッセイコミュニケーションズからのお知らせ
***************************************************************************

 ▼新VBAエキスパート Excel VBA スタンダード公式テキスト販売開始!!
  
 2009年3月よりスタートしましたExcel VBA スタンダード。
 長らくお待たせしておりました公式テキストがついに発売開始されました!
 著者はExcel VBA ベーシックに引き続き、オフパーのExcel VBAテクニックで
 おなじみの田中 亨さんです!
 
  ╋…━…━…━…━…╋
   ♪詳細はこちら♪ → http://store.aoten.jp/shopdetail/001000000007/order/
  ╋━…━…━…━…━╋

***************************************************************************
 ★Office 製品共通一般機能テクニック     
***************************************************************************
<Contents>
複数のワークシートを選択し同時にレイアウトを整える
(Excel 2000/2002/2003/2007)

●概要●
ワークシートを複数選択すると、同じセルにデータを同時に入力できますが、セル幅
の調整や、罫線、書式の設定なども同時に行うことができます。

●詳細●
1.複数選択したいシートの最初のシートを選択

2.[Shift]キーを押しながら最後のシートを選択
※ [Shift]キーを押すと連続したシートが表示されますが、[Ctrl]キーを押しながら
  シートを選択すれば連続していないシートも選択できます。

3.セル幅の調整、罫線などの入力を行う

●補足●
あらかじめ同じ様式のシートを複数作成したいとわかっているとき等に便利です。
また、書式のコピーのし忘れ等にも役立ちます。

■Excel一般機能のセルとシートの操作に関するテクニックはこちらから
⇒ http://www.moug.net/tech/exopr/0031.htm

***************************************************************************
 ★一問多答!!
***************************************************************************
勉強したことをきちんと覚えているかを確認することは大切です。
一問多答では、ExcelやWordなどを日常使用されている方に知っておいてほしい機能
や多くの方が疑問に思われている題材をテーマに出題します!
今月は『Excel一般機能』に関する問題です!
---------------------------------------------------------------------------
例題)同じ列に入力されているデータをリスト表示し、データを効率よく入力する
   方法として正しいものを1つ選びなさい。

1. データが入力されている列のセルを選択し、[↓]キーを押す

2. データが入力されている列のセルを選択し、[Ctrl]+[↓]キーを押す

3. データが入力されている列のセルを選択し、[Shift]+[↓]キーを押す

4. データが入力されている列のセルを選択し、[Alt]+[↓]キーを押す


正解はモーグブログにて発表中です。ご確認ください!
⇒ http://www.moug.net/ads/ofp_vba.html

モーグブログ内では、回答だけでなく簡単な解説をご紹介しています!
ぜひご覧くださいね。

***************************************************************************
 ★モーグフリーソフト紹介
***************************************************************************
モーグのフリーソフトコーナーで公開しているソフトをご紹介します。

・Excel Form 営業日報 Ver.2.00
 http://blog.moug.net/archives/51335133.html

・オーダ付き売掛買掛システム
 http://blog.moug.net/archives/51558398.html
 
皆さんの気になるフリーソフトは見つかりましたか?
モーグのフリーソフトコーナーでは「財務・会計管理」「アドイン」
「ビジネス・業務用」「ユーティリティー」「家庭向け・アミューズメント」など
多種多様な、お役立ちフリーソフトが満載です!
いますぐ、モーグフリーソフトコーナーへアクセスを!

モーグフリーソフトコーナーへ ⇒ http://www.moug.net/freesoft/

***************************************************************************
 ★田中亨の ExcelVBAテクニック
***************************************************************************
『田中亨の ExcelVBAテクニック集』。数々のExcel著書で有名なMicrosoft MVP
保有者 田中亨さん がオフパー読者のために、より実践に即した、今すぐ使える
テクニックをあなたに伝授!  これは毎週目が離せない!!
---------------------------------------------------------------------------
■MsgBox関数の使い方(Excel 97/2000/2002/2003/2007)

画面にメッセージを表示するMsgBox関数は、マクロになくてはならない便利な命令
です。たとえば次のように使います。

Sub Sample1()
MsgBox "今日は晴れです"
End Sub

実行すると、[OK]ボタンが1つだけある小さなメッセージボックスが表示されます。
このMsgBox関数は、ほかにもいろいろな使い方ができます。
今回は、意外と解説されることの少ないMsgBox関数の使い方を紹介しましょう。

MsgBox関数の書式は次の通りです。

 MsgBox prompt[, buttons] [, title]

ヘルプファイルを指定することもできますが、今回は割愛します。
引数buttonsと引数titleは省略可能です。
引数promptには、表示する文字列を指定します。
複数行の文字列を表示したいときは、改行したい部分に改行コードを挿入します。

Sub Sample2()
MsgBox "東京都" & vbCrLf & "千代田区"
End Sub

改行コードはChr関数を使ってもいいですが、VBAでは定数が定義されていますので
定数を使う方が間違いも少ないでしょう。

引数buttonsには、画面に表示するボタンとアイコンの種類を指定します。
引数buttonsを省略するとアイコンは表示されず、[OK]ボタンだけが表示されます。
引数buttonsには、次の定数を組み合わせて指定します。

【ボタンに関する定数】
vbOKOnly [OK]ボタンのみを表示します
vbOKCancel [OK]ボタンと[キャンセル]ボタンを表示します
vbAbortRetryIgnore [中止]、[再試行]、および[無視]の3つのボタンを表示します
vbYesNoCancel [はい]、[いいえ]、および[キャンセル]の3つのボタンを表示します
vbYesNo [はい]ボタンと[いいえ]ボタンを表示します
vbRetryCancel [再試行]ボタンと[キャンセル]ボタンを表示します

vbDefaultButton2 第2ボタンを標準ボタンにします
vbDefaultButton3 第3ボタンを標準ボタンにします
vbDefaultButton4 第4ボタンを標準ボタンにします

【アイコンに関する定数】
vbCritical 警告メッセージアイコンを表示します
vbQuestion 問い合わせメッセージアイコンを表示します
vbExclamation 注意メッセージアイコンを表示します
vbInformation 情報メッセージアイコンを表示します

[はい]ボタンと[いいえ]ボタンを表示し、さらに問い合わせメッセージアイコンを
表示したいときは、次のように指定します。

Sub Sample3()
MsgBox "処理を続けますか?", vbYesNo + vbQuestion
End Sub

引数titleには、メッセージボックスのタイトルを指定します。

Sub Sample4()
MsgBox "処理を続けますか?", vbYesNo + vbQuestion, "動作の確認"
End Sub

さて、この便利なMsgBoxは、"関数"です。
関数は、何らかの結果を返す命令です。MsgBox関数は何を返すのでしょう。
MsgBox関数は、ユーザーがどのボタンをクリックしたかの結果を返します。
関数の返り値を利用するときは、引数を括弧で囲むのがVBAの基本ルールです。
次のコードは、ユーザーがクリックしたボタンの種類を表示します。
2つのMsgBox関数で、括弧の有無に留意してください。

Sub Sample5()
Dim rc As Long
rc = MsgBox("処理を続けますか?", vbYesNo + vbQuestion)
MsgBox "クリックされたボタンは" & rc & "です"
End Sub

どのボタンがクリックされたかは数値で返りますが、
それぞれの数値には、あらかじめ定数が定義されています。

【返り値に関する定数】
vbOK [OK]ボタンがクリックされた
vbCancel [キャンセル]ボタンがクリックされた
vbAbort [中止]ボタンがクリックされた
vbRetry [再試行]ボタンがクリックされた
vbIgnore [無視]ボタンがクリックされた
vbYes [はい]ボタンがクリックされた
vbNo [いいえ]ボタンがクリックされた

したがって、クリックされたボタンを判定するには、次のようにします。

Sub Sample6()
Dim rc As Long
rc = MsgBox("処理を続けますか?", vbYesNo + vbQuestion)
If rc = vbYes Then
MsgBox "処理を続けます", vbInformation
Else
MsgBox "処理を中止します", vbCritical
End If
End Sub

[キャンセル]ボタンを表示しているときだけ、メッセージボックス右上の[×]ボタ
ンが有効になります。このとき、[×]ボタンをクリックしたり、Escキーを押して
メッセージボックスを閉じると、[キャンセル]ボタンがクリックされたとみなされ
ます。

MsgBox関数では、定数で定義されている以外のアイコンを表示することはできませ
ん。また、表示する文字列の大きさや文字色を指定することもできません。
そうした独自のメッセージを表示したいときは、MsgBox関数ではなく
UserFormを使用してください。


***************************************************************************
 ★編集後記
***************************************************************************
 先日、社内スタッフに「最近エクセルやワードで困ってることってな〜い?」と
 聞いてみたところ…。エクセルでセルにURLやメールアドレスを入力すると、
 「勝手にリンクが設定されるのがイヤ!」と随分昔に話題にされたような回答が…
 とりあえず「じゃあ教えてあげるよ」と彼女のPCでモーグのURLを入力しても
 リンクが自動的に作成されない?「ちゃんと設定解除してあるよ〜」と言っても、
 本人はどうやって設定したのかも覚えていない様子(+_+)
 勝手に設定を解除してしまったはいいけれど、やっぱり戻したいときは?
       スタッフブログへGo!!⇒ http://www.moug.net/ads/ofp_staff.html
                    モーグ メールマガジン編集部(よ)

■登録解除
 メルマガ配信の登録解除を希望される方は、http://www.moug.net/よりログイン
 し、会員情報変更よりメールマガジン配信を「希望しない」にご変更ください。

■広告募集について
 このメールマガジンに広告を出してみませんか?
 広告のお問い合わせは ad@odyssey-com.co.jp まで、お気軽にどうぞ。

◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
◎このメールマガジンは自社配信システムで配送しております。

◎掲載されている会社名・製品名は、各社の登録商標または商標です。
 Office & VBA パーフェクトマスター(オフパー)に掲載された記事及び
そのリンク先のコンテンツを許可なく転載することを禁じます。
 執筆・編集者および発行者は掲載された内容に起因するトラブルには
一切関与いたしませんので、あらかじめご了承ください。
     ‥‥……━━━━━━━━━━━━━━━━━━━……‥‥

執筆・編集 株式会社オデッセイ コミュニケーションズ
モーグメールマガジン編集部
                 問い合わせ先 moug@odyssey-com.co.jp
                    モーグ http://www.moug.net/
   株式会社オデッセイ コミュニケーションズ http://www.odyssey-com.co.jp
   
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
Posted by mougle at 10:00
Comments(0)

この記事にコメントする

名前:
URL:
  情報を記憶: 評価: 顔