excel代码大全

excel代码大全.txt第一次笑是因为遇见你，第一次哭是因为你不在，第一次笑着流泪是因为不能拥有你。EXCEL宏代码大全

本文件部分文章来源于网络，文章版权归原作者所有，如果本站转载的文章侵犯了您的权益请及时联系我们，我们将尽快妥善处理。本站除部分特别声明禁止转载的专稿外，其他文章可以自由转载，但请务必注明原出处和作者。

000. A列半角内容变红

Sub A列半角内容变红() Dim rg As Range, i As Long = False For Each rg In (xlCellTypeConstants, 3) For i = 1 To Len(rg) If Asc(Mid(rg, i, 1))

001. A列等于A列减B列

Sub A列等于A列减B列() For i = 1 To 23 Cells(i, 1) = Cells(i, 1) - Cells(i, 2) Next End Sub 002. B列录入数据时在A列返回记录时间（工作表代码）

Public Sub Worksheet_Change(ByVal Target As Range) If = 2 Then (, -1) = Now End If End Sub

003. Excel宏常用代码

本大类暂没有内容，以下是关于本类的所有记录集。

004. Sub 以当前日期为名称另存文件()

Filename:=Date & ".xls" End Sub

005. Sub 启用保存()

("File").Controls(4).Enabled = True ("File").Controls(5).Enabled = True End Sub

006. Sub 执行前需要验证密码的宏()

If InputBox("请输入您的使用权限:", "系统提示") = 123 Then 重排窗口'要执行的宏代码或宏名称Else MsgBox "对不起,您没有使用该宏的权限,按确定键后退出!" End If End Sub

007. Sub 选择第5行开始所有数据行B()

Rows("5:" & ("*", , , , 1, 2).Row).Select End Sub

008. VBA返回公式结果

Sub VBA返回公式结果() x = "a2:a100")) Range("B1") = x End Sub

009. 不连续区域录入对勾

Sub 批量录入对勾() = "√" End Sub

010. 不连续区域录入当前单元地址

Sub 区域录入当前单元地址() For Each mycell In Selection = Next End Sub

011. 不连续区域录入当前数字日期

Sub 区域录入当前数字日期() = Format(Now(), "yyyymmdd") End Sub

012. 不连续区域录入当前文件名

Sub 批量录入当前文件名() = End Sub

013. 不连续区域录入当前日期

Sub 区域录入当前日期() = Format(Now(), "yyyy-m-d") End Sub

014. 不连续区域录入当前日期和时间

Sub 区域录入当前日期和时间() = Format(Now(), "yyyy-m-d h:mm:ss") End Sub

015. 不连续区域插入当前文件名和表名及地址

Sub 批量插入当前文件名和表名及地址() For Each mycell In Selection = "[" + + "]" + + "!" + Next End Sub

016. 不连续区域插入文本

Sub 批量插入文本() Dim s As Range For Each s In Selection s = "文本内容" & s Next End Sub

017. 不连续区域添加文本

Sub 批量添加文本() Dim s As Range For Each s In Selection s = s & "文本内容" Next End Sub

018. 为当前选定的多单元插入指定名称

Sub 为当前选定的多单元插入指定名称() = "临时" Name:="临时", RefersTo:=Selection '或者换用这行代码也可以End Sub

019. 为指定工作表加指定密码保护表

Sub 为指定工作表加指定密码保护表() Password:="123" End Sub

020. 为指定工作表设置滚动范围（工作簿代码）

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) = "A1:M30" End Sub

021. 从指定位置向下同时录入多单元指定内容

Sub 从指定位置向下同时录入多单元指定内容() Dim arr arr = Array("1", "2", "13", "25", "46", "12", "0", "20") [B2].Resize(8, 1) = End Sub

022. 以A1单元内容批量插入批注

Sub 以A1单元内容批量插入批注() Dim r As Range If > 0 Then For Each r In Selection = False Text:=[a1].Text Next End If End Sub

023. 以A1单元文本作表名插入工作表

Sub 以A1单元文本作表名插入工作表() Dim nm As String nm = [a1] = nm End Sub

024. 以当前日期为新文件名另存文件

Sub 以当前日期为新文件名另存文件() & "\" & Format(Now(), "yyyymmdd") & ".xls" End Sub

025. 以当前日期和时间为新文件名另存文件

Sub 以当前日期和时间为新文件名另存文件()

破解excel保护密码的宏代码

Option Explicit Public Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm modified for coverage ' of workbook structure / windows passwords and for multiple passwords ' ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) ' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version 1.1.1) ' Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "Adapted from Bob McCormick base code by" & _ "Norman Harker and JE McGimpsey" Const HEADER As String = "AllInternalPasswords User Message" Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04" Const REPBACK As String = DBLSPACE & "Please report failure " & _ "to the microsoft.public.excel.programming newsgroup." Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _ "now be free of all password protection, so make sure you:" & _ DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _ DBLSPACE & "Also, remember that the password was " & _ "put there for a reason. Don't stuff up crucial formulas " & _ "or data." & DBLSPACE & "Access and use of some data " & _ "may be an offense. If in doubt, don't." Const MSGNOPWORDS1 As String = "There were no passwords on " & _ "sheets, or workbook structure or windows." & AUTHORS & VERSION Const MSGNOPWORDS2 As String = "There was no protection to " & _ "workbook structure or windows." & DBLSPACE & _ "Proceeding to unprotect sheets." & AUTHORS & VERSION Const MSGTAKETIME As String = "After pressing OK button this " & _ "will take some time." & DBLSPACE & "Amount of time " & _ "depends on how many different passwords, the " & _ "passwords, and your computer's specification." & DBLSPACE & _ "Just be patient! Make me a coffee!" & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _ "Structure or Windows Password set." & DBLSPACE & _ "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _ "Note it down for potential future use in other workbooks by " & _ "the same person who set this password." & DBLSPACE & _ "Now to check and clear other passwords." & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was: " & _

世界各国色卡标准

国内标准色卡1、纺织服装行业、国家标准色卡——CNCS色卡目前已被确立为国家标准和纺织行业标准的CNCS简介：2001年开始，中国纺织信息中心承担了科技部“中国应用色彩研究项目”，建立了CNCS颜色体系。之后，广泛进行色彩调研，通过中心所属趋势研究部门、中国流行色协会、国外合作伙伴、采购商、设计师等途径收集色彩资讯，开展市场调查。经过几年的努力，研发第一版颜色体系，并确定了所用材料及工艺。2006年，中国纺织信息中心根据合作伙伴、市场相关方、色彩专家等各方意见调整体系，完成第二版颜色体系的试制，并携手浙江龙盛控股有限公司、德塔颜色科技有限公司（DATACOLOR）等一起正式开始CNCS纺织颜色体系标准的生产制作，同时，开展了数字化色彩和数字化流行色彩的研究，将CNCS颜色系统同数字化色彩接轨。在此基础上，完成了CNCS纺织颜色标准的制作。 2、建筑行业、国家标准色卡——GB/T15608-2006《中国颜色体系》、GSB 16-2062-2007《中国颜色体系标准样册》和GB/T

18922-2002《建筑颜色的表示方法》、 G S B16-1517-2002《中国建筑色卡》。 3、漆膜颜色标准样卡——全国涂料和颜料标准话技术委员会 4、蒙赛尔明度精选色卡,是国际通用色卡，广泛用于纺织，服装，摄影，印刷，包装行业编辑本段国际标准色卡 1、美国P a n t o n e色卡提供平面设计、服装家居、涂料、印刷等行业专色色卡，是目前国际上广泛应用的色卡。总部位于美国新泽西州卡尔士达特市（Carlstadt, NJ）的Pantone 公司.是一家专门开发和研究色彩而闻名全球的权威机构，也是色彩系统和领先技术的供货商，提供许多行业专业的色彩选择和精确的交流语言。彩通? （PANTONE?）这一名字已成为设计师、制造商、零售商和客户之间色彩交流的国际标准语言而享誉全球。1963年，Pantone 公司的创始人Lawrence Herbert开发了一种革新性的色彩系统，可以进行色彩的识别、配比、和交流，从而解决有关在制图行业制造精确色彩配比的问题。他意识到每个人对同一光

