私有子工作表_ selection change(ByVal Target As Range)
變暗rng As範圍
細胞。Interior.Pattern = xlNone
設置rng = ActiveCell。偏移量(0,1)
rng。內飾。Color = 65535
末端接頭
將代碼復制到