Excel word ppt office使用技巧大全(DOC格式)-第59部分

按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！



Else　　　

Sheets（1）。Cells（i；　2）　=　〃左侧单元格批注〃　&　a　　　

End　If　　　

Next　i　　　

End　Sub　　



　　　　　　　　　　　　　　根据　A1　的内容；决定　A2　的数值是来自　sheet1；sheet2　还是　sheet3。　　



我用了公式却不行。用　Range（〃A2〃）。value=Range（〃Range（〃A3〃）。value〃）。value　也不行。（A3　

有公式：　=〃sheet〃&A3&〃！E1〃）请各位帮忙了。　　

解答：if（a1=1；sheet1！a1；if（a1=2；sheet2！a1；if（a1=3；sheet3！a1）））　　



　　　　　　　　　　　　　　　　　　　　　能不能做到让符合条件的单元格所在的列自动隐藏　　



比如说第一行的第一个单元格=1　那么就自动隐藏第一行？　　

　解答用　vba。　　　

Sub　隐藏（）　　

for　i=1　to　x　x……行号　　　

if　sheets（1）。cells（i；1）=1　then　　　

Rows（i）。Select　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　328　　


…………………………………………………………Page　329……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　



Selection。EntireRow。Hidden　=　True　　　

end　if　　　

next　i　　



　　　　　　　　　　　　　　　直接输入一组数如“20020213101235”后，自动转换成日期格式　　



解答：A1　中输入，B1　中转换。。B1=Left（A1；4）&〃—〃&MID（A1；5；2）&〃—〃&MID（A1；7；2）&〃　　

〃&MID（A1；9；2）&〃：〃&MID（A1；11；2）&〃：〃&MID（A1；13；2）　　　



　　　　　　　　　　　　　把　sheet1　到　sheet200　的　a19　这一格，依序贴到　sheet0　的　a1　到　a200　　



解答：方法一：公式　　　

可在　A1　储存格输入以下公式，再行拖曳至　A200　即可。　　　

=INDIRECT（〃Sheet〃&ROW（）&〃！A19〃）　　　

方法二：VBA　　　

Sub　Macro1（）　　　

'选择工作表　sheet0　　　

Sheets（〃sheet0〃）。Select　　　

For　r　=　1　To　200　　　

'将工作表　1~200　里面的　D17　复制到　sheet0　的　A1~A200　　　

Cells（r；　1）　=　Worksheets（CStr（r））。Range（〃D17〃）　　　

On　Error　Resume　Next　　　

Next　r　　　

End　Sub　　



　　　　　　　　　　　　　　　　　　　　　A　列记录几百条，如何对这列计数（重复的数值不计）　　



我只能做到新建一列，B　列，然后第一个单元格　countif　（A1：A100；A1），然后拖动到全部　

新列。最后在新列下面用　sumif（B1：B100；1）　谁有更好地方法？　　

解答：1、试试这个：｛=SUM（IF（COUNTIF（A1：A100；A1：A100）=1；1；0））｝　　

2、操作：①A1　作公式栏，A2　作字段名栏，如原该两栏有数插入　2　行。在　A1　输入：　

=SUBTOTAL（3；A2：A5000）　统计记录数或：=SUBTOTAL（9；A2：A5000）　数据汇总　　

②选：数据……》筛选……》高级筛选……》选择不重复的记录。　　

③复原选：数据……》筛选……》高级筛选……》全部显示。　　

3、试试这个：　　｛=SUM（IF（A1：A100=〃〃；〃〃；1/（COUNTIF（A1：A100；A1：A100））））｝　　

4、请解释一下；因为我单独使用COUNTIF（A1：A100；A1：A100）数组公式时；它仅仅计算　

第一个也就是　A1　的个数。　　

5、我发觉你的这办法，只对唯一的数据进行了计数，而重复的数据全部未计入（是不是应该　

将重复的数据也计上一个？）打哈欠的“　｛=SUM（IF（COUNTIF（A1：A100；A1：A100）=1；1；0））｝”也　

是这样。　　

TO　剑魔版主你公式中的“1/（COUNTIF（A1：A100；A1：A100））”像是一个倒数，怎么理　

解？　　

6、用倒数是这个意思：如果只出现一次，数组中的相应项统计为　1，其倒数为　1，Sum　统计计　1　　

如果出现　N　次，其倒数为　1/N，出现了N　次，求和就是　Nx1/N，最后　Sum　统计就只计　1。　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　329　　


…………………………………………………………Page　330……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　



　　　　　　　　　　　　　如果有文本串〃YY0115〃，我想取第三、四的值〃01〃，应该用什么函数　　



解答：1、=mid（〃YY0115〃；3；2）&〃〃　　

2、如果你的A1　中的数值一定包含后四位阿拉伯数字的话，你可以用这个：　　

=LEFT（RIGHT（A1；4）；2）=LEFT（RIGHT（A1；4）；2）=LEFT（RIGHT（A1；4）；2）　　

3、我的实际工作中的数据还没有如此规律，该怎么办？如：A1=〃YY0105〃，A2=〃99065〃，A1　

取〃01〃，A2　取〃99〃。能否用一个函数去掉A1　中〃YY〃，然后都是从阿拉伯数字的第一位开始取　

两位数？　　

4、如果阿拉伯数字数量不定，但是以　2　个英文字母开头　（或无英文字母），可以用以下公式：（设　

