m0_46067540的博客

VBA 贴片电阻名称转换 最近工作中遇到需要将SMT电阻厂家的品名转换成 常用SMD电阻的规格，收集了几家公司的命名规则，写了个函数，大家参考。目前只写入了 大毅（TA-I） ，ROHM，也可以自己增加平常使用品牌电阻进行转换。 Public Function ResistorCode(ResistorName As String) As String Dim FrontChar As String Dim Size As String Dim R As String Dim Grade As String

Private Sub test() Dim arr() Sheets("sheet1").Select Row = Sheets("sheet1").UsedRange.Rows.count col = Sheets("sheet1").UsedRange.Columns.count ReDim arr(1 To Row, 1 To 6) arr = Range("a1:F" & Row) arr = bubblesort(arr, 0, 2, 2) Range("j1:O" &amp...