若要在 64 位系统上使用 ......PtrSafe 属性标记它们

赤云隐龙

風中的雨點 发表于 2013-6-18 16:45
将Declare  改成 Declare PtrSafe   这样总明白了吧。

亲测可行！赞！至于哪里有Declare呢？能确定全改了吗？看见一个改一个吧（它所在的段落已经显示成红色了）

wj2368

赤云隐龙 发表于 2016-3-11 19:48
亲测可行！赞！至于哪里有Declare呢？能确定全改了吗？看见一个改一个吧（它所在的段落已经显示成红色了 ...

在所有出现红色的都添加 PtrSafe

speraph

風中的雨點 发表于 2013-6-18 16:45
将Declare  改成 Declare PtrSafe   这样总明白了吧。

简单，直接，，受用了。

lky41273

風中的雨點 发表于 2013-6-18 16:45
将Declare  改成 Declare PtrSafe   这样总明白了吧。

感谢！
另外，我因为office更换了好几个版本，现在VBA做成的二维码，做好保存，重新打开excel的时候，二维码就失效了，不知能否解决？

relaystar

赤云隐龙 发表于 2016-3-11 19:48
亲测可行！赞！至于哪里有Declare呢？能确定全改了吗？看见一个改一个吧（它所在的段落已经显示成红色了 ...

亲测可行，感谢EH的各位大侠分享。
下面就要解决“知其所以然”的问题的，留待高手解惑释疑。。。
declare ptrsaft 到底是啥？

stevenyang0909

亲测可行，谢谢楼上的解决办法。

zyhui1961

風中的雨點 发表于 2013-6-18 16:45
将Declare  改成 Declare PtrSafe   这样总明白了吧。

不会改啊：谢谢帮忙改一下！！！
Sub BianSe()
    Dim Rng As Range, cell As Range
    Dim l As Integer
    Set Rng = Sheet01.Range("D4:D99")
    For Each cell In Rng
        l = Len(cell)
        If l > 4 Then
            For i = 1 To l
                If i Mod 8 > 4 Or i Mod 8 = 0 Then
                    cell.Characters(l - i + 1, 1).Font.ColorIndex = 3
                End If
            Next
        End If
    Next
End Sub

zyhui1961

wj2368 发表于 2016-3-11 19:57
在所有出现红色的都添加 PtrSafe

没出现红色，就是提示：

wj2368

zyhui1961 发表于 2023-4-17 15:17
不会改啊：谢谢帮忙改一下！！！
Sub BianSe()
    Dim Rng As Range, cell As Range

你这个不用的
检查 一下这个Sheet01工作表存在吗

zyhui1961

wj2368 发表于 2023-4-18 08:50
你这个不用的
检查 一下这个Sheet01工作表存在吗

是我太蠢了，工作表保护了！不好意思，谢谢！