设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表 发新帖
查看: 150980|回复: 305

[基础应用] Excel技巧接龙

[复制链接]

点击这里给我发消息

发表于 2004-11-28 18:26:00 | 显示全部楼层 |阅读模式
相信大家都玩过成语接龙,我们也来个Excel的技巧接龙游戏,看看此龙能接多长。

接龙规则:

  - 只要是你认为是好的使用或开发技巧和文章,就可跟贴

  - 别人推荐给你的Excel使用和开发技巧,也可跟贴

  - 国外或国内Excel网站的技巧,翻译或整理的文章,也可跟贴

  - 技巧难度可以从简单、中级到高级应用。

  - 技巧内容可以任意。比如工作表、单元格、宏、函数、模板等使用技巧、vba、ActiveX、加载项等。

  - 跟贴前请尽量看完楼上的贴,以避免重复。

  - 为了尊重源作者,请尽量写明源作者

  - 非常好的技巧贴,可被挑选放入网站首页的文章区以及被挑选到21cn的IT频道

  - 跟贴次数不限,但尽量避免闲聊,多发技巧文章贴

此贴总置顶,让Excel的网友都来发挥自己的一份热量,来了Office中国永不沉落的贴子。

Word、sharepint等随后也将增加相应的接龙贴。
发表于 2004-11-28 19:24:00 | 显示全部楼层
先来一个简单的:在单元格中输入“=TEXT(NOW(),"aaaa")”,将得知当天是星期几。不好意思,这个方法是我无意中发现的~~~~~~~~

点评

有点匪夷所思,aaaa的参数是什么意思呀?  发表于 2013-9-15 15:40
回复 支持 2 反对 0

使用道具 举报

发表于 2006-5-20 03:56:00 | 显示全部楼层
好像没有看到用照相机这个工具的,工具,自定义, 命令选项卡中, 工具类别, 右边选项中,拖动照相机到工具栏上,回到工作表,选中要动态引用的单元格数据,按下照相机,再放到指定位置,可以实现动态引用
回复 支持 1 反对 0

使用道具 举报

发表于 2004-12-23 23:29:00 | 显示全部楼层
说一个很少有人知道的:Ctrl+~显示当然工作表中所有用到的公式

点评

这个牛逼,嘿嘿  发表于 2015-1-30 19:13
回复 支持 1 反对 0

使用道具 举报

发表于 2004-11-28 19:49:00 | 显示全部楼层
也摘抄一个,公历与农历的转换:

Option Explicit

Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXia

ng(11), DayName(30), MonName(12)

Dim curTime, curYear, curMonth, curDay, curWeekday

Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr

Dim i, m, n, k, isEnd, bit, TheDate

Private Sub Form_Load()

'获取当前系统时间

curTime = Now()

'星期名

WeekName(0) = " * "

WeekName(1) = "星期日"

WeekName(2) = "星期一"

WeekName(3) = "星期二"

WeekName(4) = "星期三"

WeekName(5) = "星期四"

WeekName(6) = "星期五"

WeekName(7) = "星期六"

'天干名称

TianGan(0) = "甲"

TianGan(1) = "乙"

TianGan(2) = "丙"

TianGan(3) = "丁"

TianGan(4) = "戊"

TianGan(5) = "己"

TianGan(6) = "庚"

TianGan(7) = "辛"

TianGan(8) = "壬"

TianGan(9) = "癸"

'地支名称

DiZhi(0) = "子"

DiZhi(1) = "丑"

DiZhi(2) = "寅"

DiZhi(3) = "卯"

DiZhi(4) = "辰"

DiZhi(5) = "巳"

DiZhi(6) = "午"

DiZhi(7) = "未"

DiZhi(8) = "申"

DiZhi(9) = "酉"

DiZhi(10) = "戌"

DiZhi(11) = "亥"

'属相名称

ShuXiang(0) = "鼠"

ShuXiang(1) = "牛"

ShuXiang(2) = "虎"

ShuXiang(3) = "兔"

ShuXiang(4) = "龙"

ShuXiang(5) = "蛇"

ShuXiang(6) = "马"

ShuXiang(7) = "羊"

ShuXiang(8) = "猴"

ShuXiang(9) = "鸡"

ShuXiang(10) = "狗"

ShuXiang(11) = "猪"

'农历日期名

DayName(0) = "*"

