PC関連 フォルダ表示をデフォルトで「詳細」にする

（対象）WindowsXP～
（確認）WindowsXP



（やりたいこと）
フォルダ表示をデフォルトで「詳細」にする
（以下の4番を変えればその他の表示にすることも可能）


（方法）
　１．エクスプローラを開く
　２．「ツール」ー「フォルダオプション」
　　


　３．「表示タブ」ー「各フォルダの表示設定を保存する」の
　　　チェックを外す
　　


　４．表示方法を「詳細」にする（他の表示方法でも可）
　５．再度「各フォルダの表示設定を保存する」にチェックを入れる
　６．「すべてのフォルダに適用」押下後、閉じる
　　

---

以上、「フォルダ表示をデフォルトで「詳細」にする」でした。
階層変わるたびにいちいち直すのって面倒ですよねぇ……。

PC関連 登録した文字を別PCに持っていく

（対象）WindowsXP～
（確認）WindowsXP



（やりたいこと）
辞書ツールに登録したデータを他のPCに持っていく


（方法）
＜元のPC＞
　１．言語バーのツールボタンをクリック
　２．辞書ツールを選択
　　


　３．「ツール」ー「一覧の出力」でtxtファイルを作成
　　

---

＜移し先のPC＞
　１．言語バーのツールボタンをクリック
　２．辞書ツールを選択
　３．「ツール」ー「テキストファイルから登録」で
　　　元PCで作ったファイルを読み込む
　　

---

以上が登録した文字を別PCに持っていくでした。
確か7以降もこのやり方だったと思われますが、
不安な方はお願いグーグル先生！のお時間です。

Excel ツールバー

（対象）Excel　VBA
（確認）Excel2003


今回は自分で作るツールバーについてです。


マクロを作成した時、実行するために一番簡単なのは
VBAの画面でF5かF8を押すことですね。

その次はシートにボタンを作ってマクロを登録すること
でしょうか。


でもこう思うことはありませんか？

「どこのシートにいてもマクロを実行出来るようにしたい」

と。


ツールバーを使用すればそんな悩みは即解決してしまいますね。
作り方としては以下の通りになります。


－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
　　'============================================
　　'ツールバーの設置
　　'============================================
　　Sub ToolBarOn()
　　　Dim myBar　　　   As CommandBar　　　　'ツールバー
　　　Dim MyButton　　 As CommandBarButton　'ツールバーのボタン
　　　Dim CB　　　　　As Variant　　　　　　'ツールバーの確認用
　　　Dim BCaption(1)　As String　　　　　　'表示文字列
　　　Dim BAction(1)　  As String　　　　　　'登録するマクロ
　　　Dim BText(1)　　 As String　　　　　　'ボタンにカーソル当てた時の説明文
　　　Dim BFace(1)　   As Integer　　　　　　'ボタンに使うアイコン
　　　Dim I　　　　　   As Long　　　　　　　'登録数分回すFor-Next用

　　　'■表示文字列の設定
　　　BCaption(0) = " 表示文字１　"
　　　BCaption(1) = " 表示文字２　"
　　　
　　　'■登録アクション（マクロ）設定＝プロシージャ名
　　　BAction(0) = "ACT1"
　　　BAction(1) = "ACT2"

　　　'■説明文の設定
　　　BText(0) = "ボタンにカーソル当てた時の説明が入るよ"
　　　BText(1) = "ボタンにカーソル当てた時の説明が入るよ"

　　　'■フェイスIDの設定（一覧）
　　　BFace(0) = 50
　　　BFace(1) = 300
　　　
　　　'■すでに同名のツールバーが存在する場合は削除
　　　Set myBar = CommandBars.Add
　　　For Each CB In CommandBars
　　　　　If CB.Name = "動作" Then
　　　　　　　CommandBars("動作").Delete
　　　　　　　Exit For
　　　　　End If
　　　Next

　　　'■ツールバーの名前を設定
　　　myBar.Name = "動作"
　　　myBar.Position = msoBarTop
　　　

　　　'■ツールバー作成（I = 登録するボタンの数）
　　　For I = 1 To 2
　　　　　Set MyButton = myBar.Controls.Add
　　　　　With MyButton
　　　　　　　.BeginGroup = True　　’ボタンとボタンの境界線
　　　　　　　.Style = msoButtonIconAndCaptionBelow　'※
　　　　　　　.Caption = BCaption(I - 1)
　　　　　　　.OnAction = BAction(I - 1)
　　　　　　　.TooltipText = BText(I - 1)
　　　　　　　.FaceId = BFace(I - 1)
　　　　　End With
　　　Next 

