【Excel VBA基础编程】边玩边学:秒懂偏移量引用新区域,这不就是俄罗斯方块的雏形吗?

• 首先把它们“捆绑”在一起，变成一个整体，再把背景色涂成统一的橙色

• 接着，就是让它在方向键的控制下动起来。比如，当按向下键时，会把这个“积木块”整体下移一行，与此同时，我们要清掉原来位置的橙色，在新的位置重新涂上同样的颜色。一擦一涂之间，“积木”下落的动作就表现出来了

而这背后依靠的其实就是 Union 绑定和 Offset 移动

代码及说明

'在工作表激活时绑定方向键Private Sub Worksheet_Activate()    Application.OnKey "{UP}", "MoveUp"    Application.OnKey "{DOWN}", "MoveDown"    Application.OnKey "{LEFT}", "MoveLeft"    Application.OnKey "{RIGHT}", "MoveRight"End SubPrivate Sub Worksheet_Deactivate()    ' 当工作表失活时，恢复方向键的默认功能    Application.OnKey "{UP}"    Application.OnKey "{DOWN}"    Application.OnKey "{LEFT}"    Application.OnKey "{RIGHT}"End Sub

Public blockRange As RangeSub Block_Init()    Dim ws As Worksheet    Set ws = ThisWorkbook.Worksheets("Sheet3") '工作表代码添加到哪个工作表，就填哪个    '初始化一个L形状的区域    Set blockRange = Union(ws.Range("C7"), ws.Range("C8"), ws.Range("C9"), ws.Range("D9"))    blockRange.Interior.Color = RGB(255, 165, 0) ' 设置为橙色End Sub'以下4个宏代码，除了偏移量有变动，其他逻辑保持不变Sub MoveUp()    Dim newblock As Range    Set newRange = blockRange.Offset(-1, 0)    blockRange.Interior.ColorIndex = xlNone '擦除底色    newRange.Interior.Color = RGB(255, 165, 0) ' 设置为橙色    Set blockRange = newRangeEnd SubSub MoveDown()    Dim newblock As Range    Set newRange = blockRange.Offset(1, 0)    blockRange.Interior.ColorIndex = xlNone '擦除底色    newRange.Interior.Color = RGB(255, 165, 0) ' 设置为橙色    Set blockRange = newRangeEnd SubSub MoveLeft()    Dim newblock As Range    Set newRange = blockRange.Offset(0, -1)    blockRange.Interior.ColorIndex = xlNone '擦除底色    newRange.Interior.Color = RGB(255, 165, 0) ' 设置为橙色    Set blockRange = newRangeEnd SubSub MoveRight()    Dim newblock As Range    Set newRange = blockRange.Offset(0, 1)    blockRange.Interior.ColorIndex = xlNone '擦除底色    newRange.Interior.Color = RGB(255, 165, 0) ' 设置为橙色    Set blockRange = newRangeEnd Sub