首页 > 解决方案 > 字符数限制为 50 设置 Cell.Value

问题描述

我已经构建了一个表单,它可以自动化我们在工作中构建电子表格的过程的一部分,除了构建一个要设置为选定单元格值的字符串时,它一切正常。这是错误跟踪等的要求。

ct_cell.Value = GetCommentString()

Private Function GetCommentString() As String
   GetCommentString = PlantName & " - " & Replace(Mid(ActiveWorkbook.name, 14) _
    , ".xlsm", vbNullString) & ", " & FromSheet & " - " & SAP_Automator.cmnt_input
End Function

我们想要发生的是,我们正在自动化的工作表中的 Comment 部分如下所示:PlantName - WorkbookName,TabName - 来自表单的评论输入目前大多数都出现在 54 - 55 个字符长左右,vba 不断修剪关闭字符串的开头以将长度降低到 50

我们确实需要将所有这些值保留在此字符​​串中,以便在发生错误时轻松跟踪错误。

有没有解决的办法?经过一番谷歌搜索后,似乎 vba 的 char 限制为 255,而单元格 char 限制为 32k+,所以这对我来说没有任何意义,因为它一直在修剪回 50

任何帮助,将不胜感激

标签: excelvbastringcharlimit

解决方案


发现问题。该变量PlantName未设置为公共变量,因此在函数的上下文中不存在GetCommentString()这发生在我上周进行代码清理并将很多杂乱的东西分成单独的函数之后


推荐阅读