这只是我的代码的一部分。来自此处文本框的值已被复制到“银行证明”工作表中的特定单元格中。无论我在文本框中输入的文本长度如何,我都需要确保专门安装了单元格C5。我尝试与单元格交换范围无济于事。这个问题看起来很简单,但我不知道为什么它不起作用...

Dim counterparty As String
counterparty = Sheet1.txt1.Text

Range("C5").Value = counterparty

Sheets("Bank Certification").Select

Range("C5").Select

Selection.AutoFit

最佳答案

尝试

Dim counterparty As String
counterparty = Sheet1.txt1.Text

Range("C5").Value = counterparty

Sheets("Bank Certification").Select

Columns("C:C").Autofit

09-28 14:45