PS颜色代码(比较全的)-ps颜色代码表

PS 颜色代码 颜色代码 1白色 #FFFFFF 2红色 #FF0000 3绿色 #00FF00 4蓝色 #0000FF 5牡丹红 #FF00FF 6青色 #00FFFF 7黄色 #FFFF00 8黑色 #000000 9海蓝 #70DB93 10巧克力色 #5C3317 11蓝紫色 #9F5F9F 12黄铜色 #B5A642 13亮金色 #D9D919 14棕色 #A67D3D 15青铜色 #8C7853 162 号青铜色 #A67D3D 17士官服蓝色 #5F9F9F 18冷铜色 #D98719 19铜色 #B87333 20珊瑚红 #FF7F00 21紫蓝色 #42426F 22深棕 #5C4033 23深绿 #2F4F2F 24深铜绿色 #4A766E 25深橄榄绿 #4F4F2F 26深兰花色 #9932CD 27深紫色 #871F78 28深石板蓝 #6B238E 29深铅灰色 #2F4F4F 30深棕褐色 #97694F 32深绿松石色 #7093DB 33暗木色 #855E42 34淡灰色 #545454 35土灰玫瑰红色 #856363 36长石色 #D19275 37火砖色#8E2323 38森林绿 #238E23 39金色 #CD7F32 40鲜黄色 #DBDB70 41灰色 #C0C0C0 42铜绿色 #527F76

43青黄色 #93DB70

44猎人绿 #215E21 45印度红 #4E2F2F 46土黄色 #9F9F5F 47浅蓝色 #C0D9D9 48浅灰色 #A8A8A8 49浅钢蓝色 #8F8FBD 59浅木色 #E9C2A6 60石灰绿色 #32CD32 61桔黄色 #E47833 62褐红色 #8E236B 63中海蓝色 #32CD99 64中蓝色 #3232CD 65中森林绿 #6B8E23 66中鲜黄色 #EAEAAE 67中兰花色 #9370DB 68中海绿色 #426F42 69中石板蓝色 #7F00FF 70中春绿色 #7FFF00 71中绿松石色 #70DBDB 72中紫红色 #DB7093 73中木色 #A68064 74深藏青色 #2F2F4F 75海军蓝 #23238E 76霓虹篮 #4D4DFF 77霓虹粉红 #FF6EC7 78新深藏青色 #00009C 79新棕褐色 #EBC79E 80暗金黄色 #CFB53B 81橙色 #FF7F00 82橙红色 #FF2400 83淡紫色 #DB70DB 84浅绿色 #8FBC8F 85粉红色 #BC8F8F 86李子色 #EAADEA 87石英色 #D9D9F3 88艳蓝色 #5959AB 89鲑鱼色 #6F4242 90猩红色 #BC1717 91海绿色 #238E68 92半甜巧克力色 #6B4226 93赭色 #8E6B23 94银色 #E6E8FA 95天蓝 #3299CC 96石板蓝 #007FFF

平面设计颜色标准色值

淡粉Pale-pink（雅致）CMYK: C0 M30 Y10 K0 RGB: R247 G200 B207 贝壳粉Shell-pink（纯真）CMYK:C0 M30 Y25 K0 RGB:R248 G198 B181 淡粉，婴儿粉Baby-pink CMYK:C0 M15 Y10 K0 RGB:R252 G229 B223 鲑鱼粉Salmon-pink（有趣）CMYK:C0 M50 Y40 K0 RGB：R242 G155 B135 朱红Vermilion（积极）CMYK:C0 M85 Y85 K0 RGB:R233 G71 B41 绯红，绛红scarlet（生命力）CMYK:C0 M100 Y100 K0 RGB：R230 G0 B18 深红Strong-red（华丽）CMYK:C0 M100 Y100 K10 RGB:R216 G0 B15 绯红Cardinal-red（威严）CMYK:C0 M100 Y65 K40 RGB:R164 G0 B39 酒红Buraunby（充实）CMYK:C60 M100 Y80 K30 RGB:R102 G25 B45 土红Old-rose（柔软）CMYK:C15 M60 Y30 K15 RGB:R194 G115 B127

