教文館の社内ナレッジベースです。

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編集ソフトで文字を小さくしたほうが体裁が良い。

品番
商品名
在庫
参考価格
楽譜ナンバー
出版社
KBKX-m-1501307751 Violin
Hymns & Obbligatos for the Church Year 1
2560
30/1776L Lorenz
KBKX-m-1501307752 Violin
Hymns & Obbligatos for the Church Year 2
2880
30/1777L Lorenz
KBKX-m-1501685157 Favorite
Hymns For Solo Guitar: 29 Inspirational Songs
1700
HL.699275 Hal Leonard
KBKX-m-0143093300 Beruhmte
Stucke, fur Violine und Orgel (Harmonium, Klavier)
3600
ED5059 Schott
KBKX-m-1501499691 The
Majesty of Gospel: 16 Great Gospel Songs for Violin ,with CD
4130
ED9701 Schott
KBKX-m-1501705101 Wedding
Guitar Solos, with CD
2550
HL.701335 Hal Leonard
KBKX-m-1501685156 Praise
And Worship For Guitar: 45 Wondrous Songs including(Easy Guitar)
1500
HL.702125 Hal Leonard
KBKX-m-1501421972 Flute
Stylings
3820
154 Hope Pub.
KBKX-m-1501421973 Flute
Stylings 2
4270
8190 Hope Pub.
KBKX-m-1501685154 Christmas
Music for Acoustic Guitar
2100
9781562220150 Mel Bay
KBKX-m-1501685163 Fingerstyle
Christmas Guitar: 12 Beautiful Songs & Carols ,with CD
2800
0280B Warner Bros
KBKX-m-1501264841 Blockflotensoli
aus dem geistlichen und weltlichen Vokalwerk(リコーダー用)
3360
BA6414 Barenreiter
KBKX-m-1501273434 Ave
Maria(トロンボーン・アンサンブル)
3260
EMR 4036a Reift
KBKX-m-1501685152 Christmas
Carols for Easy Classical Guitar ,with CD
1400
HL.2501526 Hal Leonard
KBKX-m-1501685153 A
Guitar for Christmas
1400
HL.699070 Hal Leonard
KBKX-m-1501685161 Sunday
School Songs, Easy Guitar: 31 Wonderful Songs
1120
HL.699220 Hal Leonard
KBKX-m-1501685151 Classical
Guitar Christmas Collection
1400
HL.699493 Hal Leonard