DayName(1) = "初一"

DayName(2) = "初二"

DayName(3) = "初三"

DayName(4) = "初四"

DayName(5) = "初五"

DayName(6) = "初六"

DayName(7) = "初七"

DayName(8) = "初八"

DayName(9) = "初九"

DayName(10) = "初十"

DayName(11) = "十一"

DayName(12) = "十二"

DayName(13) = "十三"

DayName(14) = "十四"

DayName(15) = "十五"

DayName(16) = "十六"

DayName(17) = "十七"

DayName(18) = "十八"

DayName(19) = "十九"

DayName(20) = "二十"

DayName(21) = "廿一"

DayName(22) = "廿二"

DayName(23) = "廿三"

DayName(24) = "廿四"

DayName(25) = "廿五"

DayName(26) = "廿六"

DayName(27) = "廿七"

DayName(28) = "廿八"

DayName(29) = "廿九"

DayName(30) = "三十"

'农历月份名

MonName(0) = "*"

MonName(1) = "正"

MonName(2) = "二"

MonName(3) = "三"

MonName(4) = "四"

MonName(5) = "五"

MonName(6) = "六"

MonName(7) = "七"

MonName(8) = "八"

MonName(9) = "九"

MonName(10) = "十"

MonName(11) = "十一"

MonName(12) = "腊"

'公历每月前面的天数

MonthAdd(0) = 0

MonthAdd(1) = 31

MonthAdd(2) = 59

MonthAdd(3) = 90

MonthAdd(4) = 120

MonthAdd(5) = 151

MonthAdd(6) = 181

MonthAdd(7) = 212

MonthAdd(8) = 243

MonthAdd(9) = 273

MonthAdd(10) = 304

MonthAdd(11) = 334

'农历数据

NongliData(0) = 2635

NongliData(1) = 333387

NongliData(2) = 1701

NongliData(3) = 1748

NongliData(4) = 267701

NongliData(5) = 694

NongliData(6) = 2391

NongliData(7) = 133423

NongliData(8) = 1175

NongliData(9) = 396438

NongliData(10) = 3402

NongliData(11) = 3749

NongliData(12) = 331177

NongliData(13) = 1453

NongliData(14) = 694

NongliData(15) = 201326

NongliData(16) = 2350

NongliData(17) = 465197

NongliData(18) = 3221

NongliData(19) = 3402

NongliData(20) = 400202

NongliData(21) = 2901

NongliData(22) = 1386

NongliData(23) = 267611

NongliData(24) = 605

NongliData(25) = 2349

NongliData(26) = 137515

NongliData(27) = 2709

NongliData(28) = 464533

NongliData(29) = 1738

NongliData(30) = 2901

NongliData(31) = 330421

NongliData(32) = 1242

NongliData(33) = 2651

NongliData(34) = 199255

NongliData(35) = 1323

NongliData(36) = 529706

NongliData(37) = 3733

NongliData(38) = 1706

NongliData(39) = 398762

NongliData(40) = 2741

NongliData(41) = 1206

NongliData(42) = 267438

NongliData(43) = 2647

NongliData(44) = 1318

NongliData(45) = 204070

NongliData(46) = 3477

NongliData(47) = 461653

NongliData(48) = 1386

NongliData(49) = 2413

NongliData(50) = 330077

NongliData(51) = 1197

NongliData(52) = 2637

NongliData(53) = 268877

NongliData(54) = 3365

NongliData(55) = 531109

NongliData(56) = 2900

NongliData(57) = 2922

NongliData(58) = 398042

NongliData(59) = 2395

NongliData(60) = 1179

NongliData(61) = 267415

NongliData(62) = 2635

NongliData(63) = 661067

NongliData(64) = 1701

NongliData(65) = 1748

NongliData(66) = 398772

NongliData(67) = 2742

NongliData(68) = 2391

NongliData(69) = 330031

