求助！要把（信息没有填写完整，不能保存@保存成功）这两个提示模块去除

abc123281

不明白你想要干什么  如果如你说的要求  代码修改为下面的即可

Sub 保存()
m = Sheets("数据库").[c65536].End(xlUp).Row + 1
Range("c3:n33").Copy Sheets("数据库").Range("c" & m)
MsgBox "保存成功！"
End Sub

excelltaaaaa

abc123281 发表于 2019-2-26 12:36
不明白你想要干什么  如果如你说的要求  代码修改为下面的即可

Sub 保存()

谢谢，我是这样想的 A跟B列的数据不需要提交。

excelltaaaaa

abc123281 发表于 2019-2-26 10:07
Sub 保存()
Dim m%, r%
On Error GoTo 100

这个我在保存的时候，因为要提交的单元格里面有公式，现在连公式都复制到数据库里面了，我想要保存到数据库的只是文本。这个怎么处理

abc123281

Range("c3:n33").value.Copy Sheets("数据库").Range("c" & m)

excelltaaaaa

代码录进去  提示运行时错误424 要求对象
怎么弄  非常谢谢你的回复

excelltaaaaa

abc123281 发表于 2019-2-26 16:29
Range("c3:n33").value.Copy Sheets("数据库").Range("c" & m)

代码录进去  提示运行时错误424 要求对象
我发了附件再帮忙看下，万分感谢！

excelltaaaaa

excelltaaaaa 发表于 2019-2-26 17:39
代码录进去  提示运行时错误424 要求对象
我发了附件再帮忙看下，万分感谢！

在不在 高手

excelltaaaaa

abc123281 发表于 2019-2-26 16:29
Range("c3:n33").value.Copy Sheets("数据库").Range("c" & m)

Sub 保存()
Dim m%, r%
On Error GoTo 100
If Sheet1.[a:a].Find([a:a]) = [a:a] Then
  MsgBox "此单已经保存过了！"
Else
100:
If [C3] = "" Or [I3] = "" Or [J3] = "" Then MsgBox "信息没有填写完整，不能保存！": End
  m = Sheets("数据库").[C65536].End(xlUp).Row + 1
  r = [a9999].End(3).Row
  Range("c3:n" & r).Copy Sheets("数据库").Range("c" & m)
  MsgBox "保存成功！"
  ActiveWorkbook.Save
End If
End Sub
这个代码要改成，提交后是文本而不是公式

excelltaaaaa

excelltaaaaa 发表于 2019-2-26 11:45
在次请教老师一个问题  如果我要保存的是C3到N33的所有数据，代码要怎么改。本人是小白，自己解决不了。

Sub 保存()
Dim m%, r%
On Error GoTo 100
If Sheet1.[a:a].Find([a:a]) = [a:a] Then
  MsgBox "此单已经保存过了！"
Else
100:
If [C3] = "" Or [I3] = "" Or [J3] = "" Then MsgBox "信息没有填写完整，不能保存！": End
  m = Sheets("数据库").[C65536].End(xlUp).Row + 1
  r = [a9999].End(3).Row
  Range("c3:n" & r).Copy Sheets("数据库").Range("c" & m)
  MsgBox "保存成功！"
  ActiveWorkbook.Save
End If
End Sub
这个代码要改成提交到数据库的数据是文本而不是公式

abc123281

Sub 保存()
Dim m%, r%
On Error GoTo 100
If Sheet1.[a:a].Find([a:a]) = [a:a] Then
  MsgBox "此单已经保存过了！"
Else
100:
If [C3] = "" Or [I3] = "" Or [J3] = "" Then MsgBox "信息没有填写完整，不能保存！": End
  m = Sheets("数据库").[C65536].End(xlUp).Row + 1
  arr = Range("c3:n33")
  Sheets("数据库").Range("c" & m).Resize(UBound(arr), UBound(arr, 2)) = arr
  MsgBox "保存成功！"
  ActiveWorkbook.Save
End If
End Sub