Question

大侠，可以帮忙改下代码吗，帮忙改成用鼠标选择单元格，再执行操作。

Sub 手写()
Dim rng As Range, zt, dx, dq, sj, r, i, j, k
On Error Resume Next
Application.ScreenUpdating = False
Cells.HorizontalAlignment = xlCenter
Cells.Font.Italic = False
zt = Array("1", "2", "3", "4", "5", "6", "7", "8")
dx = Array(12.5, 13, 13.5)
For Each rng In Range("H8:R11,R12，H13:R14")
rng.Font.Italic = True
rng.HorizontalAlignment = dq(Round(Rnd * 1, 0))
For i = 1 To Len(rng)
rng.Characters(i, 1).Font.Name = zt(Round(Rnd * 7, 0))
rng.Characters(i, 1).Font.Size = dx(Round(Rnd * 2, 0))
Next
Next
Application.ScreenUpdating = True
End Sub

Answer 1

====57132899====
把这段代码放到SELECTIONCHANEG事件里去就可以罗

Answer 2

。。。。。。。。。。。