小编Ehu*_*udz的帖子

我需要截断我的double值的小数位数,以便在文本框中显示.如何用vba实现这一目标？

我想知道是否有一种方法可以防止单元格的文本与相邻单元格重叠，而无需调整单元格本身的大小或将单元格内容设置为换行。

我在用户表单中有一个多页.在运行时,用户可以随时选择添加x个页面.每个页面的元素都是相同的.我想知道是否有办法复制这些元素,还是我需要为每个新页面重新创建这些相同的元素？如果是这样,我如何在页面上指定元素应放置的位置？

参考

我试图用VBA更改ActiveX命令按钮的名称属性,代码如下:

Set shp = ActiveSheet.Shapes(Selection.Name)

With shp.OLEFormat.Object
    .Object.Caption = "Node" & Str(NumNodes)
    .Name = "Node" & Str(NumNodes)
End With

我可以更改标题名称,但不能使用上面的代码更改name属性.我需要找到一种方法来为name属性连接字符串和int(NumNodes).

UPDATE

这是完整的子例程,它复制命令按钮并将其粘贴到特定的单元格位置.在创建按钮时也会更改属性,例如名称和标题.

Public Sub Node_Button_Duplication()
'
'Comments: Copies and pastes Node 1's button to the appropriate column

Dim shp As Shape

' Copy Node 1 button and paste in appropriate location

    ActiveSheet.Shapes("CommandButton1").Select
    Selection.Copy
    Cells(5, 10 + 7 * (NumNodes - 1) - 1).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 47.25
    Selection.ShapeRange.IncrementTop -13.5


    Set shp = ActiveSheet.Shapes(Selection.Name)

    With shp.OLEFormat.Object
        .Object.Caption = "Node" & Str(NumNodes) …

我正在尝试加载一个包含字典中最后一项的组合框.我正在尝试做一些ComboBox1.Value = NodeColl.Item(NodeColl.Count)可以使用集合的东西,但是在使用字典时会做一些奇怪的事情.

我有一个集合如下：

Set NodeColl = New Collection
NodeColl.Add "Node 1", "Node 1"
NodeColl.Add "Node 2", "Node 2"
NodeColl.Add "Node 3", "Node 3"

我想知道是否有一种简单的方法可以在不影响其他项目或集合本身的情况下重命名选择性项目的键。例如，像 NodeColl.Items("Node 1").Key = "Some string"

我需要在字典中的特定键和项对之后添加一个项目.基本上与添加成员在集合中允许的行为相同:(Collection.Add (item [,key] [,before] [,after])

我一直在使用Application.Caller进行比较.当用户单击命令按钮时,我假设Application.Caller返回命令按钮的名称,但我不确定.

我正在尝试做类似的事情:msgbox(Application.Caller),但意识到它不是正确的数据类型.我怎样才能弄清楚Application.Caller实际上是什么？