逗比男神你建哥
1. 问题：运行时出现错误438,对象不支持该属性或方法
你的代码让我读到的意思是，在大货单的单元格区域a1:aj1，如果能找到值为“款号”的单元格，那么
就把样品单的“A1”单元格的值设置为：“款号”。
我修改了一下你的代码，可以运行，没有438错误。
Sub 制作样品（）
Dim rng As Range
With Sheets（"样品单"）
Sheets（"大货单"）.Range("a1:aj1").Select
For Each rng In Sheets（"大货单"）.Range("a1:aj1")
If rng.Value = "款号" Then
.Cells(1, 1) = "款号"
End If
Next
End With
End Sub
可能我没理解到你的真实意图，我感觉你的代码和你提的问题没多大关系。
正行遍历单元格，是什么意思，能解释一下吗？
2. 438对象不支持此属性或方法如何解决啊不要重做系
问题有两方面原因：一是页面内容尚未完全下载到本地时，点击触发运行某段程序，却找不到这段程序而产生的，此时只需耐心等待IE左下脚提示“完全”后，再触发交易即可。
二是由于签名需用到签名控件，若控件无法下载到本地，当页面中脚本调用控件时，也会报此错误，这时手工注册签名控件即可解决。首先下载控件，地址是“.cn/icbc/NetSign.dll”，将此dll文件另存到系统的system32目录中，点开始--运行执行命令“regsvr32 NetSign.dll”即可。
同时，最好不要安装“3721上网助手”等软件，它会阻碍安全控件的下载。
转载请注明出处51数据库 » word运行错误438对象不支持改属性
