vba - 用 textbox1.value 填充表格范围

Question

Private Sub CommandButton1_Click()

Dim tl As Integer

t1 = 33

'**************

Dim tbl1 As Table
Dim rng As Range

Set doc = ActiveDocument    
Set tbl1 = ActiveDocument.Tables(t1)
Set rng = doc.Range(Start:=tbl1.Cell(2, 5).Range.Start, _
     End:=tbl1.Cell(100, 5).Range.End)

rng.Text = TextBox1.Text 

当我按下按钮时，此代码无法正常工作，我只能填写Start:=tbl1.Cell(2, 5)....这只能填写 1 个单元格

但End:=tbl1.Cell(100, 5).Range.End)不起作用。它不会填满所有行。

标签： vbams-word

Answer 1

您需要遍历所有相关的单元格。例如：

Private Sub CommandButton1_Click()
Dim tl As Long, r As Long
t1 = 33
With ActiveDocument.Tables(t1)
  For r = 2 To 100
    .Cell(r, 5).Range.Text = TextBox1.Text
  Next
End With
End Sub