Question

对于我的项目，我需要做一个价目表的布局。我们每天都会添加产品，所以我写了一个宏来做一个变量表。

Sheets("A").ListObjects.Add(xlSrcRange, Range(Range("B1"), Range("B1").SpecialCells(xlLastCell)), , xlYes).Name = _
    "Tableau1"
Range("Tableau1[#All]").Select
Sheets("A").ListObjects("Tableau1").TableStyle = "TableStyleLight9"

问题在于：我想在表格的末尾添加一个文本框（对于你买的东西，你知道的条件......），但我不知道如何把它...我我已经尝试Range("E").End(xlDown).Row将文本框的顶部条件放在最后，但我的文本框放在桌子的中间，我不知道为什么......

这是我设计文本框的实际代码：

Sheets("A").Shapes.AddTextbox(msoTextOrientationHorizontal, 60, _
      Range("E").End(xlDown).Row, Range("B:L").Width, 60).Select

你有解决我问题的方法吗？

提前感谢并抱歉我的英语。

Answer 1

试试这个

Sheets("A").Shapes.AddTextbox(msoTextOrientationHorizontal, 60, _
      Range("E1").End(xlDown).Row, Range("B:L").Width, 60).Select

VBA - 将文本框放在变量表的末尾

1 个答案: