[EXCEL]天天摘

 

引用问题

我在excel中想实现这么一个功能，如单元格D12有一个数据是4，现在我想引用A4的数据，但4是由D12提供的，即如何实现A4=A(D12)。也就是，在Excel中，A7单元，能否实现把后面的数字用算式来代替，如A(3+4)，或者是单元格的嵌套，A(D12），恳请高手解答。
解答：①=indirect("a"&d12)
② 我的想法：借一个单元格如B4用，键入="A"&D12 在需引用的单元格键入=INDIRECT(B4)
即可，第二个：C4是3，C5是4 B4="A“&C4+C5 ,同①。

 

如何在一列列出工作薄中的所有表(表名无规律)

以下宏将在 a 列传回所有工作表名称。 ( 很实用 )
Sub Maco1()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next
End Sub

18位身份证号码输入的几种解决方法

相信在EXCEL这个软件中如何输入15位或18位身份证号码的问题已经困挠了许多人，因为在EXCEL中，输入超过11位数字时，会自动转为科学计数的方式，比如身份证号是：123456789012345，输入后就变成了：1.23457E+14,要解决的方法有非常非常......多种哦，呵呵，现在为大家说几种比较简单快速的方法：
　　1、在A1单元输入号码时，在前面先输入’号，就是：’123456789012345,这样单元格会默认为该单元为文本方式，会完整显示出15个号码来，而不会显示那令人讨厌的科学计数方式来了。
　　2、如果已经输入了大量的号码，全部以科学计数显示的话，而又懒的按照上面的方法一个一个的重新输入的话，也有这个好方法哦，比如已在单元A1：A100输入了号码，按以下步骤做：》选择单元A1：A100》单击鼠标右键，设置单元格式》选择自定义，在‘类型’中输入‘0’即可，轻松搞定，呵呵！！
　　3、还有一种用函数来解决的方法：在A1：A100已经输入大量的号码时，在B1单元中输入：=trim(' 'a1),注意两个’之间是空格，这个公式的意思:先在A1单元15位号码前加个空格符号，然后用trim这个函数把空格符号去掉。输完后，B1单元也是显示出完整的15位数字了。

用countif算出数值大小在50~60之间的单元格个数

解答：①你可以综合一下呀! =countif(a1:a9,">=50")-countif(a1:a9,">60")
②{=SUM((a1:a9<60)*(a1:a9>50))}
③ 为什么{=SUM((a1:a9<60)*(a1:a9>50))}可以求出符合条件的个数，按理后面应再加一待求和区域如"B1:B9"等等，不知数组计算的内部机制是怎样的，不知谁能给个解释,谢谢！！
④ 这个数组公式是这样运算的： a1:a9区域的数值分别与60比较。假如a1:a9的数依次为15,25,35,45,55,65,75,85,95.那么(a1:a9<60)返回{true,true,true,true,true,false,false,false,false}，同理(a1:a9>50)返回｛false,false,false,false,true,true,true,true,true}。然后(a1:a9<60)*(a1:a9>50)则返回{false,false,false,false,true,false,false,false,false}。因为*表示and的意思。只有当and的对象都为真时结果才为真。。excel里用1表示true;0表示 false。有时需要将true或false转换成数值，可以*1或+0

 

//20070329

 

几个工作表生成一个打印文件一次打印

解答： 先按 Ctrl键 + 其它要一起打印的工作表就会成为一个群组,打印的页数可延续到下一个Sheet

自动计算应收款滞纳金

要求在给定的应收日期、滞纳金率、当前日期（自动取）的基础上自动计算出应收滞纳金。
解答：=(DATEDIF(应收日期,NOW(),"d"))*滞纳金率（每天）*应收金额

SUM函数难题

A  B
234  230   
12    
10  13 
如何用函数计算出下面几个数据
1。A和B都有数据且A>B的个数
2。A栏在相应的B栏有数据的情况下的数据总和，例如A1对应B1有数据，A3对应B3有数据，则求A1+A3的和。希望都能用一个函数求出所要的结果。谢谢
解答： =SUM(($A$1:$A$10<>"")*($B$1:$B$10<>"")*($A$1:$A$10>$B$1:$B$10))
=SUM(($A$1:$A$10<>"")*($B$1:$B$10<>"")*($A$1:$A$10>$B$1:$B$10)*($A$1:$A$10+$B$1:$B$10))
记得输入公式后要按ctrl+shift+enter

