VB怎么实现两个EXCEL之间的数据对比 Sub 数据对比()Dim i As IntegerDim j As IntegerFor i=2 To 95 '表1身份证字段是2行到95行For j=3 To 258 '表2身份证字段是3行到258行If Sheets(\"表1\").Cells(i，17)=Sheets(\"表2\").Cells(j，8)Then '表1身份证是在17列，表2身份证在第8列Sheets(\"表1\").Cells(i，18)=\"已存在\"'存在时进行标记，并在18列写已存在End IfNext jNext iEnd Sub
vb任何实现图片对比？ 图片对比就是比对两张图片的每一个像素点的值是不是一样，如果全部一样，那么两张图片就是一样的，如果不一样，就是有区别吧！。？ 2021SOGOU.COM 京ICP证050897号
vb 对比图片 生成图片 下边是比较两幅图，一样的保留，其他的自己弄吧Private Declare Function GetPixel Lib\"gdi32\"(ByVal hdc As Long，ByVal X As Long，ByVal Y As Long)As LongPrivate Declare Function SetPixelV Lib\"gdi32\"(ByVal hdc As Long，ByVal X As Long，ByVal Y As Long，ByVal crColor As Long)As LongPrivate Sub Command1_Click()Dim X，Y，c1，c2 As LongFor X=0 To Picture1.ScaleWidth-1For Y=0 To Picture1.ScaleHeight-1c1=GetPixel(Picture1.hdc，X，Y)c2=GetPixel(Picture2.hdc，X，Y)If c1=c2 Then Call SetPixelV(Picture3.hdc，X，Y，c1)NextNextEnd Sub
