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

2018年5月11日

書籍の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