就急急急急急急VB

来源：蜘蛛抓取(WebSpider) 时间：2016-01-30 02:04 标签： 就急急急急急急
您的举报已经提交成功，我们将尽快处理，谢谢！
系统设置里有个税务信息在里面改就行，里面的信息除了企业名称以外都能改，企业名称要到税务机关去修改。
另外你说修改不了，是不是用的开票员身份登录的，修改信息要用管...
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'急急急！！！！vb里面有没有结构体都概念啊？？
[问题点数：30分，结帖人yxqcf881106]
急急急！！！！vb里面有没有结构体都概念啊？？
[问题点数：30分，结帖人yxqcf881106]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2011年1月 VB大版内专家分月排行榜第二2010年10月 VB大版内专家分月排行榜第二
2013年1月 VB大版内专家分月排行榜第三2012年12月 VB大版内专家分月排行榜第三2011年6月 VB大版内专家分月排行榜第三2011年2月 VB大版内专家分月排行榜第三2010年12月 VB大版内专家分月排行榜第三2010年11月 VB大版内专家分月排行榜第三2009年7月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2007年9月 VB大版内专家分月排行榜第二
2008年3月 VB大版内专家分月排行榜第三2007年8月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。excel使用VB提示错误1004，麻烦看下程序哪里出错，急急急_百度知道
excel使用VB提示错误1004，麻烦看下程序哪里出错，急急急
&quot, vbOKOnly
If Trim(Cells(7;提供货物入库员工请勿空白.Cells(1;&!&quot.Value) = & Then
MsgBox &;&quot, 5)!&&quot, 3).Value) = &quot.Value = Cells(7;购入单价请勿空白; Then
MsgBox &quot.Value) = &), 4).Value = Cells(7, 2), b), b); Then
MsgBox &quot, vbOKOnly
If Trim(Cells(7.Value) = &quot!&quot, b), vbOKOnly
If Trim(Cells(7.Value) = &.Select
If Trim(Cells(7; Then
MsgBox &quot, 2);数量请勿空白, 6)!&quotSub 货物入库()
Dim a As Long
Dim b As Integer
Sheets(&quot, b)!&quot.Value)
For b = 1 To 6
Cells(a + 11; Then
MsgBox &quot, vbOKOnly
a = Val(Sheet1.Value
Next bEnd Sub变成黄色的区域有Cells(a + 11, vbOKOnly
If Trim(Cells(7;规格请勿空白;, vbOKOnly
If Trim(Cells(7;品名请勿空白;;&入库时间请勿空白!&quot, 1);;& Then
MsgBox &quot.Value) = &商品入库以及查询&quot
还是不对 找个人来帮帮我撒
我有更好的答案
a = Val(Sheet1.Cells(1, 2).Value)
这里出错了,应该是
a = Val(sheets(&Sheet1&).Cells(1, 2).Value)
另外你的程序我觉得有点问题呀.Sheets(&商品入库以及查询&).Select
我给你改改:
Sub 货物入库()
Dim a As Long
Dim b As Integer
With Sheets(&商品入库以及查询&)
If Trim(.Cells(7, 1).Value) = && Then
MsgBox &品名请勿空白!&, vbOKOnly
If Trim(.Cells(7, 2).Value) = && Then
MsgBox &规格请勿空白!&, vbOKOnly
If Trim(.Cells(7, 3).Value) = && Then
MsgBox &数量请勿空白!&, vbOKOnly
If Trim(.Cells(7, 4).Value) = && Then
a = Val(Sheet1.Cells(1, 2).Value)这里出错了,应该是a = Val(sheets(&Sheet1&).Cells(1, 2).Value)
其他类似问题
为您推荐：
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁由大树想到的200字作文急急急急急急急。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
，，，，，，，，，vbhhhhh_百度作业帮
由大树想到的200字作文急急急急急急急。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
，，，，，，，，，vbhhhhh
由大树想到的200字作文急急急急急急急。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
，，，，，，，，，vbhhhhh
生命大树说明文 初一 400字树，一年四季，从出生到死去都为人们默默地无私地奉献着。可人们却没有学会去做一些感谢它们的事，却认为它们的服务是理所应当的。春天，树上开满了花儿，浓郁的花香弥漫着整个世界，我们仿佛沉醉在花的海洋。夏天，那葱郁的绿色好似一阵阵凉风，吹散了我们心头的燥热，还可以让我们在一顶顶的“绿色大伞”下乘凉，看着太阳一寸寸地落下，数着星星一颗颗地闪现……秋...

我要回帖

更多关于 就急急急急急急 的文章

 

随机推荐