如何将用户名粘贴到单元格中？

Question

我需要将Sheet1中的文本框内容粘贴到Sheet9中“ B”列的最后一行。 我没有问题，可以使用Enter键将Sheet1文本框中的文本框内容（字符串）插入Sheet9列“ B”的最后一行。 但是，我发现很难将用户名添加到Sheet9的“ B”列的最后一行附近的“ C”列的最后一行。

在这里，我将文本框的内容从Sheet1复制到Sheet9的“ B”列的最后一行，并尝试将用户名放在表单9的“ C”列的最后一行。

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    With Sheet9
        If KeyCode = 13 Then
            If TextBox1 <> vbNullString Then
                .Cells(.Rows.count, "B").End(xlUp)(2, 1) = TextBox1
                .Cells(.Rows.count, "C").End(xlUp)(2, 1)= Environ("username")
            End If
        End If
    End With
End Sub

Answer 1

由于要在行C中的UserName中插入用户名，该行应该是B列中的第一个空行，因此，您所需要做的就是先将UserName放在C列中，然后将TextBox值插入B列中。

请尝试一下...

.Range("B" & Rows.Count).End(3)(2).Offset(0, 1) = Environ("UserName")
.Range("B" & Rows.Count).End(3)(2) = Textbox1