小编jcr*_*izk的帖子

我正在尝试使用该FetchContent模块将 googletest 添加到我的构建中，但我遇到了许多部分答案，并且无法到达我想要的位置。使用该模块的过时示例似乎过多ExternalProject，但使用该模块的有用示例却很少FetchContent。

这是我今天浏览过的不完整的参考文献列表：

• https://crascit.com/2015/07/25/cmake-gtest/
• https://github.com/bast/gtest-demo
• https://github.com/google/googletest/blob/master/googletest/README.md#incorporating-into-an-existing-cmake-project
• https://cmake.org/cmake/help/latest/module/FetchContent.html#declaring-content-details
• 如何开始使用 GTest 和 CMake

这是我要使用的文件结构：

-root
    -build
        -googletest-build
        -googletest-src
        -googletest-test
        -src
        -test
    -src
        -CMakeLists.txt
        -AllOfMySourceFiles
    -test
        -CMakeLists.txt
        -testgtest.cpp
    -CMakeLists.txt

这些是我尝试用来构建的命令：

cmake ..
cmake --build .

到目前为止，我能够将所有源文件链接到我想要的 dll 中，并且我相当有信心知道如何将它与我想要使用的测试 exe 链接。我遇到的主要问题是使用该FetchContent模块构建testgtest.cpp可执行文件并将其与 googletest 链接。它一直无法构建，而且失败的具体原因根本不明显。

根/CMakeLists.txt

cmake_minimum_required(VERSION 3.0)
set(CMAKE_CXX_FLAGS_RELEASE "/MT")
set(CMAKE_CXX_FLAGS_DEBUG "/MTd")
set(CMAKE_CXX_STANDARD 11)

set(LIBNAME "WTP")
set(TESTNAME "TestRunner")

set(LIB_MAJOR_VERS "0")
set(LIB_MINOR_VERS "0")
set(LIB_PATCH_VERS "0")

#build source
project(${LIBNAME} 
    VERSION  ${LIB_MAJOR_VERS}.${LIB_MINOR_VERS}.${LIB_PATCH_VERS})
add_subdirectory(src)

#build tests
project(${TESTNAME})

add_subdirectory(test)
enable_testing() …

所以我尝试将这些问题作为指导：

• 如何在 Excel VBA 中使用工具
• 如何以与 VB.NET 类似的方式在 VBA 中的类对象模块之间使用比较方法？

这是我在单击表单上的控件时遇到的错误：

这是我的界面：

交易记录

Option Compare Database
Option Explicit

Public Property Get TRANSACTION_DATE() As Date
End Property

这是我的课程：

账本记录

Option Compare Database
Option Explicit

Implements ITransactionRecord

'from interface
Private tTRANSACTION_DATE As Date

Private Property Get ITransactionRecord_TRANSACTION_DATE() As Date
    ITransactionRecord_TRANSACTION_DATE = TRANSACTION_DATE
End Property

Public Property Get TRANSACTION_DATE() As Date
    TRANSACTION_DATE = tTRANSACTION_DATE
End Property

Public Property Let TRANSACTION_DATE(ByVal newTRANSACTION_DATE As Date)
    tTRANSACTION_DATE = CDate(Format((newTRANSACTION_DATE), "m / d / yyyy"))
End Property …

我希望以下代码执行以下操作：

• 在特定列中输入值后，计算一些内容并使用这些计算值分配单元格值

问题：

• 在我为另一个单元格分配一个值后，Worksheet.Change 事件将再次触发，这会重新启动子并导致无限循环

如何更改我的代码，使其不会陷入无限循环，并且每当我向正在处理的列添加值时，我想要更新的单元格都会自动更新？

代码 - 我要添加值的列是 C 列：

Public Sub Worksheet_Change(ByVal Target As Range)
    Dim xlApp As Application
    Dim ws As Worksheet
    Dim r As Range
    Dim size As Long

    Set xlApp = Excel.Application
    Set ws = xlApp.ThisWorkbook.Worksheets("Sheet1")

    'get length of this individual column
    Set r = ws.Range(ws.Cells(2, 3), ws.Cells(ws.Rows.Count, 3).End(xlUp))
    'test to see if I got the correct column: i do
    r.Select
    size = r.Count

    With xlApp.WorksheetFunction
        'test to see if the offset I got was …