[共享]VBA尺寸单位的转换和鼠标控制

hhzjxss · 发表于 2007-3-18 10:41

谢谢了！

flying_micky · 发表于 2007-3-18 10:48

看的晕了,大概的意思是不是说我设计一个USERFORM,可以让他出现在鼠标所在位置?

masher · 发表于 2007-4-9 15:32

QUOTE:

以下是引用winland在2006-12-1 10:07:02的发言：

1 Inch等于25.4毫米.这样:

1 毫米 = 72/25.4 * Point

1 毫米 = 1440/25.4 * Twip

设行高为20毫米的话就是 Rows(2).RowHeight=20*72/25.4

设列宽为20毫米的话就是

Cells(2, 1).ColumnWidth = 20 * 72 / (25.4 * Cells(2, 1).Width / Cells(2, 1).ColumnWidth)

这里计算 ColumnWidth 的公式,

理论上没问题,但实际上存在很大的精度问题,

例如设置几个不同大小的单元格为相同的高度10cm, 设置结果都一样,

但是设置几个不同大小的单元格为相同的长度10cm, 设置结果将会都不相同!

有哪位高人可以出手解决这个精度问题啊?

masher · 发表于 2007-4-9 16:04

关于 26 楼的问题,

我有个算法, 尽管实际只会循环两次, 但我还是很担心会出现死循环, 大家帮忙想想更好的方法:

ActiveCell.RowHeight = Application.CentimetersToPoints(5) ''''设置单元格高度为 5cm

Do While ActiveCell.Height <> ActiveCell.Width ''''若宽度不等于高度则循环

ActiveCell.ColumnWidth = Application.CentimetersToPoints(5) / (ActiveCell.Width / ActiveCell.ColumnWidth)

Loop

[此贴子已经被作者于2007-4-9 16:06:07编辑过]

winland · 发表于 2007-4-9 19:16

这个实际的列的宽度同ColumnWidth之间是有点精度问题，实际的列宽度在ColumnWidth之外再加了个固定的Space。这个在微软的文档里我也没有查到过。

TGB · 发表于 2007-4-9 19:23

总觉得，深．．．

masterexcel · 发表于 2007-4-10 16:31

我想要的东西啊

真强

dongfei_1972 · 发表于 2009-1-3 02:44

学习一下，研究一下

簡單愛情 · 发表于 2009-1-4 04:07

学习了呀.....

hhzjxss · 发表于 2009-1-4 08:41

谢谢了，这个值得学习收藏呀！

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