vbaidiot/ariawase

Ariawase is free library for VBA cowboys.

ariawase's Issues

About ArrUnZip ( ArrUnZipがあると助かります）

要望

AriawaseにArrUnZip(仮称)があると助かります。
ArrUnZipはArrZipの反対の機能になります。

ArrUnZipの機能

配列の偶数、奇数の項をペアとみなし、そのペアを別の配列にします。

Array(Array("Coffee", "Beer", "Water"), Array(350, 500, 120))

　↓

Array("Beer", 500%, "Coffee", 350%, "Water", 120%)

　↓   ArrUnZip

Array(Array("Beer", "Coffee", "Water"), Array(500%, 350%, 120%))

機能のイメージ

Private Function TempArrUnZip(ByVal arr As Variant) As Variant
    Dim i As Long, arrxA As New ArrayEx, arrxB As New ArrayEx
    For i = 0 To UBound(arr) Step 2
        arrxA.AddVal arr(i)
        arrxB.AddVal arr(i + 1)
    Next i
    TempArrUnZip = Array(arrxA.ToArray, arrxB.ToArray)
End Function

Sub Sample20150219()

    Dim arr As Variant: arr = Array("Beer", 500, "Coffee", 350, "Water", 120)
    Debug.Print Dump(TempArrUnZip(arr))

End Sub

結果
Array(Array("Beer", "Coffee", "Water"), Array(500%, 350%, 120%))

背景

上のような帳票を作る際、ArrUnZipがあるとはかどります。

ぜひ、ご検討のほど宜しくお願いします。

When you test the Log function will fail to test only 8 and 16.

Log関数をテストすると8と16だけテストにひっかかります

Result

----------------------------------------------------------------------------
KoffeeTwoTest
----------------------------------------------------------------------------
- Log_Test
  [8] :
    Expected: <8#>
    But was:  <8#>
  [16] :
    Expected: <16#>
    But was:  <16#>
============================================================================
0 succeeded, 1 failed, took 0.02 seconds.

standard Module

Private Sub KoffeeTestRun()
    Assert.RunTestOf New KoffeeTwoTest
End Sub

Class Module( named KoffeeTwoTest)

Public Sub Log_Test()

    Dim v
    For Each v In ArrRange(1, 500)
        Assert.AreEqual CDbl(v), log(exp(1) ^ v)
    Next v

End Sub

error when compile from VB code

When compile cls file which contains long string, such as a sql query string with above 30 rows,
there will be raise an error and then compile fail
reproduce in excel 2010 and windows 7

About Japanes character with vbac （ vbacにて日本語が文字化けします）

日本語の部分が文字化けします。
改善事項として取り扱っていただくと嬉しいです。

環境
Windows8.1
Microsoft Excel 2013

CdoMail.cls will be removed

I will remove CdoMail.cls. I'll cancel If more than three people are needed it. What do you think?