工作表中的小写字母都变成大写

解答：请运行以下程序：(测试通过)
Sub ConvertToUpperCase()
Dim Rng As Range
Worksheets("Sheet1").UsedRange.Select
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.value = UCase(Rng.value)
End If
Next Rng
End Sub

用COUNTIF计算整个B列中含有“F”这个字符的单元格的个数

c1=COUNTIF(b1:b130,b129) ，（b129单元格内的字符是“F”），问题是随后在向表格中添加新行131、132、133.....之后，c1单元格中公式统计的结果还是1-129行的，怎么才能让c1中实时显示添加新数据后的统计结果?
解答：c1=COUNTIF(b:b,b129)

自动记录出车情况

现有一表格，每天记录50辆不同车号的车辆的“出车里程”和“回库里程”，需要打印一清单，自动统计每辆在库车辆的当前里程，请问该如何做 (结果放在其它sheet中，为方便显示这里和数据放在一个sheet中了  ) ？
解答：可以用数组公式:
假设"此处数据不断增加"所在工作表的名字为"SHEET1". 在"此处需要更新"所指的单元格内输入公式=MAX(IF(OFFSET(Sheet1!$A$2,,,COUNTA(Sheet1!$A$2:$A$65536))=A2,OFFSET(Sheet1!$B$2,,,COUNTA(Sheet1!$B$2:$B$65536))))",按CTRL+SHIFT+ENTER 结束,之后向下填充公式.

 

整点记录坐标值

我在监测一个点的电压值，每天正点记录一次，这样每天就产生了24个值，现要进行一个月，共产生了720个值。根据这720个值，用EXCEL作一个图表，横坐标是时间，单位是----天，纵坐标是测量值。难点：横坐标每个刻度为一天，如设分类轴刻度线之间的分类数为24 的话，横坐标每个刻度下显示为：1 25 49，而其单位为天，那不就成了第1天过了，就到了第25天？如设分类轴刻度线之间的分类数为1的话，可是我每天有24个值？
解答：我试验了一下，发现还是能够解决的。横坐标为时间，每天24小时，一个月30天，共计720个数据，纵坐标为数值，这样做出来的表格非常长，数据这样排，第一列（0小时，1小时，......23小时，0小时，1小时,.....23小时，）这样总共重复30天，第二列为每天24个数据，做折线图（第四种），先按照向导一步步做下去，删除第一个系列，就可以了。做出来的图像横坐标（分类轴）要调整，刻度调整为标签间的分类数为1，就可以达到目的！剩下可以手工在每天的开头处加上日期（可以用文本框），不知道这样解决可以吗？

请问如何把在Excel中绘制的曲线图表另存为jpg或gif格式的图片

解答：选定图表部分，复制它，打开可以编辑jpg或gif格式的软件，然后粘贴保存为jpg或gif格式文件即可。

round函数

解答：不要用工具条上的显示小数位数来控制小数位数，它只是显示这几位，实际还是按原来的数计算。如：1.2345，你显示两位，为1.23，而实际他是按1.2345去计算的，要用round函数，round(数据,2)即可。如果怕繁的话，可在选项里设置按显示计算，呵呵，试试看。
  解答2：我是做财务工作的，这一点有较深的体会
就是无论用什么函数都要在最外面加上 round(),不然的话因为那一两分钱定会被领导狠狠说一顿
再有两条经验
1、如果准备作大一些的表格，尽量不要使用 “合并单元格” 以免以后使用函数麻烦；
2、要分清你作的表格主要是使用来存储数据，还是用来打印输出，如果想两者兼顾，小一点的表格还可以，大了就不好办了。

工作表引用

比如说现在Sheet2!a1引用Sheet1!a1,Sheet3!a1引用Sheet2!a1，那么有什么办法可以表示Sheet(n)!a1引用Sheet(n-1)!a1。我是Execl方面的菜鸟，希望各位大虾能给我解决的方法或者思路也行啊。
解答1：用VBA.Sheets(n).Cells(a, 1) =Sheets(n-1).Cells(a, 1)
又问：ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1],_______!R[-1]C)" .在_____处，我应该怎么填，才可以得到上一张表格？
答：在空格处写上： sheets(activesheet.index-1) .注意如果当前工作表是第一张（即 activesheet.index-1＝0）时会出错。
或：=INDIRECT("sheet"&A1&"!$A$1")