blocks|key|2157416|text|CBool的字面意思是“转换为布尔型”(它是一个强制转换)，因为GetKeyState和&H+8000不是布尔型，它需要转换或转换。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2157417|If+Not+CBool(GetKeyState(vbKeyRButton)+And+&H8000)|code-block|syntax|javascript|2157418|因此，对于您的代码来说，这意味着：|2157419|If+vbKeyRButton+AND+&H8000+are+both+false+then+...|2157420|剩下的代码，|2157421|If+IsEmpty(strBoardSize)|2157422|这将检查字符串strBoardSize是否为空。所以，如果strBoardSize是空的，转到下一行代码，否则结束If语句，然后转到there(但是这里什么都没有)|2157423|entityMap^0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|U|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|W|8|@]|9|@]|A|$]]|$1|M|3|N|5|D|7|X|8|@]|9|@]|A|$E|F]]|$1|O|3|P|5|6|7|Y|8|@]|9|@]|A|$]]|$1|Q|3|-4|5|6|7|Z|8|@]|9|@]|A|$]]]|R|$]]

CBool literally means "Convert To Boolean"(It is a cast) because GetKeyState and &amp;H8000 aren't type boolean it needs to be converted or cast.

<pre><code>If Not CBool(GetKeyState(vbKeyRButton) And &amp;H8000)
</code></pre>

So for your code it would mean: 

<pre><code>If vbKeyRButton AND &amp;H8000 are both false then ...
</code></pre>

For the rest of the code, 

<pre><code>If IsEmpty(strBoardSize)
</code></pre>

This checks if the String strBoardSize is empty.
So it's If strBoardSize is empty go to the next line of code, otherwise end the if statement and go on to the else (But you have nothing there)

blocks|key|996795|text|根据这个页面，CBool方法接受任何输入，并尝试对值进行布尔比较。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|996796|所以，用英语：|996797|If+the+value+returned+by+(GetKeyState(vbKeyRButton)+And+&H8000)+is+not+true,+then:
+++If+IsEmpty(strBoardSize)+Then
+++++++Exit+Sub
+++End+If
Else
End+if|code-block|syntax|javascript|996798|另一种看待这一问题的方法是：|996799|Dim+LCompare+as+Boolean
LCompare+=+CBool(GetKeyState(vbKeyRButton)+And+&H8000)+'Sets+the+value+returned+from+CBool+in+LCompare
If+Not+LCompare+Then
+++If+IsEmpty(strBoardSize)+Then
+++++++Exit+Sub
+++End+If
Else
End+if|996800|这个其他条款解释了GetKeyState的输入是什么，以及它们对按位运算符的影响。|996801|希望这能帮点忙..。|996802|entityMap|0|LINK|mutability|MUTABLE|url|http://www.techonthenet.com/excel/formulas/cbool.php|1|http://www.tek-tips.com/viewthread.cfm?qid=1080522^0|4|2|0|0|0|0|0|0|2|4|1|0|0^^$0|@$1|2|3|4|5|6|7|12|8|@]|9|@$A|13|B|14|1|15]]|C|$]]|$1|D|3|E|5|6|7|16|8|@]|9|@]|C|$]]|$1|F|3|G|5|H|7|17|8|@]|9|@]|C|$I|J]]|$1|K|3|L|5|6|7|18|8|@]|9|@]|C|$]]|$1|M|3|N|5|H|7|19|8|@]|9|@]|C|$I|J]]|$1|O|3|P|5|6|7|1A|8|@]|9|@$A|1B|B|1C|1|1D]]|C|$]]|$1|Q|3|R|5|6|7|1E|8|@]|9|@]|C|$]]|$1|S|3|-4|5|6|7|1F|8|@]|9|@]|C|$]]]|T|$U|$5|V|W|X|C|$Y|Z]]|10|$5|V|W|X|C|$Y|11]]]]

According to this <a href="http://www.techonthenet.com/excel/formulas/cbool.php" rel="nofollow">page</a>, the CBool method takes any input and tries to do a boolean comparison of the value.

So, in English:

<pre><code>If the value returned by (GetKeyState(vbKeyRButton) And &amp;H8000) is not true, then:
 If IsEmpty(strBoardSize) Then
 Exit Sub
 End If
Else
End if
</code></pre>

Another way to look at this is:

<pre><code>Dim LCompare as Boolean
LCompare = CBool(GetKeyState(vbKeyRButton) And &amp;H8000) 'Sets the value returned from CBool in LCompare
If Not LCompare Then
 If IsEmpty(strBoardSize) Then
 Exit Sub
 End If
Else
End if
</code></pre>

This <a href="http://www.tek-tips.com/viewthread.cfm?qid=1080522" rel="nofollow">other article</a> explains what the inputs for GetKeyState are and how they affect the bitwise operators going on.

Hopefully this helps out a bit...

blocks|key|1602558|text|GetKeyState是https://msdn.microsoft.com/en-us/library/windows/desktop/ms646301(v=vs.85).aspx中描述的Windows函数。它返回一个整数，并如前所述，“如果高阶位为1，则键被关闭；否则，则为up。”(在这里，感兴趣的键是鼠标右键，由常量vbKeyRButton指定。)|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1602559|&H+8000是一个只有高阶位集的整数，因此And操作返回0或&H+8000。&H+8000是用于高阶位的掩码(在白话中)。|1602560|CBool函数将0转换为False，将任何非零值转换为True，因此，如果按下键，则返回True。|1602561|entityMap|0|LINK|mutability|MUTABLE|url|https://msdn.microsoft.com/en-us/library/windows/desktop/ms646301(v=vs.85).aspx)^0|C|27|0|0|0|0^^$0|@$1|2|3|4|5|6|7|P|8|@]|9|@$A|Q|B|R|1|S]]|C|$]]|$1|D|3|E|5|6|7|T|8|@]|9|@]|C|$]]|$1|F|3|G|5|6|7|U|8|@]|9|@]|C|$]]|$1|H|3|-4|5|6|7|V|8|@]|9|@]|C|$]]]|I|$J|$5|K|L|M|C|$N|O]]]]

GetKeyState is a Windows API function described at <a href="https://msdn.microsoft.com/en-us/library/windows/desktop/ms646301(v=vs.85).aspx" rel="nofollow">https://msdn.microsoft.com/en-us/library/windows/desktop/ms646301(v=vs.85).aspx</a>. It returns an Integer, and as stated, "If the high-order bit is 1, the key is down; otherwise, it is up." (Here, the key of interest is the right mouse button, specified by the constant vbKeyRButton.)

The &amp;H8000 is an Integer with only the high-order bit set, so the And operation returns either 0 or &amp;H8000. &amp;H8000 is a mask (in the vernacular) for the high-order bit. 

The CBool function converts 0 to False and any non-zero value to True, so here, it returns True if the key is pressed and False otherwise.

I can't seem to understand the second line:

<pre><code> If Not CBool(GetKeyState(vbKeyRButton) And &amp;H8000)
</code></pre>

Would you be kind and please explain what this is saying in plain English?
All I can understand from this is "If not" and "And"
I have strong faith in all the VBA wizards here! Please help me!

The full code is as below:

<pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not CBool(GetKeyState(vbKeyRButton) And &amp;H8000) Then

 If IsEmpty(strBoardSize) Then
 Exit Sub
 End If
Else
End if
Sub end
</code></pre>

strBoardSize is the size of a table and is previously 

<pre><code>Dim strBoardSize as string
</code></pre>

VBA What does Cbool mean? (in ACTUAL English)

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我似乎听不懂第二句话： If Not CBool(GetKeyState(vbKeyRButton) And &H8000)请您用简单的英语解释一下这句话的意思好吗？我所能理解的就是“如果不是”和“我对这里所有的VBA奇才有很强的信心！”请帮帮我!完整的代码如下：Private Sub Worksheet_Select...

问VBA Cbool是什么意思？(实际英文)
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问VBA Cbool是什么意思？(实际英文)EN