dim temp as string
dim i as integer
Private sub worksheet_change(byval target as range)
If i =0 then
If target.column=2 then
If temp ="" then
i =0
Return
End if
Str = left(temp,len(temp)-1)
i=1
Target.value=Str +target.text +"]"
End if
Else
i=0
End sub
Private sub worksheet_selectionChange(byval target as range)
If target.column=2 then
Temp=target.text
End if
End sub
iPad 手打
网友评论2013-05-07 13:07
Reply Post by jazzl (2013-05-07 12:30):
dim temp as string
dim i as integer
Private sub worksheet_change(byval target as range)<br/.......