- ©«¤l
- 219
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 243
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows10
- ³nÅ骩¥»
- Office2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-4-18
- ³Ì«áµn¿ý
- 2022-2-7
|
¥i¥H¥Î¤FC!- Sub SpeEnginBox()
- Dim i
- Application.ScreenUpdating = False
- i = InputBox("½Ð¿é¤J±ýµoµ¦C, ®æ¦¡ 1¡B2¡B3...", , 2)
- Application.DisplayAlerts = False
- Set oSa = CreateObject("SAPI.SpVoice")
- oSa.Volume = 100
- oSa.Rate = -1
- oSa.Speak Cells(i, 3)
- Sleep 2000
- End Sub
½Æ»s¥N½X °Å°Å¶K¶K£x»yªk
¦³»~¥Îªº¸Ü¡A½Ð¤j¤jÌ«üÂI¡C |
|