這是工作上要用的 不過上網找瞭之後 急~~excel的巨集 - 趣味新聞網

發表日期 2008-03-20T13:43:27+08:00

     這是工作上要用的，
不過上網找瞭之後，
有位大大寫的最符閤我的需求，
不過他寫的巨集真的看不懂，
希望看的懂的可以翻一下
感恩不盡^^愈仔細愈好。


Private Sub Worksheet_Change(ByVal Target As Range)
Dim SHP As Shape
If Target.Column = 1 Then
For Each SHP In Sheet2.Shapes
If SHP.Type = msoFormControl Then GoTo ss
If SHP.TopLeftCell.Column = 3 Then
SHP.Delete
End If
ss: Next
ER = Sheet1.Range("c10").End(xlDown).Row
NR = Sheet2.Range("A1").End(xlDown).Row
For J = 1 To NR
For I = 1 To ER
If Sheet1.Cells(I, 1) = Cells(J, 1) Then
PA = Sheet1.Cells(I, 2)
Set nm = Cells(J, 3).MergeArea
T = Range(nm.Address).Top
L = Range(nm.Address).Left
H = Range(nm.Address).Height
W = Range(nm.Address).Width
ActiveSheet.Pictures.Insert(PA).Select
With Selection
.Top = T
.Left = L
.Height = H
.Width = W
.Placement = xlMoveAndSize
.PrintObject = True
End With
Exit For
End If
Next I
Next J
Range("c1").Select
End If
End Sub

[ 本帖最後由 流星的諾言 於 2008-6-23 03:16 編輯 ]

分享鏈接