rprt.net
当前位置:首页 >> ExCElvBA数据录入 >>

ExCElvBA数据录入

这不用vba代码,公式就可以搞定.在任意单元格输入="xxxxxxxxxx"&text(row(a1)-1,"0000000")&"1"&right(10-mod(row(a1)-1,10)) 公式向下复制就可以了.

Sub 计算() Dim a&, b&, c&, R& a = InputBox("请输入数字1", "乘数") b = InputBox("请输入数字2", "乘数") c = a * b R = Range("A65536").End(xlUp).Row + 1 Cells(R, 1) = a Cells(R, 2) = b Cells(R, 3) =

07版的只保存.xlm形式即可.如果保存为.xls格式,vba无法使用.

有两种方法可以建立窗口来实现录入数据. 一种是选择你要录入数据的区域,再通过菜单“工具”->“记录单”,EXCEL就会弹出一个数据录入窗体. 第二种方法是按“ALT+F11”进入VBA编辑器,在这里,你可以插入一个用户窗体,这个可能对没有接触过编程的人来说有些复杂,但功能确实比前一种方法要强劲得多了. 答题不易,互相理解,您的采纳是我前进的动力.

你把“."屏蔽了,将小数点加入,参照以下代码.不知道你字母是否要输入,如果需要你也要添加Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If (KeyAscii Asc("9")) and keyasciiasc(".") Then KeyAscii = 0 End IfEnd Sub

要用application对象创建对EXCEL的引用,然后再操作EXCEL中的东西.

在表2的A2中输入或复制粘贴下列公式=INDEX(表1!A:A,MATCH($C2,表1!$C:$C,))下拉填充,右拉填充到B列在表2的D2中输入或复制粘贴下列公式=VLOOKUP($C2,表1!C:D,2,)下拉填充在表2的I2中输入或复制粘贴下列公式=VLOOKUP($C2,表1!C:E,3,)下拉填充在表2的J2中输入或复制粘贴下列公式=VLOOKUP($C2,表1!C:F,4,)下拉填充

期末统考结束后,教育局要求全市学生的成绩都汇总在如图1的同一个excel工作表中,并要求求出各学校、各专业、各学科的平均分. 全市三个学校、每个学校都有六个专业、每个专业都有五门课、各专业人数不等,总计有1000余人,工作量

用vba不过要懂一点简单的编程知识哦!可以在网上找一下关于excel vba编程资料.

复制过去的数据,不带公式,是纯数字.使用几个数组VBA就可以了 正在编写哈

网站首页 | 网站地图
All rights reserved Powered by www.rprt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com