VBA 贴片电阻名称转换
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
Dim RL As Integer
FrontChar = Left(ResistorName, 2)
If FrontChar = “MC” Then FrontChar = “MCR”
Select Case FrontChar
Case “RM” '大毅电阻（TA-I)
Grade = Mid(ResistorName, 5, 1)
Size = Mid(ResistorName, 3, 2)
Select Case Size
Case “02”
Size = “0603”
Case “04”
Size = “1005”
Case “06”
Size = “1608”
Case “10”
Size = “2012”
Case “12”
Size = “3216”
Case “13”
Size = “3226”
Case “20”
Size = “5025”
Case “25”
Size = “6432”
End Select
Select Case Mid(ResistorName, 5, 1)Case "J", "G"temp = Right(ResistorName, 3)If Not temp Like "*R*" Thentemp = Left(temp, 2) * 10 ^ Right(temp, 1)Select Case tempCase 0 To 999Case 999 To 10 ^ 6 - 1temp = temp / 1000 & "K"Case Elsetemp = temp / 10 ^ 6 & "M"End SelectElseIf Right(temp, 1) <> 0 Thentemp = Left(temp, 1) & "." & Right(temp, 1)Elsetemp = Left(temp, 1)End IfEnd IfCase "F", "D", "B"temp = Right(ResistorName, 4)If Not temp Like "*R*" Thentemp = Left(temp, 3) * 10 ^ Right(temp, 1)Select Case tempCase 0 To 999Case 999 To 10 ^ 6 - 1temp = temp / 1000 & "K"Case Elsetemp = temp / 10 ^ 6 & "M"End SelectElseIf Right(temp, 1) <> 0 Thentemp = Left(temp, 2) & "." & Right(temp, 1)Elsetemp = Left(temp, 2)End IfEnd IfEnd SelectCase "MCR" 'ROHM 电阻（TA-I)FrontChar = Left(ResistorName, 6)Select Case FrontCharCase "MCR004"Size = "0402"Grade = Mid(ResistorName, 10, 1)Case "MCR006"Size = "0606"Grade = Mid(ResistorName, 10, 1)Case "MCR100"Size = "6432"Grade = Mid(ResistorName, 10, 1)Case "MCR01M"Size = "1005"Grade = Mid(ResistorName, 9, 1)Case "MCR03E"Size = "1608"Grade = Mid(ResistorName, 9, 1)Case "MCR10E"Size = "2012"Grade = Mid(ResistorName, 9, 1)Case "MCR18E"Size = "3216"Grade = Mid(ResistorName, 9, 1)Case "MCR25J"Size = "3225"Grade = Mid(ResistorName, 9, 1)Case "MCR50J"Size = "5025"Grade = Mid(ResistorName, 9, 1)End SelectSelect Case GradeCase "D", "F"temp = Right(ResistorName, 4)If Not temp Like "*R*" Thentemp = Left(temp, 3) * 10 ^ Right(temp, 1)Select Case tempCase 0 To 999Case 999 To 10 ^ 6 - 1temp = temp / 1000 & "K"Case Elsetemp = temp / 10 ^ 6 & "M"End SelectElseIf Right(temp, 1) <> 0 Thentemp = Left(temp, 2) & "." & Right(temp, 1)Elsetemp = Left(temp, 2)End IfEnd IfCase "J"temp = Right(ResistorName, 3)If Not temp Like "*R*" Thentemp = Left(temp, 2) * 10 ^ Right(temp, 1)Select Case tempCase 0 To 1000Case 1000 To 10 ^ 6 - 1temp = temp / 1000 & "K"Case Elsetemp = temp / 10 ^ 6 & "M"End SelectElseIf Right(temp, 1) <> 0 Thentemp = Left(temp, 1) & "." & Right(temp, 1)Elsetemp = Left(temp, 1)End IfEnd IfEnd SelectCase "RC" '国巨 电阻（TA-I) 阻值编码固定，无法直接取值，只显示电阻尺寸及等级FrontChar = Left(ResistorName, 6)Select Case FrontCharCase "RC0075"Size = "0302"Grade = Mid(ResistorName, 7, 1)Case "RC0100"Size = "0402"Grade = Mid(ResistorName, 7, 1)Case "RC0201"Size = "0603"Grade = Mid(ResistorName, 7, 1)Case "RC0402"Size = "1005"Grade = Mid(ResistorName, 7, 1)Case "RC0603"Size = "1608"Grade = Mid(ResistorName, 7, 1)Case "RC0805"Size = "2012"Grade = Mid(ResistorName, 7, 1)Case "RC1206"Size = "3216"Grade = Mid(ResistorName, 7, 1)Case "RC1210"Size = "3226"Grade = Mid(ResistorName, 7, 1)Case "RC1218"Size = "3246"Grade = Mid(ResistorName, 7, 1)Case "RC2010"Size = "5025"Grade = Mid(ResistorName, 7, 1)Case "RC2512"Size = "6432"Grade = Mid(ResistorName, 7, 1)End Select
End Select
ResistorCode = Size & Grade & temp
End Function
VBA 贴片电阻名称转换相关推荐
- 网络名称 转换 网络地址_网络地址转换| 计算机网络
网络名称 转换 网络地址 At the time of classful addressing, the number of household users and small businesses ...
- vba 将html转换excel,利用VBA将不同格式excel模板之间进行数据转换实例
由于学校的有两套不同的系统,要进行数据同步,都支持excel格式数据导入导出,但是两套模板格式不一样,需要进行转换. 这个实例涉及到字符的截取,字段获取以写入,不同表之间的操作等. 源模板: 目标模板 ...
- R plot图片背景设置为透明_R语言数据可视化基因名称转换及KEGG/GO富集分析
01 - 简介 BiocManager是生物信息分析必不可少的R包之一,主要用来分析基因相关的各种问题,但是通常再R上安装这个程序包都挺麻烦的,搜索引擎上有非常多的关于如何安装的,因此这里只给个建议, ...
- java 代码名称转换_计算机编码基础知识及Java中编码转换
1.ASCII 码 学过计算机的人都知道 ASCII 码,ASCII 码是美国标准信息交换代码(American Standard Code for Information Interchange)的 ...
- PowerPoint VBA批量格式转换：pptx转pdf、ppt以及反向转换
这篇博客阅读量较大,借此为思杰马克丁做个广告. 揭露苏州小叶网络科技有限公司不齿行径 https://bbs.kafan.cn/thread-2095728-1-1.html 揭开软件行业毒瘤思杰马 ...
- Excel VBA批量格式转换：xlsx转pdf、xls、csv以及反向转换
有时候需要把大量的xlsx文件另存为其它格式,比如pdf.xls.csv,或者反向转换,可以用VBA批量处理.启动Excel,按下Alt+F11,打开Microsoft Visual Basic fo ...
- vba和matlab处理数据类型,VBA数据类型与转换
'1 数据类型综述 '在VBA中的数据类型有整数.文本.对象等类型.这些不同的类型有着特定的作用,在进行运算时也会占用 '不同大小的内存,所以我们在编写程序时为了提高运行效率,一般都要定义数据的类型. ...
- Excel·VBA数组行列转换函数
目录 1,二维数组与一维嵌套数组互相转换函数 2,二维数组转换为指定行数/列数的函数 3,数组行列转置函数 1,二维数组与一维嵌套数组互相转换函数 <Excel·VBA数组组合函数.组合求和&g ...
- Word VBA批量格式转换：docx转pdf、doc、rtf、txt以及反向转换
有时候需要把大量的docx文件另存为其它格式,比如pdf.doc.rtf.txt,或者反向转换,可以用VBA批量处理.启动word,按下Alt+F11,打开Microsoft Visual Basic ...
- Excel事件触发VBA配置 - 名称管理器下拉菜单选项事件
因业务需求,不适合使用Excel的combobox捕捉事件处理.需求用数据有效性来定义下拉菜单,并当选项变更时触发事件.经学习发现,在每个表格的独立VBA代码内可以配置事件触发管理. 如图: 代码如下 ...
最新文章
- python3.6.1安装教程-在Linux上安装Python3.6.1
- Java Web - Ajax技术
- Python 多种算法模型对比
- 记录之使用3080ti运行tensorflow-gpu=1.x版本的源码
- 《C++ Primer 第五版》（第6.3~6.7节）——返回指向数组/函数的指针，函数重载，默认形参、inline函数和constexpr函数
- String.equals用法注意
- deepin中mysql数据库的连接_教你如何典雅的用Python连接MySQL数据库
- layer的msg函数_layer弹出信息框API
- 高程 第7章函数表达式 7.1递归 7.2闭包
- springSecurity jwt 如何融合
- Django django.db.utils.ProgrammingError: (1146, Table 'django.member' doesn't exist)
- ZYNQ PL开发流程
- 小米便签源码分析——model包
- unity项目多语言本地化讲解（一）
- 微信打开网址添加在浏览器中打开提示
- 2020李宏毅学习笔记——8. Convolution Netural Network
- 使用VirtualBox创建虚拟机
- java几个注解的作用及比较（@RestController、@Controller、@ResponseBody、@RequestBody等）
- 查看从机状态 mysql_mysql常用操作命令
- 关于学计算机趣味段子,让你开怀大笑的段子：幽默风趣，读一遍笑一遍！