小编Pie*_*e44的帖子

我在玩下面的javascript代码。了解后Object.defineProperty()，我正面临一个奇怪的问题。当我尝试在浏览器或VS代码中执行以下代码时，输​​出与预期不符，而如果我尝试调试代码，则输出正确

当我调试代码并评估配置文件时，我可以name & age在对象中看到该属性，但是在输出时，它仅显示该name属性

//Code Snippet 
let profile = {
  name: 'Barry Allen',
}

// I added a new property in the profile object.
Object.defineProperty(profile, 'age', {
  value: 23,
  writable: true
})

console.log(profile)
console.log(profile.age)

现在这里的预期输出应该是

{name: "Barry Allen", age: 23}
23

但我得到的输出为。请注意，我能够访问age之后定义的属性。我不确定为什么console.log()会这样。

{name: "Barry Allen"}
23 

我有一个简单的代码,VBA无法返回正确的日期:

Sub Test_Date ()

Debug.Print Format(Month(Now()), "mmm")
Debug.Print Month(Now())
Debug.Print Now()

End Sub

返回:

Dez
 1 
29.01.2018 11:17:55 

1)这是一个众所周知的Excel问题还是我犯了错误？

我正在尝试使用 Hlookup 和“Choose()”函数作为数组。它与 vlookup 完美配合，如下所示：

=VLOOKUP(1;CHOOSE({1,2};A1:A3;C1:C3);2;FALSE)

为什么 Hlookup 不起作用，如下所示：

=HLOOKUP(1;CHOOSE({1,2};A1:C1;A3:C3);2;FALSE)

注意：我正在尝试修复我的 Excel 公式，因此不需要 VBA。

来自问题Excel宏过滤器基于多个单元格值并使用从VBA中的范围创建数组的答案

我试图使用数组创建一个广泛的自动过滤器.但是,它只使用数组范围内的最新值.

如何使用过滤器中的所有值？

Sub Test()

Dim DirArray As Variant
DirArray = [A2:A5].Value2
ActiveSheet.range("$B$1:$C$10").AutoFilter Field:=2, Operator:=xlFilterValues, Criteria1:=DirArray

End Sub

在循环中,我想检查值是否在数组中,如果是,则跳到下一次迭代.

我对阵列的低级理解阻止了我:

我正在使用下面的函数(来自:检查值是否在数组中与Excel VBA),以查看值是否在数组中.

Public Function IsInArray(Vtobefound As Long, arr As Variant) As Boolean
    Dim i
    For i = LBound(arr) To UBound(arr)
        If arr(i) = Vtobefound Then
            IsInArray = True
            Exit Function
        End If
    Next i
    IsInArray = False

End Function

但我的Sub下面仍然不起作用:

Sub CountCellstest()

    Dim i, k As Long
'   Dim iArray() As Single

    ReDim iArray(1 To 1) As Single

    For i = 1 To 3
        If IsInArray(i, iArray) Then 'ERROR HERE on the i

    GoTo next_iteration

        End …