Блог

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

В принципе, у меня есть флажок для каждой строки и кнопка, которая мгновенно нажимает только на положительные результаты. после этого программа запрашивает у пользователя серийный номер, который будет записан в ячейке. число уникально для каждого пользователя, и я хочу сохранить запись более чем из 1 числа, чтобы я знал всех, кто получил определенный результат. например, человек под номером 44 получает результат, в ячейке записывается «44». тогда пользователь с номером 55 также получает тот же результат, «55» записывается рядом с уже записанным 44 вместо его замены.

 VarNUMCB = InputBox("Insert User ID Number")

If Range("h3").Value >= 0 Then
   Range("j3").Value = VarNUMCB
Else
End If
  

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

 VarNUMCB = InputBox("Insert User ID Number")

If Range("h3").Value >= 0 Then    
    Range("j3").Value = Range("j3").Value amp; ";" amp; VarNUMCB 
Else
    ...
End If
  

Убедитесь, что вы объявили переменную «VarNUMCB». Вы могли бы попробовать:

 Option Explicit

Sub trst()

    With ThisWorkbook.Worksheets("Sheet1") '<- Refer to sheet you are coding. Change sheet name if needed

        VarNUMCB = InputBox("Insert User ID Number")

        If .Range("H3").Value >= 0 Then '<- Use "." before range to make sure that your are targeting the sheet used in  the "With statement"
            .Range("J3").Value = .Range("J3").Value amp; " " amp; VarNUMCB '<- J3 value with a following by a space and the value VarNUMCB
        Else
        End If

    End With

End Sub