橙色Tangerine（生气勃勃）CMYK:C0 M80 Y90 K0 RGB:R234 G85 B32 柿子色Persimmom（开朗）CMYK:C0 M70 Y75 K0 RGB:R237 G110 B61 橘黄色Orange（美好）CMYK:C0 M70 Y100 K0 RGB:R237 G109 B0 黄色（yellow） 太阳橙Sun-orange（丰收）CMYK:C0 M55 Y100 K0 RGB:R241 G141 B0 热带橙Tropical-orange（幻想）CMYK:C0 M50 Y80 K0 RGB:R243 G152 B57 蜂蜜色Honey-orange（轻快）CMYK:C0 M30 Y60 K0 RGB:R249 G194 B112 杏黄色Apricot（无邪）CMYK:C10 M40 Y60 K0 RGB:R229 G169 B107 伪装沙Sandbeige（天真）CMYK:C0 M15 Y15 K10 RGB:R236 G214 B202 浅茶色、米色Beige（纯朴）CMYK:C0 M15 Y30 K15 RGB:R227 G204 B169 浅土色Pale-ocre（温和）CMYK:C20 M30 Y45

16进制颜色代码对照表 -

颜色代码大全 AA 指定透明度。 00 是完全透明。 FF 是完全不透明。超出取值范围的值将被恢复为默 认值。 ffff00 ffff33 ffff66 ffff99 ffffcc ffffff ffcc00 ffcc33 ffcc66 ffcc99 ffcccc ffccff ff9900 ff9933 ff9966 ff9999 ff99cc ff99ff ff6600 ff6633 ff6666 ff6699 ff66cc ff66ff ff3300 ff3333 ff3366 ff3399 ff33cc ff33ff ff0000 ff0033 ff0066 ff0099 ff00cc ff00ff ccff00 ccff33 ccff66 ccff99 ccffcc ccffff cccc00 cccc33 cccc66 cccc99 cccccc ccccff cc9900 cc9933 cc9966 cc9999 cc99cc cc99ff cc6600 cc6633 cc6666 cc6699 cc66cc cc66ff cc3300 cc3333 cc3366 cc3399 cc33cc cc33ff cc0000 cc0033 cc0066 cc0099 cc00cc cc00ff 99ff00 99ff33 99ff66 99ff99 99ffcc 99ffff 99cc00 99cc33 99cc66 99cc99 99cccc 99ccff 999900 999933 999966 999999 9999cc 9999ff 996600 996633 996666 996699 9966cc 9966ff 993300 993333 993366 993399 9933cc 9933ff 990000 990033 990066 990099 9900cc 9900ff 66ff00 66ff33 66ff66 66ff99 66ffcc 66ffff 66cc00 66cc33 66cc66 66cc99 66cccc 66ccff 669900 669933 669966 669999 6699cc 6699ff 666600 666633 666666 666699 6666cc 6666ff 663300 6633336633666633996633cc 6633ff 660000 660033 660066 660099 6600cc 6600ff 33ff00 33ff33 33ff66 33ff99 33ffcc 33ffff 33cc00 33cc33 33cc66 33cc99 33cccc 33ccff 339900 339933 339966 339999 3399cc 3399ff 336600 336633 336666 336699 3366cc 3366ff 333300 333333 333366 3333993333cc 3333ff 330000 330033 330066 330099 3300cc 3300ff

颜色代码大全

颜色代码

巧用Dreamweaver轻松制作网页页内连接 在网页制作中我们经常会遇到有时需要制作页内连接的情况，比如首先列出一个目录，然后后面内容是按目录列出的，我们需要实现的是当点击目录中的一项时，直接转到内容页面。 首先把光标定位到要连接的内容页面的位置的左侧，然后插入命名锚记。 给锚记命名一个名称。 然后再选择目录，设置超级连接。

保存后，按F12浏览。 Dreamweaver8轻松实现文本的段落缩进 我们在用Drwamweaver书写英文文本时，段落一般不缩进（不支持半角空格）；但我们大多的时候都是用中文书写格式，必须在每段开头空两个汉字的位置。但浏览器对于文本中的空格，不管多少只认一个空格。如何在Drwamweaver 中实现文本的段落缩进，也就成了网页制作中的一大难题。针对这一问题，本文为大家提供以下几种解决办法。 一、用自Dreaweave身所带的功能 1、在Dreamweaver中执行下面操作4次就可以插入两个汉字大小的空格。 2、用同背景色相同颜色的字符来完成插入空格，这种方法操作比较繁琐、不易修改，而且在浏览内容被选取时，隐藏的字符就曝光了。 二、用HTML语言 用HTML语言方实现中文段落缩进。对于不懂HTML的初学者来说就有些困难了。 1、预格式(PRE) 用预格式编写的源文件，在显示时照源文件中的排版字样显示，空行和空格都能很清楚地区别开来。如源文件为：〈pre〉

－－预格式显示…… 〈/pre〉 网页就会按照你预先设置好的显示方式显示，即在“预格式显示”的前面就会空两个汉字的位置。 2、插入特殊的空格字符“ ” “ ”代表非显示空格字符。插入若干个“ ”字符，中间用分号(；)或者空格隔开，也可以实现中文段落缩进。不过在Netscape 3.01中只能写小写字母，而在IE中大小写都可以。（此方法易产生乱码，不建议采用） 三、用输入法的全角 如果你用的是智能ABC的拼音输入的话，那请按SHIFT+空格，这时输入法的属性栏上的半月形就变成了圆形了，然后再敲空格键，空格就出来了。另外智能陈桥五笔的全角方式也可以直接输入空格。这种方法相对比较简单，缺点是英文字符集下，全角空格会变成乱码。 四、另类方法 1、插入点图或图形： 点图是指图片中只有一个或几个像素点，用肉眼看不出来。当我们在段落开头插入这样一个点图，并用HSPACE和VSPACE属性来调整点图的左右和上下的空格，以达到段落缩进。 2、插入没有边框和内容的表格： 这种方式与上述的插入图形方式类似，该表格没有边框和内容而是空表格。用TABLE的WIDTH和HEIGHT属性调整表格大小适合缩进的需要。利用表格来定位一般来说比较可靠，这种方法容易使页面的源文件变大。因此也不见得是格式控制的首选。 最后告诉你一个最原始的办法：在一些文字编辑软件中（比如记事本）复制空格，然后在Dreamweaver中进行粘贴。 五、CSS方法 把标记加上一些属性就可以实现，

就可以了！本站推荐使用此方法，以后网页教学网也要改版符合WEB标准的网站的。介绍了这么多种，用哪种好呢？各位可以按自己的喜好而定。WindowsXP家用版操作系统也能安装IIS 事前准备 1、Windows XP HomeEdit 中文版CD（拷在硬盘也可以） 2、默认你的XP是安装在C:\WINDOWS下 开始动手 (如果你怕改错，先把C:\WINDOWS\INF\SYSOC.INF做一份备份) 用记事本打开C:\WINDOWS\INF\SYSOC.INF，在[COMPONENTS]下找到一行： iis=iis.dll,OcEntry,iis.inf,hide,7 然后把它改成 iis=iis2.dll,OcEntry,iis2.inf,,7 保存。 怎样编写CSS？ 从上面的例子中，我们可以看到CSS的语句是内嵌在HTML文档内的。所以，编写CSS的方法和编写HTML文档的方法是一样的。 您可以用任何一种文本编辑工具来编写。比如Windows下的记事本和写字板、专门的HTML文本编辑工具（Frontpage、Ultraedit等），都可以用来编辑CSS文档。 那么您可能会问，独立编辑好的CSS文档怎样加入到HTML文档中呢？其实在第一章中的例子里已经介绍了两种方法。 一种是把CSS文档放到文档中： 其中