如何將用戶名粘貼到單元格中？

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