Office中国论坛/Access中国论坛
标题: Excel技巧接龙 [打印本页]
作者: tmtony 时间: 2004-11-28 18:26
标题: Excel技巧接龙
相信大家都玩过成语接龙，我们也来个Excel的技巧接龙游戏，看看此龙能接多长。
接龙规则:
- 只要是你认为是好的使用或开发技巧和文章,就可跟贴
- 别人推荐给你的Excel使用和开发技巧，也可跟贴
- 国外或国内Excel网站的技巧，翻译或整理的文章，也可跟贴
- 技巧难度可以从简单、中级到高级应用。
- 技巧内容可以任意。比如工作表、单元格、宏、函数、模板等使用技巧、vba、ActiveX、加载项等。
- 跟贴前请尽量看完楼上的贴，以避免重复。
- 为了尊重源作者，请尽量写明源作者
- 非常好的技巧贴，可被挑选放入网站首页的文章区以及被挑选到21cn的IT频道
- 跟贴次数不限，但尽量避免闲聊，多发技巧文章贴
此贴总置顶，让Excel的网友都来发挥自己的一份热量，来了Office中国永不沉落的贴子。
Word、sharepint等随后也将增加相应的接龙贴。
作者: 老鬼 时间: 2004-11-28 19:24
先来一个简单的：在单元格中输入“=TEXT(NOW(),"aaaa")”，将得知当天是星期几。不好意思，这个方法是我无意中发现的~~~~~~~~
作者: ui 时间: 2004-11-28 19:49
也摘抄一个，公历与农历的转换：
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
推荐几个EXCEL快捷键吧，这比较实用。CTRL+D，复制上面单元格的数据到下面的单元格。CTRL+R，复制左边的数据到右边的单元格。CTRL+SHIFT+下箭头或右箭头，从当前单元格选至当前区域最下面或最右边。CTRL+*，选定当前区域。右键点击工作表标签左边的地方，可以看到当前工作簿所有的工作表列表。
作者: stanleypan 时间: 2004-12-1 03:18
标题: 身份证从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
再推荐几个快捷键：F2，进入单元格编辑状态。F4，在相对引用（如A1）和绝对引用（如$A$1）间进行转换。
作者: test2000 时间: 2004-12-5 05:33
alt+F11可进入VBA编辑器
作者: 情比金坚 时间: 2004-12-6 04:51
Ctrl+；当前日期
作者: elawuyou 时间: 2004-12-18 07:13
补充一下ctrl+D 的用法: 选定数据所在的单元格及它以下的任意空白单元格,按ctrl+D,可将选定的数据复制到空白单元格中.另外:ctrl+' 复制上面单元格的数据到下面的单元格, 不含格式,且为编辑状态.
作者: elawuyou 时间: 2004-12-18 07:15
再来一个: shift+F11 插入新工作表,又快又好.
作者: NeilChen 时间: 2004-12-23 23:29
说一个很少有人知道的:Ctrl+~显示当然工作表中所有用到的公式
作者: test2000 时间: 2004-12-23 23:32
以下是引用NeilChen在2004-12-23 15:29:05的发言：
说一个很少有人知道的:Ctrl+~
显示当然工作表中所有用到的公式
还真不知道有这一招
作者: 老鬼 时间: 2004-12-24 00:17
F9，将公式直接转化为数值~~~~
作者: Trynew 时间: 2004-12-24 19:12
=SubTotal(3,[Range])显示自动筛选出来的总数
作者: 70488 时间: 2004-12-27 23:25
=TODAY（）
当前日期。
作者: stanleypan 时间: 2004-12-29 03:08
其实只是打开EXCEL,我们并不需要引用Excel Object library.Dim MyXLS As Object '用于存放Microsoft Excel 引用的变量。
Sub Exceload()
On Error Resume Next '延迟错误捕获。
'不带第一个参数调用 Getobject 函数将返回对该应用程序的实例的引用。
'如果该应用程序不在运行，则会产生错误。
Set MyXLS = GetObject(, "Excel.Application") '测试 Microsoft Excel 的副本是否在运行。
If Err.Number <> 0 Then '如果 Excel 没有运行则
Err.Clear ' 清除发生错误的 Err 对象
Set MyXLS = CreateObject("Excel.Application") '运行该应用程序
Else
MyXLS.Activate '激活程序
End If
'在EXCEL中使用时
MyXLS.Workbooks.Open Application.ThisWorkbook.Path & "\BarCode.xls" ', Password:="1134"
'在Word中使用时
MyXLS.Workbooks.Open Application.ActiveDocument.Path & "\BarCode.xls" ', Password:="1134"
' MyXLS.Workbooks.Add
MyXLS.Visible = True
MyXLS.WindowState = 1
MyXLS.ActiveWindow.WindowState = 1
MyXLS = Nothing ''释放对该应用程序End Sub
作者: lfspecter 时间: 2005-1-5 21:51
同时选中需要复制的单元格和该单元格同列的下面多个连续或不连续的空白单元格，然后按下“Ctrl+D”组合键，即可将需要复制单元格的内容复制到下面选中的多个连续或不连续的单元格中。
作者: lfspecter 时间: 2005-1-5 21:51
1、快速删除单元格/行/列
删除单元格/行/列：选中单元格，ctrl+“-”（减号）
插入单元格/行/列：选中单元格，ctrl+shift+“+”（加号）
2、通过一次按间创建一个excel图表
A、选择要绘制的数据
B、按F11（或ALT+F1）
C、选定整个表，点右键-位置-“作为其中的对象插入sheet”
3、实现平方、立方上标：
选定单元格：
平方：ALT+178 立方：ALT+179
作者: lfspecter 时间: 2005-1-5 21:51
取工作表名及路径=CELL("filename",$A$1)
取工作簿及表名
=MID(CELL("filename",$A$1),FIND("[",CELL("filename",$A$1)),LEN(CELL("filename",$A$1))+1-FIND("[",CELL("filename",$A$1)))
取工作簿名
=MID(CELL("filename",$A$1),FIND("[",CELL("filename",$A$1)),FIND("]",CELL("filename",$A$1))-FIND("[",CELL("filename",$A$1))+1)
取工作表名
=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))
作者: lfspecter 时间: 2005-1-5 21:52
excel查找替换中的 * 和 ? 是通配符,分别可以替代多个字符和单个字符,但要查找替换*和?自身怎么实现呢?有一个绝窍:在*和?前加 ~ 即可使它们失去通配符的作用,也就可以查找替换它自身了
作者: lfspecter 时间: 2005-1-5 21:58
拖动单元格到某位置(不覆盖目标区域)
想要移动某一个或几个单元格到表中某一位置，选中它们，按下Shift键同时拖到要去的
位置，待黑色工字出现，放下即可，绝不会复盖周围的记录，它会挤进去，很方便噢！
作者: zyz218 时间: 2005-1-27 00:33
我来一个: =TEXT(NOW(),"ddddddd") 这样得出当天的星期几,但是英文格式.版主的方法得出的是中文格式.呵呵
作者: clearsp 时间: 2005-1-31 20:40
我也来一个，ctrl+w，关闭当前窗口，也很快哟！
作者: wtusever 时间: 2005-2-18 18:36
ctrl+1设置单元格格式
作者: 红池坝 时间: 2005-3-11 06:27
shift+F11 插入新工作表,表名：sheetctrl+F11 插入新工作表，表名：macro
作者: 红池坝 时间: 2005-3-12 05:55
呵呵，刚才无聊，试了这几个快捷键：Ctrl+2 加粗 Ctrl+3 斜体 Ctrl+4 下划线 Ctrl+5 删除线：）
作者: toumaorou 时间: 2005-3-13 02:05
[em05]ctrl+c 粘贴
作者: toumaorou 时间: 2005-3-13 02:14
Ctrl+Home快捷鍵
是强迫回到最前一个单元格
Ctrl+PgDn快捷鍵
到下一个工作表
Ctrl+PgUP快捷鍵
到上一个工作表。
作者: toumaorou 时间: 2005-3-13 02:15
Ctrl+shift加方向键
按所指方向选取直到非空格的所有项。
Ctrl+D
在所选范围内，复制最上一栏的公式(效果于用鼠标拖动单格左下角的黑十字架)
作者: toumaorou 时间: 2005-3-13 02:15
取消上一次操作
CTRL+Z
快速输入日期(=today())
CTRL+;
快速弹出单元格格式设置窗口
CTRL+1
..+2 加粗
..+3 加斜
..+4 加下横线
作者: toumaorou 时间: 2005-3-13 02:15
Ctrl+9 隐藏行
Ctrl+0 隐藏列
Ctrl+Shift+9 取消隐藏行
Ctrl+Shift+0 取消隐藏列
Ctrl+End 到区域的结束处
Ctrl+←↑→↓ 至连续区域的最←↑→↓一个单元格
作者: toumaorou 时间: 2005-3-13 02:16
Ctrl+N 新增工作簿
Ctrl+O 打開工作簿
Ctrl+S 保存當前工作簿
Ctrl+P 打印當前工作表
Ctrl+F 查詢
Ctrl+G 定位
Ctrl+H 替換
Ctrl+B 黑体字
Ctrl+U 下划線
Ctrl+I 斜体字
Ctrl+Z 撤消上一步
Ctrl+' 复制上一單元格的內容<不含格式>
Ctrl+D 复制上一單元格的內容<含格式>
Ctrl+A 全選當前工作表
Ctrl+* 全選當前工作區域
Ctrl+; 插入當前日期
Ctrl+: 插入當前時間
Ctrl+F4 關閉當前工作簿
Alt+F4 關閉Excel
F2 進入當前單元格編輯狀態
作者: toumaorou 时间: 2005-3-13 02:16
Ctrl+W 关闭当前窗口(同样适用于IE窗口)
CTRL+TAB EXCEL活动窗口间切换
SHIFT+F2 插入单元格批注
CTRL+R 把左边的单元格复制过来
CTRL+"+" (数字键盘上的加号) 插入单元格/行/列
CTRL+"-" (数字键盘上的减号) 删除单元格/行/列
CTRL+SHIFT+~ 设置单元格格式为常规
CTRL+SHIFT+1 设置单元格格式为数值, 千分号加2位小数
CTRL+SHIFT+2 设置单元格格式为时间格式 12:00AM
CTRL+SHIFT+3 设置单元格格式为日期格式 日-月-年
CTRL+SHIFT+4 设置单元格格式为货币格式, 美金$
CTRL+SHIFT+5 设置单元格格式为百分比
CTRL+SHIFT+6 设置单元格格式为科学计数法
CTRL+SHIFT+7 设置单元格格式为四周加边框
*****如果觉得很难记住,就看看键盘上数字上的上档键符号. 如5上面就是%,4上面就是$*****
作者: toumaorou 时间: 2005-3-13 02:16
CTRL+SHIFT+PageUP(或PageDown) 选择一组工作表
ALT+A 在替换时选择全部替换
ALT+W+F 冻结窗格
作者: toumaorou 时间: 2005-3-13 02:17
ALT+=，相当于输入SUM函数
CTRL+`（TAB键上面）公式与数值的切换。
作者: toumaorou 时间: 2005-3-13 02:17
复制选定区域CTRL+C
剪切选定区域CTRL+X
粘贴选定区域CTRL+V
选定当前单元格周围的区域CTRL+ *（星号）
向下填充CTRL+D
向右填充CTRL+R
查找和替换 CTRL+H
插入新工作表SHIFT+F11
将选定区域扩展一个单元格宽度SHIFT+ 箭头键
选定区域扩展到单元格同行同列的最后非空单元格CTRL+SHIFT+ 箭头键
作者: toumaorou 时间: 2005-3-13 02:19
F4
重复键
可重复工作表添加 删除等许多许多好多好多，不想复制了
作者: 红池坝 时间: 2005-3-16 07:07
你的好多在帮助里有的啊，要不就是前面的筒子们说了的，只把几个新的列来看着多省力
[此贴子已经被作者于2005-3-15 23:08:52编辑过]
作者: 川破酷子 时间: 2005-3-25 02:00
还真行得通,你是怎么试成功的呢?还得四a以上才能成功.
作者: 川破酷子 时间: 2005-3-25 02:55
在单元格中输入：text（now（），“dddd”），将出现当天是星期几，但是是英语的。
根据你的提示得来，谢谢。
作者: Excel88 时间: 2005-3-31 05:16
自定义格式为“；；；”可隐藏任何数据
作者: zj989100 时间: 2005-3-31 19:00
我也来个 Ctrl + F9 → 可最小化工作簿;
Ctrl + F10 → 可最大化工作簿.
作者: zj989100 时间: 2005-3-31 19:00
还有1. alt+178 → 输入平方 ALT+177(小键盘) → ±2. alt+179 → 输入立方 alt+176 → ° 3. alt+175 → ¯ alt+174 → ®
作者: 红池坝 时间: 2005-4-7 04:28
我倒…………这也算Excel技巧？？这分明是所有文本输入技巧嘛
alt＋“－”（按Alt和－号键）：弹出程序窗口控制快捷菜单
ALt＋“＋”：单元格求和公式：＝sum()
建议：技巧是Excel帮助和常规教科书上没有的东西才好
作者: tmtony 时间: 2005-4-7 04:41
呵呵,有道理, 不过可能教科书上的技巧不一定人人都记住了啊. 但贴也无妨
作者: winterbells7 时间: 2005-5-7 23:34
在输入数字前加一个单引号“”’，可以强制地将数字作为文本输入。
作者: dengyf 时间: 2005-5-16 18:21
'加数字，文本格式。
作者: chief_first 时间: 2005-5-25 07:37
F8
打开或关闭扩展模式。在扩展模式中，状态行中将出现"扩展"，箭头键可扩展选定区域。
Shift+F8
将其他区域的单元格添加到选定区域中，或使用箭头键移动到所要添加的区域的起始处，然后按 F8 和箭头键以选定下一个区域。
Shift+箭头键
将选定区域扩展一个单元格。
Ctrl+Shift+箭头键
将选定区域扩展到与活动单元格在同一列或同一行的最后一个非空单元格。
Shift+Home
将选定区域扩展到行首。
Ctrl+Shift+Home
将选定区域扩展到工作表的开始处。
Ctrl+Shift+End
将选定区域扩展到工作表上最后一个使用的单元格（右下角）。
Shift+Page Down
将选定区域向下扩展一屏。
Shift+Page Up
将选定区域向上扩展一屏。
End+Shift+箭头键
将选定区域扩展到与活动单元格在同一列或同一行的最后一个非空单元格。
End+Shift+Home
将选定区域扩展到工作表的最后一个使用的单元格（右下角）
End+Shift+Enter
将选定区域扩展到当前行中的最后一个单元格。如果已打开"Lotus 1-2-3 常用键"（"工具"菜单上"选项"命令中的"1-2-3 的帮助"选项卡），则此快捷键次序将不起作用。
Scroll Lock+Shift+Home
将选定区域扩展到窗口左上角的单元格。
Scroll Lock+Shift+End
将选定区域扩展到窗口右下角的单元格。
用于输入、编辑、设置格式和计算数据的按键
输入数据
Enter
完成单元格输入并选取下一个单元格。
Alt+Enter
在单元格中换行。
Ctrl+Enter
用当前输入项填充选定的单元格区域。
Shift+Enter
完成单元格输入并向上选取上一个单元格。
Tab
完成单元格输入并向右选取下一个单元格。
Shift+Tab
完成单元格输入并向左选取上一个单元格。
ESC
取消单元格输入。
箭头键
向上、下、左或右移动一个字符。
Home
移到行首。
F4 或 Ctrl+Y
重复上一次操作。
Ctrl+Shift+F3
由行列标志创建名称。
Ctrl+D
向下填充。
Ctrl+R
向右填充。
Ctrl+F3
定义名称。
Ctrl+K
插入超链接。
Enter（在具有超链接的单元格中）
激活超链接。
Ctrl+;（分号）
输入日期。
Ctrl+Shift+:（冒号）
输入时间。
Alt+向下键
显示清单的当前列中的数值下拉列表。
Ctrl+Z
撤消上一次操作。
输入特殊字符
按 F2 可编辑单元格，打开 Num Lock，再用数字小键盘按下列键：
Alt+0162
输入分币字符 ￠。
Alt+0163
输入英镑字符 ￡。
Alt+0165
输入日圆符号 ￥。
Alt+0128
输入欧元符号
作者: HeyEric 时间: 2005-5-28 08:12
ALT+F4：关闭所有打开的workbooks，并会提示是否保存。汗。
作者: 红池坝 时间: 2005-5-29 00:31
怎么老是重复啊，同志们请看看别人的帖子后再跟帖好不好，弄点新东西才有意义的哦
作者: 木图天 时间: 2005-5-29 21:48
我也来一个
用ctrl＋鼠标滚轮可调整显示比例。
[此贴子已经被作者于2005-5-29 13:49:42编辑过]
作者: 淼漫 时间: 2005-5-31 06:43
[以下为网摘内容]
微软Excel电子表格提供了上百种函数命令，可是对于大多数普通人来说经常用到的只是其中一些常用的函数，比如算术求和（SUM函数）、求最大值（MAX函数）、求最小值（MIN函数）、求平均值（AVERAGE函数）等，而且很多时候都是临时计算一下，并不需要在专门的单元格内设置这些函数来保存结果。其实，Excel提供了一个非常实用的功能，可以方便地实现简单函数的运算，只是它被大多数人忽略了，让我们来找找看。
具体操作非常简单，首先确保Excel视图菜单的状态栏被勾选，在选定需要进行运算的单元格后，用鼠标右键单击一下Excel状态栏右侧的NUM区域会弹出一个小菜单（如图1），里面的“求和（S）、最小值（I）、最大值（M）、计数（C）、均值（A）”就分别对应Excel的SUM函数、MIN函数、MAX函数、COUNT函数和AVERAGE函数，要想进行其中一项运算只需用鼠标作相应选择、NUM区域的左边就会显示出运算结果。
另外若您的机器年代久远、怕这个自动运算的功能影响系统运行速度的话还可选择小菜单中的“无”项来取消这项功能。
作者: sunredday 时间: 2005-6-5 02:00
text（now（），“YYYY”），text（now（），“MMMM”），text（now（），“dddd”），text（now（），“HHHH”），text（now（），“SSSS”），text（now（），“dd”），text（now（），“HH”），
作者: 轻风 时间: 2005-6-9 19:59
我觉得你们发了太多快捷键，如果不是常用的没人会记得那么多。我也来一个：如果你的工作表有N多，可以在工作表标签左边的导航栏单击右键，可快速定位到你要的工作表。
作者: 轻风 时间: 2005-6-9 21:28
再来一个：☆将数字转换成大写
很多用户在工作中经常与大写金额打交道，因此希望在EXCEL输入中能够快速地将数字转换为大写数字。选中所有需要使用大写数字的单元格，单击鼠标右键，在弹出的快捷菜单中执行“设置单元格格式”命令，在弹出的对话框中选择“数字”选项卡，在“分类”列表框中选择“特殊”选项，然后在右侧的“类别”列表框中选中“中文大写数字”，单击“确定”按钮。
作者: 晓月清风 时间: 2005-6-18 23:34
DATEDIF（"2000-06-18","2005-06-18","y"）函数可应用于计算工龄等
作者: mulinsen 时间: 2005-7-2 07:03
标题: [原创]
在ecxel设置中有个1-2-3帮助,它能帮助你不要输入=号就能 把数据在一个单元格中想加.
很高心能看到那么多的资料,小弟有一件事情要请大家帮忙,问题是:我现在每天要统计数据,必须要一天做新建一个表格文件,但一个月要做统计,我怎么把更快地相加.做一个月统计.
作者: David_zw 时间: 2005-7-4 16:48
ctrl+shift+f 字体ctrl+shift+p 字号alt+shift+-> 组alt+shift+<- 取消分组
作者: lwd510721 时间: 2005-7-4 19:43
合并两个单元格数字c1=a1&b1
作者: yangyiliou27 时间: 2005-7-8 23:49
也不知道有没有重复的。CTRL+；，复制上面单元格的数据到下面的单元格
作者: eyewitnes 时间: 2005-7-9 17:55
以下是引用zj989100在2005-3-31 11:00:00的发言：
还有
1. alt+178 → 输入平方 ALT+177(小键盘) → ±
2. alt+179 → 输入立方 alt+176 → °
3. alt+175 → ¯ alt+174 → ®
这个好像不单单EXCEL能用吧？我记得应该windows下所有类型文本编辑都能用的，用ALT+数字键可以输入许多古灵精怪的符号甚至汉字
作者: shanui 时间: 2005-8-26 19:00
如果要插入多行或多列，比如说插入5行：首先从行标（数字）选中5行，然后单击右键选“插入”就行了。这方法蛮方便的！
作者: dingzc 时间: 2005-9-7 01:05
挺热闹呀，我也来一个。如果鼠标是带滚轮的，在excel中按住ctrl＋向上滚轮，显示比例就会放大，向下滚轮则比例会缩小。
作者: ganrong 时间: 2005-9-7 03:52
提示: 作者被禁止或删除 内容自动屏蔽
作者: dingzc 时间: 2005-9-8 22:39
再说一个，excel有一列数组，点中整个列，状态栏会出现求和＝多少的字样，不用做公式很方便，同样在该字样上点击鼠标右键，会发现有“平均值，计数，计数值，最大值，最小值，求和”等，还是挺方便的呀。
作者: 轻风 时间: 2005-9-30 22:55
标题: 只按一键 图表尽现
你是如何制作图表的呢？什么，“插入-图表”？太麻烦了！在表格做好后，选择要作图表的区域，按一下“F11”键吧，你会惊喜不已的——那不就是“它”吗！太神奇了！接下来的工作，就是按照你的需要修改一下就可以了。
作者: BobLee 时间: 2005-10-1 06:02
用右键拷贝所需内容后，直接选择目标范围，再直接回车即可实现快速粘贴！雕虫小技，见笑了！[em08]
作者: chrissrong 时间: 2005-10-7 03:59
这里好热闹，我也来一个。
双击填充公式时出现的小黑十字架，可以把公式一直填充到你选单元格所在列（或所在行）最下面（或最右边）。
[此贴子已经被作者于2005-10-15 16:33:58编辑过]
作者: 七巧 时间: 2005-10-22 06:14
有一位谈到数字转大写数字的。我现在想把数字转换成人民币的大写情况，以前好象看过编写一个小程序。但忘记了，不知道哪位能谈一下吗？
作者: crashdream 时间: 2005-10-28 04:54
楼上的，做人要厚道！shift+F11还用你教吗拜托！
作者: 余瑞龙 时间: 2005-12-14 04:00
56楼用 DATEDIF（"2000-06-18","2005-06-18","y"）函数计算工龄,为什么在excel的函数中找不到它呢?这个函数还有其它什么用途吗?请哪位高手指点指点
作者: rengis0101 时间: 2005-12-20 05:13
ding
作者: dongzhong 时间: 2005-12-27 01:30
=TEXT(NOW(),"h")显示小时数
=TEXT(NOW(),"s")显示秒数
=TEXT(NOW()+D1,"yyyyyyyyy")显示年份
作者: bigqq 时间: 2006-1-24 18:34
好贴看了心痒,也来一个:
日期单元个和数字相加可以得到想要的日期,做工程的计算工期有用哦
[em07]
作者: 扬扬628 时间: 2006-2-16 17:14
alt+回车在同一单元格中分行
作者: douze 时间: 2006-2-20 01:15
将列值转为行值,使用选择性粘贴,选转置即可
作者: 小文子 时间: 2006-3-3 21:18
我是新来的，也加一个：如何在一个单元格里显示某年某月某日星期几？
显示当天的日期公式是 =NOW() ；当天的星期是 =TEXT(NOW(),"aaaa") ；
如果要显示任意一天是星期几呢？
只要在前一个单元格里写好日期，如2006年3月3日，后一个单元格里输入公式：=WEEKDAY(D4,2) 这里的“D4”就是前一个有日期的单元格。这样就能方便地输入某年某月某日星期几啦！呵呵。
作者: sg860101 时间: 2006-3-20 22:31
shift+ctrl+ →选中的列右面的所有的列
作者: 219jenny 时间: 2006-3-26 09:23
你们太厉害了~
作者: 219jenny 时间: 2006-3-26 09:36
[em06]
作者: bangong 时间: 2006-4-5 00:58
求助:使用HYPERLINK函数建立的链接,却无法打开链接文件,是何原因呢?
急,盼请早日回复!
作者: bangong 时间: 2006-4-5 22:25
各位大“侠”：
该出手时就出手哇，请尽快出手拉一把！
作者: bangong 时间: 2006-4-5 22:27
紧急求助：使用HYPERLINK函数建立的链接，却无法打开链接文件，会是何原因呢？
急，盼请早日回复！
各位大侠，该出手时就出手哇，尽快给个答复吧。
作者: fishinthesky 时间: 2006-4-13 19:25
这么复杂
作者: qeeny 时间: 2006-4-14 19:25
三步实现合并单元格而保留全部内容
第一步：找一个空白单元格，连接需要合并的单元格的数据，如要合并A1,A2,A3单元格
=CONCATENATE(A1,A2,A3)
第二步：合并需要合并的单元格
第三步：将内容复制到已合并的单元格：复制——选择性粘贴——数值[em01][em01][em01]
作者: HSQ8888 时间: 2006-4-22 01:09
以下是引用七巧在2005-10-21 22:14:00的发言：
有一位谈到数字转大写数字的。我现在想把数字转换成人民币的大写情况，以前好象看过编写一个小程序。但忘记了，不知道哪位能谈一下吗？
见附件[attach]17296[/attach]
作者: pier74 时间: 2006-4-28 23:57
DDDD
作者: vic-adele 时间: 2006-5-1 00:27
受益非浅啊，
看了各位大侠的技巧打比拼后，我也来一个，选中多个sheet后只要在一个sheet编辑就可以同时出现在所有的sheet中了。
作者: dacong2002 时间: 2006-5-11 03:32
cool
作者: wzy9210 时间: 2006-5-16 05:47
不错，特别是那个快捷键呢。
作者: szyangwenbo 时间: 2006-5-16 20:07
花了差不多24个小时的时间,终于在今天将这些好东东看完了,在这里非常谢谢各位出招的大哥大姐小弟小妹们,你们辛苦了.
11楼的,CTRL+~ 显示当然工作表中的有用到的公式,这个出不来
22楼的,为什么"DD"是要7个,经本人反复使用,发现四个就可以了,20个的时候也可以,嘻嘻
14楼的,SUBTOTAL(3,[RANGE])这个做不出来;
27-37楼的叫toumaorou的朋友,非常感谢你这么多好东西,只是本人觉得你有必要将你的资料排版到一张纸上后再发表到这儿来,另外你在35楼时说的Ctrl+*这个东东出来的是"当前工作表无分级显示,不能显示分级符号,是否建立分级显示?"
76楼的,谢谢,你的方法对我很有用
我也来一个关于自动筛选项目求和的公式:Subtotal(9,H6:H606),这个H6:H606就是数据所在区域,对求每个员工的月加班小时总数是很有用的.
作者: 碧海蓝天 时间: 2006-5-20 03:56
好像没有看到用照相机这个工具的，工具，自定义， 命令选项卡中， 工具类别， 右边选项中，拖动照相机到工具栏上，回到工作表，选中要动态引用的单元格数据，按下照相机，再放到指定位置，可以实现动态引用
作者: hover777 时间: 2006-5-29 18:31
有意思
作者: shah 时间: 2006-6-2 18:35
=NOW() 显示当前 年月日 点
作者: alex_yao 时间: 2006-6-12 21:26
Ctrl+1格式设置对话框
Ctrl+←(↑→↓)能分别定位到此行（列）的下一个非空单元格
作者: chenchunhuiabc 时间: 2006-6-16 20:46
本人也给大家推荐一个查找程序，适用于连续在一个多数据表格里查找，
先建立一个窗体USERFORM1，添国两个文本框 TEXTBOX1，TEXTBOX2，两个标签LABEL1，LABEL2
Dim HH1 As Range
Dim HH2 As Range
Dim DD1, DD2
Private Sub CommandButton1_Click()
For DD2 = DD1 + 1 To 300
If Cells(DD2, 1).Text Like "*" & TextBox1.Text & "*" Then
ActiveWindow.ScrollRow = DD2
DD1 = DD2
GoTo LINE2
Else
End If
Next
LINE2:
End Sub
Private Sub TextBox1_Change()
For Each HH1 In Range("A4:A5000")
If HH1.Text Like "*" & TextBox1.Text & "*" Then
ActiveWindow.ScrollRow = HH1.Row
DD1 = HH1.Row
GoTo LINE1
Else
End If
Next
LINE1:
TextBox2.Text = ""
End Sub
Private Sub TextBox1_Enter()
If TextBox1.Text = "" Then
Else
If Label2.Caption = "数量无" Then '判断要不要输入数字
Else
If TextBox2.Text = "" Then '判断第二框有无数字
MsgBox "请输入正确的数字!"
Else
If Cells(DD1, 38).Text <> "" Then '判断第38列有无数字,有则提示
MsgBox "请输入正确的数字！"
TextBox2.Text = ""
Else
Cells(DD1, 38).Value = TextBox2.Text '在第38列输入第二框的数字
TextBox2.Text = ""
End If
End If
End If
End If
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 17
Cells(DD1, 2).Value = "OK" '在第38列输入OK
TextBox1.Text = ""
Case 38
TextBox1.Text = ""
Case 39
For DD2 = DD1 + 1 To 5000
If Cells(DD2, 1).Text Like "*" & TextBox1.Text & "*" Then
ActiveWindow.ScrollRow = DD2
DD1 = DD2
GoTo LINE2
Else
End If
Next
LINE2:
Case 37 '按左光标键后的程序
If Cells(DD1, 38).Text <> "" Then
MsgBox "请输入正确的数字！"
Else
Cells(DD1, 38).Value = "OK" '在第38列输入OK
TextBox1.Text = ""
End If
End Select
End Sub
Private Sub LABEL2_Click()
If Label2.Caption = "数量：" Then
Label2.Caption = "数量无"
TextBox2.Enabled = False
Else
Label2.Caption = "数量："
TextBox2.Enabled = True
End If
End Sub
Private Sub UserForm_Initialize()
DD1 = 1
End Sub
在模块里建立一个启动程序
SUB SEARCH()
USERFORM1.SHOW
END SUB
作者: chenchunhuiabc 时间: 2006-6-16 21:01
本人在给大家介绍一个简单的录入程序,对简单却繁锁的数据输入较有效,
如有不明白,或其他想与本人讨论的请加QQ: 648715289
先建立一个窗体USERFORM1,添加三个文本框TEXTBOX1,TEXTBOX2,TEXTBOX3,再添加一个标榜LABEL1
TEXTBOX1 用来输货号,编号,等等,输入时只要输入有代表性的几位就可以了,如输POLO-20315,可只输入20315,如果包含20315的只有这个则马上可以自动找出并输入表格<如有POLO-20308,POLO-20309,POLO-20310,POLO-20312,POLO20313,POLO-20315....时)
TEXTBOX2 用来输数据,数量,重量,价格等
TEXTBOX3 用来输货号或编号特定不变的符号或文字<输入后不自动变更>,没有则不输,
Dim CH1 As Range
Dim CH2 As Range
Dim DD1
Dim DD2
Private Sub TextBox1_Change()
TextBox3.Enabled = True
For Each CH1 In Sheets(1).Range("A1:A5000")
If CH1.Text Like "*" & TextBox1.Text & "*" Then
Label1.Caption = CH1.Text
DD1 = CH1.Row
GoTo LINE11
Else
End If
Next
LINE11:
End Sub
Private Sub TextBox1_Enter()
If TextBox3.Text = "" Then
TextBox1.EnterFieldBehavior = 0
Else
TextBox1.EnterFieldBehavior = 1
End If
If TextBox2.Text = "" Then
Else
For Each CH2 In Sheets(2).Range("A2:A5000")
If CH2.Text = "" Then
CH2.Value = Label1.Caption
Sheets(2).Cells(CH2.Row, 2).Value = TextBox2.Text
TextBox1.Text = TextBox3.Text
TextBox2.Text = ""
GoTo LINE1
Else
End If
Next
LINE1:
End If
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38 '按上光标键清楚TEXTBOX1的内容
TextBox1.Text = ""
Case 39 '右光标键 继续查找
For DD2 = DD1 + 1 To 5000
If Sheets(1).Cells(DD2, 1).Text Like "*" & TextBox1.Text & "*" Then
Label1.Caption = Sheets(1).Cells(DD2, 1).Text
DD1 = DD2
GoTo LINE2
Else
End If
Next
LINE2:
Case 37 '按左光标键后的程序
End Select
End Sub
Private Sub TextBox2_Enter()
TextBox3.Enabled = False
End Sub
作者: chenchunhuiabc 时间: 2006-6-16 21:12
我再给大家介绍一个多条件求和函数,
{=SUM(IF(A1:A200=G2,IF(B1:B200=G3,IF(C1:C200>G4,IF(D1
200<G5,F1:F200)))))}
条件1, 条件2, 条件3, 条件4,|, 结果和 大括号表示这是数组公式 同时按Ctrl + Shift + Enter 这三个即可设成为数组公式
意思就是求A1:A200中有G2所对应的,B1:B200中有G3所对应的,C1:C200中有G3所对应的,D1200中有G4所对应的,即这四个同理对应时的F1:F200中的和
如有不明白,或其他想与本人讨论的请加QQ: 648715289
作者: zglnjzltlizhen 时间: 2006-6-20 23:42
请教你对宏的编辑懂吗，我是新手啊。
作者: zsj1101 时间: 2006-6-27 19:57
判斷字符串內碼 Function CheckCode(StrChk As String) As String
'判斷是否包含漢字
StrChk = VBA.StrConv(StrChk, vbNarrow)
If (Len(StrChk) <> LenB(StrConv(StrChk, vbFromUnicode))) = False Then
CheckCode = "English/Data"
Exit Function
End If
'判斷文本內碼
For I = 1 To Len(StrChk)
F = Hex(Asc(Mid(StrChk, I, 1)))
L1 = CInt("&H" + Mid(F, 1, 2))
R1 = CInt("&H" + Mid(F, 3, 2))
'GBCode 1>A0H - FEH
'BIG5Code 1>80H - FFH 2>00H-FFH
'MsgBox Val("&H ")
If R1 < 127 Then
CheckCode = "Big5"
Exit Function
End If
Next
CheckCode = "GB"
End Function
| 欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) |
Powered by Discuz! X3.3 |