Office & VBA パーフェクトマスター

◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
　あなたのスキルに＋１　
　　　　
　　　　　　　　　　Office & VBA パーフェクトマスター
　　　
 　>>　http://www.moug.net/　【オフパー】Vol.691　2007/04/04　48,635部発行
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
………PR…………………………………………………………………………………………

………PR…………………………………………………………………………………………


【目次】

★　モーグからのお知らせ

　　　　・今月の書籍プレゼントはできる大事典！
　　　　・オートシェイプでお絵かきコンテスト←本日投票締め切り！！

★　Excel一般機能テクニック紹介
　　　〜　CONCATENATE関数を使う

★　モーグショップのおすすめ

★　一問多答！

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

★　AccessVBAテクニック
　　　〜　トランザクション処理を行う

★　スタッフ編集後記


………PR…………………………………………………………………………………………

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

◆今月の書籍プレゼントは皆様お待ちかね、『できる大事典2007』シリーズ！！

4月の書籍プレゼント応募受付開始

『できる大事典 Excel 2007 Windows Vista対応』
　　　仕事に強い新Excel、全解説！Excel 2007の全機能、全操作をもれなく解説！
　　　表やグラフの作成、条件付き書式の設定、データの集計と分析方法を豊富な
　　　フルカラー画面と実例で紹介。強化されたピボットテーブルや並べ替え、
　　　新機能のテーマ、SmartArtの操作もすぐにわかる優れもの。

　　　
『できる大事典 Word 2007 Windows Vista対応』
　　　文書作成に強い新Word、全解説！Word 2007の全機能、全操作を豊富なフル
　　　カラー画面と実例で紹介。日本語入力、図形描画、はがきや原稿用紙の作成
　　　差し込み印刷、文書校正、ほかのアプリケーションとの連携、テーマ、
　　　SmartArtなどの新機能まで、基本から使いこなしのコツがよくわかる！
　　　
ご応募は以下URLから。たくさんのご応募お待ちしております♪
書籍プレゼントページ >>　http://www.moug.net/campaign/present0704.htm

　　　　　‥‥……━━━━━━━━━━━━━━━━━━━……‥‥

　　　　◆オートシェイプでお絵かきコンテスト『本日』投票締め切り◆

オートシェイプでお絵かきコンテストの投票はもうお済ですか？
本日、投票締め切りとなっております。一人の持ち票は各部門2票ずつ。部門1･2･3
で、いいな、素敵だなと思った作品を2つずつ選んでください。皆様の投票で大賞が
決定します！皆様のご参加お待ちしてます。

オートシェイプでお絵かきコンテスト　>>　http://www.moug.net/autoshape2007/

部門1　絵画・人物画　>>　http://www.moug.net/autoshape2007/1-1.htm
部門2　実用オートシェイプ　>>　http://www.moug.net/autoshape2007/2-1.htm
部門3　VBAアニメーション　>>　http://www.moug.net/autoshape2007/3-1.htm


****************************************************************************
　★Excel一般機能テクニック集
****************************************************************************

＜Contents＞
7桁の数値を郵便番号に変換 (Excel2000/2002/2003/2007)

● 概要 ●

データベースで保存されていた郵便番号データをExcelにエクスポートした場合に、
郵便マークやハイフンが入らずに、7桁の数値だけが表示されることがあります。
そこで、先頭に“〒”マークを表示し、3桁目と4桁目の数値の間に“-”を追加する
方法をご紹介します。

● 詳細 ●

方法1>>　セルの書式設定を利用する

(1) 該当セルで右クリックをして『セルの書式設定』を選択する。

(2) 『表示形式』の『ユーザー定義』で以下のように設定する。
　　"〒"000"-"0000

他にも『その他』では、郵便マークはつきませんが『郵便番号』表示を選択すると
"000-0000"と表示することも出来ます。


方法2>>　CONCATENATE関数を利用する

(1) 郵便番号を入力したいセルを選択
(2) セルに=CONCATENATE("〒",LEFT(7桁の数値が入力されているセル,3),
　　　"-",RIGHT(7桁の数値が入力されているセル,4))
　　と入力します。
　　(例)セルA1に7桁の数値が入力されている場合、
　　　　=CONCATENATE("〒",LEFT(A1,3),"-",RIGHT(A1,4))　と入力。

CONCATENATE関数は、指定したセルを結合する関数です。
LEFT関数とRIGHT関数により先頭から3桁の数値と末尾から4桁の
数値を求め、“〒”と“-”を結合します。


方法3>>　"＆"（アンパサンド）を利用する

(1) 郵便番号を入力したいセルを選択
(2) セルに="〒"&LEFT(A1,3)&"-"&RIGHT(A1,4)　と入力。

これは、方法2の"=CONCATENATE"と同じ用途ですが、記述を簡単にする方法です。


● 参考 ●

“〒”マーク、“-”を削除する場合

