「月間ＧＰランキングで、図書券2000円分が5名様に毎月当たる！」 毎月、ランキングで　1位、2位、7位、33位、77位　入賞の方5名様。（重複順位は抽選）毎月月末締め切りで、翌月2日に発表！ 今月のランキング懸賞当選者は...こちら！

　┏━━━【 目 次 】 ━━━━━━━━━━━━━━━━━━━━━┓
　┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃
　┃　１．┃ご挨拶！　　　　　　　　　　　　　　　　　　　　　　┃
　┃　２．┃厳選ツール　（　実用編　）　　　　　　　　　　　　　┃
　┃　３．┃ＳＥでの経験談　　　　　　　　　　　　　　　　　　　┃
　┃　４．┃レンタルサーバのご案内　　　　　　　　　　　　　　　┃
　┃　５．┃懸賞つきスピードくじ（バーチャルコネクションのみ）　┃
　┃　６．┃購読・解除の手続き方法　　　　　　　　　　　　　　　┃
　┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃
　┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)

ご購読ありがとう！

(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)-(^^)

　┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
　┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃
　┃　１．┃ご挨拶！　　　　　　　　　　　　　　　　　　　　　　┃
　┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

こんにちは！「これがほしかった！厳選サンプルツール集」
ご購読、ありがとうございます。

ＰＣに興味がなくて、
あまり携わっておられない方が、親戚にいるのですが、
「ウィルスって、コンピューターにも感染するんだっ・・・」
と、聞かれたことがあります。

それだけ、世間的にも認知されるほどになったようですね。

筆者もこまめに、ウィルスチェックをしておりますが、
連日、アップデートされるウィルスのワクチンがあることに
驚いている毎日です。

さて、今回ピックアップの厳選サンプルツール集のご案内です。

　┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
　┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃
　┃　２．┃厳選ツール　（　実用編　）　　　　　　　　　　　　　┃
　┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

【　VBでExcelのすべてのワークブックの帳票を印刷します 】

【注意書き】
●VB 言語を使っているものとします。
●動作環境は、WinXX を使用しているとします。

エクセルオブジェクト を引き渡して、
下記のPRN_EXCEL 関数を呼び出すと、
ワークブックに含まれるシートをすべて印刷します。
また、ひとつのエクセルインスタンスに
複数のワークブックが含まれる場合でも、
すべてのワークブックを対象に、
印刷します。

印刷トラブルを回避するために、
ワークブックをとじないで印刷しています。
今回は、そのご紹介です。

#------------------VB コードここから-------------------------------

Function PRN_EXCEL(Pi_o_Excel As Object)

Dim i_Cnt As Integer 'シートカウンタ
Dim o_Book As Object 'アクティブワークブック

Dim i_Index As Integer 'インデックス
Dim i_IndexMAX As Integer 'インデックスマックス
Dim l_Ret As Long '戻り値

On Error GoTo PRN_EXCEL_Err

PRN_EXCEL = False

'ワークブックを閉じないで印刷していくパターン
'こっちの方が印刷トラブルで回避できる（リトライできる）
'ので望ましい
i_Index = 0
i_IndexMAX = Pi_o_Excel.Application.Workbooks.Count

Do

i_Index = i_Index + 1
If i_Index > i_IndexMAX Then
Exit Do
End If

Pi_o_Excel.Application.Workbooks(i_Index).Activate

If Pi_o_Excel.Application.Workbooks.Count = 0 Then
Exit Do
Else
For i_Cnt = 1 To Pi_o_Excel.Application.Worksheets.Count
If Pi_o_Excel.Application.Worksheets(i_Cnt).Visible = True Then
'Sheets.PrintOut
Pi_o_Excel.Application.Worksheets(i_Cnt).PrintOut
End If
Next
End If

Loop

PRN_EXCEL_End:

PRN_EXCEL = True
Exit Function

PRN_EXCEL_Err:

'システムエラー処理
end

End Function

#------------------VB コードここまで-------------------------------

VBで操作できるようにExcelのオブジェクトを作成します
操作するオブジェクトの定義
Public PbobjApp as Object
Dim s_RunPath As String '実行するパス
Dim i_Ret as Integer

'Excelファイルのパスをここにセットします
s_RunPath = "excelfile.xls"

'オブジェクトの作成
Set PbobjApp = CreateObject("Excel.application")

'ワークブックのオープン
PbobjApp.Workbooks.Open s_RunPath, , True

'印刷開始
i_Ret=PRN_EXCEL(PbobjApp)

★掲載URL
http://anetm.com/m/m.cgi?SC=DTDTL&o=e/

　┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
　┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃
　┃　３．┃ＳＥでの経験談　　　　　　　　　　　　　　　　　　　┃
　┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

開発に取り組む場合、チーム編成とそのプロジェクトのボリュームにも
よりますが、最適な人数は、数人程度（２桁いかない程度の人数）が、
　　非常に、望ましいそうです。

デベロッパーの人数が、多ければ、
開発スピードがはやいと思われがちですが、その後のケアや、変更、
取りまとめ等を考えると、数倍のコストに膨れ上がった！
といったことも耳にします。

何事にも、適温ってありますねっ！

筆者は、３人〜５人で開発していたときのほうが、
かなり、効率がよかったと実感しています。

お互いの意思の疎通や、理解が十分にできる環境作りから、
その開発プロジェクトの鍵を握っているのではないでしょうか・・・

　　また、デベロッパーにも苦悩があります。

デベロッパーには、技術的な躍進を常に身につけなければいけませんし、
プロジェクトの進行にも気を配らなければいけませんね・・・
その上、客先の変更対応にもしゃにむにがんばってる裏方仕事。

日夜がんばっておられる、管理者様へ・・・
そんなデベロッパーの皆様を、大いにいたわってあげてください。
　
お願いです！

　┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
　┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃
　┃　４．┃レンタルサーバのご案内　　　　　　　　　　　　　　　┃
　┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

趣味のホームページ、ごく普通のコーポレートサイトから、国内最大級の
モバイルコミュニティ、ビッグキャンペーンサイトまで、
3,000台超の運用サポート実績を誇る、AT-LINK専用サーバ・サービス。

定型以外にも、いろいろなリクエストをお聞かせください。
『不可能の文字』は "ホトンド" ありません。

専用サーバの運用に欠かせない、24時間・365日の安心サポートが好評です。

ここから → http://anetm.com/ATLINK/

　　Dual Xeon 2.4Ghz 搭載マシンをはじめとする New Face が新登場！
ＤＢソフトも無償でインストール。セキュリティ情報も無償で通知します！

　┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
　┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃
　┃　５．┃懸賞つきスピードくじ（バーチャルコネクションのみ）　┃
　┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

　バーチャルコネクションには、エンターテイメントが満載です。
　ビンゴ、獣競争、めくりっこ！育てゲームも・・・
　エンターテイメントお楽しみいただきながら、賞品獲得が狙える
　サービスを提供しています。好きなお時間でお楽しみいただけます！

ツクル君の スピードくじで賞品獲得チャンス拡大！（からくじなしです）
http://anetm.com/a/a.cgi/SC=K&u=URL&n=l&m=MLM

┏━┓┏━┓┏━┓当たるキャンペーン開催中！ゲームで賞品獲得できる！
┃図┃┃書┃┃券┃参加は、こちらまで http://anetm.com/m/i.cgi?o=u7
┗━┛┗━┛┗━┛図書券 2,000円分 を５名様に毎月プレゼント！

　┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
　┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃
　┃　６．┃購読・解除の手続き方法　　　　　　　　　　　　　　　┃
　┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

　「これがほしかった！厳選サンプルツール集」メールマガジンの

　購読の 解除 は、次のページから、ご自身でお願いします。
　メールでの解除依頼は、受け付けることができません。
　^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
http://anetm.com/m/devtools.htm
http://anetm.com/m/info.htm

　【 購読の登録・解除 の詳細ご案内 】

　● バーチャルコネクションのユーザーの皆様
　 バーチャルコネクション：　http://anetm.com/m/
　 「ユーザールームへ」からログインして頂き
　 「ツクル君の独り言」メニューから
　 「これがほしかった！厳選サンプルツール集」の購読チェックで
　 解除は、チェックを はずすだけ です！

　● バーチャルコネクションのユーザーでない方
　 懸賞などにご応募なされて、
　 購読している方は、「アイネットマコト」で解除が行えます。
　 その場合は、こちらから解除が可能です。
　 http://anetm.com/m/devtools.htm
　 （アイネットマコト、解除に、メールアドレスを入力されてください）

　最後までみてくれて、ありがとうございます。
　それでは、また。

・・・‥‥……━━━━━━━━━━━━━━━━━━━━━━━━━━━
発行元：アイネットマコト 発行責任者：鶴丸
編集スタッフ：まこりん と ツクル君ファミリー
お問い合わせ: http://anetm.com/m/info.htm

このメールマガジンは、アイネットマコトを利用して発行しています。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━……‥‥・・・

くわしくは、こちらです。