Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)'双击
if target.address="$P$25" then
sheet1.[k27]=target.value2
end if
end sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)'单击
if target.address="$P$25" then
sheet1.[k27].ClearContents
end if
end sub
把上面的代码放在SHEET2里