excelvba选择单元格,电子表格excelvba窗体

1. excelvba窗体

在vba编辑器中添加一窗体（UserForm1），在需要悬浮的工作表代码窗口中添加代码如下：

Private Sub Worksheet_Activate() UserForm1.Show 0 End Sub Private Sub Worksheet_Deactivate() Unload UserForm1 End Sub

2. excelvba窗体控件属性

TextBox控件属性有以下五个，分别是：

textBox.text得到一个String类型的对象。

textBox.AppendText("XX")追加文本。

textBox.AcceptsReturn=false/true;是用来只是在textBox控件中按Enter时，textBox控件所产生的反应。 当AcceptsReturn属性为true时在。

textBox.AcceptsTab指示在textBox控件中按Tab键时当为true时可加入tab键。

3. Excelvba窗体美化

方法一. 自己写皮肤插件，通过API修改窗体handle句柄方法二. 自己画工具栏和窗体背景全部用pictrueBox来装载，千万不要用窗体直接去加载背景，不然他会很卡很闪。窗体可以修改成半透明，网上实例大把大把的你去搜索一下。（特别注意：窗体拖动也是有技巧的，WINDOWS窗口是有个拖拽的API函数的，并不是你想象的拖窗体图片窗体跟着动，而是拖动的时候调用API关闭背景重绘，拖放完成后再渲染看到背景显示）

4. excelvba窗体文本框点击变色代码

预警功能通过高亮单元格来实现，单元格自动变色的问题在EXCEL中可用两种方法实现：

方法一：

条件格式，操作如下(以到期前五天举例)：

开始-->条件格式-->新建规则-->使用公式确定-->输入公式=(A1>TODAY()-5)*(A1<TODAY())-->设置单元格填充色-->确定。

公式中的星号可用and函数替代。

方法二：

VBA代码。

alt+f11打开VBA, 键入如下代码到需要设置颜色的sheet下，

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim cel As Range For Each cel In Range("a1:a" & Range("a65536").End(xlUp).Row) If cel > Date - 5 And cel < Date Then cel.Interior.ColorIndex = 20 NextEnd Sub

5. excelvba窗体开发实例

这个只能拿来玩玩，因为这个还有很明显的bug，可以通过打开开发工具编辑宏。如果你想改得切底一点，可以把开发工具及其快捷键给隐藏了。

6. Excelvba窗体关闭与ESC

1、在运行对话框中输入cmd，进入命令行模式。

2、在运行对话框中输入control，进入控制面板。

3、在运行对话框中输入appwiz.cpl,进入程序与功能。

4、在运行对话框中输入msconfig，进入系统配置。

5、在运行对话框中输入chrome，打开谷歌浏览器，前提是你安装了chrome。同理这个可以用来快捷的打开一些应用程序。如果是经常使用的应用程序可以将它固定到任务栏，然后通过快捷键，Win + 1、Win + 2、Win + 3来进行快捷访问。

6、在运行对话框中输入shutdown -s -t 0；立刻关机，后面的0代表0秒后关机，可以修改为600，就是十分钟后关机。

7、在运行对话框中输入shutdown -a，取消定时关机。

7. excelvba窗体录入数据

代码如下。

Sub addCheckbox() ActiveSheet.CheckBoxes.Add(495.75, 182.25, 57, 21).Select ActiveSheet.CheckBoxes.Add(493.5, 223.5, 63.75, 27).Select End Sub这个代码是添加两个复选框的代码，其中的位置坐标自己改

8. excelvba窗体位置固定

把 Val(Me.TextBox1)改成：TextBox1.Text不是很好吗？ Val函数是将文本框内容的前面数字取出，而你应该不是这个意思

9. Excelvba窗体导入图标

系列名称如果是数据就没办法显示出来,要在源数据(图表空白击右键)--系列--如果内容要显示在X轴,在"分类(X)轴标志"的选项框里面选中系列名称-确定就可以了.

10. Excelvba窗体指定位置

在EXCEL中建立一个按钮,批定宏.宏内容为:show.窗体名