a = Val(Sheet1,Cells(1,3).Value)这句哪错了啊

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/10/02 10:35:19

a = Val(Sheet1,Cells(1,3).Value)这句哪错了啊
Sub 产品入库()
Dim a As Long
Dim b As Integer
Sheets("商品入库以及查询").Select
If Trim(Cells(7,1).Value) = "" Then
MsgBox "日期请勿留空",vbOKOnly
Exit Sub
End If
a = Val(Sheet1,Cells(1,3).Value)
For b = 1 To 9
Cells(a + 11,b).Value = Cells(7,b).Value
Next b
End Sub

添加一个按钮,代码如下：
Private Sub CommandButton1_Click()
Cells.Select
Selection.EntireRow.Hidden = False
m = Val(Sheet1.Cells(1, 43).Value)
If Sheet1.Cells(1, m).Value = 0 Then
For i = 2 To Val(Sheet1.Cells(1, 44).Value)
If Sheet1.Cells(i, m).Value = "" And Sheet1.Cells(i - 1, m).Value = "" Then
Rows(i).EntireRow.Hidden = True
ElseIf Sheet1.Cells(i, m).Value = "" And Sheet1.Cells(i - 1, m).Value <> Sheet1.Cells(1, m).Value Then
Rows(i).EntireRow.Hidden = True
ElseIf Sheet1.Cells(i - 1, m).Value = "" And Sheet1.Cells(i, m).Value <> Sheet1.Cells(1, m).Value Then
End If
Next i
End If
For i = 2 To Val(Sheet1.Cells(1, 44).Value)
If Sheet1.Cells(1, m).Value <> Sheet1.Cells(i, m).Value And Sheet1.Cells(1, m).Value <> Sheet1.Cells(i - 1, m).Value Then
Rows(i).EntireRow.Hidden = True
End If
Next i
End Sub
OK!搞定!

excel vba 咱刚入门 sheet1.cells(a,2)=sheet2.cells(1,b) b是1到8 a是1 谁知道 Cells(c,1).value = i这个命令是中文描述是什么,啥意思? this.niPH.Value = dataGridView1.SelectedRows[0].Cells["温度"]. Goodscode = this.dataGridView1.Rows[i].Cells[0].Value.ToStri =lookup(A1,sheet1!A:A,sheet1!B:B)中的A1是什么意思,sheet1!A:sheet1!B =OFFSET(Sheet1!A$1,MAX(0,ROW()*10-11),) =OFFSET(Sheet1!A$1,R dataGridView1.Rows[i].Cells[2].Value == "完成" 请问判断某行第3列的字符为“完 =OFFSET(Sheet1!$A$1,MATCH(C2763,Sheet1!$E:$E,)-1,MATCH(D2763 完成指定题目 (5 > 3) 1 :2 has the value 1.(3 > 5) 1 :2 has the val =OFFSET(Sheet1!$A$1,SMALL(IF(Sheet1!$A$2:$A$11=$A$1,ROW($A$1 a=(value>>n)|(value =INDEX(Sheet1!A:A,SMALL(IF(Sheet1!$A$1:$A$100=1,ROW($1:$100)