[算表] 急，賞一萬P幣，修改巨集，使連格式亦ꔠ…
軟體:office excel
版本:2003
下面這段巨集是可以按住ctrl後，點選兩個不相鄰儲存格，按下ctrl+q後，
交換這兩個儲存格的內容資料。
我的問題是，要如何改寫，讓它不但能對換資料，連儲存格的格式也能一起對換？
(儲存格格式我指的是圖樣與字型色彩...但若完全交換也可以啦....)
或是有別的方式也行，不一定要從下面改寫。
我只是要簡單的方式(例如ctrl+s)，
就能讓兩個完全不相鄰的儲存格直接對換格式與資料。
(但不是用插入的方式，要能類似下面這段巨集的方式。)
因為急需，所以第一個給出正確答案或方式，經我測試確實能用者，
將立即贈送10000 P幣，聊表謝意^^
若同時兩個人的答案皆不完全，但拼湊起來恰好能用，則平分這一萬P幣。
回文可po在office版或ask版或寄到我信箱皆可，
若時間很接近，但方式不同的話，則各贈10000 P幣。
先謝謝大家了QQ
=====================================================================
Sub whyuuu()
'
' 對換資料
' X 在 2009/10/28 錄製的巨集
'
' 快速鍵: Ctrl+q
Dim ss, s As Range
Set s = Selection
If s.Areas.Count = 2 Then
If s.Areas(1).Cells.Count = 1 And s.Areas(2).Cells.Count = 1 Then
ss = s.Areas(1).Cells(1, 1).Value
s.Areas(1).Cells(1, 1).Value2 = s.Areas(2).Cells(1, 1).Value
s.Areas(2).Cells(1, 1).Value2 = ss
End If
End If
End Sub
=========================================================================
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 121.254.70.53
※ 編輯: udm 來自: 121.254.70.53 (10/28 19:20)
※ udm:轉錄至看板 ask 10/28 19:20
→
10/29 04:26, , 1F
10/29 04:26, 1F