Question

如何将工作表1中的单元格数据保存到工作表2中。

基本上我有一张这样的表： -

             |   Job number | Job notes

edit button  |   345345     |  just some text

edit button  |   345468     | more text

edit button  |   678934     | job info

在我的Excel工作表上，我在每行上都有一个命令按钮，按下后会打开一个带有文本框的用户表单，按下命令按钮时会有一个命令按钮，它会搜索作业编号并将文本框数据保存到我正在编辑的正确作业编号的行中。

保存代码

Private Sub savejobnotes_Click()


Dim YourVariable As Variant
Dim rowCount As Integer
Dim rownum As String
Set YourVariable = jobRef


With ActiveSheet.Range("D:D")
Set uRng = .Find(YourVariable, , xlValues, xlWhole, , MatchCase:=False, 
searchformat:=False)
If Not uRng Is Nothing Then
    uRng.Activate
    rowCount = ActiveCell.Row
    'this will find the row number  rowCount
   ' MsgBox rowCount

    rownum = "K" & rowCount
    MsgBox "Saved to " & rownum

    'save textbox value to a cell
    ActiveSheet.Range(rownum).Value = jobnotes.Value


 End If
End With
End Sub

打开用户表单时将作业备注加载到文本框中的代码。

Sub loadjobnotes()

Dim YourVariable As Variant
Dim rowCount As Integer
Dim rownum As String
Set YourVariable = jobRef
With ActiveSheet.Range("D:D")
Set uRng = .Find(YourVariable, , xlValues, xlWhole, , MatchCase:=False, 
searchformat:=False)
If Not uRng Is Nothing Then
    uRng.Activate
    rowCount = ActiveCell.Row
    'this will find the row number  rowCount
   ' MsgBox rowCount

    rownum = "K" & rowCount
   ' MsgBox rownum

jobnotes.Value = ActiveSheet.Range(rownum)


  End If
 End With
End Sub

每次如何将作业编号和作业注释保存到单独的工作表中。因为我需要保留一份与作业号相关联的作业备注，因为我的excel表定期从.csv文件更新，从表中删除任何已完成的作业。

感谢您的帮助

Answer 1

您应首先创建一个名为作业的新工作表，然后使用以下结构：

Sheets("Jobs").Cells("coordinates here").Value = "your values"

也许你需要创建一个计数器，但这是其他一些主题。

Excel VBA将单元格数据保存到单独的工作表中

1 个答案: