- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 255
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-25
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-2-17 17:39 ½s¿è
¦^´_ 4# yujen16
§Úªº°µªk¥u¬O¥Î¶Ã¼Æ¥N´À©âÅÒ
¥un¦bSheet1ªºAÄd¤£n¨Ï¥Î¤½¦¡¡Aª½±µ¿é¤J¡A¨º»ò¨ä¥L¤u§@ªí´N·|¦Û°Ê±o¨ìµª®×
¥u¬O¨S¿é¤J¨ìªºÅÒ¸¹¡A·|Åã¥Ü#N/Aªº¿ù»~
Yn¦Û°Ê¦C¦L¨º´N¥²¶·¾a³o¿ù»~¨Ópºâ¬O§_¶ñº¡
µM«á§Q¥Î¤À²Õ¤u§@ªíªº«ºâ¨Æ¥ó¨Ó¦C¦L
¤À²Õ¤u§@ªí¼Ò²Õ- Private Sub Worksheet_Calculate()
- Dim A As Range
- For i = 2 To 8 Step 2
- Set A = Range(Cells(3, i), Cells(8, i))
- n = 0
- For Each C In A
- If IsError(C.Value) Then n = n + 1
- Next
- If n = 0 Then Sheets("¤À²Õ" & i / 2).PrintPreview '¹wÄý¥Î¦¹ªk
- If n = 0 And Cells(2, i) <> "¤w¦C¦L" Then pn = MsgBox("¬O§_¦C¦L", vbYesNo)
- If pn = 6 Then Sheets("¤À²Õ" & i / 2).PrintOut: Cells(2, i) = "¤w¦C¦L" '¦C¦L¥Î¦¹ªk
- Next
- End Sub
½Æ»s¥N½X
©âÅÒ¤À²Õ.rar (10.36 KB)
|
|