Writeups

很偶然的一次，跑到营销部门去串门子，发现那里原来也是有不少paper work的。书籍的入库出库、宣传还有码洋的核算，那位同事也是忙得不可开交，每到一年的末了，就开始搞各种excel表格。就是在她那里，我看到了ISBN条形码字体的使用。

ISBN条形码可以在这里这里下载得到。得到的是一个普通的ttf文件。

在PC上装好这个字体之后，就可以在Excel表格中利用改字体生成条形码了，但是并不是简单地将ISBN的13位数字设置成这个字体就行了。直接将数字设为这种字体，虽然可以得到条形码，但是扫描出来是错误的。正确的生成方式是要经过公式转换。例如，单元格A2中是ISBN号，那么在另外一个单元格中，利用以下公式，就可以生成正确的条形码了：

=”y(“&MID(A2,2,1)&INDEX({“A”,”B”,”C”,”D”,”E”,”F”,”G”,”H”,”I”,”J”},1,MID(A2,3,1)+1)&INDEX({“A”,”B”,”C”,”D”,”E”,”F”,”G”,”H”,”I”,”J”},1,MID(A2,4,1)+1)&MID(A2,5,1)&INDEX({“A”,”B”,”C”,”D”,”E”,”F”,”G”,”H”,”I”,”J”},1,MID(A2,6,1)+1)&MID(A2,7,1)&”*“&INDEX({“K”,”L”,”M”,”N”,”O”,”P”,”Q”,”R”,”S”,”T”},1,MID(A2,8,1)+1)&INDEX({“K”,”L”,”M”,”N”,”O”,”P”,”Q”,”R”,”S”,”T”},1,MID(A2,9,1)+1)&INDEX({“K”,”L”,”M”,”N”,”O”,”P”,”Q”,”R”,”S”,”T”},1,MID(A2,10,1)+1)&INDEX({“K”,”L”,”M”,”N”,”O”,”P”,”Q”,”R”,”S”,”T”},1,MID(A2,11,1)+1)&INDEX({“K”,”L”,”M”,”N”,”O”,”P”,”Q”,”R”,”S”,”T”},1,MID(A2,12,1)+1)&INDEX({“K”,”L”,”M”,”N”,”O”,”P”,”Q”,”R”,”S”,”T”},1,MID(A2,13,1)+1)&”(>”

在这里可以看到演示文档的excel。