vbaidiot/ariawase

Ariawase is free library for VBA cowboys.

What is Ariawase?

Ariawase is an open source VBA library.

Quick Start

Run build.bat, you'll get office macro-enabled file in bin directory.

Articles

Coming soon! Please check back.

License

This software is released under the MIT License, see LICENSE.txt.

ariawase's Issues

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

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

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

環境
Windows8.1
Microsoft Excel 2013

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があるとはかどります。

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

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

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?