PHP has encountered an Access Violation at 01F1AB4A查看: 2470|回复: 4
用excel vba编写一个简单的银行丁种帐录入程序，附代码［问题解决，谢谢］
阅读权限20
在线时间 小时
Private Sub CommandButton1_Click()
Dim r As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
r = TextBox1.Text
Cells(r, 1).Value = TextBox2.Text
Cells(r, 4).Value = TextBox3.Text
Cells(r, 5).Value = TextBox4.Text
Cells(r, 54).Value = TextBox5.Text
Cells(r, 55).Value = TextBox6.Text
Cells(r, 3).Value = TextBox7.Text
j = Application.WorksheetFunction.Len(cell(r, 54)) '取借方金额的字符长度
'k = Len(Application.WorksheetFunction.cell(r, 55)) '取贷方金额的字符长度
'l = Len(Application.WorksheetFunction.cell(r, 56)) '取余额的字符长度
i = 18 '借方填数从第18列开始
'k = 34 '贷方填数从34列开始
'g = 50 '余额填数从50列开始
& && && && && &
& && &&&Do While j & 0 '把对应行的第35列数字单个拆分后填写在小方格里
& && & cell(r, i).Value = Right(Application.WorksheetFunction.cell(r, 54), j, 1)
& && &&&j = j - 1
& && &&&i = i - 1
& && && &Loop
以上代码编译时提示子过程或函数未定义，请高手帮忙看看错在哪里。
[ 本帖最后由 adane 于
21:58 编辑 ]
23:53 上传
点击文件名下载附件
12.71 KB, 下载次数: 82
阅读权限95
在线时间 小时
1、Application.WorksheetFunction没用
2、cell 应为cells
3、right 应为mid
阅读权限95
在线时间 小时
回复 1楼 adane 的帖子
改如下试试
Private Sub CommandButton1_Click()
Dim r, gl, h, i, j, k, l As Integer
r = TextBox1.Text
Cells(r, 1).Value = TextBox2.Text
Cells(r, 4).Value = TextBox3.Text
Cells(r, 5).Value = TextBox4.Text
Cells(r, 54).Value = TextBox5.Text
Cells(r, 55).Value = TextBox6.Text
Cells(r, 3).Value = TextBox7.Text
j = Len(Cells(r, 54)) '取借方金额的字符长度
'k = Len(Application.WorksheetFunction.cell(r, 55)) '取贷方金额的字符长度
'l = Len(Application.WorksheetFunction.cell(r, 56)) '取余额的字符长度
i = 18 '借方填数从第18列开始
'k = 34 '贷方填数从34列开始
'g = 50 '余额填数从50列开始
& && && && && &
& && &&&Do While j & 0 '把对应行的第35列数字单个拆分后填写在小方格里
& && & Cells(r, i).Value = Mid(Cells(r, 54), j, 1)
& && &&&j = j - 1
& && &&&i = i - 1
& && && &Loop
Private Sub CommandButton2_Click()
& & Me.Hide
阅读权限20
在线时间 小时
谢谢楼上的两位，问题解决了。::D
阅读权限10
在线时间 小时
我来看看，谢谢啦
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师求解2道八年级的趣味数学题，请帮忙解答，顺便附点具体过程，谢谢了。_突袭网-提供留学,移民,理财,培训,美容,整形,高考,外汇,印刷,健康,建材等信息
求解2道八年级的趣味数学题，请帮忙解答，顺便附点具体过程，谢谢了。
来源:互联网 时间: 11:08:59
&&为了解决用户可能碰到关于"求解2道八年级的趣味数学题，请帮忙解答，顺便附点具体过程，谢谢了。"相关的问题，突袭网经过收集整理为用户提供相关的解决办法，请注意，解决办法仅供参考，不代表本网同意其意见,如有任何问题请与本网联系。"求解2道八年级的趣味数学题，请帮忙解答，顺便附点具体过程，谢谢了。"相关的详细问题如下:求解2道八年级的趣味数学题，请帮忙解答，顺便附点具体过程，谢谢了。===突袭网收集的解决方案如下===解决方案1：5由直角三角形的性质知斜边长为6设一条直角边为x ，则另一条直角边为（4根号3-x）由勾股定理得，x2+（4根号3-x)2=36x=2根号3+根号6或2根号3-根号6所以另一条直角边为2根号3-根号6或2根号3+根号6所以其面积为（2根号3+根号6）*（2根号3-根号6）/2=3 5由直角三角形的性质知斜边长为6 设一条直角边为x ,则另一条直角边为(4根号3-x) 由勾股定理得,x2+(4根号3-x)2=36 x=2根号3+根号6或2根号3-根号6 所以另一条直角边...8、9全都用上了,不重不漏。这意味着全体数字都向我俯首称臣,预祝我将来在数学领域... 了。整个会场上的人,都在议论他的年龄问题。 其实这个问题不难解答,但是需要一点...在飞机从A城飞往B城的过程中,大风将加快飞机的速度,但在返回的过程中大风将以相等... 1、2、3、4、5、6、7、8、9全都用上了,维纳的年龄是多少? 解答:咋一看,这道题很难...45题: 用55次 第一次用10次去实验,至少打开一把锁. 第二次用9次去实验,又打开一把锁. 第三次用8次去实验,依此类推...... 这样最多用55次去实验. 即10+9+8+7+6+5+4+3+2... (1)设数=a 则[10a+(a+1)]-a(a+1)+(a+2)(a+3)=[10(a+2)+a+3] 解得a=4 所以 数=4 学=5 趣=6 味=7 (2)很容易看出来 左边没进位 因为(我+喜+看)想进位最多是12 而此时 学=2 不... 2:甲42岁,乙56岁 ; 3:28 ; 7:4只 ; 8:可以,翻3次就行 12:9*1+90*2+33*3=288 ; 19: 90分钟 ; 20:星期天 27:26个球 ; 35: 1996年(被4整除的) ; 38:可以 切成#字型共九块!由于中... 220-115=105【半桶油重】 105*2=210【一桶油重】 220-210=10【桶重】为您准备的相关内容:
你可能还关注
淘宝折扣专区请教LM的QS60级马任务的,详细过程,谢谢
材料收集 （1）、阿尔萨斯之泪 10 奥金锭 6 符文布 40（2组） 斯坦索姆圣水 5 （以上是做马饰需要用的物品，而且不是白做还要给NPC 150G ） （2）、可口的魔法点心 20 （银色黎明声望达到友善就可以买到） （以上是用来做马饲料“魔法粮草”用的物品，也不白做要50G的手续费） （3）、艾泽拉斯钻石 1 原始黑钻石 1 （这是用来换取召唤死亡骑士的水晶球） 任务流程 第一步，60级了，那你可以去接史诗马任务了，首先去铁炉堡学技能的那个NPC他会让你去找爆风城大教堂里学技能的NPC； 第二步，大教堂的NPC会给你两个任务，一个是去见爆风矮人区的工匠 需要物品 阿尔萨斯之泪*10 奥金锭*6 符文布*40（2组）斯坦索姆圣水*5 150G做马凯 二是去铁炉堡的秘法区的楼上找高阶牧师用150G向他买“驱魔香炉”，买好香炉以后再回爆风的大教堂吧。 第三步，回到教堂后他会收了马饰，而让你带着香炉去东瘟的恐怖谷，在那里你会看到地上冒绿光的地方，在那里使用“香炉”就会出现幽灵，打完25个后回到爆风教堂。 第四步，任务到这里后他会给你一个马铠让你去南海镇找NPC买特殊的马饲料，需要物品 可口的魔法点心*20 （银色黎明声望达到友善就可以买到） 外加50G。。拿到特殊马饲料后去厄运西杀纽木，杀死纽木后就可以见到马魂了，完成任务后得到“被祝福的奥金马铠”。 第五步，带上材料3和被祝福的奥金马铠回到爆风大教堂，进入任务的最后阶段，他会给你一个背包，包里有被祝福的马铠和预言水晶球，去通灵杀了死亡骑士，会出现战马之魂，从死亡骑士身上拿到“赎罪的战马之魂”点右键使用，然后找战马之魂对话，完成任务。 最后一步，召唤死亡骑士，死骑出先前会出现4批小怪每批小怪后会有个小boss,打小怪，60级的队伍很难打，需要骑士用审判来炸，从第一批到最后一批的圣印审判顺序为“智慧→公正→正义→光明”，每次审判会炸掉小怪20%左右的血，并令其昏迷。
对您的评价：
同类未解决问题
同类已解决问题}