ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

excel¥i¥H³]©wÀx¦s±ø¥ó¶Ü?

excel¥i¥H³]©wÀx¦s±ø¥ó¶Ü?

excel¥i¥H³]©wÀx¦s±ø¥ó¶Ü.zip (14.02 KB)

½Ð±Ð Àx¦s®æC104  ¥²¶·¤j©óµ¥©ó4%  ¤~¥i¥H¦sÀÉ,­n¦p¦ó³]©w?

¦^´_ 6# VANESSA
ªþ¥ó¤W¶Ç¤£¤F,ª½±µ¨BÆJ»¡©ú
1.«öAlt+F11¶i¤JVBE­¶­±,¥ªÃ䵡¤fThisworkbook¥ªÁä«ö¨â¤U
¦A¶K¤W¤U­±µ{¦¡
  1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  2. If Range("c104") <= 0.04 Then
  3. MsgBox "C104 ¼Æ¦r<=4%,µLªk¦sÀÉ"
  4. cancle = True
  5. End If
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# VANESSA
­×§ï¦n¤F½Ð°Ñ¦Ò[attach]25841[/attach]

TOP

ÁÂÁÂ,½Ð°Ý§Ú¬O¤£¬O§âµ{¦¡COPY¨ì"À˵øµ{¦¡½X"³o¸Ì,Àx¦s«á´N¥i¥H¨Ï¥Î?
¦ý¬O,,¬°¤°»òÀx¦s®æC104¨S¦³µ¥©ó¤j©ó4%,¤]¥i¥HÀx¦s?

TOP

  1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  2. If ¤u§@ªí3.Range("c104") < 0.4 Then
  3. MsgBox "¼Æ¦r«Ü¥iÆ[³á,¬O¤£¬O¹wºâ¦³问ÃD??"
  4. Cancel = True
  5. End If
  6. End Sub
½Æ»s¥N½X

TOP

  1. [attach]25769[/attach]
½Æ»s¥N½X

TOP

[attach]25769[/attach]¤£¦n·N«ä,·s¤HÁÙ¤£²M·¡¦^´_ªº¾Þ§@

TOP

¨Ñ°Ñ¦Ò,®£¦³¤£©P

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD