前言:
现在我们对“vba强制转换为半角输入状态excel”大约比较关心,我们都想要分析一些“vba强制转换为半角输入状态excel”的相关资讯。那么小编在网上网罗了一些有关“vba强制转换为半角输入状态excel””的相关知识,希望兄弟们能喜欢,小伙伴们快快来了解一下吧!去除粗枝繁叶,留一根主干,作攀天之梯,目标是那金碧辉煌的VBA殿堂。
一路上,两旁都是漂亮的姑娘,不要三心二意,请跟我走。
闲话少说,言归正传。
打开Excel,新建一工作簿。
如果你的工具栏中找不到“控件工具箱”,请打开它。控件工具箱可悬浮在工作表中,也可停靠在窗口的四周。
1点击命令按钮,在工作表中拖动鼠标至适合大小。
2按钮出来了。通过右键菜单,可以编辑它的文字。
4设置属性虽然有趣,但总不过瘾,来点刺激的。双击按钮,眼前是另一片天地,它叫做VB编辑器(或称VBE),VBA的一切神奇将从这里诞生。
5依样画葫芦。在光标处输入下面一行代码:
QUOTE:
MsgBox "哈哈,我会 VBA 啦……"
msgbox 不拘大小写,后面有一个空格,引号是半角引号。
输入完毕后点击工具按钮返回Excel窗口。
6点击控件工具箱中的“退出设计模式”按钮。“芝麻开门”按钮周围的小圈圈没了,转换成运行模式。
7点击按钮“Excel 教案”,这就是代码运行的效果图,一个系统对话框。
8现在,由工作表界面切换到VBE界面,下列方式可任选一种:
F按Alt+TAB选择VBE图标,松开复合键。
工作表签右键菜单-查看代码。
F菜单:工具-宏-VB编辑器。
FAlt+F11。
F双击控件。
9将代码修改为:
QUOTE:
Private Sub CommandButton1_Click()
ctxt = "哈哈,我会 VBA 啦……"
MsgBox ctxt, 64, "宣告"
End Sub
实际修改的是中间的黑色字体部分。
代码中,蓝色处是一个空格,粉红色处是一个逗号。
命令后面、命令与命令之间,间隔一个以上的空格。
参数与参数之间,用逗号分开。
运行代码的办法,除了在工作表上点击按钮,还可以在VBE窗口中直接运行,把光标定位到代码首尾之间(从“Private Sub CommandButton1_Click()”到“End Sub”),如下图所示执行菜单命令或按F8,逐行执行代码。
如果执行“运行-运行子过程”命令(按F5),将连续执行过程首尾之间的全部代码。
10代码的解释:
ctxt叫做自定义变量,就像我们代数中常用的x、y、z一样。
ctxt = "……" 叫做赋值,跟代数中的赋值是一样的。
11MsgBox是什么东西?我们总是想知道。
请选择MsgBox(实际上,只需把光标定位到命令中的任意位置均可),按F1键,系统将弹出帮助窗口并显示该命令的帮助。
12在B2:D4单元格输入一些数据备用。为工作表添加第二个按钮。
这个按钮的功能是:用鼠标点击这些单元格,然后点击按钮,像上例一样弹出一个对话框,显示的内容为这个单元格的名称和内容。
13双击按钮。在光标闪烁处,输入代码:
msgbox "你点击的单元格是:" &
(蓝色位置表示空格),接下来要输入的代码是“ActiveCell.Address”,输入这些代码可以使用键盘输入,也可以从属性列表中选择。按Ctrl+J,在代码窗口中弹出一个下拉列表,就是属性/方法列表,将光标移动到ActiveCell,然后点击键盘上的小数点“.”,结果ActiveCell连同小数点被输入到代码窗口中。
口中继续显示属性列表中,选择属性“Address”,按空格键输入该属性。
接着,输入“& Chr(13) _”,回车换行,继续输入:
& "该单元格的值等于:" & ActiveCell.Value, 64, "神算子"
完整的代码是:
QUOTE:
Private Sub CommandButton2_Click()
MsgBox "你点击的单元格是:" & ActiveCell.Address & Chr(13) _
& "该单元格的值等于:" & ActiveCell.Value, 64, "神算子"
End Sub
辛苦了。返回Excel,退出设计模式,你可以自己试试看。
14.如何读写其它工作表的单元格呢?
把工作表sheet2重命名为VBA2,添加第四个按钮“暗渡陈仓”,事件代码为:
QUOTE:
Sheets("VBA2").Range("D5").Value = "明修栈道,暗渡陈仓。"
以上就是今天要和大家分享的技巧,希望对大家有所帮助,祝各位一天好心情!
唯有不断学习,才能不被淘汰!
Excel中每一个方法都有特定的用途,不是他们没有用处,只是你不了解或者暂时用不着,建议你收藏起来,万一哪天用着呢?
标签: #vba强制转换为半角输入状态excel