将整数与从 VBA 调用的 dll 中的硬编码值进行比较的问题答案

【问题标题】：Problems comparing integers to hardcoded values in a dll called from VBA将整数与从 VBA 调用的 dll 中的硬编码值进行比较的问题
【发布时间】：2015-03-29 17:32:17
【问题描述】：

我即将将我用 Applescript 和 Objective C 编写的项目转移到 Excel/VBA/dll。我已经开始使用我想要放置在 dll 中并通过 VBA 调用的 Objective C 函数。

首先，我是一名统计学家，通过同样多的运气、反复试验和毅力，成功地构建了最初的 Mac 程序（一个对我来说非常方便的统计工具）。请考虑到这一点（如果答案非常明显）。我使用这个（减去 64 位部分）作为 dll 的起点：https://sites.google.com/site/jrlhost/links/excelcdll

Objective C 是带有一层薄薄的特殊 Obejctive C 代码的 C 语言，可以让它与 Applescript 和项目的其余部分进行对话，所以理论上它应该很容易用 C 语言编写 dll。

但是我已经遇到了所有功能中最小的问题。我确信它可以更有效地完成，但现在我需要知道如果我能够将更大的函数从 Objective C 转移到 C，为什么它不起作用。

这是我正在尝试的 C 代码：

int _stdcall game(int *games, int *gameskifte)
{
    if (*games == 0){
        if (*gameskifte == 1) return *games + 1;
        else return *games + 2;}
    else{
        if (*games < 3){
            if (*gameskifte == 2) return *games + 2;
            else return *games + 4;}
        else{
            if (*gameskifte == 2) return *games + 3;
            else return games + 5;
            }
        }
    return 0;
}

这是代码应该做的事情：

如果 games = 0 且 gameskifte = 1，则返回 1
如果 games = 0（并且默认情况下 gameskifte 不是 1），则返回 2
如果游戏
如果 games
如果 games > 2 且 gameskifte = 1，则返回 games + 3
如果 games > 2（默认 gameshift 不是 1），则返回 games + 5

它所做的是忽略 gameshift 的值，并且总是返回 games + 4

我试图改变一些事情......

这段代码（所有比较都是“

int _stdcall game(int *games, int *gameskifte)
{
    if (*games < 1){
        if (*gameskifte < 2) return *games + 1;
        else return *games + 2;}
    else{
        if (*games < 3){
            if (*gameskifte < 2) return *games + 2;
            else return *games + 4;}
        else{
            if (*gameskifte < 2) return *games + 3;
            else return games + 5;
            }
        }
    return 0;
}

总是给我游戏 + 1

还有这个（所有比较都是“>”，结果不应该与上面相同）：

int _stdcall game(int *games, int *gameskifte)
{
    if (*games > 1){
        if (*gameskifte > 2) return *games + 1;
        else return *games + 2;}
    else{
        if (*games > 3){
            if (*gameskifte > 2) return *games + 2;
            else return *games + 4;}
        else{
            if (*gameskifte > 2) return *games + 3;
            else return games + 5;
            }
        }
    return 0;
}

总是给我游戏 + 5

因此，在进行返回计算时，它知道 *games 的值，但是当将 *games 与另一个硬编码值进行比较时，它会在进行直接或“>”比较时抛出错误，而在进行任何“

项目的其余部分是

一个def文件：defFile.def:

LIBRARY ”minfil”
EXPORTS
game=game

VBA：

Private Declare Function game Lib  "c:\users\musholm\documents\visual studio  2013\Projects\mitprojekt\Debug\mitprojekt.dll" (ByRef games As Integer,  ByRef gameskifte As Integer) As Integer
Function game1(games As Integer, gamesskifte As Integer) As Integer

game1 = game(games, gamesskifte)
End Function

Excel函数为=game1(x,y)

最后是我试图在 C 中重新创建的原始目标 c：

- (NSNumber *)game:(NSNumber *)games gamechange:(NSNumber *)gameskifte
{
    int gamesab = [games intValue];
    int gameskifteab = [gameskifte intValue];
    int gamesud = 0;
    if (gamesab == 0){
        if (gameskifteab == 1) gamesud=1;
        else gamesud=2;}
    else{
        if (gamesab<3){
            if (gameskifteab==1)gamesud=gamesab+2;
            else gamesud=gamesab+4;}
        else{
            if (gameskifteab==1)gamesud=gamesab+3;
            else gamesud=gamesab+5;

        }
    }
    return [NSNumber numberWithInt:gamesud];
 }

【问题讨论】：

标签： c excel dll vba

【解决方案1】：

VBA 的 Integer 对应于 C 的 short。
您需要 VBA 中的函数参数和返回值As Long。

您还缺少else return games + 5; 中的*。虽然你一开始就不需要*，但你应该把它们全部删除，并在VBA中用ByVal重新声明函数参数。

【讨论】：

即时满足：D 谢谢。