关于word vba中如何将msgbox显示的值复制出来？

WOODPERSONLIU · 发表于 2014-10-16 10:20

有这样一组语句
Sub 万元()
Dim TT As String
TT = Selection / 10000
MsgBox Format(TT, "#,##0.00")
End Sub

msgbox会显示我想要的结果，但我想把这个结果复制出来，在其他地方粘贴，该添加什么语句呢？向各位大侠求助。

liuhoubin168 · 发表于 2014-10-16 11:01

如果你每次都必须要复制，你直接把TT复制到剪贴板就是了。

WOODPERSONLIU · 发表于 2014-10-16 11:04

liuhoubin168 发表于 2014-10-16 11:01
如果你每次都必须要复制，你直接把TT复制到剪贴板就是了。

麻烦请问通过什么语句实现呢？

liuhoubin168 · 发表于 2014-10-16 11:21

Word vba对剪贴板不支持。

liuhoubin168 · 发表于 2014-10-16 11:22

但在窗体中就可以使用剪贴板了。因此，建议在窗体中使用以上代码。

liuhoubin168 · 发表于 2014-10-16 11:52

本帖最后由 liuhoubin168 于 2014-10-16 11:54 编辑

Private Sub 万元()
  '在工具引用菜单中引用 Microsoft Froms 2.0 Object Library
  Dim data As DataObject
  Dim TT As String
  Set data = New DataObject
  TT = Selection / 10000
  data.SetText Format(TT, "#,##0.00")
  data.PutInClipboard'复制到剪贴板
  MsgBox Format(TT, "#,##0.00")
End Sub

WOODPERSONLIU · 发表于 2014-10-16 13:23

问题解决，万分感谢！！

		自动登录	找回密码
密码			免费注册

[求助] 关于word vba中如何将msgbox显示的值复制出来？