Question

届时将向用户提供一份<代码>Excel Document,其中提供以下基本信息:

“entergraph

现在,如果用户离开需要的一个囚室,我就希望向他发出一个信息,说这在车上是一种必要的价值。

我已提到。

但是,我无法达到我所需要的一切,能够帮助任何人。我也要知道,可以在<条码>上适用。诸如<代码>应当改为mm/dd/yyyyyy和。页: 1

我曾尝试过一些事情,但那只字塔促使我接受任何<代码>error或Dilog。

Private Sub Worksheet_BeforeSave(Cancel As Boolean)
If Sheet1.Range("A3:B3").Value = "" Then
Application.EnableEvents = True
MsgBox "Cannot print until required cells have been completed!"
Cancel = True      
End If   
End Sub

Answer 1

Part 1

该法典有几个问题。

You need a Workbook event - there is no WorkSheet_BeforeSave event
You cant test for two blank cells with Sheet1.Range("A3:B3").Value = ""
If the code is running then events are already enabled, so this line Application.EnableEvents = True is redundant

Something like this test for both A3 and B3 being non blank on the leftmost sheet

{编码载于<代码>本工作手册模块}

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If Application.WorksheetFunction.CountA(Sheets(1).Range("a3:b3")) <> 2 Then
        MsgBox "Cannot print until required cells have been completed!"
        Cancel = True
    End If
End Sub

虽然你可以使用第2部分的“Reex”数据,但应当进行细致的验证。

a) You can use an "allow" Date in Data Validation

b) 您可在100 000 000至999 999 999 999人之间使用一个总数,即9位数。

Answer 2

Answer to Part 2 (Regular Expression thing)

You can write a user-defined function in VBA and use it in Excel. Here s an example that extracts parts of a string using RegEx, but with a bit of tweaking you can use it to do validation.

友情链接