明天就是表白节了，祝愿大家节日快乐，把心里话说出来，牵手成功心中的他/她，祝福！

今天我们继续excel vba干货分享，绝对的干，助你提高工作效力，自己轻松，老板夸赞！

公式与函数

Application.WorksheetFunction.IsNumber(“A1”) ''使用工作表函数检查A1单元格中的数据是否为数字

Range(“A:A”).Find(Application.WorksheetFunction.Max(Range(“A:A”))).Activate ''激活单元格区域A列中最大值的单元格

Cells(8,8).FormulaArray=“=SUM(R2C[-1]:R[-1]C[-1]*R2C:R[-1]C)” ''在单元格中输入数组公式。注意必须使用R1C1样式的表达式图表

ActiveSheet.ChartObjects.Count ''获取当前工作表中图表的个数

ActiveSheet.ChartObjects(“Chart1”).Select ''选中当前工作表中图表Chart1

(ActiveSheet.ChartObjects(“Chart1”).Activate

ActiveChart.ChartArea.Select ''选中当前图表区域

WorkSheets(“Sheet1”).ChartObjects(“Chart2”).Chart. _

ChartArea.Interior.ColorIndex=2 ''更改工作表中图表的图表区的颜色

Sheets(“Chart2”).ChartArea.Interior.ColorIndex=2 ''更改图表工作表中图表区的颜色

Charts.Add ''添加新的图表工作表

ActiveChart.SetSourceData Source:=Sheets(“Sheet1”).Range(“A1:D5”), PlotBy:=xlColumns ''指定图表数据源并按列排列

ActiveChart.Location Where:=xlLocationAsNewSheet ''新图表作为新图表工作表

ActiveChart.PlotArea.Interior.ColorIndex=xlNone ''将绘图区颜色变为白色

WorkSheets(“Sheet1”).ChartObjects(1).Chart. Export FileName:=“C：MyChart.gif”,FilterName:=“GIF” ''将图表1导出到C盘上并命名为MyChart.gif

窗体

MsgBox “Hello!” ''消息框中显示消息Hello

Ans=MsgBox(“Continue?”,vbYesNo) ''在消息框中点击“是”按钮，则Ans值为vbYes；点击“否”按钮，则Ans值为vbNo。

If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub ''返回值不为“是”，则退出

C+vbQuestion+vbDefaultButton2 ''使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮

MsgBox “This is the first line.” & vbNewLine & “Second line.” ''在消息框中强制换行，可用vbCrLf代替vbNewLine。

MsgBox "the average is :"&Format(Application.WorksheetFunction.Average(Selection),"#,##0.00"),vbInformation, "selection count average" & Chr(13) ''应用工作表函数返回所选区域的平均值并按指定格式显示

Userform1.Show ''显示用户窗体

Load Userform1 ''加载一个用户窗体,但该窗体处于隐藏状态

Userform1.Hide ''隐藏用户窗体

Unload Userform1 或 Unload Me ''卸载用户窗体

(图像控件).Picture=LoadPicture(“图像路径”) ''在用户窗体中显示图形

UserForm1.Show 0 或 UserForm1.Show vbModeless ''将窗体设置为无模式状态

Me.Height=Int(0.88*ActiveWindow.Height) ''窗体高度为当前活动窗口高度的0.88

Me.Width=Int(0.88*ActiveWindow.Width) ''窗体宽度为当前活动窗口高度的0.88

下期精彩继续

好学、善良、追梦人

欢迎关注咕吧课堂