[Tool's Review]ステンレスものほし台 ブロー台付き BD-50S 【ブロー台付きで安定性抜群・U型の竿受けで竿の取り外し楽々! 】

（１）レビュー
　最近、引越しをしました。
　ベランダの物干し竿を固定する位置が転居前よりも高く、
　身長が低い妻にとって家事がしづらいので、
　物干し台を購入しました。
　
　組み立て式の為、多少のぐらつきはありますが、
　実際使ってみても全く不便さを感じません。

　物干し台の土台の重りが、
　タンクに水や砂を入れるタイプなので、
　今後引越しすることになっても、持ち運びが楽になります。
　
　土台の重りの目安は、下記の通りです。

・水のみを入れた場合：	１６Kg×２＝３２Kg
・砂のみを入れた場合：	２２Kg×２＝４４Kg
・水と砂を混ぜて入れた場合：	２８Kg×２＝５６Kg

　砂を混ぜると、
　引越しの際に中身（砂＆水）を抜く時が大変なので、
　用途に応じて使い分けるといいかもしれません。
　ちなみに我が家は『水のみ』ですが問題なく使えています。

　【ご参考】価格について　（2015.1時点）
　渋谷の東急ハンズだと1万円近くでしたが、
　アマゾンだと5,500円でした。

（２）リンク

ステンレスものほし台 ブロー台付き BD-50S 【ブロー台付きで安定性抜群・U型の竿受けで竿の取り外し楽々! 】

• 出版社/メーカー: 積水樹脂
• メディア: ホーム&キッチン

[Book's Review (Develop)]ASP.NET MVC 5実践プログラミング

（１）レビュー
　ASP.NETは、以下の2種類に大別されます。

（１）ASP.NET Web Form 　　　.NET Framework1.0リリース時の頃から導入 　（２）ASP.NET MVC 　　　.NET Framework4以降に導入

　５年前まではASP.NETといえば、ASP.NET Web Formが主流でしたが、
　他のWeb系の言語（Java、PHP、Ruby等）と比べて異色な仕組みの為、
　初めてASP.NETを学ぶ人にとってはとっつきにくいものがありました。
　最近のWeb開発はMVCが主流になりつつあり、.NETもそれに合わせて
　ASP.NET MVCの仕組みが追加されました。

　本書はASP.NET MVCについて、
　基礎から応用までわかりやすく解説しています。
　
　これからASP.NET MVCを始める方にとって、貴重な１冊だと思います。

（２）リンク

ASP.NET MVC 5実践プログラミング

• 作者: 山田 祥寛
• 出版社/メーカー: 秀和システム
• 発売日: 2014/09
• メディア: 単行本

[Hardware's Review]クーラーパッド（K-CLN16U2RN）

（１）レビュー
　３年前に購入したノートパソコンの
　CPUとHDDの熱が気になったので、
　クーラーパッド（パソコンのクーラー）を購入しました。

　【店頭での印象】
　　店頭で、手をのせて他の製品と比較しましたが、
　　本体がアルミボディなのか、
　　冷却されたボディのひんやり感を一番感じました。
　　あと、クーラー本体に小物の収納ボックスがついています。
　　普段使わないゴム足などの付属品をいれるのに
　　便利だと思いました。

　【実際に使った感想】
　　フリーソフトの『Open Hardware Monitor』で
　　CPUとHDDの温度を測定すると、
　　下記の結果になりました。
　　効果はあるようです。
　　【適用前】
　　　・CPU：約５５度
　　　・HDD：約４０度
　　【適用後】
　　　・CPU：約４５度
　　　・HDD：約３５度

　　取扱説明書は入っていませんが、
　　本製品のサイトで動画を使った説明が
　　掲載されているので、
　　特に困ることはないと思います。
　　[参考サイト]
　　http://www.sanwa.co.jp/product/syohin.asp?code=TK-CLN16U2RN

　【改善して欲しい点】
　　電源ケーブルが短い（80cm）為、
　　PCのUSBポートからの電源供給を余儀なくされます。
　　USBポートを塞ぎたくない場合もあると思うので、
　　コンセントからも供給できるように、
　　電源ケーブルがより長くしてもらうと融通が利くと思います。
　　AC電源とUSBの変換アダプタを別途購入すれば、
　　融通は効かせられるので、
　　インタフェースはUSBのままでもよいと思います。
　
　【特徴】
　・ファン数：２つ
　・ファンの強弱をボリュームで調節できる。
　・ファンの位置を調節できるのでピンポイントで冷却できる。
（２）リンク

サンワサプライ ノート用クーラーパッド レッド・16型ワイド TK-CLN16U3RN

• 出版社/メーカー: サンワサプライ
• メディア: Personal Computers

[Hardware's Review]10ポートUSBハブ（U2H-Z10SBK ）

（１）レビュー
　パソコンにクーラーパッドを取り付けた為、　
　USBポートの口が足りなくなったので、USBハブを購入しました。

　【実際使った感想】
　　・USBポートを１０個搭載しているので、
　　　将来的に接続する機器が増えても個数を気にする必要がありません。
　　・電源供給はセルフパワーとバスパワーの両方に対応しています。
　　　マウスやキーボードなど大量の電力を消費しない場合は
　　　バスパワーで、
　　　外付けHDDやDVDドライブなど、
　　　大量の電力を消費する機器を使う場合はセルフパワーで使います。
　　　ただ、セルフパワーを使う場合、ACアダプタが大きい為、
　　　OAタップの種類によっては、
　　　コンセントの差込口の場所をとることになるのが難点です。
　　　セルフパワーとバスパワーについては、こちらをご参照。

（２）リンク

ELECOM USBハブ USB2.0対応 がっちり固定 マグネット付 セルフ・バスパワー両対応 10ポート 1.5m ブラック U2H-Z10SBK

• 出版社/メーカー: エレコム
• メディア: Personal Computers

[雑記]ソフトバンクの焼きそば

ソフトバンクショップに料金プランの変更に行ったら、
インスタントの焼きそばをいただきました。
しかも、
妻（Docomoユーザですが（笑））も一緒についてきたので、
２食分もいただいちゃいました

[SQLServer]sqlcmdコマンドの表示桁数の指定

（１）はじめに
　sqlcmdコマンドで、
　SELECTステートメントを実行した時、
　行の折り返しで、結果が見づらくなることがあります。

　OracleのLINESIZEに相当する設定が、
　SQLServerにもないか調べてみました。

　普段は、Management Studio等のGUIツールを使いますが、
　たまにCUIを使うことがあるので、備忘録として載せておきます。

（２）コマンド
　[前提]
　　　SQLServer2005以降　（2000以前はosqlを使用します。）
　[コマンド]
　　sqlcmdコマンドの実行時に、オプションで指定します。（-w [表示桁数]）
　　例
　　　・接続先：(local)\SQLEXPRESS
　　　・接続方法：SQLServer認証
　　　・ユーザ：sa　、パスワード：pass
　　　・表示桁数：1000
　　　　 　　　　 　　　　 　　　　

コマンド

sqlcmd -S (local)\SQLEXPRESS -U sa- P pass -w 1000

　[補足]
　　　sqlcmdで表示桁数を増やしても、
　　　コマンドプロンプトのウィンドウ幅が狭いと、
　　　行を折り返してしまいます。
　　　事前にコマンドプロンプトのプロパティで、
　　　十分な幅を設定する必要があります。
　　　コマンドプロンプトの幅の設定手順は、以下の通りです。
　　　[手順]
　　　　（１）「プログラム名を指定して実行」
　　　　（２）「cmd」を実行
　　　　（３）ウィンドウの「プロパティ」
　　　　（４）「レイアウト」タブを選択
　　　　（５）「画面バッファのサイズ」の「幅」を変更。

[雑記]冬の風物詩

雪が積もるくらいに降ると、毎年誰かが作ってくれます 見かけたので、思わず写メに収めてしまいました

[Hardware's Review]デジカメ：Canon PowerShot A3500 ls

（１）レビュー 　携帯のカメラの機能に乏しさを感じたので、
　デジカメを購入しました。

　デジカメの購入は10年以上ぶりなので、
　当時の製品と比べるとかなり性能はアップしていますが、
　単純に、画素数や記録枚数が増えただけではないようです。

　一番、目新しいと感じたのは、『写真の転送機能』です。

　従来のデジカメは、写真をパソコンに転送するには、
　デジカメとパソコンをケーブルで接続するか、
　メディアをデジカメから取り出してパソコンにセットする必要がありました。

　今回購入したデジカメは、Wi-Fiに対応しており、
　デジカメ側は、操作メニューで項目を選択するだけで、
　無線LAN経由でパソコンに転送することができます。

　また、Wi-Fiを利用することで、
　スマホへの転送や、2台のデジカメ間でのデータ交換も可能です。

　さらに、PictBridge（USB and Wireless LAN）に対応したプリンタであれば、
　デジカメから直接、プリンタに写真を印刷することができます。

（２）リンク

Canon デジタルカメラ PowerShot A3500 IS(パープル) 広角28mm 光学5倍ズーム PSA3500IS(PR)

• 出版社/メーカー: キヤノン
• メディア: エレクトロニクス

[VBA]文字コードを指定してファイルにテキストを出力するクラスモジュール

[はじめに]
・最近、JSONファイルを扱うことがあり、
　UTF-8でテキストファイルを作成する機会があったので、
　作ってみました。
　備忘録としてサンプルを掲載します。
　クラスモジュールで定義することを前提としています。

[ソース]

''' <summary> ''' クラスモジュール名：TextWriterWithCharaSet ''' 文字コードを指定してファイルにテキストを出力するクラス ''' </summary> ''' <remarks></remarks> Option Explicit 'ファイルのバッファサイズ Private Const BUF_SIZE As Integer = 1024 '文字コード（デフォルト：UTF-8） Public CharCode As String '出力ディレクトリ Public TargetDirectory As String '出力ファイル名 Public TargetFileName As String 'FileSystemObject Private objFs As Object 'ADODB.Stream Private objStream As Object 'ADODB.StreamのSaveOptionsEnum Private Enum SaveOptionsEnum     'ファイルが存在しない場合にのみ作成します。     '存在する場合はエラー。（既定値）     adSaveCreateNotExist = 1     'ファイルが存在する場合は、     'ファイルを上書きします。     adSaveCreateOverWrite = 2 End Enum '出力テキストのコレクション Private colTraget As New Collection ''' <summary> ''' Initializeイベント（コンストラクタ） ''' </summary> ''' <remarks></remarks> Private Sub Class_Initialize()     Set objStream = CreateObject("ADODB.Stream")     Set objFs = CreateObject("Scripting.FileSystemObject")          Me.CharCode = "UTF-8"          Call ClearBuffer End Sub ''' <summary> ''' Terminateイベント（デストラクタ） ''' </summary> ''' <remarks></remarks> Private Sub Class_Terminate()           Call Flush          Set objStream = Nothing     Set objFs = Nothing End Sub ''' <summary> ''' テキストを出力する。 ''' </summary> ''' <param name="strText">出力テキスト</param> ''' <param name="useBuffer">バッファの利用有無（※省略時はTrue）</param> ''' <remarks></remarks> Public Sub WriteText( _     ByVal strText As String, _     Optional ByVal useBuffer As Boolean = True)          colTraget.Add strText          If useBuffer = True Then         'バッファ有効の場合は、         '一旦、バッファに溜めておき、         '特定サイズを越えてからファイル出力する。         If colTraget.Count > BUF_SIZE Then             Me.Flush         End If     Else         'バッファ無効の場合は、ファイルに出力         Me.Flush     End If End Sub ''' <summary> ''' バッファーの内容をテキストに出力する。 ''' </summary> ''' <remarks></remarks> Public Sub Flush()           Dim i As Long     Dim targetFilePath As String          On Error GoTo LBL_ERR:           'ファイルパスを生成     targetFilePath = objFs.BuildPath( _         GetTargetDirectory(), TargetFileName)          With objStream         .Charset = Me.CharCode         .Open                  'ファイルが既に存在する場合は、全テキストを読込む。         '※追記書込みができないので、         '  既存テキストをメモリ上に取込んでから上書きする。         If objFs.FileExists(targetFilePath) Then             .LoadFromFile targetFilePath             .Position = .Size         End If         For i = 1 To colTraget.Count             .WriteText colTraget(i)         Next                  .SaveToFile targetFilePath, _             SaveOptionsEnum.adSaveCreateOverWrite                  .Close          End With           Call ClearBuffer          Exit Sub LBL_ERR:           Call ClearBuffer            Err.Raise _          Number:=Err.Number, _          Description:="テキストの出力に失敗しました。" & _          Err.Description End Sub ''' <summary> ''' 出力ディレクトリを取得する。 ''' </summary> ''' <returns>出力ディレクトリ（デフォルト：ThisWorkbook.path）</returns> ''' <remarks></remarks> Private Function GetTargetDirectory() As String      If Me.TargetDirectory = "" Then          GetTargetDirectory = ThisWorkbook.path          Exit Function      End If      GetTargetDirectory = Me.TargetDirectory End Function ''' <summary> ''' 出力ファイルパスを設定する。 ''' </summary> ''' <param name="targetFilePath">出力ファイルパス</param> ''' <remarks></remarks> Public Sub SetFilePath(ByVal targetFilePath As String)           With objFs         Me.TargetDirectory = _             .GetParentFolderName(targetFilePath)         Me.TargetFileName = _             objFs.GetFileName(targetFilePath)     End With End Sub ''' <summary> ''' バッファーをクリアする。 ''' </summary> ''' <remarks></remarks> Public Sub ClearBuffer()      Dim i As Long            For i = colTraget.Count To 1 Step -1          colTraget.Remove i      Next End Sub

[VBA]文字コードを指定してファイルにテキストを出力するクラスモジュール

[ソース]

Private Sub CommandButton1_Click()     Dim rw As New TextWriterWithCharaSet          rw.CharCode = "UTF-8"     rw.SetFilePath "C:\aaa\hogehoge.txt"     rw.WriteText "ABCDE", True          Set rw = Nothing      End Sub

[VBA]使用例

[Book's Review (Develop)]C言語入門書の次に読む本

（１）レビュー
　C言語の中級者向けに書かれた書籍です。
　他の書籍では、入門書レベルの内容が大半で、
　中級以上の人が読む専門書は少ないのが現状です。
　入門レベルを卒業する為には、
　洗練されたソースを読んだり、スキルの高い人から学ぶなど、
　実践を通して経験するしかありません。
　本書は、他言語にもある基礎的な内容（条件分岐、ループ、関数など）は省略し、
　中級以上のC言語プログラマー向けにまとめています。

主な内容

・分割コンパイル 　・ヘッダ作成 　・ライブラリの作成 　・バグを発生させないコーディング 　・意外に知られていないノウハウも…　など

　意外に知られていないこととして、
　例えば、constキーワードがあります。
　【constキーワード】
　　（１）『円周率など、不変の値を利用する時に、
　　　　　値が変化しないことを保証することができる。』
　　（２）『ポインタの指す先の値が変化しないことを保証する。』

　（１）は他の言語でもよく使われるので、よく知られていますが、
　（２）は入門書レベルでは解説していないことが多いです。
　printfの第1引数『const char*』型の『const』は、（２）の意味になります。

　C言語の開発経験がなくても、
　他言語（.NET、Java、VBなど）の知識があれば、
　応用で理解できる内容だと思います。

（２）リンク

C言語 入門書の次に読む本 [改訂新版] (プログラミングの教科書)

• 作者: 坂井 弘亮
• 出版社/メーカー: 技術評論社
• 発売日: 2011/04/08
• メディア: 単行本（ソフトカバー）

[VBA]ログを出力するクラスモジュール

[はじめに]
・最近、Excelマクロを使う機会が増えたので、
　備忘録としてサンプルを掲載します。
　クラスモジュールで定義することを前提としています。

[ソース]

''' <summary> ''' クラスモジュール名：LogForExcel ''' ログ出力を制御するクラス ''' </summary> ''' <remarks></remarks> Option Explicit 'ログファイルのプレフィックス Private Const LOG_FILE_PREFIX As String = "LOG_" 'ログファイルの拡張子 Private Const LOG_FILE_EXTENSION As String = ".log" 'ログファイルのバッファサイズ Private Const LOG_BUF_SIZE As Integer = 1024 'ログ出力ディレクトリ Public LogDirectory As String 'FileSystemObject Private objFs As Object 'TextStreamObjectのIOモード Private Enum IOMode     ForReading = 0  '読み取り専用モード（既定値）     ForWriting = 1  '上書きモード     ForAppending = 8    '追記モード End Enum 'ログ出力対象 Private colTraget As New Collection ''' <summary> ''' Initializeイベント（コンストラクタ） ''' </summary> ''' <remarks></remarks> Private Sub Class_Initialize()     Set objFs = CreateObject("Scripting.FileSystemObject")          Call ClearLog End Sub ''' <summary> ''' Terminateイベント（デストラクタ） ''' </summary> ''' <remarks></remarks> Private Sub Class_Terminate()          Call Flush          Set objFs = Nothing End Sub ''' <summary> ''' ログを出力する。[Information] ''' </summary> ''' <param name="msg">出力メッセージ</param> ''' <param name="useBuffer">バッファの利用有無</param> ''' <remarks></remarks> Public Sub OutputInfo( _     ByVal msg As String, _     Optional ByVal useBuffer As Boolean = False)          Call OutputLog("Informaton", msg, useBuffer)      End Sub ''' <summary> ''' ログを出力する。[Warning] ''' </summary> ''' <param name="msg">出力メッセージ</param> ''' <param name="useBuffer">バッファの利用有無</param> ''' <remarks></remarks> Public Sub OutputWarn( _     ByVal msg As String, _     Optional ByVal useBuffer As Boolean = False)          Call OutputLog("Warning", msg, useBuffer)      End Sub ''' <summary> ''' ログを出力する。[Error] ''' </summary> ''' <param name="msg">出力メッセージ</param> ''' <param name="objErr">エラーオブジェクト</param> ''' <param name="useBuffer">バッファの利用有無</param> ''' <remarks></remarks> Public Sub OutputError( _     ByVal msg As String, _     Optional ByVal objErr As ErrObject = Nothing, _     Optional ByVal useBuffer As Boolean = False)          Dim strMsg As String          strMsg = msg          If Not (objErr Is Nothing) Then         strMsg = strMsg & ":" & _             "Err.Number:[" & objErr.Number & "]," & _             "Err.Description:[" & objErr.Description & "]:"     End If          Call OutputLog("Error", strMsg, useBuffer) End Sub ''' <summary> ''' ログを出力する。 ''' </summary> ''' <param name="logType">ログ種別</param> ''' <param name="msg">出力メッセージ</param> ''' <param name="useBuffer">バッファの利用有無</param> ''' <remarks></remarks> Private Sub OutputLog( _     ByVal logType As String, _     ByVal msg As String, _     ByVal useBuffer As Boolean)     colTraget.Add _         Format(Now, "yyyy/mm/dd hh:mm:ss") & ":" & _         logType & ":" & msg     If useBuffer = True Then         If colTraget.Count > LOG_BUF_SIZE Then             'バッファがサイズを超えた場合は、ファイルに出力             Me.Flush         End If     Else         'バッファ無効の場合は、ファイルに出力         Me.Flush     End If End Sub ''' <summary> ''' バッファーのデータをログに出力する。 ''' </summary> ''' <remarks></remarks> Public Sub Flush()          Dim objTs As Object 'TextStreamObject     Dim i As Long          On Error GoTo LBL_ERR:          Set objTs = objFs.OpenTextFile( _         fileName:=objFs.BuildPath( _             GetLogDirectory(), _             LOG_FILE_PREFIX & _             Format(Now, "yyyymmdd") & _             LOG_FILE_EXTENSION), _         IOMode:=IOMode.ForAppending, _         Create:=True)     For i = 1 To colTraget.Count         objTs.WriteLine colTraget(i)     Next          objTs.Close     Set objTs = Nothing     Call ClearLog    Exit Sub LBL_ERR:         If Not (objTs Is Nothing) Then         objTs.Close         Set objTs = Nothing     End If          Call ClearLog          Err.Raise _         Number:=Err.Number, _         Description:="ログの出力に失敗しました。" & _         Err.Description End Sub ''' <summary> ''' ログ出力ディレクトリを取得する。 ''' </summary> ''' <returns>ログ出力ディレクトリ（デフォルト：ThisWorkbook.path）</returns> ''' <remarks></remarks> Private Function GetLogDirectory() As String     If Me.LogDirectory = "" Then         GetLogDirectory = ThisWorkbook.Path         Exit Function     End If          GetLogDirectory = Me.LogDirectory End Function ''' <summary> ''' バッファーをクリアする。 ''' </summary> ''' <remarks></remarks> Public Sub ClearLog()     Dim i As Long          For i = colTraget.Count To 1 Step -1         colTraget.Remove i     Next End Sub

[VBA]ログを出力するクラスモジュール

[ソース]

Private Sub CommandButton1_Click()     Dim logger As New LogForExcel          On Error GoTo LBL_ERR          'ログ出力[Info]     Call logger.OutputInfo("出力テスト（Info）", True)     'ログ出力[Warn]     Call logger.OutputWarn("出力テスト（Warn）", True)          'ゼロ除算で意図的に例外を発生させる。     Debug.Print 1 / 0          Set logger = Nothing          Exit Sub LBL_ERR:          'ログ出力[Error]     Call logger.OutputError("出力テスト（Error）", Err, True)          Set logger = Nothing End Sub

[VBA]使用例

[VBA]ファイル保存ダイアログの表示

[はじめに]
・最近、Excelマクロを使う機会が増えたので、
　備忘録としてサンプルを掲載します。
　VBAの関数が使いにくいので、クラスモジュールにまとめてみました。
　.NETのSaveFileDialogクラスを真似して実装しているので、
　.NET開発者にとっては、お馴染みのインタフェースで使いやすいかと思います。

[ソース]

''' <summary> ''' クラスモジュール名：SaveFileDialog ''' ファイル保存ダイアログを制御するクラス ''' </summary> ''' <remarks></remarks> Option Explicit 'FileSystemPbject Private objFs As Object 'タイトル Public Title As String '初期ディレクトリ Public InitialDirectory As String '初期ファイル名 Public InitialFileName As String '[ファイルの種類]の選択肢 Public Filter As String '[ファイルの種類]の選択値 Public FilterIndex As Integer '選択したファイル名 Private m_FileName As String ''' <summary> ''' Initializeイベント（コンストラクタ） ''' </summary> ''' <remarks></remarks> Private Sub Class_Initialize()     Set objFs = CreateObject("Scripting.FileSystemObject")          Call Clear End Sub ''' <summary> ''' Terminateイベント（デストラクタ） ''' </summary> ''' <remarks></remarks> Private Sub Class_Terminate()     Set objFs = Nothing End Sub ''' <summary> ''' 初期化 ''' </summary> ''' <remarks></remarks> Public Sub Clear()          Me.InitialDirectory = Application.ThisWorkbook.path     Me.InitialFileName = ""     Me.Filter = "すべてのファイル(*.*),*.*"     Me.FilterIndex = 1     Me.Title = ""     m_FileName = "ファイル名を指定してください" End Sub ''' <summary> ''' フィルターを設定 ''' </summary> ''' <param name="filterArray">フィルター文字列</param> ''' <remarks></remarks> Public Sub SetFilterList(ParamArray filterArray() As Variant)     Filter = Join(filterArray, ",") End Sub ''' <summary> ''' 選択したファイル名を取得する。 ''' </summary> ''' <remarks></remarks> Public Function GetSelectedFileName() As String     GetSelectedFileName = m_FileName End Function ''' <summary> ''' パスとファイル名を結合する。 ''' </summary> ''' <param name="path">パス</param> ''' <param name="fileName">ファイル名</param> ''' <returns>結合後のフルパス</returns> ''' <remarks></remarks> Private Function BuildPath( _     ByVal path As String, _     ByVal fileName As String) As String          BuildPath = objFs.BuildPath(path, fileName) End Function ''' <summary> ''' ファイル保存ダイアログを開く ''' </summary> ''' <returns>vbOK：ファイル選択、vbCancel：キャンセル</returns> ''' <remarks></remarks> Public Function ShowDialog() As VbMsgBoxResult     Dim resDlg As Variant     Dim initDir As String          '初期ディレクトリの存在チェック     ' 存在しない場合は、Excelブックの配置ディレクトリに置き換える。     If objFs.FolderExists(Me.InitialDirectory) = False Then         Me.InitialDirectory = ThisWorkbook.path     End If          'ファイル選択ダイアログを開く     resDlg = _          Application.GetSaveAsFilename( _               InitialFileName:= _                 BuildPath( _                     Me.InitialDirectory, _                     Me.InitialFileName), _               FileFilter:=Me.Filter, _               FilterIndex:=Me.FilterIndex, _               Title:=Me.Title _              )     If resDlg = False Then         'キャンセルした場合         m_FileName = ""                  ShowDialog = vbCancel         Exit Function     End If          'ファイル選択した場合     m_FileName = resDlg          ShowDialog = vbOK     Exit Function      End Function

VBA]ファイル保存ダイアログ

[ソース]

Private Sub CommandButton1_Click()     Dim sfd As New SaveFileDialog          With sfd         .InitialDirectory = "C:\Hoge"         .InitialFileName = "abc.csv"         .Title = "タイトル"         .FilterIndex = 1         .SetFilterList "CSV(*.csv),*.csv", "すべてのファイル(*.*),*.*"              End With          'ファイル保存ダイアログを開く。     If sfd.ShowDialog() = vbOK Then         MsgBox sfd.GetSelectedFileName()     Else         MsgBox "キャンセルしました"     End If          '終了処理     Set sfd = Nothing End Sub

VBA]使用例

[VBA]ファイル選択ダイアログの表示

[はじめに]
・最近、Excelマクロを使う機会が増えたので、
　備忘録としてサンプルを掲載します。
　VBAの関数が使いにくいので、クラスモジュールにまとめてみました。
　.NETのOpenFileDialogクラスを真似して実装しているので、
　.NET開発者にとっては、お馴染みのインタフェースで使いやすいかと思います。

[ソース]

''' <summary> ''' クラスモジュール名：OpenFileDialog ''' ファイル選択ダイアログを制御するクラス ''' </summary> ''' <remarks></remarks> Option Explicit 'FileSystemPbject Private objFs As Object 'WScript.Shell Private objWs As Object 'タイトル Public Title As String '初期ディレクトリ Public InitialDirectory As String '[ファイルの種類]の選択肢 Public Filter As String '[ファイルの種類]の選択値 Public FilterIndex As Integer '複数選択の可否 Public MultiSelect As Boolean '選択したファイル名 Private m_FileNames() As String ''' <summary> ''' Initializeイベント（コンストラクタ） ''' </summary> ''' <remarks></remarks> Private Sub Class_Initialize()     Set objFs = CreateObject("Scripting.FileSystemObject")     Set objWs = CreateObject("WScript.Shell")          Call Clear End Sub ''' <summary> ''' Terminateイベント（デストラクタ） ''' </summary> ''' <remarks></remarks> Private Sub Class_Terminate()     Set objFs = Nothing     Set objWs = Nothing End Sub ''' <summary> ''' 初期化 ''' </summary> ''' <remarks></remarks> Public Sub Clear()          Me.InitialDirectory = Application.ThisWorkbook.path     Me.Filter = "すべてのファイル(*.*),*.*"     Me.FilterIndex = 1     Me.Title = "ファイルを選択してください"     Me.MultiSelect = True     ReDim m_FileNames(0) End Sub ''' <summary> ''' フィルターを設定 ''' </summary> ''' <param name="filterArray">フィルター文字列</param> ''' <remarks></remarks> Public Sub SetFilterList(ParamArray filterArray() As Variant)     Filter = Join(filterArray, ",") End Sub ''' <summary> ''' 選択したファイル名を取得する。 ''' </summary> ''' <remarks></remarks> Public Function GetSelectedFileNames() As String()     GetSelectedFileNames = m_FileNames End Function ''' <summary> ''' ファイル選択ダイアログを開く ''' </summary> ''' <returns>vbOK：ファイル選択、vbCancel：キャンセル</returns> ''' <remarks></remarks> Public Function ShowDialog() As VbMsgBoxResult     Dim resDlg As Variant     'カレントディレクトリを設定     objWs.CurrentDirectory = Me.InitialDirectory           'ファイル選択ダイアログを開く     resDlg = _          Application.GetOpenFilename( _               FileFilter:=Me.Filter, _               FilterIndex:=Me.FilterIndex, _               Title:=Me.Title, _               MultiSelect:=Me.MultiSelect _              )     If IsArray(resDlg) = False Then         If resDlg = False Then             'キャンセルした場合             ReDim m_FileNames(0)                          ShowDialog = vbCancel             Exit Function         End If     End If          ReDim m_FileNames(0)          'ファイル選択した場合     If IsArray(resDlg) = True Then         '複数選択の場合         Dim cnt_i As Integer                  For cnt_i = 1 To UBound(resDlg)             ReDim Preserve m_FileNames(cnt_i - 1)             m_FileNames(cnt_i - 1) = resDlg(cnt_i)         Next                  ShowDialog = vbOK         Exit Function     Else         '単一選択の場合         ReDim m_FileNames(0)         m_FileNames(0) = resDlg              ShowDialog = vbOK         Exit Function     End If      End Function

[VBA]ファイル選択ダイアログ

[ソース]

Private Sub CommandButton1_Click()          Dim ofd As New OpenFileDialog          With ofd         .Title = "ファイル選択ダイアログ（単一選択）"         .FilterIndex = 1         .MultiSelect = False         .SetFilterList "CSV(*.csv),*.csv", "すべてのファイル(*.*),*.*"              End With          'ファイル選択ダイアログを開く。     If ofd.ShowDialog() = vbOK Then                  Dim cntI As Integer         Dim fList() As String                  fList = ofd.GetSelectedFileNames()                  For cntI = 0 To UBound(fList)             MsgBox fList(cntI)         Next     Else         MsgBox "キャンセルしました"     End If     '終了処理     Set ofd = Nothing End Sub

[VBA]使用例

[VBA]指定したブック内のシート検索

[はじめに]
・最近、Excelマクロを使う機会が増えたので、備忘録としてサンプルを掲載します。
　指定したブック内のシートを検索する処理です。

[ソース]

Option Explicit ''' <summary> ''' 指定したブック検索する。 ''' </summary> ''' <param name="bookName">ブック名</param> ''' <returns>対象のWorkBook。（存在しない場合はNothing）</returns> ''' <remarks></remarks> Public Function FindBook( _     ByVal bookName As String) As Workbook     Dim bk As Workbook          For Each bk In Workbooks         If bk.name = bookName Then             Set FindBook = Workbooks(bk.name)             Exit Function         End If     Next End Function ''' <summary> ''' 指定したブック内のシートを検索する。 ''' </summary> ''' <param name="sheetName">シート名</param> ''' <param name="bookName">ブック名（※省略時はThisWorkbook.Name）</param> ''' <returns>対象のWorkSheet。（存在しない場合はNothing）</returns> ''' <remarks></remarks> Public Function FindSheet( _     ByVal sheetName As String, _     Optional ByVal bookName As String = "") As Worksheet     Dim bk As Workbook     Dim sht As Worksheet     If bookName = "" Then         'ブック名を省略した場合は、         '自分自身のブックを対象とする。         Set bk = ThisWorkbook     Else         Set bk = FindBook(bookName)                  If bk Is Nothing Then             '指定したブック名が存在しない場合は、Nothingを返す。             Set FindSheet = Nothing             Exit Function         End If              End If          For Each sht In bk.Sheets         If sht.name = sheetName Then             Set FindSheet = bk.Worksheets(sht.name)             Exit Function         End If     Next     'シートが存在しない場合、Nothingを返す。     Set FindSheet = Nothing End Function

[VBA]指定したブック内のシートを検索

[Book's Review (Develop)]〔速攻入門〕 C#プログラミング すぐに現場で使える知識

（１）レビュー
　JavaやC++の経験者向けのC#の入門書です。
　経験者向けの為、プログラミングの基礎知識の説明は割愛しています。
　その分、類似機能について他言語（Java、C++）との比較を交えたり等、
　より深い技術の解説が充実しています。
　本書の執筆時点では、
　.NET Framework4（C#4.0、VisualStudio2010）が最新版ですが、
　プレビュー版ですが、.NET Framework4.5（C#5.0）も紹介しています。

（２）リンク

〔速攻入門〕 C#プログラミング すぐに現場で使える知識

• 作者: 中 博俊
• 出版社/メーカー: 技術評論社
• 発売日: 2012/03/09
• メディア: 単行本（ソフトカバー）

[Book's Review (Develop)]LINQテクノロジ入門

（１）レビュー
.NET Framework3.5、Visual Studio 2008から導入された
LINQ（Language Integrated Query）についての入門書です。
LINQの細かい文法よりも、
なぜこの技術が導入されたかの背景についてを重点に、
わかりやすく解説しています。

（２）リンク

LINQテクノロジ入門~Microsoft Visual Studio 2008による新たなクエリ構築技法~ (マイクロソフトコンサルティングサービステクニカルリファレンスシリーズ)

• 作者: 赤間信幸
• 出版社/メーカー: 日経BPソフトプレス
• 発売日: 2008/07/28
• メディア: 単行本（ソフトカバー）

[Book's Review (Develop)]プログラミングC# 第6版

（１）レビュー
　.NET Framework4やC#の書籍で、
　入門編レベルよりもさらに踏み込んだ技術を習得したい方にお勧め！
　レベルの高い書籍だと、文章がわかりにくかったり、
　無駄にページ数が多かったり、『～編』のようにシリーズ化しているものが多いですが、
　この書籍はわかりやすくまとめてあります。
　また.NET Framework4の新機能（並行性、動的言語サポート、共変性と反変性）についての
　解説も充実しています。

（２）リンク

プログラミングC# 第6版

• 作者: Ian Griffiths
• 出版社/メーカー: オライリージャパン
• 発売日: 2011/11/29
• メディア: 大型本

[Cookware's Review]踊るたこ焼き器

（１）レビュー
たこ焼きの調理で、ひっくり返す作業も自動でやってくれる器具です。
ちょっとお値段が高いのが難点かな。。。。

（２）リンク

踊る！ たこ焼き器～電気式 半自動 踊るたこ焼き器 （18ヶ取）

• 出版社/メーカー: ブランケネーゼ
• メディア:

踊る！たこ焼き器 ホームセット　通常版 １８穴　たこ焼きが踊るように丸く焼きあがる踊るたこ焼き器ブランケネーぜ　家庭用 踊るたこ焼き器(GTK-74)

[Toy's Review]マスター将棋

（１）レビュー
友人が将棋を覚える為に
『マスター将棋』というのを購入しました。

初心者でもルールがわかるように、
コマに『動かし方』の絵が描いてあります。

説明書もマンガになっていて、
初心者が読んでも理解しやすいようになっています。

ただ難点をいうと、
ルールを知っている人からすると、
全てのコマが同じ大きさなので、
ぱっと見どれが大駒なのかわかりにくいことかな（笑）

歩兵も飛車も同じ大きさです。。。

（２）リンク

マスター将棋

• 出版社/メーカー: ビバリー
• メディア: おもちゃ＆ホビー

類似商品として『マスターチェス』なんてのもあるようです。

マスターチェス

• 出版社/メーカー: ビバリー
• メディア: おもちゃ＆ホビー

[Book's Review (Develop)]ASP.NET逆引き大全600の極意―ASP.NET2.0/3.5/4対応

（１）レビュー
今までありそうでなかった逆引きシリーズですが、
ASP.NETバージョン４にして初めて発売されました。（従来のASPはありましたが。。。）

よく使う機能から、.NETならではの新機能（メンバーシップ等）まで、
何気にカテゴリーを追いかけるだけでも面白いかもしれません。

ASP.NETをこれから始める人、更に理解を深めたい人にとっては、貴重な１冊だと思います。

（２）リンク

ASP.NET逆引き大全600の極意―ASP.NET2.0/3.5/4対応

• 作者: 山田 祥寛
• 出版社/メーカー: 秀和システム
• 発売日: 2011/09
• メディア: 単行本

[Book's Review (Develop)].NETのクラスライブラリ設計 開発チーム直伝の設計原則、コーディング標準、パターン

（１）レビュー
.NETでシステム開発する際のガイドラインです。
ガイドラインだけならインターネットで検索すればでてきそうですが、
本書は、著者だけでなくたくさんの開発者からのコメントも寄稿されて、
実際の開発者の生の声や失敗談もまとめられています。

これから始める人、改善したい人にとっては、貴重な１冊だと思います。

（２）リンク

.NETのクラスライブラリ設計 開発チーム直伝の設計原則、コーディング標準、パターン (Microsoft.net Development Series)

• 作者: Krzysztof Cwalina
• 出版社/メーカー: 日経BPソフトプレス
• 発売日: 2009/12/24
• メディア: 大型本

[VBA]罫線描画＆罫線消去

[はじめに]
・Excelマクロで罫線描画、罫線消去を実装することがよくあります。
　『マクロの記録』で簡単に作れますが、汎用性がないので関数化しました。
　機能は単純に、セル範囲に罫線（外枠、内側の境界線）を描画するだけです。
　とりあえず、備忘録として載せておきます。

[ソース]

Option Explicit ''' <summary> ''' 指定したセル範囲に罫線を描画する。（外枠、内側の境界線） ''' </summary> ''' <param name="targetRange">対象セル範囲</param> ''' <remarks></remarks> Public Sub DrawLine(ByVal targetRange As Range)     With targetRange              '個々のセルの右上がり斜線         .Borders(xlDiagonalUp).LineStyle = xlNone                  '個々のセルの右下がり斜線         .Borders(xlDiagonalDown).LineStyle = xlNone                  'セル範囲の最上端         With .Borders(xlEdgeTop)             .LineStyle = xlContinuous             .ColorIndex = xlAutomatic             .TintAndShade = 0             .Weight = xlThin         End With                  'セル範囲の最下端         With .Borders(xlEdgeBottom)             .LineStyle = xlContinuous             .ColorIndex = xlAutomatic             .TintAndShade = 0             .Weight = xlThin         End With                  'セル範囲の最左端         With .Borders(xlEdgeLeft)             .LineStyle = xlContinuous             .ColorIndex = xlAutomatic             .TintAndShade = 0             .Weight = xlThin         End With                  'セル範囲の最右端         With .Borders(xlEdgeRight)             .LineStyle = xlContinuous             .ColorIndex = xlAutomatic             .TintAndShade = 0             .Weight = xlThin         End With                  If .Cells(1).Row < .Cells(.Count).Row Then             'セル範囲の上下端以外の境界線             '【注意（Excel2003以前のみ】             ' セル範囲が複数行にわたる場合のみ処理します。             ' 単数行の場合に処理するとエラーになることがあります。             With .Borders(xlInsideHorizontal)                 .LineStyle = xlContinuous                 .ColorIndex = xlAutomatic                 .TintAndShade = 0                 .Weight = xlThin             End With         End If         If .Cells(1).Column < .Cells(.Count).Column Then             'セル範囲の左右端以外の境界線             '【注意（Excel2003以前のみ】             ' セル範囲が複数列にわたる場合のみ処理します。             ' 単数列の場合に処理するとエラーになることがあります。             With .Borders(xlInsideVertical)                 .LineStyle = xlContinuous                 .ColorIndex = xlAutomatic                 .TintAndShade = 0                 .Weight = xlThin             End With         End If     End With End Sub ''' <summary> ''' 指定したセル範囲の罫線を消去する。（外枠、内側の境界線） ''' </summary> ''' <param name="targetRange">対象セル範囲</param> ''' <remarks></remarks> Public Sub EraseLine(ByVal targetRange As Range)          With targetRange                  '個々のセルの右上がり斜線         .Borders(xlDiagonalUp).LineStyle = xlNone                  '個々のセルの右下がり斜線         .Borders(xlDiagonalDown).LineStyle = xlNone                  'セル範囲の最上端         .Borders(xlEdgeTop).LineStyle = xlNone                  'セル範囲の最下端         .Borders(xlEdgeBottom).LineStyle = xlNone                  'セル範囲の最左端         .Borders(xlEdgeLeft).LineStyle = xlNone                  'セル範囲の最右端         .Borders(xlEdgeRight).LineStyle = xlNone                  If .Cells(1).Row < .Cells(.Count).Row Then             'セル範囲の上下端以外の境界線             '【注意（Excel2003以前のみ）】             ' セル範囲が複数行にわたる場合のみ処理します。             ' 単数行の場合に処理するとエラーになります。             .Borders(xlInsideHorizontal).LineStyle = xlNone         End If                  If .Cells(1).Column < .Cells(.Count).Column Then             'セル範囲の左右端以外の境界線             '【注意（Excel2003以前のみ）】             ' セル範囲が複数列にわたる場合のみ処理します。             ' 単数列の場合に処理するとエラーになることがあります。             .Borders(xlInsideVertical).LineStyle = xlNone         End If              End With End Sub

[ExcelVBA]罫線の描画＆消去

Private Sub CommandButton1_Click()     '罫線描画     Call DrawLine(Selection) End Sub Private Sub CommandButton2_Click()     '罫線消去     Call EraseLine(Selection) End Sub

[ExcelVBA]呼び出し例