CDA数据分析学习4月15日总结1

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

工资条下方留出一行空格 VBA代码如下：
Sub 工资条示例()
'
' 工资条示例 宏
'

Dim I As Integer    '定义I为整数
For I = 1 To 24     'for 循环语句，I等于1到24的整数
    Range(Selection, Selection.End(xlToRight)).Select   'Range函数选择区域，进行选择
    Selection.Copy      '选择，复制
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select    '选择第三行
    Selection.Insert Shift:=xlDown      '向下插入粘贴的行
    ActiveCell.Rows("1:1").EntireRow.Select
    Application.CutCopyMode = False     '剪切板功能关闭
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove     '向下插入粘贴的行，复制远点为工作表格式从左或上
    ActiveCell.Offset(1, 0).Range("A1").Select      '激活单元格为A1
Next
End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：CDA数据分析 数据分析 分析学 CDA Application 剪切板 False

建立用户窗体    在VBA下，使用用户窗体在Excel建立一个窗体，并在工作表中添加按钮控件使之点击弹出窗体。
示例：


步骤如下：
1、开发工具-VB-插入-用户窗体
2、点击用户窗体右键-查看代码
3、编辑区输入：
Private Sub CommandButton1_Click()
    MsgBox "你的年龄是：" & TextBox1
End Sub

Public Sub showuserform()
    第一次建立窗体.Show
End Sub


4、点击“用户窗体”F4弹出属性，在caption内修改窗体标题为“diyi第一次建立窗体”
5、在工作表中建立按钮（优先使用activeX），查看代码，输入重新命名的窗体标题“第一次建立窗体.Show”，使按钮控件与“第一次建立窗体”窗体关联起来，代码如下：
Private Sub CommandButton1_Click()
    第一次建立窗体.Show
End Sub



Private Sub CommandButton1_Click()
    第一次建立窗体.Show
End Sub


要点：
控件按钮的声明函数一定是click，关联函数内容一定要与窗体标题一致：第一次建立窗体.Show