- 博客(6)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 提取一个单元格中的数字（Excel自定义函数）
Function SHUZI(AA As Range) Dim n As Integer, i As Integer, tem n = Len(AA.Value) For i = 1 To n If IsNumeric(Application.Find(Mid(AA.Value, i, 1), "0123456789")) Then tem =
2006-12-28 20:29:00
4780
原创 将多个单元格的内容连接到一个单元格（Excel自定义函数）
Function Lianjie(rAB As Range, isN As Boolean) 第一个参数是单元格区域，可多行多列；第二个参数为true,先列后行，为false，先行后列 Dim nR%, nC%, i%, j%, rng As Range Set rng = rAB If isN = True Then nR = rng.Rows.Count
2006-12-28 20:26:00
2508
原创 GB2312简体中文编码表
GB2312简体中文编码表code +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +FA1A0 、 。 · ˉ ˇ ¨ 〃 々 — ～ ‖ … ‘ ’A1B0 “ ” 〔 〕 〈 〉 《 》 「 」 『 』 〖 〗 【 】A1C0 ± × ÷ ∶ ∧ ∨ ∑ ∏ ∪ ∩ ∈ ∷ √ ⊥ ∥ ∠A1D0 ⌒
2006-12-24 14:15:00
3668
原创 汉字区位码表
来自于互联网，版权归原作者这个版本好象应该是GB2312第 1 区 0101 0102 、 0103 。 0104 · 0105 ˉ 0106 ˇ 0107
2006-12-24 13:57:00
37017
原创 Excel VBA 语句集（2）
VBA语句集(第2辑)*******************************************************定制模块行为(101) Err.Clear ‘清除程序运行过程中所有的错误*******************************************************工作簿(102) ThisWorkbook.BuiltinDocumentPrope
2006-12-21 20:32:00
1928
原创 Excel VBA 语句集（1）
VBA语句集(第1辑)定制模块行为(1) Option Explicit 强制对模块内所有变量进行声明Option Private Module 标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示Option Compare Text 字符串不区分大小写Option Base 1 指定数组的第一个下标为1(2) On Error Resume Next 忽略错误继续执行VBA
2006-12-21 20:30:00
2609
1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人