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

­µ°T³]©w

­µ°T³]©w

¥»©«³Ì«á¥Ñ HSIEN6001 ©ó 2012-4-24 14:46 ½s¿è

§Ú¤Óµæ¤F!¥ú³o­Ó´N·d¤£©w
«pÁy¥Ö¨Ó¨D±Ï¤F!
  1. Sub SpeEng()
  2. Dim i
  3.     For i = 1 To CountA(Range("C:C"))   '--->Error
  4.         Set oSa = CreateObject("SAPI.SpVoice")
  5.         oSa.Volume = 100
  6.         oSa.Rate = -1
  7.         oSa.Speak [ "C" & i ]   '--->Error
  8.         Sleep 2000  '--->Error
  9.     Next i
  10. End Sub
½Æ»s¥N½X
PS:¤pÁn°Ý....XP ¤º©wªº¨k­µ ¦³¤èªk§ï¦¨¤k­µ?!  (½Ð¤£­n§i¶D§Ú:§ïÄéWin 7)

¥»©«³Ì«á¥Ñ HSIEN6001 ©ó 2012-4-24 16:49 ½s¿è

¦^´_ 2# oobird


    »yªk¯u¬O¤dÅܸU¤Æ!  ¦n¯«!

    CountA(Range("C:C")    §Ú¤£²M·¡¿ù¦b­þ?!---->¥i¥H§i¶D§Ú¿ù»~?!
    ©µ¿ð Sleep 2000 ¤]¤£ª¾¹D¬°¦ó¤£¦æ¡A·|¥X²{°»¿ù--->©µ¿ðªº»yªk,½Ðª©¤j«ü¾É,ÁÂÁÂ!

   --->¦³­Ó·Qªk¬O¥Î¹ï¸Ü®Ø¿é¤J«ü©wÄæ¦ì¡A¤@¦¸°á¤@¥y¡C¤£­n¡e©µ¿ð¡f³]©w¡@¡@¡Ð¡Ð¡Ö«ô°Uª©¤j«ü¾É¡AÁÂÁ¡C
   
   ª©¤j´£¨Ñ [c65536].End(3).Row §Ú»°§ÖGoogle

   [C65536].End(xlUp).Row
   [C65536].End(xlDown).Row
   ÁÙ¦³ÂI"Ãú·Ù·Ù"¡AEnd(3)--->3À³¸Ó«üªº¬OC
   UP & Down ?!

TOP

¥»©«³Ì«á¥Ñ HSIEN6001 ©ó 2012-4-24 17:03 ½s¿è

¦^´_ 3# oobird

  ª©¤j,©çÁÂ!  ³oºô§},°¸¤£ª¾¹D«ö­þ­Ó¤U¸ü!
Àu¤Æ¡]³J¡^¤U¸ü¡H¡I

¡@­è­è¿ï mike µo­µ¸û¥¿±`¨Ç!~ÁÂÁÂ^^

TOP

¦^´_ 6# Hsieh


    ÁÂÁÂHsieh ª©¥Dªº¸ÑªR¡A§Ú¤j²¤À´·N«ä¤F
¡@§Ú·|¦A¥[§â«l¾Ç²ßªº¡A¥t¤@­Ó·Qªk§Ú¦Û¤vÄ~Äò§V¤O¬Ý¬Ý
¡@
¡@©¡®É¦A°Ó½Ð«ü¾É¡I
¡@¡ã·P®¦¡I

TOP

¥i¥H¥Î¤F­C!
  1. Sub SpeEnginBox()
  2. Dim i
  3.     Application.ScreenUpdating = False
  4.     i = InputBox("½Ð¿é¤J±ýµo­µ¦C, ®æ¦¡ 1¡B2¡B3...", , 2)
  5.     Application.DisplayAlerts = False
  6.         Set oSa = CreateObject("SAPI.SpVoice")
  7.         oSa.Volume = 100
  8.         oSa.Rate = -1
  9.         oSa.Speak Cells(i, 3)
  10.         Sleep 2000
  11. End Sub
½Æ»s¥N½X
°Å°Å¶K¶K£x»yªk
¦³»~¥Îªº¸Ü¡A½Ð¤j¤j­Ì«üÂI¡C

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD