VBA 贴片电阻名称转换

最新推荐文章于 2023-10-25 11:22:51 发布
最新推荐文章于 2023-10-25 11:22:51 发布
阅读量137 收藏
点赞数
分类专栏： VBA程序
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/m0_46067540/article/details/117965484
版权

VBA SMT电阻 SMD规格 转换函数 电子工程
关键词由CSDN通过智能技术生成

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*" Then
                    temp = Left(temp, 2) * 10 ^ Right(temp, 1)
                    
                    Select Case temp
                        Case 0 To 999
                            
                        Case 999 To 10 ^ 6 - 1
                            temp = temp / 1000 & "K"
                        Case Else
                            temp = temp / 10 ^ 6 & "M"
                    End Select
                 Else
                    If Right(temp, 1) <> 0 Then
                        temp = Left(temp, 1) & "." & Right(temp, 1)
                    Else
                        temp = Left(temp, 1)
                    End If
                    
                End If
                
                    
            
            Case "F", "D", "B"
                temp = Right(ResistorName, 4)
                
                If Not temp Like "*R*" Then
                    temp = Left(temp, 3) * 10 ^ Right(temp, 1)
                    
                    Select Case temp
                        Case 0 To 999
                            
                        Case 999 To 10 ^ 6 - 1
                            temp = temp / 1000 & "K"
                        Case Else
                            temp = temp / 10 ^ 6 & "M"
                    End Select
                 Else
                    If Right(temp, 1) <> 0 Then
                        temp = Left(temp, 2) & "." & Right(temp, 1)
                    Else
                        temp = Left(temp, 2)
                    End If
                    
                End If
        
        End Select
        

Case "MCR"                           'ROHM 电阻（TA-I)
    FrontChar = Left(ResistorName, 6)
        Select Case FrontChar
        
            Case "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 Select
        
        Select Case Grade
        
            Case "D", "F"
                temp = Right(ResistorName, 4)
                
                If Not temp Like "*R*" Then
                    temp = Left(temp, 3) * 10 ^ Right(temp, 1)
                    
                    Select Case temp
                        Case 0 To 999
                            
                        Case 999 To 10 ^ 6 - 1
                            temp = temp / 1000 & "K"
                        Case Else
                            temp = temp / 10 ^ 6 & "M"
                    End Select
                 Else
                    If Right(temp, 1) <> 0 Then
                        temp = Left(temp, 2) & "." & Right(temp, 1)
                    Else
                        temp = Left(temp, 2)
                    End If
                    
                End If
        
               
            Case "J"
                temp = Right(ResistorName, 3)
                If Not temp Like "*R*" Then
                    temp = Left(temp, 2) * 10 ^ Right(temp, 1)
                    
                    Select Case temp
                        Case 0 To 1000
                            
                        Case 1000 To 10 ^ 6 - 1
                            temp = temp / 1000 & "K"
                        Case Else
                            temp = temp / 10 ^ 6 & "M"
                    End Select
                 Else
                    If Right(temp, 1) <> 0 Then
                        temp = Left(temp, 1) & "." & Right(temp, 1)
                    Else
                        temp = Left(temp, 1)
                    End If
                    
                End If
                
                
        End Select
        
        
        
Case "RC"                        '国巨 电阻（TA-I) 阻值编码固定，无法直接取值，只显示电阻尺寸及等级

    FrontChar = Left(ResistorName, 6)
        
        Select Case FrontChar
        
            Case "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

