Excel视频天天有(203集)

aoe1981

自动修改工作表名：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address(1, 1) = "$A$1" Then
   
3.         ActiveSheet.Name = [a1].Value
   
4.     End If
   
5. End Sub
   

复制代码

为了验证一个问题，该代码在按delete删除a1单元格内容时报错，工作表名保留前次成功同步后的名称……

aoe1981

在excel里制作播放器，有点意思，一个计算机性的软件忽然多了许多艺术气质，呵呵，不错！不过，该播放器支持的音视频格式可不太多呀……

丑（牛）七

看到佛山小老鼠又发表了不少新作品，全部收下了，谢谢！
希望看到更多作品。

aoe1981

69视利用表及名称创建动态数据有效性的技巧很是精彩，值得学习并掌握！

aoe1981

611视频中定义动态人性化数据有效性的方法很精彩，现帖一下名称的定义公式：
动态有效性=OFFSET($A$1,MATCH(LEFT(B1,1)&"*",$A:$A,0)-1,0,COUNTIF($A:$A,LEFT(B1,1)&"*"),1)
以上述名称在B列中添加数据有效性序列……

aoe1981

612视频中贷款还款模拟运算表快速运算方法还真是神奇，第一次接触这个东西，有点难以想象其中的运算方法，和所能达到的运算效果，老师能用九九乘法表展开讲解，循序渐进，匠心独运！

aoe1981

613按颜色求和，边看边练，贴一下代码：

1. Option Explicit
   
2. Public Function yssum(rg As Range, mycol As Range)
   
3.     Application.Volatile
   
4.     Dim r As Range, s&
   
5.     For Each r In rg
   
6.         If r.Interior.Color = mycol.Interior.Color Then
   
7.             s = s + r.Value
   
8.         End If
   
9.     Next r
   
10.     yssum = s
    
11. End Function
    

复制代码

aoe1981

614视频主要讲解制作特殊的柱形图，在两种柱子的时候，可以启动次座标轴，会得到精彩的结果，不错！

aoe1981

615突破合并单元格限制的求和公式：
=sum(c1:$c$12)-sum(d2:$d$12)
确实是奇思妙想，太不可思议了……

aoe1981

616上下管控图中，巧妙地运用了自定义格式，使得只显示越界的过大和过小的数据点：
[>25][红色]0;[<20][红色]0;;
很是精彩！