(1) 7桁の数値を入力したいセルに
　　=CONCATENATE(MID(〒のついた数値が入力されているセル,2,1),
　　 RIGHT(〒のついた数値が入力されているセル,4))
　　と入力します。
　　(例)セルA1に〒のついた数値が入力されている場合、
　　　　=CONCATENATE(MID(A1,2,3),RIGHT(A1,4))　と入力します。

(2) MID関数により取り出す数値の開始位置を2文字目からと指定し、
　　2文字目から3桁の数値と末尾から4桁の数値を結合します。
　　
方法3と同じように、"＆"（アンパサンド）を利用してこれも簡略化可能です。
　　　　=CONCATENATE(MID(A1,2,3),RIGHT(A1,4))　これを
　　　　=MID(A1,2,3)&RIGHT(A1,4)　このように出来ます。


速攻テクニック参考　>>文字列を分割する - Left,Mid,Right,Instr
　　　　　　　　　　http://www.moug.net/tech/exvba/0140016.htm


掲示板参考スレッド　>>セルの中身をを分割したい！
　　　　　　　　　　http://www2.moug.net/bbs/exopr/20070327000039.htm


****************************************************************************
　★モーグショップからのおすすめ　http://www.moug.net/shop/
****************************************************************************
『説得できるビジネスプレゼン200の鉄則』
　　　　　　　　著者：永山嘉昭/山崎紅 / 出版社：日経BP社/日経BP出版センター
　　　　　　　　　　　　　　　　　　　　　　　　発行年月:2003年11月/1,890円

あなたのプレゼン、人を納得させられますか？

　　　　　　　　　Amazon　>>　http://www.moug.net/cgi-bin/ama.cgi?4822291812
　　　モーグ楽天ブックス　>>　http://www.moug.net/cgi-bin/rak.cgi?0001614065
　　　　　‥‥……━━━━━━━━━━━━━━━━━━━……‥‥

『40歳から伸びる人40歳で止まる人』
　　　　　　　著者：川北義則 /出版社：PHP研究所 　発行年月：2005年10月/457円

男の人生、「本当の勝負」は40歳からだ！

　　　　　　　　　Amazon　>>　http://www.moug.net/cgi-bin/ama.cgi?4569664679
　　　モーグ楽天ブックス　>>　http://www.moug.net/cgi-bin/rak.cgi?0003652933


****************************************************************************
　★一問多答！！
****************************************************************************

勉強はなかなか一人では壁に当たって進まないもの。そんな悩みを解決するのが我等
がモーグ。同じ対象を見ても違う感想があるように、いろいろな角度で自分に合った
回答をモーグで見つけてください。
VBAエキスパートExcel VBAスタンダードの例題を使って、モーグの利用法を
ご案内します。
----------------------------------------------------------------------------
例題）「売上」というワークシートの右側に２枚の新規ワークシートを挿入する
　　　ステートメントとして正しいものを１つ選びなさい。
　　　
1.　Worksheets.Add Before:=Worksheets("売上"), Count:=2
2.　Worksheets.Add After:=Worksheets("売上"), Type:=2
3.　Worksheets.Add Before:=Worksheets("売上"), Type:=2
4.　Worksheets.Add After:=Worksheets("売上"), Count:=2

さて、上記の設問。肝心なのは"Worksheets.Add"ですよね。では、モーグのサイト
検索・掲示板検索を利用してあなたなりの正解を探してみましょう。

●Excelのシートにおける追加について　2007/03/10（土）の質問
http://www2.moug.net/bbs/exvba/20070310000024.htm

●シートを追加する(Addメソッド)　即効テクニック集
http://www.moug.net/tech/exvba/0040048.htm

上記ページを見ていただければ方法はお分かりですね？方法と詳細は近日モーグ
ブログにて発表します、お楽しみに。
http://blog.moug.net/


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

・競馬集計_土台版
　http://blog.moug.net/archives/50909845.html

・郵便番号住所変換アドイン for Access(V1.000)
　http://blog.moug.net/archives/50909849.html

ご応募いただいているフリーソフトはただいま検証中です。続々追加予定なので
みなさまご期待ください！

モーグのフリーソフトコーナーでは、随時フリーソフトの応募をお待ちしています。
あなたの作った便利ソフト、たくさんの人に使ってもらって実力を測るチャンス
です！

今回ご紹介したソフトの他にも、珠玉のソフトウェアが勢揃いしています。

　　　　モーグフリーソフトコーナー　>>　http://www.moug.net/dnload/index.htm
　　　　
　　　　
****************************************************************************
　★AccessVBAテクニック集
****************************************************************************

＜Contents＞

トランザクション処理を行う  （Access2000/2002/2003）


● 概要 ●

構文  expression.BeginTrans
      expression.CommitTrans

設定項目        内容
expression      Connectionオブジェクトを指定［省略不可］


