If i And j 是什么意思

qisile

执行以下代码：


Sub aaa()
For i = 1 To 10
    For j = 1 To 10
        b = 0
        a = i And j
        If i And j Then     '''这句话什么意思？
            b = 1
        End If
        Debug.Print "i=" & i & ",j=" & j & ",a=" & a & ",b=" & b
    Next
Next
End Sub
结果是：


i=1,j=1,a=1,b=1
i=1,j=2,a=0,b=0
i=1,j=3,a=1,b=1
i=1,j=4,a=0,b=0
i=1,j=5,a=1,b=1
i=1,j=6,a=0,b=0
i=1,j=7,a=1,b=1
i=1,j=8,a=0,b=0
i=1,j=9,a=1,b=1
i=1,j=10,a=0,b=0
i=2,j=1,a=0,b=0
i=2,j=2,a=2,b=1
i=2,j=3,a=2,b=1
i=2,j=4,a=0,b=0
i=2,j=5,a=0,b=0
i=2,j=6,a=2,b=1
i=2,j=7,a=2,b=1
i=2,j=8,a=0,b=0
i=2,j=9,a=0,b=0
i=2,j=10,a=2,b=1
i=3,j=1,a=1,b=1
i=3,j=2,a=2,b=1
i=3,j=3,a=3,b=1
i=3,j=4,a=0,b=0
i=3,j=5,a=1,b=1
i=3,j=6,a=2,b=1
i=3,j=7,a=3,b=1
i=3,j=8,a=0,b=0
i=3,j=9,a=1,b=1
i=3,j=10,a=2,b=1
i=4,j=1,a=0,b=0
i=4,j=2,a=0,b=0
i=4,j=3,a=0,b=0
i=4,j=4,a=4,b=1
i=4,j=5,a=4,b=1
i=4,j=6,a=4,b=1
i=4,j=7,a=4,b=1
i=4,j=8,a=0,b=0
i=4,j=9,a=0,b=0
i=4,j=10,a=0,b=0
i=5,j=1,a=1,b=1
i=5,j=2,a=0,b=0
i=5,j=3,a=1,b=1
i=5,j=4,a=4,b=1
i=5,j=5,a=5,b=1
i=5,j=6,a=4,b=1
i=5,j=7,a=5,b=1
i=5,j=8,a=0,b=0
i=5,j=9,a=1,b=1
i=5,j=10,a=0,b=0
i=6,j=1,a=0,b=0
i=6,j=2,a=2,b=1
i=6,j=3,a=2,b=1
i=6,j=4,a=4,b=1
i=6,j=5,a=4,b=1
i=6,j=6,a=6,b=1
i=6,j=7,a=6,b=1
i=6,j=8,a=0,b=0
i=6,j=9,a=0,b=0
i=6,j=10,a=2,b=1
i=7,j=1,a=1,b=1
i=7,j=2,a=2,b=1
i=7,j=3,a=3,b=1
i=7,j=4,a=4,b=1
i=7,j=5,a=5,b=1
i=7,j=6,a=6,b=1
i=7,j=7,a=7,b=1
i=7,j=8,a=0,b=0
i=7,j=9,a=1,b=1
i=7,j=10,a=2,b=1
i=8,j=1,a=0,b=0
i=8,j=2,a=0,b=0
i=8,j=3,a=0,b=0
i=8,j=4,a=0,b=0
i=8,j=5,a=0,b=0
i=8,j=6,a=0,b=0
i=8,j=7,a=0,b=0
i=8,j=8,a=8,b=1
i=8,j=9,a=8,b=1
i=8,j=10,a=8,b=1
i=9,j=1,a=1,b=1
i=9,j=2,a=0,b=0
i=9,j=3,a=1,b=1
i=9,j=4,a=0,b=0
i=9,j=5,a=1,b=1
i=9,j=6,a=0,b=0
i=9,j=7,a=1,b=1
i=9,j=8,a=8,b=1
i=9,j=9,a=9,b=1
i=9,j=10,a=8,b=1
i=10,j=1,a=0,b=0
i=10,j=2,a=2,b=1
i=10,j=3,a=2,b=1
i=10,j=4,a=0,b=0
i=10,j=5,a=0,b=0
i=10,j=6,a=2,b=1
i=10,j=7,a=2,b=1
i=10,j=8,a=8,b=1
i=10,j=9,a=8,b=1
i=10,j=10,a=10,b=1
请问这里面 If i And j Then     这句话什么意思？看不懂呀，求大佬指点

今铭昔

按位与运算，这个得懂二进制。

今铭昔

比如i=3,j=7
则转成二进制是
0011
0111
进行按位与运算(同1为1)，结果是
0011
结果就是十进制的3

班定远

这是个好问题，之前都是默认0为false，其它数字为true，没想到and下会用二进制判断

qisile

今铭昔 发表于 2024-9-30 09:48
比如i=3,j=7
则转成二进制是
0011

感谢感谢，那这个的意义是什么呢？
我是问文言一心里面给的代码，要求实现给定一组数字，他们的和等于目标值，或者小于误差值。

1. Sub FindSumCloseToTarget()  '文言一心
   
2.     Dim ws As Worksheet
   
3.     Dim LastRow As Long
   
4.     Dim Target As Double
   
5.     Dim tolerance As Double
   
6.     Dim cell As Range
   
7.     Dim Sum As Double
   
8.     Dim isFound As Boolean
   
9.     Dim combination() As Range
   
10.     Dim i As Long, j As Long
    
11.     Dim combinationsTotal As Long
    
12.     Dim currentCombination As Long
    
13.     Dim combinationSum As Double
    
14.     Dim combinationArray() As Variant
    
15.     Dim resultArray() As Variant
    
16.     Dim usedCombination() As Boolean
    
17.    
    
18. 
    
19.     ' 设置工作表
    
20.     Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    
21.       
    
22.     ' 获取目标值和误差值
    
23.     target = InputBox("请输入目标值 m：", "目标值")
    
24.     tolerance = InputBox("请输入误差值 s：", "误差值")
    
25.       
    
26.     Range("A:A").ClearFormats
    
27.    
    
28.    
    
29.     ' 获取A列最后一行
    
30.     LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
31.       
    
32.     ' 初始化数组
    
33.     ReDim combinationArray(1 To LastRow)
    
34.     ReDim usedCombination(1 To LastRow)
    
35.       
    
36.     ' 遍历A列所有数字，初始化combinationArray
    
37.     i = 1
    
38.     For Each cell In ws.Range("A1:A" & LastRow)
    
39.         If IsNumeric(cell.Value) Then
    
40.             combinationArray(i) = cell.Value
    
41.             i = i + 1
    
42.         End If
    
43.     Next cell
    
44.       
    
45.     ' 如果A列没有数字，则退出
    
46.     If i = 1 Then
    
47.         MsgBox "A列没有可用的数字。", vbExclamation
    
48.         Exit Sub
    
49.     End If
    
50.       
    
51.     ' 尝试所有可能的组合
    
52.     combinationsTotal = 2 ^ (i - 1) - 1 ' 组合总数（排除空组合）
    
53.     isFound = False
    
54.       
    
55.     For currentCombination = 1 To combinationsTotal
    
56.         ' 重置求和和usedCombination数组
    
57.         combinationSum = 0
    
58.         For j = 1 To i - 1
    
59.             usedCombination(j) = False
    
60.             
    
61.             If currentCombination And (2 ^ (j - 1)) Then ''''''就是这里，这个什么意思
    
62.                 usedCombination(j) = True
    
63.                 combinationSum = combinationSum + combinationArray(j)
    
64.             End If
    
65.         Next j
    
66.          
    
67.         ' 检查组合和是否在目标范围内
    
68.         If Abs(combinationSum - Target) <= tolerance Then
    
69.             isFound = True
    
70.             ' 标记组合中的单元格为黄色背景
    
71.             For j = 1 To i - 1
    
72.                 If usedCombination(j) Then
    
73.                     ws.Cells(j, 1).Interior.Color = vbYellow
    
74.                     
    
75.                 End If
    
76.             Next j
    
77.            
    
78.             Exit For
    
79.         End If
    
80.     Next currentCombination
    
81.    
    
82.    
    
83.    
    
84.     ' 如果未找到符合条件的组合，则告知用户
    
85.     If Not isFound Then
    
86.         MsgBox "无法找到符合条件的组合。" , vbExclamation
    
87.     End If
    
88. End Sub
    

复制代码

今铭昔

qisile 发表于 2024-9-30 10:26
感谢感谢，那这个的意义是什么呢？
我是问文言一心里面给的代码，要求实现给定一组数字，他们的和等于目 ...

我现在不怎么写VBA了，多半是运用二进制中1的位权判断组合是否存在，你可以搜关于运用二进制进行权限管理的知识

qisile

今铭昔 发表于 2024-9-30 13:38
我现在不怎么写VBA了，多半是运用二进制中1的位权判断组合是否存在，你可以搜关于运用二进制进行权限管理 ...

好的，感谢大佬指点  &#4326;( &#180;&#65381;&#7447;&#65381;` )比心

今铭昔

qisile

今铭昔 发表于 2024-9-30 14:15

学习学习，做笔记，感谢大佬