回复：Excel可以做什么，Excel工作笔记[全员乱入]

最近工作太忙没有持续更新新的内容, 自己瞎顶一下, 纪念签到百天.
提到百天, 怀念小兔 @温柔小兔

各位高手：有什么公式找出下表中红色文字的单元格有多少个？

80%看不懂

这几天在做这个,Excel真的很强大.我在另外的贴说过.希望有兴趣的吧友一起讨论下,有什么新的想法:
1)在表格内自由移动
2)追踪单位.
3)攻击单位.

付上一段移动的代码,懂的人发表下你的意见:
If Hgo = True Then
N = N + 1
Shapes("group 74").Left = Shapes("group 74").Left + HeroDirX * HeroMovLeft
Shapes("group 74").Top = Shapes("group 74").Top + HeroDirY * HeroMovTop
'Shapes("group 74")就是图中移动移动的单位.
If N Mod 2 = 0 Then '移动动画效果
Call MoHero(1)
Else
Call MoHero(2)
End If
移动判断:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row <= 60 And Target.Column <= 120 Then
If HeroC = True Then
If Hgo = False Then
Call GetDistandA(Shapes("group 74").Left, Shapes("group 74").Top, Target.Left, Target.Top, 1)
N = 0
Hgo = True
HeroAtb = False
End If
End If End If End Sub
地点判断:
Function GetDistandA(ByVal Hdx As Long, ByVal Hdy As Long, ByVal OtDx As Long, ByVal OtDy As Long, ByVal Whos As Integer)
Select Case Whos
Case 1
If Hdx - OtDx < 0 Then
HeroDirX = 1
Else
HeroDirX = -1
End If If Hdy - OtDy < 0 Then
HeroDirY = 1
Else
HeroDirY = -1
End If If Abs(Hdx - OtDx) > Abs(Hdy - OtDy) Then
HeroMT = Abs(Hdx - OtDx) / 15
HeroMovTop = Abs(Hdy - OtDy) / HeroMT
HeroMovLeft = 15
Else
HeroMT = Abs(Hdy - OtDy) / 15
HeroMovTop = 15
HeroMovLeft = Abs(Hdx - OtDx) / HeroMT
End If

我是来学习的，一点一点都不懂的我，从来没想过我会有用到excel的时候，不知道现学现用来不来得及，希望我的老板能容忍我 给我一个学习的机会

回复 青水蛙鸣 :别的助理还有时间玩农场 我就郁闷了 基本的一些操作我还是会的啊 目前为止只让我做表格什么的

现在还有人玩农场？我说心态就包括不比较及积极进取，当然这很难。别管别人怎么样，先做好自已的分内工作，可能在一段时间内也不要太过在于得失