![[CX's MEMO]](image/cx_memo.jpg "[CX's MEMO]")
1 2 3 4 1234567890123456789012345678901234567890 ----+----*----+----*----+----*----+----* 1|Field1 : [XXXXXXXX] 2|Field2 : [9999/99/99] 3|Field3 : [XXXXXXXXXXXXXXXXXXX] 4|Field4 : [999,999,999,999,999] 5|Field5 : [XXXXXXXXXXXXXXXXXXX] 6|Field6 : [9999/99/99]
（条件を追加する場合は、[追加>>] ボタンを選択する） 条件1：[セルの値が][▼] [次の値に等しい][▼] [="X"] 書式：背景色/灰色 条件2：[セルの値が][▼] [次の値に等しい][▼] [9 ] 書式：背景色/灰色 条件3：[セルの値が][▼] [次の値に等しい][▼] [=","] 書式：背景色/灰色 条件が確定したら、[OK] ボタンを押下する。 結果、指定した条件に該当する項目の書式が指定した設定に置き換わる。
| キー操作 | 目的 |
| Alt + Shift + ' (クォーテーション) | [スタイル] ダイアログ ボックスを表示する。 |
| Ctrl + 1 (テンキー不可) | [セルの書式設定] ダイアログ ボックスを表示する。 |
| Ctrl + Shift + ~ | [標準] 表示形式を設定する。 |
| Ctrl + Shift + $ | [通貨] 表示形式 (\-1,234) を設定する。 |
| Ctrl + Shift + % | [パーセンテージ] 表示形式 (小数点以下の桁数 0) を設定する。 |
| Ctrl + ^ | [指数] 表示形式 (小数点以下の桁数 2) を設定する。 |
| Ctrl + Shift + # | [日付] 表示形式 (yyyy/mm/dd) を設定する。 |
| Ctrl + @ | [時刻] 表示形式 (hh:mm、24 時間表示) を設定する。 |
| Ctrl + Shift + ! | 桁区切りの表示形式を設定する。 |
| Ctrl + Shift + & | 外枠の罫線を設定する。 |
| Ctrl + Shift + _ | 外枠の罫線を削除する。 |
| Ctrl + B | 太字の書式の設定と解除を切り替える。 |
| Ctrl + I | 斜体の書式の設定と解除を切り替える。 |
| Ctrl + U | 下線の設定と解除を切り替える。 |
| Ctrl + 5 (テンキー不可) | 取り消し線の設定と解除を切り替える。 |
| Ctrl + 9 (テンキー不可) | 行を非表示にする。 |
| Ctrl + Shift + ( (左かっこ) | 非表示の行を表示する。 |
| Ctrl + 0 (ゼロ) (テンキー不可) | 列を非表示にする。 |
| Ctrl + Shift + ) (右かっこ) | 非表示の列を表示する。 |
[列幅] 0 〜 255 の数値を入力し、選択したセル範囲の幅を変更します。この数値は、標準フォ ントでセルに表示できる文字数を表します。列幅が 0 の場合、その列は表示されません。 [行の高さ] 行の高さを 0 〜 409.5 のポイント数で入力し、選択したセルの高さを変更します。行の 高さが 0 の場合、その行は表示されません。
・幅0.08（ 1ピクセル）×高さ 0.75（ 1ピクセル） ・幅0.15（ 2ピクセル）×高さ 1.50（ 2ピクセル） ・幅0.23（ 3ピクセル）×高さ 2.25（ 3ピクセル） ・幅0.31（ 4ピクセル）×高さ 3.00（ 4ピクセル） ・幅0.38（ 5ピクセル）×高さ 3.75（ 5ピクセル） ・幅0.46（ 6ピクセル）×高さ 4.50（ 6ピクセル） ・幅0.54（ 7ピクセル）×高さ 5.25（ 7ピクセル） ・幅0.62（ 8ピクセル）×高さ 6.00（ 8ピクセル） ・幅0.69（ 9ピクセル）×高さ 6.75（ 9ピクセル） ・幅0.77（10ピクセル）×高さ 7.50（10ピクセル） ・幅0.85（11ピクセル）×高さ 8.25（11ピクセル） ・幅0.92（12ピクセル）×高さ 9.00（12ピクセル） ・幅1.00（13ピクセル）×高さ 9.75（13ピクセル） ・幅1.13（14ピクセル）×高さ10.50（14ピクセル） ・幅1.25（15ピクセル）×高さ11.25（15ピクセル） ・幅1.38（16ピクセル）×高さ12.00（16ピクセル） ・幅1.50（17ピクセル）×高さ12.75（17ピクセル） ・幅1.63（18ピクセル）×高さ13.50（18ピクセル） ・幅1.75（19ピクセル）×高さ14.25（19ピクセル） ・幅1.88（20ピクセル）×高さ15.00（20ピクセル） ・幅2.00（21ピクセル）×高さ15.75（21ピクセル）
[E:\home\edu\excel\tmp\data\book1.xls].[Sheet1] Field1 Field2 Field3 ------ ------ ------ aaa 123 AAA bbb 456 BBB ccc 789 CCC [E:\home\edu\excel\tmp\data\book2.xls].[Sheet1] Field1 Field2 Field3 ------ ------ ------ ddd 111 DDD eee 222 EEE fff 333 FFF [E:\home\edu\excel\tmp\data\book3.xls].[Sheet1] Field1 Field2 Field3 ------ ------ ------ ggg 444 GGG hhh 555 HHH iii 666 III [E:\home\edu\excel\tmp\marge.xls].[Sheet1] Field1 Field2 Field3 ------ ------ ------
[E:\home\edu\excel\tmp\marge.xls].[Sheet1] Field1 Field2 Field3 ------ ------ ------ aaa 123 AAA bbb 456 BBB ccc 789 CCC ddd 111 DDD eee 222 EEE fff 333 FFF ggg 444 GGG hhh 555 HHH iii 666 III
' ExcelMarge.vbs
' Usage : CScript ExcelMarge.vbs
Const DIR = "E:\home\edu\excel\tmp\data" ' 対象データ
Const XLS = "E:\home\edu\excel\tmp\marge.xls" ' マージ先のファイル
Marge
Sub Marge
Dim cn
Dim rs
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & XLS & ";Extended Properties=Excel 8.0"
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Dim folder
Set folder = fs.GetFolder( DIR )
Dim file
For Each file In folder.Files
cn.Execute "INSERT INTO [Sheet1$] SELECT * FROM [Excel 8.0;database=" & file & "].[Sheet1$]"
Next
End Sub
excel_marge.zip■ excel_marge.zip ファイルの詳細
D:\HOME\EDU\EXCEL\EXCEL_MARGE
│ macro.vbs … XLSマージスクリプト（VBScriptバージョン）
│ macro.xls … XLSマージスクリプト（Excel/VBAバージョン）
│ marge.xls … マージ先のファイル
│
└─data … マージ対象ファイル
aaa.xls
bbb.xls
ccc.xls
#access
