トップ > コンピュータ > エクセル・ワード > Office & VBA パーフェクトマスター

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

RSS

Excel・Access・Word等の今さら聞けない「疑問」、今すぐ知りたい「困った」、たちまち解決!のmoug(モーグ)がお送りする、関数初心者からVBA手練の方への+1テクニックメールマガジン!読めば納得の情報マガジンです。

メルマ!ガ オブ・ザ・イヤー 2005 受賞メルマガ


メルマガの登録・解除

登録した方には、メルマ!からオフィシャルメルマガ(無料)をお届けします。


最新の記事リスト

  1. このメルマガはサンプル記事のみ表示されています

メルマガ情報

最終発行日:
2016-11-09
発行部数:
5644
総発行部数:
7961334
創刊日:
2000-03-03
発行周期:
毎週 水曜日
Score!:
97点

このメルマガはサンプル記事のみ公開されています(最新号を読むにはメルマガ登録が必要です)

◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
 あなたのスキルに+1 
    
          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スタンダードの例題を使って、モーグの利用法を
ご案内します。
----------------------------------------------------------------------------
例題)「売上」というワークシートの右側に2枚の新規ワークシートを挿入する
   ステートメントとして正しいものを1つ選びなさい。
   
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
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆

ブックマークに登録する

TwitterでつぶやくLismeトピックスに追加するはてなブックマークに追加del.icio.usに追加Buzzurlにブックマークニフティクリップに追加Yahoo!ブックマークに登録
My Yahoo!に追加Add to Google

規約に同意してこのメルマガに登録/解除する

登録/解除

メルマ!のおすすめメルマガ

  1. Lucky Dip!お薦め懸賞情報

    最終発行日:
    2016/11/24
    読者数:
    24212人

    Lucky Dip!から安心できる本当にお勧めの懸賞情報をお届けします。

  2. 経営戦略考

    最終発行日:
    2016/12/03
    読者数:
    4481人

    第一線のコンサルタントが毎日、日経新聞の記事を題材として経営戦略の原理原則を解説します。経営者はもちろん、キャリアアップを狙うサラリーマン、OLの方は必読!毎日発行だから、話のネタ仕入れにも最適です。

  3. 使わなきゃ損!便利なフリーソフト!

    最終発行日:
    2016/11/15
    読者数:
    3173人

    まぐまぐ大賞2007コンピューター部門 第1位のあなたのパソコン生活を変えるフリーソフト専門メルマガ。パソコンからiOS/Android向けの無料アプリまで幅広く紹介してます。

  4. STORM BTO PC

    最終発行日:
    2016/11/18
    読者数:
    22537人

    BTOパソコンインターネットショップ「STORM」がお届けするパソコンユーザー必見のメールマガジンです

  5. 月刊アカシックレコード

    最終発行日:
    2016/11/17
    読者数:
    17072人

    02年W杯サッカー韓国戦の「誤審」を世界で唯一「前日」に誌上予測し、誤審報道を「常識化」した推理作家が、政官財界の分析にも進出し、宣伝費ゼロで読者19,000人を獲得。2009年9月から月刊化。

発行者プロフィール

http://www.moug.net/

『Office製品の今さら聞けない「疑問」、今すぐ知りたい「困った」、たちまち解決!』のmoug(モーグ)がお送りする、関数初心者からVBA手練の方への+1テクニックメールマガジン!読めば納得の情報マガジンです。 ※ MSMVP保有者の田中亨さんのテクニックコラム、連載してます ※ 執筆・編集:モーグ運営事務局