Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 416|回复: 5

vba 字符串加合并单元格自动化生成

[复制链接]
发表于 2023-5-19 09:52 | 显示全部楼层 |阅读模式
3学分
本帖最后由 JIAKXIE 于 2023-5-19 09:57 编辑

DID.zip (22 Bytes, 下载次数: 3)

 楼主| 发表于 2023-5-19 09:59 | 显示全部楼层
        Public Function f_Cell_Voltage_Read(ByRef dictReturn As Dictionary(Of String, String)) As Boolean
                Dim strParams As String
                Dim strOutput As String = "Maximum_Cell_Voltage|" +
                        "Minimum_Cell_Voltage|" +
                        "Average_Cellvoltage|" +
                        "Invalid_Cell_Voltages_Number|" +
                        "Cell_Voltages_0V_Number"
                strParams = strOutput
                ActivateSecureDiagSession(CEBAS.UserRole.DevelopmentEnhanced)
                f_Cell_Voltage_Read = DG.SendService(DiagName, "Cell_Voltages_Read",,strOutput)
                dictReturn = f_CreateReturnParamDict(strParams, strOutput)
        End Function
Public Function f_Single_Cell_Voltage_Read(ByRef dictReturn As Dictionary(Of String, String)) As Boolean
                Dim strParams As String
                Dim strOutput As String = "Number_Of_Cells|" +
                        "Cell Voltage Iterator
(1byte PackNumber + 1byte  CellNumber + 2byte CellVoltage)|"
                strParams = strOutput
                ActivateSecureDiagSession(CEBAS.UserRole.DevelopmentEnhanced)
                f_Single_Cell_Voltage_Read = DG.SendService(DiagName, "Single_Cell_Voltages_Read",,strOutput)
                dictReturn = f_CreateReturnParamDict(strParams, strOutput)
        End Function
回复

使用道具 举报

 楼主| 发表于 2023-5-19 10:00 | 显示全部楼层
想要写出如上格式的,求大神帮忙写一下
回复

使用道具 举报

发表于 2023-5-20 17:11 | 显示全部楼层
不明白你的意思,附件打开错误。
回复

使用道具 举报

 楼主| 发表于 2023-5-22 09:39 | 显示全部楼层
Hi 版主您好, 我是想要做一个简单的筛选加套用工具,将如下EXCEL中的CDD Name一列和元素一列中的内容嵌入到一个统一的格式里面(麻烦您看一下可以帮忙做一下么):
CDD Name
元素
Cell Voltages
Maximum  Cell Voltage
Minimum Cell Voltage
Average Cellvoltage
Invalid Cell Voltages Number
Cell Voltages 0V Number
Single Cell Voltages
Number  Of Cells
Cell Voltage Iterator
    (1byte PackNumber + 1byte  CellNumber  + 2byte CellVoltage)
Power Values
voltage  at continous power charge
voltage at continous power discharge
current at continous power charge
current at continous power discharge
Public Function f_Cell_Voltage_Read(ByRef dictReturn As Dictionary(Of String, String)) As Boolean
                Dim strParams As String
                Dim strOutput As String = "Maximum_Cell_Voltage|" +
                        "Minimum_Cell_Voltage|" +
                        "Average_Cellvoltage|" +
                        "Invalid_Cell_Voltages_Number|" +
                        "Cell_Voltages_0V_Number"
                strParams = strOutput
                ActivateSecureDiagSession(CEBAS.UserRole.DevelopmentEnhanced)
                f_Cell_Voltage_Read = DG.SendService(DiagName, "Cell_Voltages_Read",,strOutput)
                dictReturn = f_CreateReturnParamDict(strParams, strOutput)
End Function
Public Function f_Single_Cell_Voltage_Read(ByRef dictReturn As Dictionary(Of String, String)) As Boolean
                Dim strParams As String
                Dim strOutput As String = "Number_Of_Cells|" +
                        "Cell Voltage Iterator
(1byte PackNumber + 1byte  CellNumber + 2byte CellVoltage)|"
                strParams = strOutput
                ActivateSecureDiagSession(CEBAS.UserRole.DevelopmentEnhanced)
                f_Single_Cell_Voltage_Read = DG.SendService(DiagName, "Single_Cell_Voltages_Read",,strOutput)
                dictReturn = f_CreateReturnParamDict(strParams, strOutput)
End Function

DID.zip

22 Bytes, 下载次数: 1

回复

使用道具 举报

 楼主| 发表于 2023-5-25 09:09 | 显示全部楼层
顶一下顶一下
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 23:15 , Processed in 0.741209 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表