2010年03月02日
【オフパー】Vol.835 SUMIF関数なら、年代別の合計があっという間に計算できる？！
- ◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
あなたのスキルに＋１
Office & VBA パーフェクトマスター
>> http://www.moug.net/ 【オフパー】Vol.835 2010/02/24
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
【目次】
★ モーグからのお知らせ
SUMIF関数なら、年代別の合計があっという間に計算できる？！
2月書籍プレゼント いよいよ今週末で〆切です！
★ オデッセイコミュニケーションズからのお知らせ
VBAエキスパートってどんな試験なの？あっという間に理解できるVBAクイズ！
★ Office 製品共通一般機能テクニック
〜 表のセルに番号をつける
★ 一問多答！！
★ モーグフリーソフト紹介
★ 田中亨の Excel VBA テクニック
〜 状況に応じて変化するメニュー
★ 編集後記 - ***************************************************************************
★モーグからのお知らせ
***************************************************************************
▼SUMIF関数なら、年代別の合計があっという間に計算できる？！
条件に合ったデータの合計が計算できる『SUMIF関数』
例えば“札幌支店”の合計というように、単純な条件を指定する使い方しか
知らない方には今回の『仕事に役立つ Excel関数』は必見です！
年齢データを使って年代別合計を計算するテクニック、あなたはご存知ですか？
╋…━…━…━…━…╋
♪詳細はこちら♪ → http://www.moug.net/learning/exjob/
╋━…━…━…━…━╋
▼2月書籍プレゼント いよいよ今週末で〆切です！
2月の書籍プレゼントは徹底攻略ドリル MCAS Word & Excelの対策本です。
MCASは実際のWordやExcelを操作する試験です。
試験対策の学習は、WordやExcelの実技スキル向上に結び付きますよ！
MCAS試験のレベルを知りたいと思っていた方も、この機会にぜひご応募ください！
╋…━…━…━…━…╋
♪応募はこちら♪ → http://www.moug.net/present/index.html
╋━…━…━…━…━╋
***************************************************************************
★オデッセイコミュニケーションズからのお知らせ
***************************************************************************
▼VBAエキスパートってどんな試験なの？あっという間に理解できるVBAクイズ！
『VBAエキスパート』ってモーグでよく紹介しているけど、
具体的にはどんな試験かご存知ない方も多いのでは？
ただ、試験の説明って文章が多くて、読むのが面倒という方におススメ！
あっという間に正解がわかるVBAクイズ。ちなみに受験料っていくらでしょうか？
1) 10,500円 2) 12,600円 3) 17,850円 4) 21,000円
╋…━…━…━…━…╋
♪正解はこちら♪ → http://www.aoten.jp/certification/vba.html
╋━…━…━…━…━╋
***************************************************************************
★Office 製品共通一般機能テクニック
***************************************************************************
＜Contents＞
表のセルに番号をつける(Word 2000/2002/2003/2007)
●概要●
挿入した表のセルそれぞれに番号を振るとき、ひとつずつ数字や記号を入力するのは
ちょっと煩わしいものです。
今回は、段落番号の機能を利用して効率的に番号を入力する方法を紹介します。
●詳細●
＜Word2003までのバージョン＞
1. 表を範囲選択
2. [書式]メニューの[箇条書きと段落番号]を選択
3. [箇条書きと段落番号]ダイアログボックスの[段落番号]タブを選択
4. 任意の番号書式を選択
5. [OK]ボタンをクリック
＜Word2007＞
1. 表を範囲選択
2. [ホーム]タブの[段落番号]右の▼をクリック
3. 任意の番号書式を選択
●補足●
複数の表を作成してそれぞれに段落番号を設定すると、ひとつめの表から連続した
番号が振られてしまいます。
新たに1から振り直す場合は、振り直す番号をマウスで選択し、再度[箇条書きと
段落番号]ダイアログボックスを表示して、[番号を振り直す]オプションボタンを
選択します。
Word2007では[段落番号]右の▼ボタンをクリックして[番号の設定]を選択し、
開始番号の値を「1」に変更します。
■Word一般機能 表とグラフ関連のテクニックはこちらから
⇒ http://www.moug.net/tech/woopr/0101.htm
***************************************************************************
★一問多答！！
***************************************************************************
勉強したことをきちんと覚えているかを確認することは大切です。
一問多答では、ExcelやWordなどを日常使用されている方に知っておいてほしい機能
や多くの方が疑問に思われている題材をテーマに出題します！
今回は『ExcelのIF関数』に関する問題です！
---------------------------------------------------------------------------
例題）100以上200未満など「範囲」をIF関数の条件とする場合、使用する関数として
正しいものを1つ選びなさい。
1. AND
2. OR
3. BETWEEN
4. MONTH
正解はモーグブログにて発表中です。ご確認ください！
⇒ http://www.moug.net/ads/ofp_vba.html
モーグブログ内では、回答だけでなく簡単な解説をご紹介しています！
ぜひご覧くださいね。
***************************************************************************
★モーグフリーソフト紹介
***************************************************************************
モーグのフリーソフトコーナーで公開しているソフトをご紹介します。
・CD&DVD管理データベース ver.1.05
http://blog.moug.net/archives/51602677.html
・Access会費徴収管理システム ver.2.02
http://blog.moug.net/archives/51353981.html
皆さんの気になるフリーソフトは見つかりましたか？
モーグのフリーソフトコーナーでは「財務・会計管理」「アドイン」
「ビジネス・業務用」「ユーティリティー」「家庭向け・アミューズメント」など
多種多様な、お役立ちフリーソフトが満載です！
いますぐ、モーグフリーソフトコーナーへアクセスを！
モーグフリーソフトコーナーへ ⇒ http://www.moug.net/freesoft/
***************************************************************************
★田中亨の Excel VBA テクニック
***************************************************************************
『田中亨の Excel VBA テクニック集』。数々のExcel著書で有名なMicrosoft MVP
保有者 田中亨さん がオフパー読者のために、より実践に即した、今すぐ使える
テクニックをあなたに伝授！ これは毎週目が離せない！！
---------------------------------------------------------------------------
■状況に応じて変化するメニュー(Excel 97/2000/2002/2003)
Excel 2003までのメニューは、選択されているオブジェクトや状況によって
メニューのコマンドが変化することがあります。
たとえば、空のセルを選択した状態で[挿入]メニューを開くと[コメント]という
コマンドが表示されます。実行するとコメントが挿入されます。
しかし、すでにコメントが挿入されているセルを選択して[挿入]メニューを
開くと、同じ位置のコマンドが[コメントの編集]に変化します。
これを実行すると、既存のコメントを編集できます。
このように、状況に応じてメニューのコマンドを自動的に変化させる方法を
今回はご紹介します。
まず、変化しない、固定されたメニューを追加してみましょう。
次のコードは、メニューバーに[新しいメニュー]を追加して、
[1行目の処理]コマンドと[1列目の処理]コマンドを追加します。
Sub Sample1()
Dim NewM As Object, NewC As Object
Set NewM = CommandBars("Worksheet Menu Bar").Controls _
.Add(Type:=msoControlPopup)
With NewM
.Caption = "新しいメニュー"
End With
Set NewC = NewM.Controls.Add
With NewC
.Caption = "1行目の処理" ''1つ目コマンド名
.OnAction = "Action_Row" ''実行するマクロ
.FaceId = 541
End With
Set NewC = NewM.Controls.Add
With NewC
.Caption = "1列目の処理" ''2つ目コマンド名
.OnAction = "Action_Column" ''実行するマクロ
.FaceId = 542
End With
End Sub
このコードで追加したメニューは、状況に応じて変化しません。
では次に、状況に応じて変化するメニューを追加してみます。
状況に応じてメニューのコマンドを変化させるには、
メニュー自体のOnActionプロパティにプロシージャを登録します。
Sub Sample2()
With CommandBars("Worksheet Menu Bar").Controls _
.Add(Type:=msoControlPopup)
.Caption = "新しいメニュー2"
.OnAction = "ChangeMenu" ''メニューがクリックされたとき実行するマクロ
.Controls.Add ''空のコマンド1
.Controls.Add ''空のコマンド2
End With
End Sub
メニュー[新しいメニュー2]をクリックすると、メニューの項目を展開する前に
OnActionプロパティで指定した"ChangeMenu"が実行されます。
プロシージャ"ChangeMenu"は、次のように作成しておきましょう。
Sub ChangeMenu()
With CommandBars("Worksheet Menu Bar").Controls("新しいメニュー2")
If Selection.Rows.Count > 1 Then
With .Controls(1)
.Caption = ActiveCell.Row & "行目の処理"
.Enabled = False
.FaceId = 330
.OnAction = "Action"
End With
Else
With .Controls(1)
.Caption = ActiveCell.Row & "行目の処理"
.Enabled = True
.FaceId = 541
.OnAction = "Action"
End With
End If
If Selection.Columns.Count > 1 Then
With .Controls(2)
.Caption = ActiveCell.Column & "列目の処理"
.Enabled = False
.FaceId = 330
.OnAction = "Action"
End With
Else
With .Controls(2)
.Caption = ActiveCell.Column & "列目の処理"
.Enabled = True
.FaceId = 542
.OnAction = "Action"
End With
End If
End With
End Sub
2つのコマンドは、クリックされるとアクティブセルの列幅や行の高さを
表示するという簡単なプロシージャを実行することにします。
それぞれのコマンドで別々のプロシージャを実行してもいいのですが、
ここではどのコマンドがクリックされたかを判定して処理を分岐するような
共通プロシージャ"Action"を使います。
Sub Action()
Select Case True
Case InStr(CommandBars.ActionControl.Caption, "行") > 0
With ActiveCell
MsgBox .Row & "行目の高さは" & .RowHeight, 64
End With
Case InStr(CommandBars.ActionControl.Caption, "列") > 0
With ActiveCell
MsgBox .Column & "列目の幅は" & .ColumnWidth, 64
End With
Case Else
End Select
End Sub
任意のセルを選択した状態で、メニューを開いてみてください。
***************************************************************************
★編集後記
***************************************************************************
気付けば今週で2月も終わり。ということは2010年がすでに6分の1終わってる？！
年の数だけ月日の経つのが早くなると聞いたことを思い出し、ふとグーグルで
「年の数 月日 経過」で検索してみると…。
上位に出てくるのは、エクセルのDATEDIF関数情報でした(>_<)
もうちょっと風情のある記事を見たかったのですが…。
今回のスタッフブログでは、同僚のお姉さまからいただいたご質問をご紹介♪
またまた「えっ？レベルダウン？！」と思うような質問が…。
スタッフブログへ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)│TrackBack(0)
この記事へのトラックバックURL
⇒ http://trackback.blogsys.jp/livedoor/mougle/51743416