　　　'■ツールバーの設置
　　　myBar.Visible = True
　　End Sub



　　'============================================
　　'ツールバーの排除
　　'============================================
　　Sub ToolBarOff()
　　　　Dim myBar As CommandBar
　　　　Dim CB　　　　As Variant

　　　　For Each CB In CommandBars
　　　　　　If CB.Name = "動作" Then
　　　　　　　　CommandBars("動作").Delete
　　　　　　　　Exit For
　　　　　　End If
　　　　Next
　　End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－


これを実行するとツールバーが作成されます。

以前ご紹介した「ブックの開閉時の動作」に組み合わせると、
開いた時にツールバーを設置し、閉じる時に削除するという
動作が可能になります。


ちなみに、プログラム中の「※」部分についてですが、
ここを変更するとツールバーの表示のされ方が変わります。


下図がその結果です。

もしかしたらやり方がおかしくて上手くなってないところも
あるかもしれませんが。







以上、ツールバーを作ってみようでした。

Excel小技集2

（対象）Excel　VBA
（確認）Excel2003


今回はExcel VBAの小技集パート2を並べてみましょう。
内容によっては2007以降は使えないのでご注意ください。


－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

１．対象のブックを他に開いている人がいないか調べる

　　＝　ActiveWorkbook.UserStatus
　　　　・・・UserStatus(n, 1)　：　ユーザー名
　　　　・・・UserStatus(n, 2)　：　ブックを開いた日時
　　　　・・・UserStatus(n, 3)　：　共有（2）か否（1）か
　　　　参照URL
　　　　※というかここの通りなだけなので細かいことはリンク先を見た方がいい


　（使用例）
　　　'===========================================================
　　　' 対象のブックをほかに開いている人がいないかどうかを調べる
　　　'===========================================================
　　　Sub　CheckAnotherUser()
　　　　　Dim　Users　As　Variant
　　　　　Dim　MSG　　As　String
　　　　　Dim　I　　　As　Integer

　　　　　'■変数に対象の結果を格納
　　　　　Users　=　ActiveWorkbook.UserStatus

　　　　　'■変数の最大数が1の場合は自分だけ、それ以上の場合は誰かが開いている
　　　　　'※UBound(配列変数)　＝　配列変数の最大要素数の取得
　　　　　If　UBound(Users)　=　1　Then
　　　　　　　MsgBox　"他に開いているユーザーはいません"
　　　　　Else
　　　　　　　For　I　=　0　To　UBound(Users)　-　1
　　　　　　　　　MSG　=　Users(I,　1)　&　"　:　"　&　Users(I,　2)　&　vbCrLf
　　　　　　　Next
　　　　　　　MsgBox　"あなた以外の誰かがブックを開いています　:　"　& _
　　　　　　　　　　　　vbCrLf　&　MSG
　　　　　End　If
　　　End　Sub


　（解説）
　　　今開いているブックを開いている人が自分以外に誰かいるかを確認。
　　　ブックを指定するならば「ActiveWorkbook」を「Workbooks(ファイル名)」に
　　　してもよい。


－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

２．範囲内の図形の削除
　　参照URL


　（使用例）
　　　'===========================================================
　　　' 範囲内の図形の削除
　　　'===========================================================
　　　Sub　DeleteShape()
　　　　　Dim ShapTop As Double
　　　　　Dim ShapLeft As Double
　　　　　Dim ShapBotom As Double
　　　　　Dim ShapRight As Double
　　　　　

　　　　　'■指定セル範囲の上下左右の位置情報を取得
　　　　　With　WHX.Range("A15:E30")
　　　　　　　ShapTop = .Top
　　　　　　　ShapLeft = .Left
　　　　　　　ShapBotom = .Top + .Height
　　　　　　　ShapRight = .Left + .Width
　　　　　End　With
　　　　

　　　　　'■シート内のオブジェクト全てを確認し、範囲内なら削除
　　　　　For Each OBJ In ActiveSheet.DrawingObjects
　　　　　　　If Not OBJ Is Nothing Then
　　　　　　　　　With　OBJ
　　　　　　　　　　　If ShapTop <= .Top And ShapLeft <= .Left And _
　　　　　　　　　　　　ShapBotom >= .Top + .Height And ShapRight >= .Left + .Width Then
　　　　　　　　　　　　　.Delete
　　　　　　　　　　　End If
　　　　　　　　　End　With
　　　　　　　End　If
　　　　　Next
　　　End　Sub


