Question

我正在创建一个公式或vba来限制每行连接的信息。我限制空间＆＃34; 49个字符＆＃34;到我需要将其粘贴到的应用程序中。

是否有一个公式，我可以用它来描绘这些信息，几乎没有操纵。可能没有分词？

以下是我目前使用的公式示例，包含文字：符合此信息的单元格是＆＃34; EM＆＃34;

= IF（AF1143 = 0，＆＃34;无需工具/无问题＆＃34;，连续（＆＃34;供应商：＆＃34;，T1143，＆＃34;将构建＆＃ 34;，CA1143，＆＃34;工具能够始终如一产生PN＆＃34;，I1143，＆＃34;每个公司＆amp; ＆＃34;，E1143，＆＃34;提供发布绘图和3D数据满足100％的生产要求生命的＆＃34;，G1143，＆＃34;计划和服务。工具付款条款：1/3 关于工具PO发行的收据，收到首次关闭部件的1/3 {第一条提交} {{包括完整布局数据和工具数据表和1/3收到PPAP批准来自＆＃34;，＆＃34; ＆＃34;，E1143，＆＃34 ;, 签署的PSW足以满足此确认要求。＆＃34;，＆＃34;请留下来请联系公司买方，并提供以上所有信息延迟付款。上述截止日期仅为估算值。实际日期是由＆＃34;，＆＃34;确定＆＃34;，E1143，＆＃34; ＆＃34;＆＃34 ;. ＆＃34;，＆＃34;每周工具进度报告（TPR）必须提供给NPC，＆＃34;，＆＃34; ＆＃34;，E1143，＆＃34 ;;必须提供这些TRP 每两周一次。如果不这样做将导致付款延迟 {TPR样本可以从Supplier Portal / SQAM查看。关键事件时间：请参考＆＃34;，E1143，＆＃34; ＆＃34;，＆＃34; NPC时间表 - 如果NPC时间表是不可用请联系买家索取。原产地：工具将在以下时间制作：＆＃34;，BW1143，＆＃34;离岸价：＆＃34;，T1143，＆＃34; ＆＃34;，BW1143，附加信息：PN，＆＃34; ＆＃34;，I1143，＆＃34; ＆＃34;，K1143，＆＃34; ＆＃34;，＆＃34;工具总数：＆＃34;，AF1143，＆＃34; ＆＃34;，＆＃34;每个工具的成本：＆＃34;，AR1143，＆＃34; ＆＃34;，＆＃34;推理：＆＃34;，AS1143，＆＃34; ＆＃34;＆＃34;详细工具信息：＆＃34;，AT1143，＆＃34; ＆＃34;，＆＃34; ECI：{if applicable}：＆＃34;，DW1143，＆＃34; ＆＃34;，＆＃34;提前期：＆＃34;，EL1143，＆＃34; ＆＃34;，＆＃34; SOP假设：＆＃34;，O1143，＆＃34; ＆＃34;＆＃34;质量生产/生活计划{年}：＆＃34;，Q1143，＆＃34; Tool Go发送给供应商：＆＃34;，DG1143，＆＃34; ＆＃34;，＆＃34;设计审核日期：＆＃34;，DE1143，＆＃34; ＆＃34;，DF1143，＆＃34; ＆＃34;＆＃34; CER 追踪号码＃：＆＃34;，FB1143，＆＃34; ＆＃34;，＆＃34;帐号＃＆＃34;，FC1143，＆＃34; ＆＃34;＆＃34;工装 PO＃：＆＃34;，EN1143，＆＃34;。＆＃34;））

Answer 1

这就是我的意思：

Public Function LimitLine (StringToLimit As String, NumberOfLetters As Integer) As String
    Dim TheString As String
    Dim Output As String
    Dim CommaLoc As Integer
    Dim BlankSpaceLoc As Integer

    Output = ""
    TheString = StringToLimit

    Do WHile Len(TheString) > NumberOfLetters
        BlankSpaceLoc = InStrRev(Left(TheString, NumberOfLetters), " ")
        CommaLoc = InStrRev(Left(TheString, NumberOfLetters), ",")
        If BlankSpaceLoc > CommaLoc Then
              Output = Output & Left(TheString, BlankSpaceLoc) & vbCr
              TheString = Right(TheString, Len(TheString) - BlankSpaceLoc)
        Else
              Output = Output & Left(TheString, CommaLoc) & vbCr
              TheString = Right(TheString, Len(TheString) - CommaLoc)
        End If
    Loop
    Output = Output & TheString
    LimitLine = Output
End Function

自动换行;限制每行的字符数

1 个答案: