源源远流长 发表于 2021-11-12 08:41:00

引用签名图片

大虾们，如附件，工作表B列，是参照A列情况，引用签名表里的签名图片，用什么方法可以实现呢？谢谢！有两个要求：1、工作表A单元格为空值时，B例对应的签名为空；2、引用的签名图片，与B列单元格大小一致，这样全样签名引用下来，就不会出现挨挤现象。

西家塞 发表于 2021-11-16 04:32:41

我发现用自定义公式有两个缺点：1、只能是固定单元格，而不能是活动的单元格，否则会出现引用失败；2、当名字为空值时，签名也应是空值，但这个实现不了。

天降石天珠 发表于 2021-11-30 08:33:12

图片处理，还是VBA高效。

闲散人也 发表于 2021-12-3 08:24:34

大佬，您好！可以截个完整的图么？谢谢。发的这个图还有些没截上，看不完整。

肉多多 发表于 2021-12-18 08:19:41

三得力 发表于 2022-1-8 21:09:53

注意签名表中的B列不能重叠，否则copy到工作表时也有重叠。

风在天涯 发表于 2022-1-25 06:10:59

好的，谢谢大佬！如果工作表里面的名字有变化，可以复原一下，再重新运行宏签名么？

何沧宁 发表于 2022-2-6 10:57:58

另外，在运行时，宏的控键按钮都被复盖搞没了呢。

程式达人 发表于 2022-2-18 11:17:26

“Private Sub CommandButton1_Click()
Application.ScreenUpdating=False
Dim s As Shape,x As Range
For Each s In Sheets(“工作表”).Shapes
If s.Type<>12 Then s.Delete
Next s
For Each x In Sheets(“工作表”).Range(“A1”,.End(3))
If Not Sheets(“签名表”)..Find(x,,,1) Is Nothing Then
   Sheets(“签名表”)..Find(x,,,1).Offset(,1).Copy x.Offset(,1)
End If
Next x
Application.ScreenUpdating=True
End Sub”
大佬，您好！可以解释下这几句话的意思么？If s.Type<>12 Then s.Delete，里面的为什么是12？”,.End(3)，End(3)是什么意思？Find(x,,,1) 这个是什么意思？Offset(,1)又是什么意思？谢谢
页: [1]
查看完整版本: 引用签名图片