输入厘米值自动设置列宽，求vba代码。

nzd444

请见附件，在第一行输入厘米值，想要所在该列的列宽自动设置为输入的厘米值。谢谢。

不知何故

网上一般用这个转换：

行高: 1毫米＝2.7682个单位 1厘米＝27.682个单位 1个单位＝0.3612毫米

列宽：1毫米＝0.4374个单位 1厘米＝4.374 个单位 1个单位＝2.2862毫米

但是实际上列宽是没法这么转换的。你在视图==页面布局下设置就行了，页面布局下，行高和列宽都是厘米。

正常情况下，没人使用厘米来设置列宽，也不知楼主要来干嘛

nzd444

不知何故 发表于 2018-8-25 20:07
网上一般用这个转换：

行高: 1毫米＝2.7682个单位 1厘米＝27.682个单位 1个单位＝0.3612毫米

就是列宽不好设置，因为这个列宽的厘米值和分辨率有关系，无法将EXCEL的像素或标准宽度字符直接转化成厘米，我想要VBA代码，而不能通过layout view看列宽的厘米数。
我用这个精确制表用。谢谢回复，看论坛内有没有高手，帮忙解决下。
我个人觉得，就是先要读取屏幕分辨率，这个网上有代码，然后根据不同的分辨率，把像素转化成厘米值，再用厘米值设置列宽。