　BeginTransメソッドはトランザクションを開始します。CommitTransメソッドは変
更をすべて保存してトランザクションを終了します。新しいトランザクションを開始
することもできます。
　トランザクションの中でトランザクションを開始する、すなわち、トランザクショ
ンをネストして実行する場合は、BeginTransメソッドをトランザクションのネストレ
ベルを返す関数として実行することができます。関数として実行する場合は、戻り値
としてトップレベルのトランザクションは「1」、次のトランザクションは「2」を返
します。
　CommitTransメソッドはカレントトランザクションのみ、すなわち、最後に開始し
たトランザクションのみ終了します。したがって、トランザクションをネストしてい
る場合に、すべてのトランザクションを終了するには、トランザクションの数だけ
CommitTransメソッドを実行する必要があります。
　次のコードは、「商品tbl」テーブルの最初のレコードの「単価」フィールドをト
ランザクション中で更新しています。このサンプルを実行する場合は、フォルダ名や
データベース名をお使いの環境に合わせてください。


● サンプル ●

Sub TransSample1()
    Dim myCN As New ADODB.Connection
    Dim myRS As New ADODB.Recordset
    myCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=C:\AccessVBA\Sample1.mdb"
    myCN.Open
    myRS.LockType = adLockOptimistic            '共有にする
    myRS.Open "商品tbl", myCN                   'レコードセットを開く
    myCN.BeginTrans                             'トランザクション開始
    myRS!単価 = "170"                           '単価を変更
    myRS.Update                                 'レコードセットを保存
    myCN.CommitTrans                            '更新を確定
                                                'トランザクション終了
    myRS.Close                                  'レコードセットを閉じる
    myCN.Close
End Sub


● サンプル2 ●

　CommitTransメソッドで新しいトランザクションを連続して開始するには、Connect
ionオブジェクトのAttributesプロパティに定数adXactCommitRetainingを指定します
　次のコードは、ConnectionオブジェクトのAttributesプロパティに定数
adXactCommitRetainingを指定してトランザクションを連続して実行しています。

Sub TransSample2()
    Dim myCN As New ADODB.Connection
    Dim myRS As New ADODB.Recordset
    myCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=C:\AccessVBA\Sample1.mdb"
    myCN.Open
    myCN.Attributes = adXactCommitRetaining     '連続トランザクション可能
    myRS.LockType = adLockOptimistic            '共有にする
    myRS.Open "商品tbl", myCN                   'レコードセットを開く
    myCN.BeginTrans                             'トランザクション開始
    myRS!単価 = "190"                           '単価を変更
    myRS.Update                                 'レコードセットを保存
    myCN.CommitTrans                            '更新を確定
                                                '次のトランザクション開始
    myRS.MoveNext                               '次のレコードを参照
    myRS!単価 = "300"                           '単価を変更
    myRS.Update                                 'レコードセットを保存
    myCN.Attributes = 0                         '連続トランザクション不可
    myCN.CommitTrans                            '更新を確定
                                                'トランザクション終了
    myRS.Close                                  'レコードセットを閉じる
    myCN.Close
End Sub


● 注意 ●

トランザクション処理をサポートしていないプロバイダもあります。また、
CommitTransメソッドによる連続したトランザクション処理もプロバイダによっては
サポートされていません。


****************************************************************************
　★編集後記
****************************************************************************
突然の構成変更です。どちらかというと昔に戻ったような・・・。
これからのオフパーは、メルマガの始まり（易しめ基本）→メルマガの終わり（VBA)
というような流れですすめていきたいと思いますので、これからもよろしく
お願いします！・・・ということはこの編集後記が最大の難問コンテンツなの
かしら？(^^;)　ともあれ、これからもオフパーはボリュームはあるけど、親しみ
やすく、読みやすいけどためになるメールマガジンを目指して一夜邁進して
まいります。お付き合いの程、よろしくお願いします！！
　　　　　　　　　　　　　　　　　　モーグ　メールマガジン編集部（ち）


　▼　モーグブログでも　▼
　モーグブログでは文字だけでは伝わりにくいテクニックの画像を公開！
　　　　　　　　　　　　　　　　　　　　　　　　　>>　http://blog.moug.net/


■Webサイト「モーグ」
　掲示板で質問！テクニック検索やフリーソフトのダウンロードも。
　Office & VBA 「モーグ」 http://www.moug.net/

■登録解除はこちら → http://www.moug.net/mmaga/index.htm


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

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

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

　　　　　‥‥……━━━━━━━━━━━━━━━━━━━……‥‥

執筆・編集　株式会社オデッセイ コミュニケーションズ
モーグメールマガジン編集部

　　　　　　　　　　　　　　　　　 問い合わせ先　moug@odyssey-com.co.jp
　　　　　　　　　　　　　　　　　　　　 モーグ　http://www.moug.net/
　　　株式会社オデッセイ コミュニケーションズ　http://www.odyssey-com.co.jp
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