NongliData(7
发表于 2004-12-1 03:18:00 | 显示全部楼层
推荐几个EXCEL快捷键吧,这比较实用。CTRL+D,复制上面单元格的数据到下面的单元格。CTRL+R,复制左边的数据到右边的单元格。CTRL+SHIFT+下箭头或右箭头,从当前单元格选至当前区域最下面或最右边。CTRL+*,选定当前区域。右键点击工作表标签左边的地方,可以看到当前工作簿所有的工作表列表。

点评

选定一个单元格,鼠标移动到这个单元格黑框边缘的时候当鼠标变为四个方向的箭头时候,双击左键也可以到达当前表区域的上,下,左,有,边界  发表于 2015-1-30 19:11
发表于 2004-12-1 03:18:00 | 显示全部楼层

身份证从15位转化为18位函数版!(

'根据〖中华人民共和国国家标准 gb 11643-1999〗中有关公民身份号码的规定,

'公民身份号码是特征组合码,由十七位数字本体码和一位数字校验码组成。

'排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码,三位数字顺序码和一位数字校验码。

'地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日,其中年份用四位数字表示,年、月、日之间不用分隔符。

'顺序码:表示同一地址码所标识的区域范围内,对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性,偶数分给女性。

'校验码:是根据前面十七位数字码,按照iso 7064:1983.mod 11-2校验码计算出来的检验码。下面举例说明该计算方法。

'15位的身份证编码首先把出生年扩展为4位,简单的就是增加一个19,但是这对于1900年出生的人不使用(这样的寿星不多了)

'某男性公民身份号码本体码为34052419800101001,首先按照公式⑴计算:

'∑(ai×wi)(mod 11)……………………………………(1)

'公式(1)中:

'i----表示号码字符从由至左包括校验码在内的位置序号;

'ai----表示第i位置上的号码字符值;

'wi----表示第i位置上的加权因子,其数值依据公式wi=2(n-1)(mod 11)计算得出。

'i 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1

'ai 3 4 0 5 2 4 1 9 8 0 0 1 0 1 0 0 1 a1表

'wi 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 1

''ai×wi 21 36 0 25 16 16 2 9 48 0 0 9 0 5 0 0 2 a1

'根据公式(1)进行计算:

'∑(ai×wi) = (21 + 36 + 0 + 25 + 16 + 16 + 2 + 9 + 48 + 0 + 0 + 9 + 0 + 5 + 0 + 0 + 2) = 189

'189 ÷ 11 = 17 + 2 / 11

'∑(ai×wi)(mod 11) = 2

'然后根据计算的结果,从下面的表中查出相应的校验码,其中x表示计算结果为10:

'∑(ai×wi)(mod 11) 0 1 2 3 4 5 6 7 8 9 10

'校验码字符值ai 1 0 x 9 8 7 6 5 4 3 2

'根据上表,查出计算结果为2的校验码为所以该人员的公民身份号码应该为 34052419800101001x。

'-------------------------------------------------------------------------------

Public Function IdFunc(ByVal id As String) As String

    Dim Wi, Ai As Variant

    Wi = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1)    '表示第i位置上的加权因子,其数值依据公式wi=2(n-1)(mod 11)计算得出。

    Ai = Array("1", "0", "x", "9", "8", "7", "6", "5", "4", "3", "2")    '校验码字符值

    Dim i, j, s As Integer

    Dim newid As String

    If VBA.Len(id) <> 15 Then

        IdFunc = ""

    Else

        newid = id

        id = Left(newid, 6) & "19" & Right(newid, Len(id) - 6)

        s = 0

        For i = 0 To 16

            On Error Resume Next

            j = Mid(id, i + 1, 1) * Wi(i)

            s = s + j

        Next i

        s = s Mod 11

        IdFunc = id & Ai(s)

    End If

End Function

发表于 2004-12-5 01:53:00 | 显示全部楼层
再推荐几个快捷键:F2,进入单元格编辑状态。F4,在相对引用(如A1)和绝对引用(如$A$1)间进行转换。
发表于 2004-12-5 05:33:00 | 显示全部楼层
alt+F11可进入VBA编辑器
发表于 2004-12-6 04:51:00 | 显示全部楼层
Ctrl+;当前日期
发表于 2004-12-18 07:13:00 | 显示全部楼层
补充一下ctrl+D 的用法: 选定数据所在的单元格及它以下的任意空白单元格,按ctrl+D,可将选定的数据复制到空白单元格中.另外:ctrl+'  复制上面单元格的数据到下面的单元格, 不含格式,且为编辑状态.
发表于 2004-12-18 07:15:00 | 显示全部楼层
再来一个: shift+F11 插入新工作表,又快又好.
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /6 下一条

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2018-4-26 00:17 , Processed in 0.116145 second(s), 41 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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