越学习，越发现自己的无知。

lrlxxqxa

http://club.excelhome.net/viewth ... p;page=1#pid3915717

1. Sub 设置A列单元指定字符串的颜色()
   
2. Dim i As Long
   
3. y = Sheets(1).Range("a65536").End(xlUp).Row       'A列最后可见单元的行号
   
4. For a = 1 To y
   
5. For i = 1 To Len(Range("A" & a))    '遍历单元字符
   
6. If Mid(Range("A" & a), i, 2) = "台" Then    '指定设置颜色的字符数量和内容
   
7. Range("A" & a).Characters(i, 2).Font.ColorIndex = 3   '设置指定数量的字体红色
   
8. End If
   
9. Next
   
10. Next
    
11. End Sub

复制代码

[ 本帖最后由 lrlxxqxa 于 2010-6-9 09:28 编辑 ]

lrlxxqxa

http://club.excelhome.net/viewth ... p;page=1#pid3108225

如何固定单元格格式，即锁定单元格格式不能改变
http://club.excelhome.net/viewth ... mp;page=1#pid974947

虽然知道了解决办法（全选取消边框重新设置），但是却不知道如何才能设置成只能输入不能设置单元格格式的效果。
看回复有人说这是其他系统导出的工作表带的格式，和通过手绘做的不一样（虽然外观一致）

lrlxxqxa

http://club.excelhome.net/viewth ... p;page=1#pid2157804

http://club.excelhome.net/viewth ... p;page=1#pid3550334

其中vba法看不懂，但也不合适
=======================================
下面的函数解法和条件格式解法比较合适，尤其是条件格式的很好用。

http://club.excelhome.net/viewth ... p;page=1#pid3919521

函数解法：b2=IF(ISERROR(LOOKUP(1,0/FIND(未开通!A$2:A$26,A2),未开通!A$2:A$26)),"",LOOKUP(1,0/FIND(未开通!A$2:A$26,A2),未开通!A$2:A$26))

条件格式解法：
先自定义名称：未开通=OFFSET(未开通!$A$2,,,COUNTA(未开通!$A:$A)-1)
条件格式公式：=SUMPRODUCT(COUNTIF(A2,"*"&未开通&"*"))

[ 本帖最后由 lrlxxqxa 于 2010-6-9 17:10 编辑 ]

lrlxxqxa

http://excelbbx.cn/

Excel是微软公司开发的精典办公软件，经过了多次更新，从1.0到如今的14.0（即Excel 2010）等等版本变化，已经非常强大。它不仅具有绘制表格、图表、图形等功能，还能数据分析、预测，甚至可以实现程序开发。Excel百宝箱系列正是利用Excel所开发的增强型插件。

　　 Excel百宝箱8.0是利用VBA（Visual Basic for Applications）语言编写的增强型插件。它包括79个菜单功能和26个自定义函数，集105个工具于一身，但体积小于2MB。当安装百宝箱后，如果您使用Excel 2003，则将产生【百宝箱】菜单，包括70多个子菜单；如果您使用Excel 2007或者2010，将产生【百宝箱】功能区。根据各功能的特点，对子菜单作了九个分类， 而在函数向导对话框中也生成26个新的函数，用于扩展Excel的计算功能。且所有功能都通用于Excel 2002、2003和2007、2010。

lrlxxqxa

http://club.excelhome.net/viewth ... p;page=1#pid3533101

有图有文，详细描述的共享打印机的设置连接。

lrlxxqxa

[综合应用] 动态引用图片的制作教程 http://www.exceltip.net/thread-1266-1-1-25594.html

其中控件的使用功能部分可用数据有效性的序列功能替代，但链接图片的地址时，直接在上方编辑栏改为自定义的名称，这个技巧很方便。

注意2007版的开发工具菜单的加载和位置。

lrlxxqxa

http://club.excelhome.net/viewth ... p;page=1#pid3927568

=INDEX($A$1:$A$11,MIN(IF(ROW(1:1)<=SUMIF(OFFSET($B$1,,,ROW($B$4:$B$11)),"<>"),ROW($B$4:$B$11))))

关于算子的筛选没有搞清，先记录下来

lrlxxqxa

http://club.excelhome.net/viewth ... p;page=1#pid3920042

注意定位空值后，可以按上箭头替代单击上方单元格；
利用函数lookup的经典公式，向上查找第一个不为空的单元格：=LOOKUP(1,0/(A$1:A1<>""),A$1:A1)

lrlxxqxa

http://club.excelhome.net/viewth ... p;page=1#pid3900040

http://club.excelhome.net/viewth ... mp;page=3#pid681501
注意25楼的详细解释、26楼草版的链接
http://club.excelhome.net/viewth ... mp;page=1#pid199796
这贴要深入理解，chenjun版主下了功夫整理的
http://office.9zp.com/dispbbs.asp?boardID=4&ID=278

lrlxxqxa

打开文件的时候弹出：


确定后又弹出