2009年07月08日
【オフパー】Vol.804 ファイルを変更できないようにする方法はご存知ですか？
- ◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
あなたのスキルに＋１
Office & VBA パーフェクトマスター
>> http://www.moug.net/ 【オフパー】Vol.804 2009/07/08
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
【目次】
★ モーグからのお知らせ
ファイルを変更できないようにする方法はご存知ですか？
★ オデッセイコミュニケーションズからのお知らせ
VBAエキスパート・新試験のサンプル問題にチャレンジしてみよう！
★ Office 製品共通一般機能テクニック
〜 Excel 2007で開いている複数のブックを1度に閉じる
★ 一問多答！！
★ モーグフリーソフト紹介
★ 田中亨の ExcelVBAテクニック
〜 Format関数でできること
★ 編集後記
- ***************************************************************************
★モーグからのお知らせ
***************************************************************************
▼ファイルを変更できないようにする方法はご存知ですか？
作成したファイルを他の人に見せる際、データを変更されてしまったり、
きれいに整ったレイアウトを崩されてしまった…という経験はありますか？
そんな方にはファイルを変更できないような形で、他の人に利用してもらうと
安心です！そのための設定方法は？？
╋…━…━…━…━…╋
♪方法はこちら♪ → http://www.moug.net/tech/exopr/0060015.htm
╋━…━…━…━…━╋
****************************************************************************
★オデッセイコミュニケーションズからのお知らせ
****************************************************************************
▼ VBAエキスパート・新試験のサンプル問題にチャレンジしてみよう！
マクロ機能やVBAのスキルを認定する資格試験「VBAエキスパート」の
サンプル問題を公開中。あなたは何問答えられますか？今すぐチャレンジ!!
╋…━…━…━…━…╋
♪詳細はこちら♪ → http://vbae.odyssey-com.co.jp/training/smpl_index.html
╋━…━…━…━…━╋
***************************************************************************
★Office 製品共通一般機能テクニック
***************************************************************************
＜Contents＞
Excel 2007で開いている複数のブックを1度に閉じる（Excel 2007のみ）
●概要●
複数のブックを開いているとき、2003以前のバージョンのExcel では、Excel の
ウィンドウの右上にある［×］（閉じる）ボタンをクリックすると、すべてのブック
を1度に閉じ、同時にExcel を終了することができました。Excel 2007で同様に
［×］（閉じる）ボタンをクリックすると、画面の一番手前に表示されている
（アクティブになっている）ブックが1つずつ閉じられていきます。
今回はExcel2007で、1度に複数のブックを閉じてExcelを終了する方法を紹介します。
●詳細●
1.[Office]ボタンをクリック
2.[Excel の終了]を右クリック
3.[クイック アクセス ツール バーに追加]をクリック
4.クイック アクセス ツール バーに追加された［×］コマンドをクリック
●補足●
2回目以降は、クイック アクセス ツール バーの［×］アイコンをクリックするだけ
で、ブックとExcel の終了が同時に行えます。また、[Office]ボタンから[Excelの
終了]ボタンをクリックしても、同じ結果が得られます。
■Excel一般機能の便利機能とその他の設定に関するテクニックはこちらから
⇒ http://www.moug.net/tech/exopr/0101.htm
***************************************************************************
★一問多答！！
***************************************************************************
勉強したことをきちんと覚えているかを確認することは大切です。
一問多答では、ExcelやWordなどを日常使用されている方に知っておいてほしい機能
や多くの方が疑問に思われている題材をテーマに出題します！
今月は『Word一般機能』に関する問題です！
---------------------------------------------------------------------------
例題）「36℃」の「℃」を入力する方法として、次の中から間違っているものを
1つ選びなさい。
1. 「c」と入力して変換する
2. 「せっし」と入力して変換する
3. 「ど」と入力して変換する
4. 「おんど」と入力して変換する
正解はモーグブログにて発表中です。ご確認ください！
⇒ http://www.moug.net/ads/ofp_vba.html
モーグブログ内では、回答だけでなく簡単な解説をご紹介しています！
ぜひご覧くださいね。
***************************************************************************
★モーグフリーソフト紹介
***************************************************************************
モーグのフリーソフトコーナーで公開しているソフトをご紹介します。
・Access Biz 顧客管理 EX Ver.1.04
http://blog.moug.net/archives/51335072.html
・減価償却計算ソフトVer2.6
http://blog.moug.net/archives/51566681.html
皆さんの気になるフリーソフトは見つかりましたか？
モーグのフリーソフトコーナーでは「財務・会計管理」「アドイン」
「ビジネス・業務用」「ユーティリティー」「家庭向け・アミューズメント」など
多種多様な、お役立ちフリーソフトが満載です！
いますぐ、モーグフリーソフトコーナーへアクセスを！
モーグフリーソフトコーナーへ ⇒ http://www.moug.net/freesoft/
***************************************************************************
★田中亨の ExcelVBAテクニック
***************************************************************************
『田中亨の ExcelVBAテクニック集』。数々のExcel著書で有名なMicrosoft MVP
保有者 田中亨さん がオフパー読者のために、より実践に即した、今すぐ使える
テクニックをあなたに伝授！ これは毎週目が離せない！！
---------------------------------------------------------------------------
■Format関数でできること(Excel 97/2000/2002/2003/2007)
セルには表示形式を設定できます。
たとえば、セルに「1234」と入力して「#,##0」の表示形式を設定すると
セル内のデータは変化せず、セルの表示だけが「1,234」となります。
このように、表示形式を設定した結果をVBAで取得するときは、Format関数を
使います。
Sub Sample1()
MsgBox Format(1234, "#,##0")
End Sub
表示形式と言えば日付関係ですね。もちろん、日付も変換できます。
Sub Sample2()
MsgBox Format(Now, "ggge年m月d日")
End Sub
このFormat関数は「表示形式と同じ機能」と言われることがありますが、
実は、表示形式では使えない独自の書式記号も持っています。
たとえば、大文字/小文字の変換が可能です。
Sub Sample3()
Dim buf As String
buf = "Microsoft Excel"
MsgBox Format(buf, ">") ''大文字に変換
MsgBox Format(buf, "<") ''小文字に変換
End Sub
文字列の書式記号である「@」は、表示形式とは異なる働きをします。
実際に下記のコードを実行して、実行結果をご確認ください。
Sub Sample4()
Dim buf As String
buf = "ABC"
MsgBox Format(buf, "@は@の@です") & vbCrLf & _
Format(buf, "@@@@@") & vbCrLf & _
Format(buf, "@@@@@@") & vbCrLf & _
Format(buf, "!@@@@@@") ''文字を左から埋める
End Sub
元の値がシリアル値だった場合、日付に関する次のような書式記号を使えます。
w → 曜日を表す数値を返します(日曜日が1、土曜日が7)
ww → その日が1年のうちで何週目に当たるかを表す数値を返します(1〜54)
y → 1年のうちで何日目に当たるかを数値で返します(1〜366)
oooo → 月の名前を日本語で返します(1月〜12月)
q → 1年のうちで何番目の四半期に当たるかを表す数値を返します(1〜4)
「ww」は分析ツールアドインを組み込んだときワークシート上で使える
WEEKNUM関数と同じですね。
「q」で取得できる四半期は、例によって1月始まりです。
期首の月を自由に設定できれば使いやすいんですけどね。
中には他の関数などで取得できるものもありますが、覚えておいて損はありません。
一般的によくやる操作で、Format関数が便利なのは曜日の判定です。
たとえば、任意の日付が「土曜日かどうか」を判定したい場合は、
Weekday関数を使う方法が有名ですね。
Sub Sample5()
If Weekday(Now) = 7 Then
MsgBox "土曜日です"
Else
MsgBox "他の曜日です"
End If
End Sub
しかし、Weekday関数の返り値で「7」が土曜ということを記憶している人は
多くありません。
「If Weekday(Now) = 7 Then」の部分が、間違いなく「土曜かどうか」を
判定しているか、コードを見ただけで、瞬時に読み取れるとは限りません。
こんなときは、Format関数で判定すれば、可読性が飛躍的に向上します。
Sub Sample6()
If Format(Now, "aaaa") = "土曜日" Then
MsgBox "土曜日です"
Else
MsgBox "他の曜日です"
End If
End Sub
「If Format(Now, "aaaa") = "土曜日" Then」という条件は、誰が見ても
「土曜日かどうかを判定している」ということが明らかです。
***************************************************************************
★編集後記
***************************************************************************
昨日は7月7日七夕でしたが、短冊に願いごとを書いたことありますか？
もちろん子供の頃は多くの人が経験があるかと思いますが…。
最近はあまり七夕の飾り付けを見なくなったような気もしますが？？
でも、短冊に書いた願いごとを友達に見られることが気恥ずかしかったように
記憶しています。今なら何をお願いしたいかなぁ？
さて、今回は前回・前々回に引き続き、集計表の作り方をご紹介！
SUM関数で合計を求めますが、実はいろいろな方法があるってご存知でしたか？
スタッフブログへ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 09:00
│Comments(0)
