在模块中使用具有相同名称的代码

时间:2018-05-20 08:19:14

标签: excel-vba vba excel

 root@wehubs:/src/orbslam2/DBoW2/build# cmake ..
-- Boost version: 1.54.0
DLib library not found in the system, it will be downloaded on build
-- Configuring done
-- Generating done
-- Build files have been written to: /src/orbslam2/DBoW2/build
root@wehubs:/src/orbslam2/DBoW2/build# 
root@wehubs:/src/orbslam2/DBoW2/build# make
[  6%] Performing update step for 'DLib'
Already on 'master'
Your branch is up-to-date with 'origin/master'.
[ 13%] Performing configure step for 'DLib'
-- Configuring done
-- Generating done
-- Build files have been written to: /src/orbslam2/DBoW2/build/dependencies/src/DLib-build
[ 20%] Performing build step for 'DLib'
[  3%] Building CXX object CMakeFiles/DLib.dir/src/DVision/BRIEF.cpp.o
In file included from /src/orbslam2/DBoW2/build/dependencies/src/DLib/src/DVision/BRIEF.cpp:13:0:
/src/orbslam2/DBoW2/build/dependencies/src/DLib/include/DVision/BRIEF.h:32:28: fatal error: opencv2/core.hpp: No such file or directory
 #include <opencv2/core.hpp>
                            ^
compilation terminated.
make[5]: *** [CMakeFiles/DLib.dir/src/DVision/BRIEF.cpp.o] Error 1
make[4]: *** [CMakeFiles/DLib.dir/all] Error 2
make[3]: *** [all] Error 2
make[2]: *** [dependencies/src/DLib-stamp/DLib-build] Error 2
make[1]: *** [CMakeFiles/DLib.dir/all] Error 2
make: *** [all] Error 2

我有这两个代码具有相同的名称,因为代码无法正常运行我可以更改名称以便它进入流程 感谢

1 个答案:

答案 0 :(得分:1)

Private Sub Workbook_Open()
    Sheets("Guide").Select
    ActiveSheet.Range("A9").Select
    Application.OnKey "%{F11}", "DisableAltF11"
    Application.OnKey "%{F8}", "DisableAltF8"
End Sub

将这两个潜艇合二为一。