　（解説）
　　　★「ShapBotom = .Top + .Height」　＝　上位置＋高さ
　　　★「ShapRight = .Left + .Width」　＝　左位置＋幅
　　　★「ShapTop <= .Top」
　　　　　　＝　オブジェクトの上位置が範囲の上位置より下
　　　★「ShapLeft <= .Left」
　　　　　　＝　オブジェクトの左位置が範囲の左位置より右
　　　★「ShapBotom >= .Top + .Height」
　　　　　　＝　オブジェクトの下位置が範囲の下位置より上
　　　★「ShapRight >= .Left + .Width」
　　　　　　＝　オブジェクトの右位置が範囲の右位置より左
　　

　　　※詳しくは下図参照※

　　　

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－


３．指定した文字列があったらその部分だけ文字を装飾する
　　＝　対象セル.Characters(Start:=*, Length:=*).Font.***
　　　　・・・Bold（太字）、ColorIndex（色）、Size（サイズ）など


　（使用例）
　　　'===========================================================
　　　' 指定した部分だけ文字を装飾する
　　　'===========================================================
　　　Sub FontDecoration()
　　　　　Dim LG As Long
　　　　　Dim I As Long
　　　　　Dim J As Long

　　　　　'■最終行まで回して該当したら太字にして文字色を変える
　　　　　LG = Range("A65536").End(xlUp).Row
　　　　　For I = 1 To LG
　　　　　　　'△見ているセルに「ABC」が含まれるか
　　　　　　　If Range("A" & I).Value Like "*ABC*" Then
　　　　　　　　　'◆セルの中のABCの部分を探す
　　　　　　　　　J = InStr(1, Range("A" & I).Value, "ABC")
　　　　　　　　　Range("A" & I).Characters(Start:=J, Length:=3).Font.Bold = True
　　　　　　　　　Range("A" & I).Characters(Start:=J, Length:=3).Font.ColorIndex = 10
　　　　　　　End If
　　　　　Next
　　　End Sub


