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

2018年5月11日2018年9月28日

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