如何取得单元格字符串的实际长度？？？

丸究阵引 · 发表于 2006-7-5 17:07

谢谢 lotustower

还是没理解偶的意思！

在单元格里如果字号不一样，长度也会不同，而GetTextExtentPoint和字号字体无关！

lotustower · 发表于 2006-7-5 18:45

我使用中 Excel 的欄寬預設為 8.38，即是一個 Cell 內容許 8.38 字。 <---- CPI

20/F Code ,

Sub test()
MsgBox fncGetStringWidth([A1])
End Sub

Units : Twips

將字體以 Screen 顯示和 Resolution 計算

Ref Twips:

[此贴子已经被作者于2006-7-5 18:58:21编辑过]

hrz0836 · 发表于 2006-7-5 21:15

将单位格设为自动的宽度后,取得单元格的宽度不就行了

Selection.Columns.AutoFit
MsgBox Selection.Columns.ColumnWidth

丸究阵引 · 发表于 2006-7-5 21:20

乱了！乱了!

各位跟贴请瞄准一楼的问题！！！

lotustower · 发表于 2006-7-5 23:09

GetTextExtentPoint, GetTextExtentPoint32

VB声明
Declare Function GetTextExtentPoint& Lib "gdi32" Alias "GetTextExtentPointA" (ByVal hdc As Long, ByVal lpszString As String, ByVal cbString As Long, lpSize As SIZE) Declare Function GetTextExtentPoint32& Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As SIZE)
说明
判断一个字串的大小（范围）。在Win32环境中，最好使用GetTextExtentPoint32，它提供了更精确的计算结果
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数	类型及说明
hdc	Long，设备场景的句柄
lpszString	String，欲度量其范围（extent）的一个字串
cbString	Long，lpszString字串的长度
lpSize	SIZE，这个结构用于装载字串范围的高度和宽度信息
注解
这个函数不会将剪切区考虑在内，但却考虑到了由SetTextCharacterExtra函数设置的任何额外空间（间距）

lotustower · 发表于 2006-7-5 23:21

QUOTE:

以下是引用hrz0836在2006-7-5 21:15:33的发言：

将单位格设为自动的宽度后,取得单元格的宽度不就行了

Selection.Columns.AutoFit
MsgBox Selection.Columns.ColumnWidth

丸究阵引 · 发表于 2006-7-6 09:00

谢谢 lotustower 的热情！

第一篇求助就说了GetTextExtentPoint不行,中间两次又作了解释，可还向偶推销。。。。。。。。。

lotustower · 发表于 2006-7-6 12:29

[em06][em06][em06]

丸究阵引 · 发表于 2006-7-7 10:39

见38楼更新

[此贴子已经被作者于2006-7-9 21:59:23编辑过]

lotustower · 发表于 2006-7-7 11:28

QUOTE:

以下是引用丸究阵引在2006-7-6 9:00:04的发言：

谢谢 lotustower 的热情！

第一篇求助就说了GetTextExtentPoint不行,中间两次又作了解释，可还向偶推销。。。。。。。。。

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