　（解説）
　　　★「J = InStr(1, Range("A" & I).Value, "ABC")」
　　　　　→Instr(スタート、対象文字列、検索文字列）

　　　★「Range("A" & I).Characters(Start:=J, Length:=3).Font.Bold = True」
　　　　　→Range("A" & I)　＝　A列I行目のセルで
　　　　　→Start:=J　　　　＝　J番目の文字から
　　　　　→Length:=3　　　　＝　3文字分を
　　　　　→Bold = True　　　＝　太字にする
　　　　※ColorIndexの方も同じ意味合い


－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－


1番は作業中に組み込むというよりも使いたいファイルを誰が開いているのか
確認したい場合などに使えますね。
（まあ、サーバーから使用者探す方法が出来る場合はそっちの方が確実ですが）


2番はシート内の全てを一気に消すんでも特定の図形だけを消すんでもないけど
一部分だけ一気に消したい、という時に使えますね。

ちなみに私は実作業でも使いましたし作成途中などでも使いました。
図形の数が多いと便利です。


3番は何かしら検索した結果を目立たせる時などに使えますね。

全部じゃなくて一部だけ装飾したい、って意外にあると思うので
あれば便利かなと思います。

Excel VBA小技集

（対象）Excel　VBA
（確認）Excel2003

今回はExcel VBAの小技集を並べてみましょう。

内容によっては2007以降は使えないのでご注意ください。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

１．テキスト型のデータを日付型に変換

　　＝　Format(CDate(Format(テキスト型日付, "0000/00/00")), "m/d")

　（使用例）

　　　Sub Test001()

              Dim MyStr As String

             MyStr = "20130716"

             MyStr = Format(CDate(Format(MyStr, "0000/00/00")), "m/d")

            Debug.Print MyStr

      End Sub

　（解説）

　　　★Format(MyStr, "0000/00/00")

　　　　＝　MyStrの中身を／区切りの形に変更

　　　★CDate(***)

　　　　＝　***の部分を日付に変更する（この場合は「2013/07/16」）

　　　------------------------------------------------------------

　　　＜ここから下はなくても使える＞

　　　★Format(***, "m/d")

　　　　＝　***の部分を「m/d」の形に変える（この場合は「7/16」）

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

２．チェックボックス追加

　　＝　CheckBoxes.Add（Top, Left, Width, Height）

　　　　・・・Top　　 ：　チェックボックスの上位置

　　　　・・・Left　　：　チェックボックスの左位置

　　　　・・・Width　 ：　チェックボックスの幅

　　　　・・・Height　：　チェックボックスの高さ

　（使用例）

　　　'===========================================================

　　　' チェックボックスを10個作る

　　　'===========================================================

　　　Sub CheckAdd()

　　　　Dim I As Long

　　　  For I = 1 To 10

　　　  　'■適当なサイズと位置でチェックボックスを作成し、選択

　　　    ActiveSheet.CheckBoxes.Add(45, 145, 24, 16.5).Select

　　　    '■チェックボックスの設定

　　　    With Selection

　　　      .Caption = ""            '表示文字

　　　      .Name = "Check" & I      'コントロールの名前

　　　      .Value = xlOn            'チェックの有無（On = True、Off = False）

　　　      .LinkedCell = "$A$" & I  'リンクするセル

　　　      .Top = ActiveSheet.Range("A" & I).Top    '上位置

　　　      .Left = ActiveSheet.Range("A" & I).Left  '左位置

　　　    End With

　　　  Next

　　　End Sub

　（その他）

　　　Top～Heightの値はRangeから取る事も可能。

　　　＜例＞

　　　　.CheckBoxes.Add(Top:=Range("A10").Top, _

             　　　　                Left:=Range("A10").Left, _

　　　　                             Width:=Range("A10").Width, _

　　　　                             Height:=Range("A10").Height)

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

３．カレントフォルダを変更する1

　　＝　CreateObject("WScript.Shell").CurrentDirectory = "***"

　　　　・・・***　：　フォルダパス。「\\ABC\AAA\BBB\」や「C:\」など

　（使用例）

　　　'===========================================================

　　　' カレントフォルダを変更してファイルを開く1

　　　'===========================================================

　　　Sub MoveCurrentFolder()

　　　  Dim MyFile As String

　　　  '■指定フォルダにカレントフォルダを移動

　　　  CreateObject("WScript.Shell").CurrentDirectory = "C:\"

　　　  '■ファイルを開くダイアログを表示し、選択結果を変数に格納

　　　  MyFile = Application.GetOpenFilename( _

　　　         FileFilter:="Excel ファイル (*.xls; *.xlsx),*.xls; *.xlsx")

　　　  '■結果を表示

        MsgBox MyFile

　　　End Sub

　（その他）

　　　主にネットワークドライブに移動する際に使える手段。

　　　ローカルドライブなら「ChDir」を使った方が簡単だと思われる。

　　　変更したドライブはExcelを終了した時点でリセットされるので

　　　次に開いた時にはいつも通りのカレントドライブが開く。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

４．カレントフォルダを変更する2

　　＝　Declare Function SetCurrentDirectory Lib "kernel32" Alias _

                 "SetCurrentDirectoryA" (ByVal CurrentDir As String) As Long

　　　　・・・Sub-End Subより外で宣言。SetCurrentDirectoryの宣言文

　　　　　　　参照URL

　　　　----------------------------------------------------------------------

　　　　SetCurrentDirectory ThisWorkbook.Path

　　　　・・・SetCurrentDirectoryの実行文

　（使用例）

　　　'===========================================================

　　　' カレントフォルダを変更してファイルを開く2

　　　'===========================================================

　　　Sub MoveCurrentFolder2()

　　　  Dim MyFile As String

　　　  '■指定フォルダにカレントフォルダを移動

　　　  SetCurrentDirectory ThisWorkbook.Path

　　　  '■ファイルを開くダイアログを表示し、選択結果を変数に格納

　　　  MyFile = Application.GetOpenFilename( _

　　　         FileFilter:="Excel ファイル (*.xls; *.xlsx),*.xls; *.xlsx")

　　　  '■結果を表示

　　　  MsgBox MyFile

　　　End Sub

　（その他）

　　　言いたいことは1番と同じなので省略

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

1番は使いどころが限定されますが、2番はたくさん作りたい時に便利ですし、

3番4番はユーザーにファイルを選択させたい時等々に便利だと思います。

少々説明を投げている部分もありますので、もっと詳しく知りたい！　という場合は

グーグル先生に尋ねてみてくださいな。

有名な内容ばかりですので、分かりやすい説明を乗せているサイトさんに

めぐり合えると思います。