ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: leaf

[讨论] Excel实用技巧接龙游戏!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-11-8 08:31 | 显示全部楼层

數據中有空格,可以用ctrl+f,選擇取代,將空格取代為非空格,空格就能全部被取代掉。在用vlookup公式時,非常需要。

TA的精华主题

TA的得分主题

发表于 2005-11-8 09:24 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

同时选中需要复制的单元格和该单元格同行的右面多个连续或不连续的空白单元格,然后按下“Ctrl+R”组合键,即可将需要复制单元格的内容复制到下面选中的多个连续或不连续的单元格中。

俺是抄袭版主cxffxc的。首行和首列不适用这个技巧哦!请问这是为什么呢?

TA的精华主题

TA的得分主题

发表于 2005-11-14 22:07 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-11-15 20:57 | 显示全部楼层
我也发一个。输入身份证时,为了防止遗忘,可以在菜单的“数据”--有效性---设置中输入公式:=len(b1)=15 或者=len(b1)=18来限定身份证的位数。当出错时就会无法输入。

TA的精华主题

TA的得分主题

发表于 2005-11-17 12:07 | 显示全部楼层

隐藏零值三方法之一:

“格式”——“条件格式”——单元格数值等于0——格式选和当前单元格颜色一样(默认白色)——确认。

TA的精华主题

TA的得分主题

发表于 2005-11-17 12:09 | 显示全部楼层

隐藏零值三方法之二:

选中单元格——右键——“设置单元格格式”——“数字”——“自定义”——类型中输入“0;-0;”(0后面是分号)——确定。

TA的精华主题

TA的得分主题

发表于 2005-11-17 12:11 | 显示全部楼层

隐藏零值三方法之三:

最简单了:“工具”——“选项”——“视图”——将“零值”前的勾去掉就可以了。

TA的精华主题

TA的得分主题

发表于 2005-11-17 12:18 | 显示全部楼层

再凑热闹:隐藏数值

选中单元格——右键——“设置单元格格式”——“数字”——“自定义”——类型中输入3个分号;——确定。

TA的精华主题

TA的得分主题

发表于 2005-11-17 23:55 | 显示全部楼层
方法一: '数字金额转换中文大写 Function DaXie(ByVal Num) ' 人民币中文大写函数 Application.Volatile True Place = "分角元拾佰仟万拾佰仟亿拾佰仟万" Dn = "壹贰叁肆伍陆柒捌玖" D1 = "整零元零零零万零零零亿零零零万" If Num < 0 Then FuHao = "(负)" Num = Format(Abs(Num), "###0.00") * 100 If Num > 999999999999999# Then: DaXie = "数字超出转换范围!!": Exit Function If Num = 0 Then: DaXie = "零元零分": Exit Function NumA = Trim(Str(Num)) NumLen = Len(NumA) For j = NumLen To 1 Step -1 ' 数字转换过程 Temp = Val(Mid(NumA, NumLen - j + 1, 1)) If Temp <> 0 Then ' 非零数字转换 NumC = NumC & Mid(Dn, Temp, 1) & Mid(Place, j, 1) Else ' 数字零的转换 If Right(NumC, 1) <> "零" Then NumC = NumC & Mid(D1, j, 1) Else Select Case j ' 特殊数位转换 Case 1 NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, j, 1) Case 3, 11 NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, j, 1) & "零" Case 7 If Mid(NumC, Len(NumC) - 1, 1) <> "亿" Then NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, j, 1) & "零" End If Case Else End Select End If End If Next DaXie = FuHao & Trim(NumC) End Function 一片白云 方法二: 除了编制VBA宏实现外,还有以下方法: **在会计工作中,我们常常需要将一些合计金额大写,下面是我的一点心德,请多多指教。 一、由于在EXCEL中,IF只能嵌套七层,所以我们先行将合计用公式四舍五入:   =ROUND(SUM(N8:N47),2) 二、在要显示大写人民币的单元格里(假定是N48)输入以下公式:   =IF((INT($N$48*10)-INT($N$48)*10)=0,TEXT(INT($N$48),"[DBNum2]G/通用格式")&"元"&IF((INT($N$48*100)-INT(($N$48)*10)*10)=0,"整","零"&TEXT(INT($N$48*100)-INT($N$48*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT($N$48),"[DBNum2]G/通用格式")&"元"&IF((INT($N$48*100)-INT(($N$48)*10)*10)=0,TEXT((INT($N$48*10)-INT($N$48)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT($N$48*10)-INT($N$48)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT($N$48*100)-INT($N$48*10)*10,"[DBNum2]G/通用格式")&"分"))

TA的精华主题

TA的得分主题

发表于 2005-12-1 13:02 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

本人根据论坛中各位高手提供的在单元格里显示大写金额的公式,略加修改,使其显示的大写金额完全符合财务规定(假定小写数据在单元格D12):IF(D12=0,"",IF((D12-ROUND(D12,0))=0,(TEXT(INT(D12),"[DBnum2]")&"元整"),(TEXT(INT(D12),"[DBnum2]")&"元")&IF((RIGHT(D12,2)-RIGHT(D12,1))=0,"零",TEXT(ROUND((INT(((D12-INT(D12))*100)-RIGHT(D12,1))/10),0),"[dbnum2]")&"角")&IF((D12*10-INT(D12*10))=0,"",TEXT(ROUND(((D12*10-INT(D12*10))*10),0),"[dbnum2]")&"分")))

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-10-6 10:41 , Processed in 0.043433 second(s), 5 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表