怎样用excel写一个程序
‘壹’ excel使用VOOKUP函数,制作一个报价单简易小程序
老板让制作一个报价单,当填入需求的时候,总报价就自动的计算出来了
1、物品较少的时候
制作的效果如下,我们只需要输入物品和数量,单价和金额能够自动的进行计算
这样就能实现了在C3先输入一个关键字,然后下拉菜单就是和这个关键字相关的内容了。
‘贰’ 如何利用Excel宏编写一个小程序 求助,谢谢!
要是会VB,编VBA就简单很多。
你的具体问题我没有看,只是想说一些基本的东西。
EXCEL主要调用的是Sheet对象和Cell
(或者说是Range)对象。
例如,Sheet1中的单元格A2可以用Sheet1.cells(2,1)调用,也可以用Sheet1.Range("A2")进行调用。
‘叁’ Excel 怎样做一个小程序
如果运算不是很复杂,用excel自带的公式就可以完成啦。
1.将计算逻辑写清楚
2.发贴
3.等高手指点迷津
4.^_^
‘肆’ 如何在excel里写程序,注意是程序!不是函数
VBA吧,把控件调出来,画一个按钮,双击按钮,就可以编写代码或者在sheet表上点击右键,查看代码。在里面就可以编写代码了。
‘伍’ 我想要用excel编一个程序
第一个单元格:3,第二个单元格3;输入两个之后其余的一拖都是3.
这是比较简单,要是实现复杂的就要自己写。比如A1中输入2,你想在后面公比为2的等比数列,在A2中输入=2*A1
回车后就会得到4,然后从这个单元格开始拖,后边就会自动识别这个规律。这个称之为相对引用。
‘陆’ 在Excel中编写一个尽可能简单的程序,自动生成指定年月的月历
先打开excel工作表,打开之后单击工作表左上角的office图标。
‘柒’ excel程序怎么写
0<X<10 X*1,2%,
10<=X<20 X*1,3%
=IF(AND(A1>0,A1<10),A1*1.2%,IF(and(a1>=10,a1<20),a1*1.3%,
后面的仿照着写,
03版本只能写7个条件,高级版本更多。
‘捌’ 请问怎么用Excel中VBA编写一个程序,根据系统时间问好求代码,谢谢!
用hour取得当前的小时,然后根据这个判断就好了,类似于
Sub sample()
Dim h, s
h = Hour(Now)
If h < 9 Then
s = "早上"
ElseIf h < 12 Then
s = "上午"
ElseIf h < 13 Then
s = "中午"
ElseIf h < 18 Then
s = "下午"
Else
s = "晚上"
End If
MsgBox s & "ºÃ"
End Sub
‘玖’ 怎么把excel工作表做成程序
做成跟程序一样的这个我不会,但是可以让你把写公式的单元格锁住,就不会随意被修改了。
1、全选工作表(CTRL+A),右键-设置单元格格式-保护-取消“锁定”前面的勾子
确定。
2、按F5键-定位条件-公式
确定。
3、右键-设置单元格格式(或菜单栏上的格式-单元格)
保护-勾上“锁定”-确定。
这是把写上公式的单元格锁住,其他的不锁定
4、菜单栏上的“工具”-“保护”-“保护工作表”
密码可以不输入,
“允许此工作表的所有用户进行”这些选项可根据实际需要勾选,默认是勾选
第一、二项
确定
现在,这些写了公式的单元格就不会被随意改动了,双击写公式的单元格看看,是不是出现此提示:
需要修改公式就解除工作表的保护,修改后再保护工作表。
‘拾’ 怎么编个简单小程序,用EXCEL的数据调用数据库把该EXCEL表打包进去。 50 如题,我想用一个E
用不到exe,小题大做了,使用vba代码编个form就好了
将以下代码写入thisworkbook
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Visible = False
Application.WindowState = xlMinimized
UserForm1.Show
Application.ScreenUpdating = True
End Sub
按alt+f11打开vbe,插入用户窗体,在用户窗体界面上,拖入textbox1,和command1,在command1的下方,拖入label1,将command1的captain改成“查询”,双击command1,将以下代码复制进去
Private Sub CommandButton1_Click()
with userform1
wb = .textbox1.text
cz = thisworkbok.sheets("sheet1").usedrange.find(what:= wb)‘这里sheet1是你的sheet _名称
if not cz is nothing then
.label1.captain = '你的问题不全,这里就是你需要显示的内容
end if
end with
end sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Close
End Sub
总结,在打开excel时,将其最小化,并打开vba窗体,以此显示查询内容,且将窗体关闭前先将excel关闭,以该种方式让用户查看不到excel文件内容。
最后,针对你的excel的sheet可以使用密码保护的,就是在该sheet激活前,弹出inputbox验证密码,这也是一种方式呢