小编Lui*_*han的帖子

我们假设现在是11h11min.它读作"ONE ONE"小时和"11"分钟,如:

Sub TEST1() 
  Application.Speech.Speak "It is " & Hour(Now()) & " hours and " & Minute(Now()) & " minutes"
End Sub

但是,以下内容为"十一"小时和"十一"分钟

Sub TEST2() 
  Application.Speech.Speak "It is 11 hours and 11 minutes"
End Sub

相反,它显示为"一个"小时和"十一"分钟,如:

Sub TEST3() 
  Application.Speech.Speak "It is " & "11" & " hours and " & "11" & " minutes"
End Sub

我如何才能将这些数字作为单词阅读？

这些对我不起作用.

definitelly的任何帮助都会纠正以下四个例子吗？

即使我打开了三个CMD.exe,EXAMPLE01也会回显"继续".

----------例01 ------------

@echo off 
wmic process where name="cmd.exe" | find "cmd.exe" /c
SET ERRORLEVEL=value if "%value%" GTR 1 ( 
    ECHO This batch is not first  
    ECHO quitting ...
    )
if "%value%" LSS 2 ECHO continue

我在示例02中收到"意外的错误"消息!

-----------例02 -------

@echo off
FOR /F "usebackq tokens=2" %i IN (`tasklist ^| findstr /r /b "cmd.exe"`)
   DO taskkill /pid %%i

即使有三个CMD.exe打开,我在例03中收到"是第一个"消息!

-----------例03 -------

 @echo off
    wmic process where name="cmd.exe" | find "cmd.exe" /c
    if "%errorlevel%" LEQ 1 echo CMD is first …

我希望我的光标在正在运行的批处理的特定部分中闪烁.

@echo off

REM some code goes here ... 

setlocal
for /f %%A in ('"prompt $H & echo on & for %%B in (1) do rem"') do set "BS=%%A"
set /p Menu=%BS%  Please inform your option {1,2,3} followed by ENTER:

请注意,使用SET/P命令时,光标符号"_"将在单词"ENTER"前面闪烁,并在冒号":"旁边闪烁,等待用户决定,如在ENTER中:_

但是,稍后在我的代码中我有以下内容:

REM some code goes also here ...
echo:
echo Please, press any key to return to main menu
pause>nul
Call Begin

在这种情况下,光标等待用户命令,但它在其他地方闪烁,而不是在主菜单字母"U"旁边闪烁

问题 - 如何在单词菜单旁边的"U"后使光标闪烁？

先感谢您 !

我有问题解决错误"时间执行错误#13:不兼容类型".如果用户创建了一些未在数组中声明的工作表,则会将其删除.有人可以帮忙吗？

sub DeleteNewSheets()

Dim ws, wsP As Worksheet
Dim ArrayOne As Variant

    Application.DisplayAlerts = False

    ArrayOne = Array("SheetA", "SheetB", "SheetC", "Sheet_n")


    Set wsP = ThisWorkbook.Worksheets(ArrayOne) ' <--- ERROR #13

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> wsP.Name Then ws.Delete
    Next ws

    Application.DisplayAlerts = True

end sub

我想知道我是否可以使用下面相同的代码并进行一些小的更改来添加我需要的功能.它的写法:

::::Set WshShell = CreateObject("WScript.Shell")
::::WshShell.SendKeys "{capslock}"
Set WshShell = Nothing
findstr "^::::" "%~sf0" > temp.vbs & Cscript //nologo temp.vbs & del temp.vbs
echo Capslock is off

结果:

• 如果已经关闭,它会激活CAPS ON
• 如果CAPS已经打开,它会激活CAPS OFF

我想把它改成总是OFF.如何在代码中进行这种轻微修正？

谢谢

我在测试代码时遇到了一个大问题.而这个问题是烦人的消息...... "超出最大递归深度".看看它是如何工作的:

@echo off

REM ---------- MAIN MENU ----------
:Main

echo 1.Supermarket
echo 2.Exit Batch

setlocal
for /f %%A in ('"prompt $H & echo on & for %%B in (1) do rem"') do set "BS=%%A"
set /p Menu=%BS% Type in your option {1,2} followed by ENTER:
if not '%Menu%'=='' set Menu=%Menu:~0,1%
if %Menu% EQU 1 ENDLOCAL & goto Super
if %Menu% EQU 2 goto EOF

REM ---------- SECONDARY MENU ----------
:Super

echo 1.Supermarket
echo   a.Apple
echo   b.Banana

setlocal
for …

使用InnoSetup生成的单个可执行文件(带有"IconMain.ico")和单个卸载(带有不同的图标"IconUninst.ico"),我想在驱动器"C"和"K"中安装一些文件.将不允许用户更改驱动器路径/名称,如下所示:

STANDART RADIOBUTTON - 
Full installation. Files that will be installed in drive "C:" AND "K:"

- Game.exe     --> DRIVE C:\games
- Mapping.exe  --> DRIVE C:\Mapping
- Pics.dll     --> DRIVE C:\Pics 
- AAA.dll      --> DRIVE K:\Sounds
- BBB.obj      --> DRIVE K:\Sounds

"

ADVANCED RADIONBUTTON -
Partial installation. 
The only files that will be installed. (IF user agrees to continue)

- AAA.dll      --> DRIVE K:\Sounds
- BBB.obj      --> DRIVE K:\Sounds

我怎么能做到这一点？ 谢谢 !