vbs
samzheng99
宠辱不惊看庭前花开花落,去留无意任天上云卷云舒
展开
-
vbs 解码 unicode
a =split("\7F57\83B1 Q747\604B\604B\65F6\5149-\5929\4E1D\00AE\590D\5408\6BEF","\") '罗莱 Q747恋恋时光-天丝®复合毯For i=1 To UBound(a)str = str & Decode(a(i))NextMsgBox strPublic Function Decode(strDecode)原创 2014-01-18 17:14:35 · 2981 阅读 · 0 评论 -
Excel 生成Code128条码
Excel -》开发工具-》Visual Basic 增加以下代码:Function code128b(Tar As Range) '128B码:ChrW(204).Dim s$, i%, ss$, j%, curR%, checkB%curR = Tar.Rows = Tar.ValuecheckB = 1 '开始位的码值为104 mod 103 =1Fo原创 2014-04-22 15:02:14 · 13753 阅读 · 0 评论