Excel 2016 заменяет скопированный текст с дубликатами вопросительных знаков в полях - PullRequest
Новая
       24

Excel 2016 заменяет скопированный текст с дубликатами вопросительных знаков в полях

0 голосов
/ 30 апреля 2018

У меня проблема с заменой всего копируемого текста дублирующим вопросительным знаком в символах коробки. Это происходит только для одного пользователя, заставляя меня думать, что это может быть проблема с настройками для этого пользователя, однако код vba, который генерирует заменяемый текст, приведен ниже на случай, если это проблема с самим кодом. Любая помощь с этим вопросом будет принята с благодарностью. Спасибо.

Редактировать: все вводимые данные вводятся через выпадающие списки и радиальные меню. Я заставлял пользователя вводить дублирующую информацию на других компьютерах, используя скопированную версию листа Excel, и никаких проблем не заставляло меня думать, что это может быть проблема с офисом. Я также переустановил офис, который не устранил проблему. 

Private Function QTmachineSizes(ByRef Qt As Quote) As String
    On Error GoTo ET
    Dim s As String: s = "ROUGH MACHINE TO: "

    s = s & Qt.TMvals(18) & Chr(13)
    s = s & Format(Qt.OD + CDbl(Qt.TMvals(15)), "0.000") & " OD x "
    If Qt.ID <> 0 Then
       s = s & Format(Qt.ID - CDbl(Qt.TMvals(16)), "0.000") & " ID x " & Format(Qt.THK + CDbl(Qt.TMvals(17)), "0.000") & " THK" & Chr(13)
    Else: s = s & Format(Qt.THK + CDbl(Qt.TMvals(17)), "0.000") & " THK  DISK" & Chr(13)
    End If
    s = s & "TOLERANCE: +" & Format(CDbl(Qt.TMvals(9)), "0.000") + "/-" & Format(CDbl(Qt.TMvals(10)), "0.000") & " OD, "
    If Qt.ID <> 0 Then s = s & Format(CDbl(Qt.TMvals(11)), "0.000") + "/-" & Format(CDbl(Qt.TMvals(12)), "0.000") & " ID, "
    s = s & Format(CDbl(Qt.TMvals(13)), "0.000") & "/-" & Format(CDbl(Qt.TMvals(14)), "0.000") & " THK"

    QTmachineSizes = s

и 

Private Function QTnonmachineSizes(ByRef Qt As Quote) As String
On Error GoTo ET
    Dim s As String: s = ""
    Dim OD, ID, THK, i As Double
    i = 1
    If Qt.Metric Then i = 25.4
    OD = (Qt.OD + Qt.ODstock) * i
    ID = (Qt.ID - Qt.IDstock) * i
    THK = (Qt.THK + Qt.THKstock) * i

    If Qt.ID = 0 Then
        s = s & Format(Qt.OD, "0.000") & " X " & Format(Qt.THK, "0.000") & " DISK" & " / WE OFFER:" & Chr(13)
        s = s & Format(OD, "0.000") & " X " & Format(THK, "0.000")
    Else
        s = s & Format(Qt.OD, "0.000") & " X " & Format(Qt.ID, "0.000") & " X " & Format(Qt.THK, "0.000") & " / WE OFFER:" & Chr(13)
        s = s & Format(OD, "0.000") & " X " & Format(ID, "0.000") & " X " & Format(THK, "0.000")
    End If
    i = CDbl(Qt.MiscCalc(11))
    If Qt.Metric Then
        i = i * 25.4
        s = s & " (mm)"
    End If
    s = s & Chr(13) & "TOLERANCE: +/- " & Format(i, "0.000")
    If Qt.Metric Then s = s & " mm"

    QTnonmachineSizes = s
...