ªð¦^¦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?

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

TOP

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

TOP

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

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

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

TOP

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

TOP

¦^´_ 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

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD