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

[µo°Ý] ½Ð°Ý¸Ó¦p¦ó§@

[µo°Ý] ½Ð°Ý¸Ó¦p¦ó§@

½Ð°Ý¦p¦ó§¹¦¨¦p¤å¥ó©Ò±Ô­z°ÝÃD?

©âÅÒ¤À²Õ.rar (2.7 KB)

¦^´_ 1# yujen16
¸Õ¸Õªþ¥ó¡A«öF9­«ºâ´Nµ¥¦P©âÅÒ
©âÅÒ¤À²Õ.rar (5.3 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁÂHsieh ¯uªº¤S¾Ç¨ì¤@©Û¤F
·íªìªº­ì·N¬OÅý¨C¤@­Ó¤H³£¦³°Ñ»P·P,¦Ó¨Ó©âÅÒ,µM«á¦A¿é¤J¨ä©Ò©âÅÒªº¸¹½X.
¿é¤J©âÅÒ¸¹½X«á,¤@¥¹¦³­þ¤@²Õ¥ý§â¤»­Ó²Õ­û©â»ô,¦Lªí¾÷´N·|¥h¦C¦L¸Ó²Õªº¤u§@ªí¤º®e.
½Ð°Ý¥i¥H¦p¦¹§@¶Ü¡H

TOP

¦^´_ 4# yujen16


    ¸Õ¸Õ¬O§_¥i¦æ,­n¦Lªí¾÷¦Û°Ê¦C¦L,¨º»Ý­nVBAÀ°§U¤F.

©âÅÒ¤À²Õ.zip (7.11 KB)

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-2-17 17:39 ½s¿è

¦^´_ 4# yujen16

§Úªº°µªk¥u¬O¥Î¶Ã¼Æ¥N´À©âÅÒ
¥u­n¦bSheet1ªºAÄd¤£­n¨Ï¥Î¤½¦¡¡Aª½±µ¿é¤J¡A¨º»ò¨ä¥L¤u§@ªí´N·|¦Û°Ê±o¨ìµª®×
¥u¬O¨S¿é¤J¨ìªºÅÒ¸¹¡A·|Åã¥Ü#N/Aªº¿ù»~
­Y­n¦Û°Ê¦C¦L¨º´N¥²¶·¾a³o¿ù»~¨Ó­pºâ¬O§_¶ñº¡
µM«á§Q¥Î¤À²Õ¤u§@ªíªº­«ºâ¨Æ¥ó¨Ó¦C¦L
¤À²Õ¤u§@ªí¼Ò²Õ
  1. Private Sub Worksheet_Calculate()
  2. Dim A As Range
  3. For i = 2 To 8 Step 2
  4. Set A = Range(Cells(3, i), Cells(8, i))
  5. n = 0
  6.   For Each C In A
  7.      If IsError(C.Value) Then n = n + 1
  8.   Next
  9.   If n = 0 Then Sheets("¤À²Õ" & i / 2).PrintPreview '¹wÄý¥Î¦¹ªk
  10.   If n = 0 And Cells(2, i) <> "¤w¦C¦L" Then pn = MsgBox("¬O§_¦C¦L", vbYesNo)
  11.   If pn = 6 Then Sheets("¤À²Õ" & i / 2).PrintOut: Cells(2, i) = "¤w¦C¦L" '¦C¦L¥Î¦¹ªk
  12. Next
  13. End Sub
½Æ»s¥N½X
©âÅÒ¤À²Õ.rar (10.36 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¯u¬O¤Ó¯«©_¤F!ÁÂÁÂHsieh
ÁöµMµ{«×¤Ó²L¤£¯à²z¸Ñ¤½¦¡ªººëÅè,«o¤w¸Ñ§Ú¿U¬Ü¤§«æ.

TOP

¦A½Ð°Ý,¦C¦L¹Lªº¤u§@ªí¦p¦ó¤£¦A¦C¦L?
Á|¨Ò¨Ó»¡·í²ÄÅÒ¸¹13-18¸¹³Q¿é¤J«á·|¥h°õ¦æ¦C¦L¤À²Õ3¤u§@ªí¨S°ÝÃD¤F
¥i¬O·íÅÒ¸¹1-6¦n³Q¿é¤J«á¥h¦C¦L¤À²Õ1¤u§@ªí¤]¨S°ÝÃD,¦ý¦p¦ó¤£¦A¦C¦L¤À²Õ3¤u§@ªí©O?
¥t¥~ÅÒ¸¹ªº¿é¤J¦p¦óÅçÃÒ¬O§_­«½Æ¿é¤J¦P¤@­Ó¸¹½X¤Î¶W¥X1-24ªº½d³ò©O?

TOP

¦^´_ 8# yujen16

¥Î¹wÄý¦C¦L»yªk¨Ó°õ¦æ¡A­n¦Lªº¤~«ö¦C¦L¡A§_«h«öÃö³¬´N·|©¹¤U¤@­¶

­Y­n¥Îµ{¦¡ª½±µ§PÂ_¡A¨º´N­n¦b¦C¦L«áªº¤u§@ªíµù°O¤w¦C¦L§@§PÂ_
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD