自动保存文本框中的文本

Question

我的工作簿中有一个 sheet 将更改记录到另一个 sheet。它不会记录对 sheet.

上文本框的更改

我正在尝试在保存时将信息保存在文本框中。

我尝试使用我用来记录其他更改的代码，但该代码不起作用。我没有收到任何错误，但文本未保存在单元格中。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim sSheetName As String
    Dim Narrative As Object
    sSheetName = "1107"
    If ActiveSheet.Name <> "LogDetails" Then
        Sheets("LogDetails").Unprotect
        Application.EnableEvents = False
        Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = "Narraive Box"
        Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 1).Value = Sheets("1107").Narrative.Text
        Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 2).Value = Environ("username")
        Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 3).Value = Now
    
        Sheets("LogDetails").Columns("A:D").AutoFit
        Application.EnableEvents = True

    End If
End Sub

该文本框不是 ActiveX 文本框，只是一个常规文本框。

我现在看到事件没有发生是因为 If ActiveSheet.Name <> "LogDetails" Then。
当我删除 if 语句时，大部分代码都可以工作，但它不会从 Narrative 文本框中复制文本。

当前代码。一旦我复制了文本框，我就会担心触发事件。

    Dim sSheetName As String
    Dim logSheet As Worksheet
    Dim logRow As Range
    Set logSheet = Sheets("LogDetails")
    Dim Narrative As Object
    sSheetName = "1107"

    logSheet.Unprotect
    Application.EnableEvents = False
    Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = "Narrative Box"
    Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 1).Value = Sheets("1107").Shapes("Narrative").TextFrame.Characters.Text
    Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 2).Value = Environ("username")
    Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 3).Value = Now
            
    Sheets("LogDetails").Columns("A:D").AutoFit
    Application.EnableEvents = True
  
End Sub

我的主要问题是我使用的是调用对象而不是形状的脚本。获得最终答案令人困惑，因为其他问题在不同时间也混杂在一起。就像它没有复制信息一样，因为文本框中没有信息。

Answer 1

如果您的 TextBox 是经典形状，您可能需要使用 Shapes("Narrative").TextFrame.Characters.Text

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim logSheet as Worksheet
    Dim logRow as Range
    Set logSheet = Sheets("LogDetails")
    If ActiveSheet.Name <> "LogDetails" Then
        logSheet.Unprotect
        Application.EnableEvents = False
        Set logRow = Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        logRow.Value = "Narrative Box"
        logRow.Offset(0, 1).Value = Sheets("1107").Shapes("Narrative").TextFrame.Characters.Text
        logRow.Offset(0, 2).Value = Environ("username")
        logRow.Offset(0, 3).Value = Now
        logSheet.Columns("A:D").AutoFit
        Application.EnableEvents = True
    End If
End Sub

Answer 2

您尝试过使用 ActiveX 文本框吗？

你可以试试这个

Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 1).Value = ThisWorkbook.Sheets("1107").TextBox1.Text

自动保存文本框中的文本

Auto Saving text from textbox

excel

vba

textbox