Re: [算表] 急，賞一萬P幣，修改巨集，使連格式亦 …(VBA)
利用 Sheets 的 A1 當中介，可以自己設定，試看看可不可行囉，
還有不用給我 P 幣囉，因為我從來沒用過說，你留著自己用就可以了
Sub whyuuu()
'
' 對換資料
' X 在 2009/10/28 錄製的巨集
'
' 快速鍵: Ctrl+q
Dim s As Range
Dim ss As Range
Set ss = Sheets(2).Range("A1")
Set s = Selection
If s.Areas.Count = 2 Then
If s.Areas(1).Cells.Count = 1 And s.Areas(2).Cells.Count = 1 Then
s.Areas(1).Copy
ss.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
s.Areas(2).Copy
s.Areas(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
ss.Copy
s.Areas(2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End If
Application.CutCopyMode = False
End If
End Sub
※ 引述《udm (終於換新電腦了^^)》之銘言：
: 軟體: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: 125.225.3.162
推
10/28 23:59, , 1F
10/28 23:59, 1F
→
10/28 23:59, , 2F
10/28 23:59, 2F
→
10/29 00:54, , 3F
10/29 00:54, 3F
→
10/29 04:20, , 4F
10/29 04:20, 4F
→
10/29 04:20, , 5F
10/29 04:20, 5F
→
10/29 09:28, , 6F
10/29 09:28, 6F