Re: [請問] 請問EXCEL巨集的含意---感謝abian大大

看板Office作者Houcc (陽光無聊男子)時間15年前 (2011/01/05 03:02)推噓1(1推 0噓 1→)

留言2則, 2人參與討論串1/1

真是太感謝扁大幫忙讓我更瞭解如何使用這個巨集謝謝你！︿︿ ※ 引述《Houcc (陽光無聊男子)》之銘言： : ※ [本文轉錄自 ask 看板 #1D86c6bV ] : 作者: Houcc (陽光無聊男子) 看板: ask : 標題: [請問] 請問EXCEL巨集的含意 : 時間: Sun Jan 2 20:03:15 2011 : 內容如下 : Private Sub Worksheet_SelectionChange(ByVal Target As Range) : If Target.Count <> 1 Then Exit Sub : If Intersect([A1:D1], Target) Is Nothing Then Exit Sub : Dim rng As Range : r = [A65536].End(3).Row : c = Target.Column : mycolor = Target.Font.ColorIndex : Set rng = Range("A2:D" & r) : If mycolor = 1 Then : rng.Sort key1:=Cells(2, c), Order1:=xlAscending : Target.Font.ColorIndex = 56 : Else : rng.Sort key1:=Cells(2, c), Order1:=xlDescending : Target.Font.ColorIndex = 1 : End If : [D1].Select : End Sub : 這是一個選單巨集 : 請高手幫我解釋一下 : 各個英文縮寫代表什麼意思？ : 這樣寫會有什麼影響... : 謝謝！ -- ▉▊◤ ◥ ▁▂▁ ├┤ ◤ ╮ ◥▎▏ ▊◤ ＼ ⊙ ◢ ▁▂▁◆ ◆ ▇ ⊙ ︵ ◥▎ ▊ ●◆──◆ 巛◆ ╰╯ ╣ ◆─◆) ▎ ▊◣ ／ ⊙ ◥ ▇▆▅▄ ◆██████▁ ⊙ ︶ ◢▎ ▉▊◣ ◢ ▇▆▅▆ ◣ ╯ ◢▎▏ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 221.169.204.126