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

[µo°Ý] ½Ð°Ý°j°é¤Î¹ï¸Ü®Ø

[µo°Ý] ½Ð°Ý°j°é¤Î¹ï¸Ü®Ø

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

­ü¡I¦n¥áÁy³á¡I
¥i¥HÀ°§Ú¬Ý¬Ý°j°é»yªk¡H¡I
  1. Sub SpeEnginBox()
  2. Dim i, j, AA
  3.     i = Application.CountA(Range("C:C"))
  4.     If i = 1 Then
  5.         MsgBox "½d³ò¤ºµL­^¤å»y¥y", 16
  6.         Exit Sub
  7.         Else
  8. AA:
  9.     Application.ScreenUpdating = False
  10.     j = InputBox("½Ð°Ý§A­n°á²Ä´X¥y?" & vbNewLine & "(®æ¦¡ 1¡B2¡B3...)", , "")
  11.         If j = "" Then
  12.             MsgBox "±z¥¼¿é¤J¥ô¦ó¼Æ¦r", 16
  13.             GoTo AA
  14.             Else
  15.             If j = 0 Then
  16.                 MsgBox "¶W¥X½d³ò", 16
  17.             GoTo AA
  18.                 Else
  19.                 If j > i Then   ¡@¡@ '--->½Ð°Ý³o¸Ì»yªk¸Ó«ç»ò¤U?
  20.                 MsgBox "¶W¥X½d³ò", 16
  21.                 GoTo AA
  22.                 Else
  23.                 End If
  24.             End If
  25.         End If
  26.         
  27.     Application.DisplayAlerts = False
  28.     Set oSa = CreateObject("SAPI.SpVoice")
  29.     oSa.Volume = 100
  30.     oSa.Rate = -1
  31.     oSa.Speak Cells(j + 1, 3)
  32.         
  33.     End If
  34. End Sub


  35.         '¥t¥~¡G¦pªG¹ï¸Ü®Ø«ö¨ú®ø,«h»yªk¸Ó¦p¦ó¤U¡A¤~·|Â÷¶}°j°é¡F¤£Åã¥Ü¿ù»~
  36.         'If InputBox(¡uContinue?¡v,vbYesNo)<>vbYes Then Exit Sub¡@¡@
½Æ»s¥N½X
°j°é°ÝÃD.rar (17.53 KB)


