Excel视频天天有(203集)

佛山小老鼠

7 月16日重复的显示空

aoe1981

63视频中提取工作表名：=MID(CELL("filename",A1),FIND("]",CELL("filename",A1),1)+1,2^8)
这个函数不错，至于根据单元格变化相应自动修改工作表名，则要用到简单的VBA此处不再做学习笔记了……

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