编辑现有表格行

时间:2016-11-22 12:13:47

标签: vba excel-vba edit excel

我过去几天一直在为一个项目编码。我有一个userform,其中一个人应该能够更新具有某个ID的缺失数据的现有行。首先,程序在表格中查看" Tests_results"找到SampleID。然后它应该将所有缺少的数据添加到该行。数据从用户表单中提取。我将为您提供代码,userform是下面工作表的一部分:

Private Sub CommandButton4_Click()
Dim rgFound As Range
Dim Obj As ListObject
Dim rowindicator As ListRow

'Search
Set ref = Sheets("Tests Results").ListObjects("Test_results").ListColumns("#")  'reference to sheet, tablecolumn1
Set rgFound = Range("A4:A1000000").Find(SampleID.Value)        'Search for a SampleID WATCH OUT! This is static!
'END Search

'ADRESS CONVERTER
Dim address1 As String, myrow As Long
address1 = rgFound.Address(0, 0)
myrow = Range(address1).Row
MsgBox "Row is " & myrow
'END ADRESS CONVERTER

Set Obj = Worksheets("Tests Results").ListObjects("Test_results")
Set rowindicator = Obj.ListRows.Add(myrow, AlwaysInsert = "False") ' I do not want to add a row here, I just want to edit this row. BUT HOW?

Debug.Print rgFound.Address

x = rowindicator.Index

MsgBox "The active cell row is " & rgFound.Address      

With Obj
    .ListColumns("Test Lab").DataBodyRange(x) = Me.ComboBox_LAB.Value
    .ListColumns("Flammability Type ").DataBodyRange(x) = Me.ComboBoxFlamm.Value
    .ListColumns("Avg-Smoke Density Pass Value (Ds)").DataBodyRange(x) = Me.ComboBoxSDpass.Value

end with
end sub

工作表和表格:
Worksheet and table

用户窗体:
Userform

以下是问题:我现在如何编辑找到的SampleID上的Table行?

0 个答案:

没有答案