vba录入窗体制作
@佴光1415：如何在vba建立窗口来实现录入数据 -
咎相18336926864…… 这不用vba代码,公式就可以搞定.在任意单元格输入=＂xxxxxxxxxx＂&text(row(a1)-1,＂0000000＂)&＂1＂&right(10-mod(row(a1)-1,10))公式向下复制就可以了.
@佴光1415：EXCEL如何用VBA制作窗体,谢谢指教!!! -
咎相18336926864…… 右键-菜单栏空白处-勾选visual basic-点击控件工具箱-选中命令按钮-放入你要的制定位置.
@佴光1415：vba怎样做用户窗体才能在excel中调用出来或者激活 -
咎相18336926864…… 1、如果你想打开excel就可以弹出,可以选择VBA-thisworkbook下输入: Private Sub Workbook_Open() userform1.show End Sub 如果你想在显示窗体的时候还能操作单元格,可以设置userform1的showmodal属性为false 2、如果只是单纯的显示,可以在表格中插入按钮,链接一个宏 sub fff() userform1.show end sub
@佴光1415：EXCEL VBA用户窗体设计 -
咎相18336926864…… 在窗体上插入命令按钮后,右键命令按钮--属性,在picture属性处选择图片. 至于你说的覆盖按钮,我没明白什么意思. 输入字体:找到caption属性,输入文字即可. 如果要改文字大小,字体,可以到font属性去改 如果不显示文字的,将BackStyle属性=1即可
@佴光1415：用VBA 代码生成窗体 窗体上建框架,框架上建标签 -
咎相18336926864…… 你在VBA中随便增加一个窗体,默认的就行,这个是必须的,做为程序生成窗体的类 名称叫 UserForm2 然后用代码生成窗体 这段代码是放到其他窗体或模块中的,不能放到那个模板窗体中 Private Sub CommandButton1_Click() Dim F As New ...
@佴光1415：Access中用vba实现窗体输入值记录到表中. -
咎相18336926864…… select * from 库存 where 产品ID='＂ & me.产品ID & ＂'＂ if Not rs.BOF and Not rs.EOF then CurrentDB.execute ＂ update 库存 set 库存量=rs(＂库存量＂)+me.入库数量 where 产品ID='＂ & me.产品ID & ＂'＂ end if
@佴光1415：怎样在EXCEL中创建一个录入窗口 -
咎相18336926864…… 1、首先在Excel页面点击“文件”—“选项”—“高级”,然后在方向里可以设置相应的方向. 2、然后再选定录入数据的单元格区域,然后按回车到行末单元格会自动换行. 3、然后选定要录入的单元格,然后按住Ctrl键再点一下,之后录入数据无论怎么按回车它都只会选定当前单元格. 4、然后再使用快捷键Ctrl+Shift+',需要录入跟上一次同样的数据. 5、然后按Ctrl键选定多个单元格之后录入数据再按Ctrl+Enter即可在这些单元格里录入同样内容. 6、在单元格输入内容时,按Alt+Enter组合键即可让单元格内容换行. 7、在需要对工作表进行同样操作的时候,可以使用F4快捷键.
@佴光1415：老师,你好 我想在vba建个窗体来编辑或增加excel指定工作表指定单元格区域的内容,请问怎么做? 谢谢 -
咎相18336926864…… 直接用EXCEL编辑不行吗,何必多此一举?最简单输入窗口就是INPUTBOX,如果你要编长编大论,EXCEL可不像VB,没有多行的文本编辑控件,还需要你引入其他的,如:richtextbox控件等
@佴光1415：用vba设置登陆窗体的方法 -
咎相18336926864…… VBA Excel登陆窗体1、 打开EXECL应用程序,点击“工具”—“宏”—“录制宏”.这时会出现一个“录制新宏”的对话框.2、 点选“录制新宏”对话框中“保存在”下拉列表中的“个人宏工作薄”,点击“确定”按钮.这时会在EXECL表格中出现一个叫“停止”小窗体.3、 在表格中任意点击一个单元格,然后按“停止”工具栏的“停止”按钮.(以上三步是为了生成一个随EXECL应用程序一起运行的
@佴光1415：有关Excel VBA用户窗体的例子
咎相18336926864…… http://user.qzone.qq.com/272981307/blog/1256993716 ALT+F11进入VBE界面,在 Workshee对象的SelectionChange事件输入代码: Private Sub Worksheet_SelectionChange(ByVal Target As Range) DTPicker1.Top = ActiveCell.Top DTPicker1...
咎相18336926864…… 这不用vba代码,公式就可以搞定.在任意单元格输入=＂xxxxxxxxxx＂&text(row(a1)-1,＂0000000＂)&＂1＂&right(10-mod(row(a1)-1,10))公式向下复制就可以了.
@佴光1415：EXCEL如何用VBA制作窗体,谢谢指教!!! -
咎相18336926864…… 右键-菜单栏空白处-勾选visual basic-点击控件工具箱-选中命令按钮-放入你要的制定位置.
@佴光1415：vba怎样做用户窗体才能在excel中调用出来或者激活 -
咎相18336926864…… 1、如果你想打开excel就可以弹出,可以选择VBA-thisworkbook下输入: Private Sub Workbook_Open() userform1.show End Sub 如果你想在显示窗体的时候还能操作单元格,可以设置userform1的showmodal属性为false 2、如果只是单纯的显示,可以在表格中插入按钮,链接一个宏 sub fff() userform1.show end sub
@佴光1415：EXCEL VBA用户窗体设计 -
咎相18336926864…… 在窗体上插入命令按钮后,右键命令按钮--属性,在picture属性处选择图片. 至于你说的覆盖按钮,我没明白什么意思. 输入字体:找到caption属性,输入文字即可. 如果要改文字大小,字体,可以到font属性去改 如果不显示文字的,将BackStyle属性=1即可
@佴光1415：用VBA 代码生成窗体 窗体上建框架,框架上建标签 -
咎相18336926864…… 你在VBA中随便增加一个窗体,默认的就行,这个是必须的,做为程序生成窗体的类 名称叫 UserForm2 然后用代码生成窗体 这段代码是放到其他窗体或模块中的,不能放到那个模板窗体中 Private Sub CommandButton1_Click() Dim F As New ...
@佴光1415：Access中用vba实现窗体输入值记录到表中. -
咎相18336926864…… select * from 库存 where 产品ID='＂ & me.产品ID & ＂'＂ if Not rs.BOF and Not rs.EOF then CurrentDB.execute ＂ update 库存 set 库存量=rs(＂库存量＂)+me.入库数量 where 产品ID='＂ & me.产品ID & ＂'＂ end if
@佴光1415：怎样在EXCEL中创建一个录入窗口 -
咎相18336926864…… 1、首先在Excel页面点击“文件”—“选项”—“高级”,然后在方向里可以设置相应的方向. 2、然后再选定录入数据的单元格区域,然后按回车到行末单元格会自动换行. 3、然后选定要录入的单元格,然后按住Ctrl键再点一下,之后录入数据无论怎么按回车它都只会选定当前单元格. 4、然后再使用快捷键Ctrl+Shift+',需要录入跟上一次同样的数据. 5、然后按Ctrl键选定多个单元格之后录入数据再按Ctrl+Enter即可在这些单元格里录入同样内容. 6、在单元格输入内容时,按Alt+Enter组合键即可让单元格内容换行. 7、在需要对工作表进行同样操作的时候,可以使用F4快捷键.
@佴光1415：老师,你好 我想在vba建个窗体来编辑或增加excel指定工作表指定单元格区域的内容,请问怎么做? 谢谢 -
咎相18336926864…… 直接用EXCEL编辑不行吗,何必多此一举?最简单输入窗口就是INPUTBOX,如果你要编长编大论,EXCEL可不像VB,没有多行的文本编辑控件,还需要你引入其他的,如:richtextbox控件等
@佴光1415：用vba设置登陆窗体的方法 -
咎相18336926864…… VBA Excel登陆窗体1、 打开EXECL应用程序,点击“工具”—“宏”—“录制宏”.这时会出现一个“录制新宏”的对话框.2、 点选“录制新宏”对话框中“保存在”下拉列表中的“个人宏工作薄”,点击“确定”按钮.这时会在EXECL表格中出现一个叫“停止”小窗体.3、 在表格中任意点击一个单元格,然后按“停止”工具栏的“停止”按钮.(以上三步是为了生成一个随EXECL应用程序一起运行的
@佴光1415：有关Excel VBA用户窗体的例子
咎相18336926864…… http://user.qzone.qq.com/272981307/blog/1256993716 ALT+F11进入VBE界面,在 Workshee对象的SelectionChange事件输入代码: Private Sub Worksheet_SelectionChange(ByVal Target As Range) DTPicker1.Top = ActiveCell.Top DTPicker1...
