You need to enable JavaScript to run this app.
优惠活动
大模型
产品
解决方案
定价
更多

如何将动态创建的ComboBox嵌入到Excel单个单元格中?

问题:嵌入单元格的ComboBox创建异常

我正尝试创建一个嵌入单元格的ComboBox。以下代码会查找第一个可用行(本例中为第12行)并偏移至对应列:

Dim ctop#, cleft#, cht#, cwdth#
Dim ComboBox As OLEObject
                
ctop = Sheets("Sheet1").Range("O35").End(xlUp).Offset(0, 5).Top
cleft = Sheets("Sheet1").Range("O35").End(xlUp).Offset(0, 5).Left
cht = Sheets("Sheet1").Range("O35").End(xlUp).Offset(0, 5).Height
cwdth = Sheets("Sheet1").Range("O35").End(xlUp).Offset(0, 5).Width
                    
With ws_new
Set ComboBox = .OLEObjects.Add(ClassType:="Forms.ComboBox.1", Left:=cleft, Top:=ctop, Width:=cwdth, Height:=cht)
End With
                    
ComboBox.Placement = xlMoveAndSize

但这段代码创建的ComboBox位于Q12与R12之间,并未嵌入到单个单元格中。该控件虽会随行列调整大小,但未绑定到单个单元格。

截图说明:截图显示创建的ComboBox跨Q12和R12单元格,未完全嵌入单个单元格内。

内容的提问来源于stack exchange,提问作者vaemps

相关产品推荐
方舟 Agent Plan

超全模态模型 × Harness 升级,最新支持 Deepseek-V4.1-Flash、GLM-5.3 系列、Doubao-Seedream-5.0-pro、Kimi-K3 (部分), 限时 9.9 元起

最近更新时间:2026.08.20 07:01:27