塞内加
关注
专栏目录
103 BOM自动格式化、自动命名、自动计数、自动填充序列
04-01 706
前言 PCB设计完成后，有一个比较大的工作是处理BOM（物料清单） 物料清单是后续工厂进行生产、加工、采购等等都要用到的表单，非常重要。许多初级工程师制作的BOM非常杂乱，也容易出错。 然后作者自行设计了一个模板，适用于AD软件（AD10~AD19）这次标准化处理Bom是第一步，主要计数、序列化和格式化比较好，但是更严格的BOM要注意，必须有物料编号和规格型号标准化。我们在工厂拿到一份BO...
VBA实现单精度浮点数与十六进制字符串相互转换
12-14
VBA实现单精度浮点数与十六进制字符串相互转换,并提供2个相互转换的示例 第一个按钮： "A1录入十六进制8位字符串； B1输出单精度浮点数结果" 第二个按钮 "将B1作为单精度浮点数输入 C1输出16进制结果
AO4407A-VB_MOSFET产品应用与参数解析
VBsemi的博客
10-25 1664
应用简介：AO4407A是一款P沟道MOSFET，适用于负极电压控制和负载开关的应用。该器件适用于多个领域的模块设计，主要包括：1. 电源管理模块：适用于负责电流控制和功率开关的电源管理模块。型号：AO4407A丝印：VBA2317品牌：VBsemi详细参数说明：- 类型：P沟道MOSFET- 最大耐压：-30V- 最大电流：-7A- 导通电阻：23mΩ @10V, 29mΩ @4.5V, 66mΩ @2.5V- 门源电压：20Vgs (±V)- 门阈电压：-1.37Vth- 封装：SOP8。
电子工程师12个忠告，新手老鸟都值得一看！
张巧龙的博客
12-07 6584
在一个实实在在的酱油社会里，电子工程师该如何去探寻自由发展自己。精致的技术是一个系统，是串起来的，只知道事情的部分 part，反过来就可能掉入陷阱 trap；精致的人生是一个更复杂的系统...
老工程师12个入门级忠告，新手老鸟都值得一看！
李肖遥的专栏
01-01 1081
在一个实实在在的酱油社会里，电子工程师该如何去探寻自由发展自己。精致的技术是一个系统，是串起来的，只知道事情的部分 part，反过来就可能掉入陷阱 trap；精致的人生是一个更复杂的系统...
做一个精致的电子工程师
Naruto Inspire 的博客
06-19 3481
5年前，在21IC论坛写了《24岁了，做个精致的电子工程师》相关的3篇文章。晃悠一下就奔三了。非常感谢电子新手的持续关注与支持。2006年从珠三角带着惊恐，好奇和成就感辗转来到了上海，2007年至2010年发起并参与组织了上海年度电子工程师聚会，见过菁菁木华的人，说不是那种style，更有不少人误以为菁菁木华是女的，菁菁木华是搞市场的。       菁菁木华是谁？在这里在补充说明。
精致电子工程师
kernel
07-28 1168
一．电子工程师最关心的问题： 中国有多少电子工程师，中国有多少人在电子相关的行业里工作，中国每年有多少电子新手需要开始他们的电子技术生涯，他们有什么困惑需要去解开。中国缺少什么样的工程师？中国缺少满嘴胡须的电子工程师，中国缺少做轮椅的电子工程师；缺少在一个行业专注几十年的专业资深技术人才。一次参加公司的skip meeting，一位演讲者给我们说“我1975年就开始在这个公司工作了，恐怕在
做个精致的电子工程师
为技术而生
06-26 5794
5年前，在21IC论坛写了《24岁了，做个精致的电子工程师》相关的3篇文章。晃悠一下就奔三了。非常感谢电子新手的持续关注与支持。2006年从珠三角带着惊恐，好奇和成就感辗转来到了上海，2007年至2010年发起并参与组织了上海年度电子工程师聚会，见过菁菁木华的人，说不是那种style，更有不少人误以为菁菁木华是女的，菁菁木华是搞市场的。 菁菁木华是谁？在这里在补充说明。 菁菁木华
29岁了，继续做个精致的电子工程师
01-30 6110
5年前，在21IC论坛写了《24岁了，做个精致的电子工程师》相关的3篇文章。晃悠一下就奔三了。非常感谢电子新手的持续关注与支持。2006年从珠三角带着惊恐，好奇和成就感辗转来到了上海，2007年至2010年发起并参与组织了上海年度电子工程师聚会，见过菁菁木华的人，说不是那种style，更有不少人误以为菁菁木华是女的，菁菁木华是搞市场的。 菁菁木华是谁？在这里在补充说明。 菁菁
VBA获取宏过程名称.xls
09-02
VBA获取宏过程名称，VBA获取VBA模块的过程名称一般写VBE用
VBA 批量数据类型转换 源代码
09-13
VBA 批量数据类型转换，简化办公，大大提高效率。包涵源代码
用VBA批量转换Excel工作簿为.doc
11-18
"用VBA批量转换Excel工作簿为.doc" 该资源提供了一个使用VBA代码批量将Excel工作簿转换为PDF格式文件的解决方案。下面是详细的知识点解释： VBA的应用 VBA（Visual Basic for Applications）是Microsoft Office...
VBA Excel进制转换.rar
09-15
VBA（Visual Basic for Applications）是Excel内置的编程语言，可以方便地实现各种复杂的计算和转换功能，包括浮点数在不同进制之间的转换。本压缩包"VBA Excel进制转换.rar"提供的内容显然是一份关于如何利用VBA来...
numexpr-2.8.3-cp38-cp38-win_amd64.whl
10-14
numexpr-2.8.3-cp38-cp38-win_amd64.whl
ujson-5.3.0-cp311-cp311-win_amd64.whl
10-14
ujson-5.3.0-cp311-cp311-win_amd64.whl
基于MATLAB车牌识别程序技术实现面板GUI.zip
最新发布
10-14
vos3000
RJFireWall-maste赛资源
10-14
RJFireWall-maste赛资源
msgpack-1.0.4-cp39-cp39-win_amd64.whl
10-14
msgpack-1.0.4-cp39-cp39-win_amd64.whl
基于 YOLOv11 的混凝土缺陷检测系统（包含详细的完整的程序和数据）
10-14
内容概要：本文提供了从零开始搭建的基于 YOLOv11 模型的混凝土缺陷检测系统教程，覆盖了整个流程，如开发配置指导，训练集搭建、模型的使用方法到最终集成图形界面交付应用等内容，尤其注重图像预处理及增广手段的有效利用，帮助读者建立高效的系统以满足工程中的实时监测需求。此外还包括对未来发展方向的具体展望，比如引入新型检测器或进一步扩展故障类别。 适合人群：适用于具有一定Python基础、想探索目标检测领域尤其是从事土木工程质量监督的技术工作者。 使用场景及目标：适合对有形结构如混凝土建筑的质量检验需要的公司部门，以提高检测的精确度同时加快检测流程的速度。 其他说明：项目代码附在文中，方便大家快速上手测试并进一步深入研究。对于那些对模型效果不满意的，本文给出了提升系统效能的具体注意点，譬如持续优化迭代以及增加系统设置自由度。
VBA实现汉字到全拼转换的代码示例
"VBA汉字转换成全拼" 在信息技术领域，VBA（Visual Basic for Applications）是一种广泛使用的编程语言，它内置于Microsoft Office套件中，如MS Excel和MS Access，用于自动化和扩展这些应用程序的功能。本资源提供...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值