数据在　A1　中）　=IF（ISNUMBER（VALUE（A1））；MID（A1；1；2）；MID（A1；3；2））　　

5、数组公式：　　

｛=MID（A1；MIN（IF（EXACT（LOWER（MID（A1；ROW（INDIRECT（〃A1：A256〃））；ROW（INDIRECT（〃A2：A257　

〃））））；UPPER（MID（A1；ROW（INDIRECT（〃A1：A256〃））；ROW（INDIRECT（〃A2：A257〃）））））；ROW（INDIR　

ECT（〃A1：A256〃））；〃〃））；2）｝　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　怎样将文字和数字分　2　列显示　　



中行41785015110010091252、青泥支行　200303004500696、卡伦办事处　801017651、站前支行　

0709000309221004055　、金州支行　400301459508091　　

解答：1、用函数可以解决。　假如　A1　为　中行41785015110010091252　　

则　B1=LEFT（A1；（SEARCHB（〃？〃；A1；1）…1）/2）、C1=MID（A1；LEN（B1）＋1；50）、随后将B1、C1　的公　

式往下复制。　　

2、Sub　分列（）　　

For　Each　jk　In　Sheet1。UsedRange。Columns（1）。Cells　　

For　i　=　1　To　Len（jk。Formula）　　

If　Abs（Asc（Mid（jk。Formula；　i；　1）））　《　256　Then　　

Sheet1。Cells（jk。Row；　　（jk。Column　　＋　　1））。Formula　　=　　〃'〃　　&　　Right（jk。Formula；　　

（Len（jk。Formula）　i　＋　1））　　

jk。Formula　=　Left（jk。Formula；　（i　1））　　

Exit　For　　

End　If　　

Next　i　　

Next　　

End　Sub　　

3、是否将Asc（Mid（jk。Formula；　i；　1））　《　256　改成　47　《　Asc（Mid（jk。Formula；　i；　1））　《　58　　

会更好，因为它只将数字抽出，如果数字前有英文字的话将抽往数字列。　　

4、我看帮助中　instr　函数不错　　

配合循环速度应快些　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　500　个不连续的数之和的求法　　



我有一个表格，有一列数据是以　6　个单元格为一个单位做一次小计，我在小计中加入了公式　　　

但是我还想求一下这个小计的总合，我想加入一个公式，但是我有　SUM　到了　50　多个时就加不　

进去了，用加号连加也不行，不知这个问题怎么解决　　

解答：用　SubTotal（）解决即可　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　330　　


…………………………………………………………Page　331……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　



　　　　　　　　　　　　　　　　　　　　　　　　　如何使输入的英文单词第一个字母变成大写　　



解答：Private　Sub　Worksheet_Change（ByVal　Target　As　Range）　　

Target。Value　=　Application。WorksheetFunction。Proper（Target。Text）　　

End　Sub　　



　　　　　　　　　在一个表中有两列日期型数字请问如何在第三列中得到其差　（两日期间的天数）　　



　解答：=DATEDIF（A1；B1；〃d〃）　　

问：我用了　datedif　发现一个问题　、即当A　列B　列时出错了　、　

请问用什么办法解决　　　

答：=IF（A1》B1；DATEDIF（B1；A1；〃d〃）；DATEDIF（A1；B1；〃d〃））　　



　　　　　　　　　　　　　　　　　重要的　EXCEL　文件坏了　（文件带密码）有没有　EXCEL　修复工具　　



解答：Excel　2000　　　

数据》》取得外部数据》》新增数据库查询》》Excel　File*》》找到档案》》　　　

＇选项＇勾选所有选项》》　会找到所有未命名＇区块＇如　Sheet1　　　

》》找到字段》》其它跟着查询精灵导引一步一步作　　　

此中间层组件叫作　Microsoft　Query　　　

可以用来拯救＇毁损档案＇　　



　　　　　　　　　　　　　　　　　　　　　　　　　只要求简单的把数据从分表直接追加到总表　　



解答：你可以用　Lookup；vlookup　等函数。　　



　　　　　　　　　　　　　　　　　　　　　　　　A1　中输入　11：22：22　要求每间隔一秒刷新一次　　



　解答：　sub　mytime　　　

range（〃a1〃）=now（）　　　

Application。OnTime　Now　＋　TimeValue（〃00：00：01〃）；　〃mytime〃　　　

end　sub　　



　　　　　　　　　　　　　　　　　　　　　　　　　　怎样用函数来显示某月的最后一天是几号　　



　答：=　DAY（DATE（年份；月份＋1；1）…1）　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　如何用　excel　求解联立方程　　



x…x（7/y）^z=68　　　

x…x（20/y）^z=61　　　

x…x（30/y）^z=38　　

解答：这是一个指数函数的联列方程。步骤如下　　　

1、令　X/Y=W　则有　　　

X（7W）^z=68　　　

X（20W）^Z=61　　　

X（30W）^Z=38　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　331　　


…………………………………………………………Page　332……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　



2、消去　X　　　

（20^Z…7^Z）W^Z=7　　　

（30^Z…20^Z）W^Z=23　　　

3、消去W　　　

（30^Z…20^Z）/（20^Z…7^Z）=23/7　　　

由此求得Z=3。542899　　　

x=68。173955　　　

y=781。81960　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　请问如何在函数中同时使用两个条件　　



例：在　IF　同时使用条件B1》0　和　B10；B1