自分流のＦＡＸ注文書をエクセルで作ります。使い勝手ＯＫで業務効率アップです。

ここからエクセルＶＢＡの説明をしていきますが、とりあえず先に結果を見たいと思われている方もあるかと思います。そんな方に、完成の「ＦＡＸ注文書作成」ＶＢＡソフトをダウンロードしていただけるようにしています。

ダウンロードしたエクセルファイルはＶＢＡコードの保護をしていますので、改変することはできません。

一部にデフォルト設定のＶＢＡコードのままになっています。”余分な語句”を取り除くことによって「電話帳」機能を使うことができます。

“ＦＡＸ注文書作成エクセル” をダウンロード faxtyumon.zip – 2286 回のダウンロード – 100 KB

取説については「最初から使い方の説明を」をご覧ください。

このソフトはご自分で業務でお使いいただくのはフリーですが、

転載や転売については許可しておりませんので、ご使用にならないよう固くお断りいたします。

• Ｇ１セルに「抽出項目」、Ｈ１セルに「抽出セル名」
• Ｇ２セルに「書名」
• Ｇ３セルに「副書名」
• Ｇ４セルに「出版社」
• Ｇ５セルに「著者」
• Ｇ６セルに「本体価格」
• Ｇ７セルに「ＩＳＢＮ」

‘変数の宣言
Dim Boname As String
Dim Bosname As String
Dim Shuname As String
Dim Wriname As String
Dim Cos As Long
Dim IsCode As String

Dim nRow As Long

‘抽出データシートのデータ項目を記述
‘Ａ列を使ってデータ入力済の行数を数える

Worksheets(“抽出データ”).Select
Range(“A1”).Value = “ISBN”
Range(“B1”).Value = “書名”
Range(“C1”).Value = “出版社名”
Range(“D1”).Value = “著者名”
Range(“E1”).Value = “本体価格”
Range(“F1”).Value = “冊数”
Range(“G1”).Value = “客注名”

nRow = Range(“A1”).CurrentRegion.Rows.Count + 1
End Sub

Worksheets(“書誌データ貼付”).Select
Boname = Range(“H2”).Value
Bosname = Range(“H3”).Value
Shuname = Range(“H4”).Value
Wriname = Range(“H5”).Value
Cos = Range(“H6”).Value
IsCode = Range(“H7”).Value

‘書名
　Worksheets(“書誌データ貼付”).Range(Boname).Copy _
　　Destination:=Worksheets(“抽出データ”).Range(“B” & nRow)
‘副書名
　Worksheets(“書誌データ貼付”).Range(Bosname).Copy _
　　Destination:=Worksheets(“抽出データ”).Range(“I” & nRow)
‘書名連結
 　Worksheets(“抽出データ”).Select
　Range(“B” & nRow) = Range(“B” & nRow) & ” ” & Range(“I” & nRow)
　Range(“I” & nRow) = “”
‘出版社
　Worksheets(“書誌データ貼付”).Range(Shuname).Copy _
　　Destination:=Worksheets(“抽出データ”).Range(“C” & nRow)
‘著者
　Worksheets(“書誌データ貼付”).Range(Wriname).Copy _
　　Destination:=Worksheets(“抽出データ”).Range(“D” & nRow)
‘本体価格
　Worksheets(“書誌データ貼付”).Range(Cos).Copy _
　　Destination:=Worksheets(“抽出データ”).Range(“E” & nRow)
‘ＩＳＢＮ
　Worksheets(“書誌データ貼付”).Range(IsCode).Copy _
　　Destination:=Worksheets(“抽出データ”).Range(“A” & nRow)
　Worksheets(“抽出データ”).Range(“A” & nRow).NumberFormatLocal = “0_ “