¦pªG®³±¼ j>i §PŪ ;µ{¦¡¬O¥i¥H¶]
¦ý§Ú·Q¥[¤J¨º­Ó§PŪ
  1. Sub SpeEnginBox()
  2. Dim i, j, AA
  3.     i = Application.CountA(Range("C:C"))
  4.     If i = 1 Then
  5.         MsgBox "½d³ò¤ºµL­^¤å»y¥y", 16
  6.         Exit Sub
  7.         Else
  8. AA:
  9.     Application.ScreenUpdating = False
  10.     j = InputBox("½Ð°Ý§A­n°á²Ä´X¥y?" & vbNewLine & "(®æ¦¡ 1¡B2¡B3...)", , "")
  11.         If j = "" Then
  12.             MsgBox "±z¥¼¿é¤J¥ô¦ó¼Æ¦r", 16
  13.             GoTo AA
  14.             Else
  15.             If j = 0 Then
  16.                 MsgBox "¶W¥X½d³ò", 16
  17.             GoTo AA
  18.                 Else
  19.             End If
  20.         End If
  21.         
  22.     Application.DisplayAlerts = False
  23.     Set oSa = CreateObject("SAPI.SpVoice")
  24.     oSa.Volume = 100
  25.     oSa.Rate = -1
  26.     oSa.Speak Cells(j + 1, 3)
  27.         
  28.     End If
  29.     Application.ScreenUpdating = True
  30. End Sub
½Æ»s¥N½X

¦^´_ 1# HSIEN6001
¸Õ¸Õ¬Ý³o¼Ë¼g©O¡H
  1. Sub SpeEnginBox()
  2. Dim i, j, AA
  3.    
  4.     With Application
  5.         i = .CountA(Range("C:C"))
  6.         .ScreenUpdating = False
  7.         .DisplayAlerts = False
  8.     End With
  9.    
  10.     If i = 1 Then
  11.         MsgBox "½d³ò¤ºµL­^¤å»y¥y", 16
  12.         Exit Sub
  13.     End If
  14. AA:
  15.     j = InputBox("½Ð°Ý§A­n°á²Ä´X¥y?" & vbNewLine & "(®æ¦¡ 1¡B2¡B3...)", , "")
  16.     j = IIf(IsNumeric(j), CInt(j), j)
  17.     Do While Not (j > 0 And j < i)
  18.         Select Case j
  19.         Case ""
  20.             MsgBox "±z¥¼¿é¤J¥ô¦ó¼Æ¦r", 16
  21.             Exit Sub
  22.         Case Is <= 0, Is >= i
  23.             MsgBox "¶W¥X½d³ò", 16
  24.         End Select
  25.         j = InputBox("½Ð°Ý§A­n°á²Ä´X¥y?" & vbNewLine & "(®æ¦¡ 1¡B2¡B3...)", , "")
  26.         j = IIf(IsNumeric(j), CInt(j), j)
  27.     Loop
  28.    
  29.     Set oSa = CreateObject("SAPI.SpVoice")
  30.     With oSa
  31.         .Volume = 100
  32.         .Rate = -1
  33.         .Speak Cells(j + 1, 3)
  34.     End With
  35.         
  36.     With Application
  37.         .ScreenUpdating = True
  38.         .DisplayAlerts = True
  39.     End With
  40.    
  41. End Sub
½Æ»s¥N½X
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 2# kevin681024

§A¦n!ÁÂÁÂ~^^
j = IIf(IsNumeric(j), CInt(j), j)--->·|¥X²{°»¿ù

TOP

¦^´_ 1# HSIEN6001
¡B
³o¬O¯S®í¦r¤¸ µ{¦¡²z­×§ï¬°  ,  ³rÂI
   
  1. Sub SpeEnginBox()
  2.     Dim i, j, AA, Ar, E
  3.     i = Application.CountA(Range("C:C"))
  4.     If i = 1 Then
  5.         MsgBox "½d³ò¤ºµL­^¤å»y¥y", 16
  6.         Exit Sub
  7.     End If
  8. AA:
  9.     j = InputBox("½Ð°Ý§A­n°á²Ä´X¥y?" & vbNewLine & "(®æ¦¡ 1 ,2 ,3...)", , "")
  10.      Ar = Array(j)                                  '±N J Âà¤J°}¦C
  11.      If j = "" Or j = 0 Then
  12.             If MsgBox("±z¥¼¿é¤J¥ô¦ó¼Æ¦r  °±¤î¿é¤J !!! ", vbYesNo) = vbYes Then Exit Sub
  13.             GoTo AA
  14.     ElseIf InStr(j, ",") Then                               '¦³¿é¤J ®æ¦¡ 1¡B2¡B3...
  15.         Ar = Split(j, ",")                                  '±N J Âà¤J°}¦C
  16.         For Each E In Ar                                    '¨Ì§Ç³B¸Ì °}¦Cªº¤¸¯À
  17.             If Val(E) < 1 Or Val(E) > i Then                '1 ¨ì J ¤§¶¡
  18.                 MsgBox "¶W¥X½d³ò", 16
  19.                 GoTo AA
  20.             End If
  21.         Next
  22.     ElseIf InStr(j, ",") = 0 And IsNumeric(j) Then             '¬O¼Æ¦r¥B ¥¼¿é¤J ®æ¦¡ 1¡B2¡B3...
  23.         If Val(j) <= 0 Or Val(j) > i Then
  24.             MsgBox "¶W¥X½d³ò", 16
  25.             GoTo AA
  26.         End If
  27.     ElseIf InStr(j, ",") = 0 And Not IsNumeric(j) Then          '¤£¬O¼Æ¦r¥B '¥¼¿é¤J ®æ¦¡ 1¡B2¡B3...
  28.         MsgBox "¶W¥X½d³ò", 16
  29.         GoTo AA
  30.     End If
  31.     Set oSa = CreateObject("SAPI.SpVoice")
  32.     For E = 0 To UBound(Ar)                                            'E¬° °}¦Cªº¼Æ­È
  33.         oSa.Volume = 100
  34.         oSa.Rate = -1
  35.         oSa.Speak Cells(Ar(E) + 1, 3)
  36.        If E < UBound(Ar) Then If MsgBox("¡uContinue?¡v Next (" & Ar(E + 1) & " )", vbYesNo) <> vbYes Then Exit Sub
  37.     Next
  38. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# HSIEN6001


    ¤£¦n·N«ä§PÂ_¨S¼g¦n¡A«¢
    §ï¦¨¤U­±³o¼Ë
  1. If IsNumeric(j) Then
  2.         j = CInt(j)
  3. End If
½Æ»s¥N½X
¤£µMG¤j¬Ý°_¨Ó§ó¤è«K
    G¤jªº¦n¦h¤F¡AÁÙ¥i¥H¤@¦¸©À¦h­Ó³æ¦r
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

³o­Ó·í´N°µ½m²ß§a¡A¦]¬°±q2007¶}©lexcel¤w¦³Åª¥XÀx¦s®æªº¥\¯à¡A¯àŪ³æ¦r¤]¯àŪ¥y¤l¡C
¨ä¹ê±q2002´N¦³¤F¡A¦ýÁcÅ骩¨Ã¨S¦³§¹µ½¡AŪ¥XÀx¦s®æªº¹Ï¥Ü¬O¦Ç¦âªº¨Ã¤£¯à¥¿±`¨Ï¥Î
²Å骩´N¨S°ÝÃD¡C2007¥H«áªº¥u­n¤Ï¥Õ­nŪªº°Ï°ì«ö¤@¤UŪ¥XÀx¦s®æ¤u¨ã´N·|³v¤@Ū¥X¡C
µo­µªº«~½è¨ú¨M©ówindows©Ò¦w¸Ëªºtts»y­µ¤ÞÀº¡C

TOP

¦^´_ 4# GBKEE


    G¤j ,¤£¦n·N«ä!
§ÚÁÙ¤£À´°}¦C,©Ò¥H§ä¤£¥X¬°¦ó¿é¤J10 ·|ª½±µ°h¥X
²Ä10¦CµL¸ê®Æ¡A§P§OÀ³¸Ó¦b" ¶W¥X½d³ò"
§Ú§ä¤£¥X§ï­þ¸Ì¥iÁ׶}µL¸ê®Æªº²Ä¤@µ§~~­ú~~
  1. Sub SpeEnginBox()
  2.     Dim i, j, AA, Ar, E
  3.     i = Application.CountA(Range("C:C"))
  4.     If i = 1 Then
  5.         MsgBox "½d³ò¤ºµL­^¤å»y¥y", 16
  6.         Exit Sub
  7.     End If
  8. AA:
  9.     j = InputBox("½Ð°Ý§A­n°á²Ä´X¥y?" & vbNewLine & "(®æ¦¡ 1 ,2 ,3...)", , "")
  10.      Ar = Array(j)                                  '±N J Âà¤J°}¦C
  11.      If j = "" Then
  12.             If MsgBox("±z¥¼¿é¤J¥ô¦ó¼Æ¦r¡A°±¤î¿é¤J !!! ", vbYesNo) = vbYes Then Exit Sub
  13.             GoTo AA
  14.     ElseIf InStr(j, ",") Then                               '¦³¿é¤J ®æ¦¡ 1,2,3...
  15.         Ar = Split(j, ",")                                  '±N J Âà¤J°}¦C
  16.         For Each E In Ar                                    '¨Ì§Ç³B¸Ì °}¦Cªº¤¸¯À
  17.             If Val(E) < 1 Or Val(E) > i Then              '1 ¨ì J ¤§¶¡
  18.                 MsgBox "¶W¥X½d³ò", 16
  19.                 GoTo AA
  20.             End If
  21.         Next
  22.     ElseIf InStr(j, ",") = 0 And IsNumeric(j) Then             '¬O¼Æ¦r¥B ¶W¥X¦³¸ê®Æ½d³ò---->³o¸Ì¦³i+1 ¼ÐÃD¦Cºâ¶i¥hªº¦Ò¶q
  23.         If Val(j) <= 0 Or Val(j) > i Then
  24.             MsgBox "¶W¥X½d³ò", 16
  25.             GoTo AA
  26.         End If
  27.     ElseIf InStr(j, ",") = 0 And Not IsNumeric(j) Then          '¤£¬O¼Æ¦r¥B '¥¼¿é¤J ®æ¦¡ 1,2,3...
  28.         MsgBox "¿é¤J¿ù»~¡I", 16
  29.         GoTo AA
  30.     End If
  31.     Set oSa = CreateObject("SAPI.SpVoice")
  32.     For E = 0 To UBound(Ar)                                            'E¬° °}¦Cªº¼Æ­È
  33.         oSa.Volume = 100
  34.         oSa.Rate = -1
  35.         oSa.Speak Cells(Ar(E) + 1, 3)
  36.        If E < UBound(Ar) Then If MsgBox("¡uContinue?¡v Next (" & Ar(E + 1) & " )", vbYesNo) <> vbYes Then Exit Sub
  37.     Next
  38. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# kevin681024


    ÁÂÁ§A!§O³o¼Ë»¡
§Ú«Ü¥~¦æ,¦³RUN¬Ý¬Ý
¤]¦³§R±¼¨ä¤¤´X­Ó¸Õ¸Õ!

´N¬O¨Sªk§ä¨ìµª®×,±zªÖªá¤ß¤OÀ°§Ú¸Ñµª~¯uªº·PÁÂ!

TOP

¦^´_ 6# oobird


    ­ì¨Ó2007¦³´£¨Ñ³o¼ËªºªA°È
¹ï¤_§Ú³oºØ¥~¦æ¤~·|¦b³o¸Ì¡ã¡ã¡e½M¡f§Ö¼Ö¡I

Âǥѳo¼Ëµ¹¦Û¤v¥\½Ò¡A¤~·|§ä¨ì³\¦h¸Ñ¨M°ÝÃDªº¤èªk
¯uªº¬O½m²ß¡I

©Ó»X¤j®a¤£§[±Ð¾Ç¡I
ÁÂÁ¡I

TOP

¦^´_ 7# HSIEN6001
½Ð­×¥¿  i = Application.CountA(Range("C:C"))-1   ´î±¼ C1ªº "­^¤å"  ´N¥i¥H

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD