書籍のISBNJANコードってどうなってるの?

EXCEL/ACCESS, 備忘録(びぼうろく)

書籍のJANコードって、出版社によって桁数が違うのご存知ですか?これは大手は小さい桁が割り振られていて、残りの桁で沢山本が出版できるようになっています
例)
・9784固定
・06(講談社)
・999999※6桁使える
・1桁(チェックデジット)

以下は、出版社記号を抽出するマクロです。

‘######################################
‘??? 2桁??? 00~24  講談社、集英社、小学館など、昔からの大手。
‘??? 3桁??? 250~749
‘??? 4桁??? 7500~8599
‘??? 5桁??? 86000~89999
‘??? 6桁??? 900000~989999
‘??? 7桁??? 9900000~9999999
If Mid(set_data01.Offset(0, 0).Value, 1, 4) = “9784” Then
If Mid(set_data01.Offset(0, 0).Value, 5, 2) >= “00” And Mid(set_data01.Offset(0, 0).Value, 5, 2) <= “24” Then
SYP_KIGOU = Mid(set_data01.Offset(0, 0).Value, 5, 2)
ElseIf Mid(set_data01.Offset(0, 0).Value, 5, 3) >= “250” And Mid(set_data01.Offset(0, 0).Value, 5, 3) <= “749” Then
SYP_KIGOU = Mid(set_data01.Offset(0, 0).Value, 5, 3)
ElseIf Mid(set_data01.Offset(0, 0).Value, 5, 4) >= “7500” And Mid(set_data01.Offset(0, 0).Value, 5, 4) <= “8599” Then
SYP_KIGOU = Mid(set_data01.Offset(0, 0).Value, 5, 4)
ElseIf Mid(set_data01.Offset(0, 0).Value, 5, 5) >= “86000” And Mid(set_data01.Offset(0, 0).Value, 5, 5) <= “89999” Then
SYP_KIGOU = Mid(set_data01.Offset(0, 0).Value, 5, 5)
ElseIf Mid(set_data01.Offset(0, 0).Value, 5, 6) >= “900000” And Mid(set_data01.Offset(0, 0).Value, 5, 6) <= “989999” Then
SYP_KIGOU = Mid(set_data01.Offset(0, 0).Value, 5, 6)
ElseIf Mid(set_data01.Offset(0, 0).Value, 5, 7) >= “9900000” And Mid(set_data01.Offset(0, 0).Value, 5, 7) <= “9999999” Then
SYP_KIGOU = Mid(set_data01.Offset(0, 0).Value, 5, 7)
Else
SYP_KIGOU = “9999999” ’上記以外。
End If
End If

rakuten