プリントアウト

Excel関数とマクロ、アドイン[XLS2HTMLTable]を利用して夏期講習会用の楽譜一覧を作成します。

まず、データベースの作成について。商品名にハイパーリンクをかぶせるのがコツがいる。

1.　excelのhyperlink関数で商品名にリンクをかぶせる。

2.　wordにコピペして関数を消す。

3.　さらにこれを再度excelに貼り付けて原型のデータベース作成終了

次にジャンルごとにページを自動でつくる。これはマクロを利用。

——————————————————————————-

Sub 楽譜振り分けマクロ()
‘
‘ Macro5 Macro
‘ マクロ記録日 : 2009/8/17 ユーザー名 : ほにゃららタロウ
‘

‘定義
Dim myRow1 As Long
Dim TBL As Range
myRow1 = Sheets(“全タイトル”).Range(“A65536”).End(xlUp).Row

‘すべてまずクリア
Sheets(Array(“1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “10”, “11”, “12”, “13”, “A~C”, “D~G”, “H~R”, “S~Z”)).Select
Cells.Select
Selection.Delete Shift:=xlUp

‘ 全タイトルをソートします
Worksheets(“全タイトル”).Activate: Range(“A1”).Select
Set TBL = ActiveCell.CurrentRegion
TBL.Select
Selection.Sort Key1:=Range(“I2”), Order1:=xlAscending, Key2:=Range(“J2”) _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin

‘ オートフィルターで個別に選択・ペースト
Sheets(“全タイトル”).Select
Selection.AutoFilter Field:=9, Criteria1:=”A~C”
Range(“A1:AA” & myRow1).Select
Selection.Copy
Sheets(“A~C”).Select
Range(“A1”).Select
ActiveSheet.Paste
‘ 選択した状態で形を整えて終了
Set TBL = ActiveCell.CurrentRegion
TBL.Select
Selection.Activate

Columns(“A:A”).ColumnWidth = 10
Columns(“B:B”).ColumnWidth = 40
Columns(“C:C”).ColumnWidth = 5
Columns(“D:D”).ColumnWidth = 10
Columns(“E:E”).ColumnWidth = 10
Columns(“F:F”).ColumnWidth = 10
Columns(“G:G”).ColumnWidth = 0
Columns(“H:H”).ColumnWidth = 0
Columns(“I:J”).ColumnWidth = 0

‘ オートフィルターで個別に選択・ペースト
Sheets(“全タイトル”).Select
Selection.AutoFilter Field:=9, Criteria1:=”D~G”
Range(“A1:AA” & myRow1).Select
Selection.Copy
Sheets(“D~G”).Select
Range(“A1”).Select
ActiveSheet.Paste
‘ 選択した状態で形を整えて終了
Set TBL = ActiveCell.CurrentRegion
TBL.Select
Selection.Activate

Columns(“A:A”).ColumnWidth = 10
Columns(“B:B”).ColumnWidth = 40
Columns(“C:C”).ColumnWidth = 5
Columns(“D:D”).ColumnWidth = 10
Columns(“E:E”).ColumnWidth = 10
Columns(“F:F”).ColumnWidth = 10
Columns(“G:G”).ColumnWidth = 0
Columns(“H:H”).ColumnWidth = 0
Columns(“I:J”).ColumnWidth = 0

・・・・・・・・・（以下全てのsheetに対応するように）

End Sub
——————————————————————————————

仕上げはこれをhtmlに変換。便利なアドイン「XLS2HTMLTable」を利用。ベクターとかで普通に入手可能です。

で、出来上がったのが下のような表です。Dreamweaverなどhtml編集ソフトで文字を小さくしたほうが体裁が良い。