Несколько значений текстового поля в одну ячейку

В общем, все может быть оправданным, если оно соответствует требованиям вашего проекта. Это не означает, что люди согласятся или хотят защитить ваше решение ...

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

0
задан K.Dᴀᴠɪs 24 March 2019 в 21:32
поделиться

2 ответа

Не проверено:

Dim t As MSForms.Control, v
v = ""
For Each t In Me.Frame1.Controls
    If TypeOf t Is MSForms.TextBox Then
        v = v & iif(v <> "", "," , "") & Trim(t.Value)
    End If
Next t
Cells(emptyRow, 15).Value = v
0
ответ дан Tim Williams 24 March 2019 в 21:32
поделиться

Попробуйте просто

Cells(emptyRow, 15).Value = Cells(emptyRow, 15).Value & "," & stCode1Box.Value
0
ответ дан Wilhelm 24 March 2019 в 21:32
поделиться
Другие вопросы по тегам:

Похожие вопросы: