Excel宏有什么使用小窍门
首先在Excel中键入ALT+F11打开VBA编辑器;在“插入”菜单中,选择“用户窗体”;在窗口编辑栏里拖住对话框的右下角,把窗体拉大;最后的大小就将是自定义的启动画面的大小了。
接下来,将“工具箱”里那个大大的“A”字图标拖拽到你的窗体上;鼠标点住出现的文本框的一角,将它拉大,将框内文字替换为之后想要显示的标题内容即可。如果此时VBA编辑器里并没有显示控件属性栏,请按F4将其调出,这样就可以通过属性栏中的字体一项更改标题字体。这里默认的字体是宋体,你也可以点击它右边画着“…”的小方框,在弹出的对话框中重新设置。本文例子里采用的字体是Arial Black Regular,72点。接着将属性“TextAlign”一栏调整为“fmTextAlignCenter”,选择属性“ForeColor” “按钮文本” “调色板”,在其中选择你喜欢的标题颜色。
这里需要注意一件事,一个Label文本框内只能有一种字体;所以如果还想在弹出框中建立副标题,就还需要在窗体中再添加一个Label文本框才行。添加完填好文字,设置方法同之前那个Label完全相同。
下面要为弹出的这个对话框添加背景颜色:首先用鼠标在窗体内没有其他控件的地方点一下,在属性栏选择“BackColor” “调色板”,选择你中意的颜色即可。
你时可能也注意到了窗体的左上角显示着UserForm1。这肯定不是我们希望在它弹出时显示的东西。我们需要在属性栏内修改它。首先将最上面“名称”一栏更改为“Intro”,然后选择“Caption”,将后面的“UserForm1”更改为你喜欢的文字即可(本例中使用的是Intro)。
再添加一个Label,这个Label里面我们可以使用与前一个不同的字体。
接下来的界面设计阶段只需要我们摆一摆几个Label的位置即可。然后双击窗体(也就是刚才那个UserForm1),在弹出的代码编辑器里面,选择右上角下拉菜单中的“Initialize”;在代码窗口内“Private Sub UserForm_Initialize()”和“End Sub”中间添加如下代码:
Appliation.Ontime Now + TimeValue(“00:00:04”),“ClearForm”
这个宏可以用来控制标题对话框显示时间。在这个例子里,将其设置为4秒钟。当然你也可以将00:00:04改成任何你想让启动画面停留的时间。
选择VBA插入菜单中的“模块”。并在弹出的代码编辑框内填入下面代码:
Sub ClearForm()
Unload Intro
End Sub
这段代码中的ClearForm函数在对话框显示4秒后卸载掉该窗体。代码中的“Intro”就是刚才编辑的窗体名称(还记得之前咱们已经将窗体名称更改为“Intro”了吗?)。
最后在工程资源管理器那里点开“ThisWorkBook”;如果你的VBA没有显示这个管理器,可以用CTRL+R将它调出;接着在弹出的代码编辑器里面输入:
Private Sub Workbook_Open()
Intro.Show
End Sub
按下ALT+F11返回到原来的Excel工作簿当中;保存文件。如果是07版的Excel,请将文件后缀保存为.xlsm,这样打开该文件时将会自动运行文件中定义的宏。如果你按照前面所述一步步完成,下次你再打开这个文件,便会见到一个只停留4秒的启动框。
单元格的巧妙替换
我们假设遥远的地方有个国家,这个国家的电话号码分机时常在变,而你又是那个维护电话黄页的小职员。如果让你老老实实地一个个去将所有号码改正过来,你肯定会叫苦不迭。好在咱们现在有了Excel,巧妙运用它自带的一些函数,可以方便地帮你解决掉这个问题。
首先我们假设所有开头为0191局的电话都将改为0307局。先设置A2,B2的单元格的显示格式,让其可以显示出数值最前面的0。在A2中输入“0191234567”,在B2中输入“=SUBSTITUTE
2,191,307)”
这样B2格便会显示“0307234567”。这里的SUBSTITUE函数包含三个参数,分别是:需要做替换的字符串,要被替换的部分,和用来替换的部分。
Excel还支持多种搜索替换功能。假如我们需要将TelNum这个栏里面的电话号码的0191部分都替换成0307,我们只需在旁边空列的单元格中键入“=IF(LEFT(telnum,4)=“0191”,SUBSTITUE(telnum“0191”,“0307”),“ ”)”。
点击单元格,向下拖拽这个单元格的右下角将公式向下复制。这样只要旁边的列中包含0191这个字符串,在新的这一列中就会将它改为0307并显示出来,同时将原来那个单元格清空。
如果你的字符串中多次出现某个子字符串,你还可以为SUBSTITUE函数指定替换其中的哪一个子字符串。我们举个例子,假如A2此时显示“中国北京2000”,在B2中键入“=SUBSTITUE(A2,“0”,“8”,3)”。
这样B2中将会显示“中国北京2008”。这个例子同第一个例子大部分均相同,唯一不同在于后面第四个参数“3”。我们这里正是用这个参数来指示要替换第几个重复出现的字符。
在Excel中还提供了一个类似的REPLACE函数。这里举两个例子帮助大家熟悉它。
首先假设我们在A2中键入了一串信用卡号码:5123 4567 8901 2345。我们想在B2中显示这串号码,但为了安全起见需要将最后四位以*替换掉。这时就可以用REPLACE函数就可以派上用场。只需要在B2中键入“=REPLACE(A2,12,4,“****”)”,B2中便会显示“512345678901****”。在此处,函数中的第二个参数给出了字符替换起始位,第三个参数给定替换个数,最后那个参数给出替换的内容。如果你希望遮挡的不是后四位而是前四位,可以在B2中填入“=REPLACE(A2,1,12,“**** **** ****”)”,B2将显示“**** **** **** 2345”。
如果你只想提取字符串中的某几位,还可以利用上下面几个函数。这里举几个例子,帮你熟悉它们。假设A2里面显示的是London W1T7RJ。如果你在B2中键入“=LEFT(A2,6)”,单元格将显示城市名;如果在C2中键入“=RIGHT(A2,7)”,单元格内将会显示后面的邮编。
如果你从网上粘贴下来的字符串内碰巧出现了几个多余的空格。你可以用TRIM函数将这些多出来的空格去掉。假设A2中放的就是这样一个字符串,在B2中键入“TRIM(A2)”便可得到修改好的字符串书写的代价。
新风系统如何安装新风系统安装方法介绍详解我们装修新家的时候,越来越多的人注意的不是家装的效果,而是注意居室的空气质量。而空气净化器并不能解决所有的问题,这时就需要安装一款家装新风系统。那么家装新风系统需要怎么进行安装呢?
德国家用新风系统怎么样德国家用新风系统优点介绍详解如果要说世界上哪个国家的家用电器给人的印象最深,小编相信很多人都会觉得是德国生产的家电产品。确实如此,德国家用新风系统就是一个典型的代表。不论是工艺技术,还是产品的设计研发,德国家
上海兰舍新风系统怎么样上海兰舍新风系统优势介绍详解新风系统的品牌有很多,上海兰舍新风系统是一个十分不错的品牌来的,它引进国外先进的技术,生产出来的新风系统的质量水平都是非常不错的。上海兰舍新风系统很受消费者的喜欢,那么上海兰舍新风
格兰仕空调质量怎么样格兰仕空调质量介绍详细介绍格兰仕空调,是我们现在国内空调市场上非常不错的一款空调品牌,深受众多消费者的喜爱,在我们的家庭选购空调的时候,空调品牌可以说是我们选购空调的很重要的因素,所以今天小编就来为大家介绍
格兰仕空调质量怎么样格兰仕空调质量介绍详解在现如今的社会,空调已经成为每家每户的标准配置,要是谁家没有空调,这几乎是不可能的事情。在夏天,空调为我们制冷,让我们不会因为天气炎热而烦躁在冬天,空调可以为我们制热,让我们不再畏
格兰仕空调质量怎么样格兰仕空调特点介绍详解21世纪,社会经济和科技不断发展,社会工业化进程不断加快,人们的家居产品越来越多。其中,空调渐渐成为居家必备产品。如今,市场上空调品牌越来越多,难免良莠不齐,小编现在给大家介绍一款
格兰仕空调质量好不好格兰仕空调特点介绍详解格兰仕的旗下包含了各种我们常用的家电,格兰仕在微波炉等小型家电方面的表现是非常出色的,其实格兰仕的空调也是很不错的,那么它的特色到底是什么呢?凭借行业少有的全产业链成熟自我配套能力
格兰仕空调怎么样?格兰仕空调质量如何空调的种类有很多,在消费者不了解哪种品牌好的情况下,很难做出选择。下面小编跟大家介绍关于格兰仕空调怎么样的问题。一格兰仕空调怎么样格兰仕空调系列产品均采用的世界顶尖的高新技术包括1
格兰仕空调怎么样?格兰仕空调质量怎么样?格兰仕空调怎么样炎炎夏日,家家户户少不了空调的陪伴,为了对抗夏日的酷暑,几乎每个家庭都装上了空调。不过有不少消费者却在挑选空调的时候遇到了难题。到底哪个品牌的空调比较好呢?格兰仕空
郑州兰舍新风系统特点是什么郑州兰舍新风系统应用介绍详解在现在新风系统应用越来越多的生活中,为了更好的满足大家的需求,市场上新风系统是越来越多了,郑州兰舍新风系统就是请偶们生活中比较常见的一种了,说起郑州兰舍新风系统的话,大家对它的了解
北京新风系统怎么样北京新风系统热门品牌介绍详解新风系统是可以提供给我们非常清新的空气的设备,是现在很多人都非常喜欢的一种产品,它的优势也有很多,可以让我们在不开窗户的情况下就呼吸到新鲜的空气,而且也可以节省一些取暖的费用,下面