VB・VBA | フィロの村note

VB6メモ：独自関数：四捨五入

本日、仕事のプログラミングで計算結果がどうしても微妙に値がずれてしまう不具合があったのでメモしておきます。

私はずっとRound関数が四捨五入の関数と思っていましたが、どうも違ったのですね。

調べてみるとRound関数は下記のような動きをするようです。

Round(1.5)　⇒　2
Round(2.5)　⇒　2

このようになり、Round関数は最も近い偶数に丸められるようです。

これではちょっと困ってしまうので、独自関数を作りました。

Round関数と同じように小数桁も指定できるようにしています。

'四捨五入(Roundは偶数に近い整数を返す関数の為)
Public Function Round2(ByVal num As Double, Optional ByVal digit As Long = 0) As Double
'引数：
'   num：四捨五入する数値
'   digit：四捨五入する小数点(省略可)
'戻値：
'   numを四捨五入した値

    Dim tmpNum As Double
    
    tmpNum = num * 10 ^ digit
    
    If tmpNum > 0 Then
        Round2 = Fix(tmpNum + 0.5) / 10 ^ digit
    ElseIf tmpNum < 0 Then
        Round2 = -Fix(-tmpNum + 0.5) / 10 ^ digit
    End If
    
    Exit Function

End Function

そんなに難しいものではありませんが解説しますと、四捨五入したい値に0.5を足してFix関数で小数点以下を切り捨てています。

ここでは独自関数を作りましたが、実はFormat関数を使えば四捨五入はできるそうです。

しかしFormat関数ではWindowsXPのSPなしでは正常に動作しないらしいので使う気になりませんでした。

ちなみにEXCEL関数のROUNDは四捨五入らしいです。…紛らわしいなあ…

VBはExcelVBAから入ったので余計に勘違いしていました。

Application.RoundUpとかApplication.RoundDownってVB関数じゃなくてExcel関数だったんですね。

四捨五入は良く使うのでちゃんと覚えておこう…

2008.04.11 Friday
VB・VBA
22:20
comments(0)
trackbacks(0)
by 謎猫

VB6メモ：独自関数：フォルダの有無

先月「ファイルの有無」を紹介したので「フォルダの有無」です。

下記のコードではGetAttr関数で指定パスの属性を取得し、フォルダ(vbDirectory)かどうか判断します。

フォルダならTrueを返し、ファイルや存在しないパスならFalseを返します。

'フォルダの有無を確認
Public Function dirExist(ByVal dirPath As String) As Boolean
'引数：
'   dirPath：フォルダのフルパス
'戻値：
'  指定パスがフォルダならTrue
'  ファイルや存在しないパスならばFalseを返す

On Error GoTo func_err
    
    If GetAttr(dirpath) = vbDirectory Then
    	isDirExist = True
    Else
    	isDirExist = False
    End If

    Exit Function
func_err:
    isDirExist = False
End Function

独自で関数を作る場合は、例外処理をうまく使うことがポイントでしょうか？

どうもVBにない関数は作る際は例外処理を使うことが多い気がします。

ところでVBは使いたい機能がところどころ足りない気がしますねえ…

.NETの関数を使えばそのまま処理できるかと思いますが、私の職場はVB6主体なので自分で作る必要があります。

2008.04.11 Friday
VB・VBA
21:53
comments(0)
trackbacks(0)
by 謎猫

VB6メモ：独自関数：DBクローズ

VBの作法で、オブジェクトを変数に格納して使い終わった場合は下記のようにNothingを代入するのが作法だったかと思います。

Set data = Nothing

DAO等でDBをオープンした場合では、Close()＋Nothingの代入となり結構長い1文になりますよね。

If Not db IS Nothing Then
     db.Close()
     Set db = Nothing
End IF

これでは毎回書くのはちょっと面倒なので、関数化させてみました。
ただ普通に作っただけでは芸がないので、
Database型の他に、Recordset型、QueryDef型でも使える関数にしてみました。(いうほど大したものではないが)

'DBクローズ処理(Database型、Recordset型、QueryDef型で動作確認済み)
Public Function CloseDB(ByRef vDB As Object) As Boolean
'引数：
'   vDB：クローズするオブジェクト
'戻値：
'   クローズ処理の成否(true/false)
On Erro GoTo func_err
    
    If Not vDB Is Nothing Then
        vDB.Close
        Set vDB = Nothing
    End If
    
    CloseDB = True
    Exit Function
func_err:
    CloseDB = False
End Function

他にClose()で終了するオブジェクトがあれば使えるかもしれません。

ところで関数化させはしましたが、今回のは大して有用性はない気がしないでもないッス…ι
下記のように1行で書けば、これはこれでスッキリしますしねえ…？

If Not db IS Nothing Then db.Close() : Set db = Nothing

2008.03.30 Sunday
VB・VBA
21:41
comments(0)
trackbacks(0)
by 謎猫

VB6メモ：独自関数：配列の要素数

配列の要素数をしりたいときは普通、UBound関数で最大要素インデックスを求めて+1とするかと思います。
ただ困ったことにUBound関数は配列が未割り当ての場合にエラーになってしまいます。

それでは不便なので今回も独自関数を作りました。
簡単なので同じような関数を作っている人もいるかと思いますが…
ここは自分で作って勉強したいと思います。

下記のコードの使用は自己責任でお願いします。

'配列の要素数を返す(2次引数は省略可能)
Public Function arryElmntCnt(ByRef vArray As Variant, _
                             Optional ByVal dimensionNo As Long = 1) As Long
'引数：
'     vArray：配列
'     dimensionNo：次元インデックス(省略可)
'戻値：
'     指定した次元の要素数を返します。

On Error GoTo func_err

    If IsArray(vArray) And dimensionNo > 0 Then
        '配列であり、階層が1以上の場合
        arryElmntCnt = UBound(vArray, dimensionNo) + 1
    Else
        GoTo user_err
    End If

    Exit Function
func_err:
    '要素がない場合
    arryElmntCnt = 0
    Exit Function
user_err:
    '引数が不正値の場合
    arryElmntCnt = -1
End Function

上記のコードで配列の要素数(最大要素インデックスではない)が取得できます。
配列が見割り当ての場合は0を返します。

ちなにみVariant型をつかっているので、String/Long/Integer…なんの配列でも処理できると思います。
ただしVariant型はメモリを結構使うらしいので、少し処理速度に問題があるかもしれません。
気になるようでしたら利用内容に合わせて「vArray As Variant」を「vArray() As String」等に変更してください。

あと、Variant型は何でも格納できるようなので、引数として配列以外のものを入れることができてしまいます。
この場合はエラー値として-1を返すようにしています。

2008.03.18 Tuesday
VB・VBA
22:00
comments(3)
trackbacks(0)
by 謎猫

VB6メモ：独自関数：ファイルの有無

ちょっと控えておけば便利かもしれない独自関数をメモしておきます。

VBやVBAにはファイルの存在の有無を確認する関数がありません。(.NETならあったかもしれませんが)
となると、自分で作るしかないので作ってみました。意外と簡単にできました。
ｔｘｔ，ｘｌｓ，ｍｄｂ等で動作は確認しています。

簡単なものですが、下記のコードの使用は一応自己責任でお願いします。

Public Function fileExist(ByVal filePath As String) As Boolean
'引数：
'   filePath：ファイルパス
'戻値：
'  ファイルが存在すればTrue
'  存在しなければFalseを返す

    Dim n As Integer
On Error GoTo func_err
    
    n = FreeFile
    Open filePath For Input As #n    'ファイルが開ければ存在すると判断
    Close #n
    
    isFileExist = True
    Exit Function
func_err:
    isFileExist = False
End Function

上記のコードはとりあえずファイルを開いて存在の有無を確認するものです。
開ければTrueを返し、開けずエラーが発生すればFalseを返すということになります。

VBは仕事でしか使っていないので試してはいませんが…
ファイルがロックされているときは、開けずにFalseを返すのではないかと思います。
画像ファイルの有無も試していません。
そのうち試しておこうと思います。(08/03/30jpg画像での動作も確認しました)

2008.03.17 Monday
VB・VBA
22:13
comments(0)
trackbacks(0)
by 謎猫

VBAメモ：1を①に変換

今回は「1～20を①～⑳」として表示させる方法をメモしておきます。
ウチのPCにはExcelがないのでここのVBAメモは仕事中に覚えた内容です。
単純ながらこれはコードの内容を覚えておけば、他の方法にも応用できると思うッス…！
今後(私が)忘れたときに見れるようにメモしておくッス！

以下にコードを記しておきます。

Dim i As Long
Dim str As String
str = ""

For i = 1 To 20
　　str = str & Chr(Asc("①") + i - 1)
Next i

Msgbox(str)

'「①②③④⑤⑥⑦⑧⑨⑩⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳」と表示されます

以下に関数の内容を記しておきます。

Asc(文字)
　→文字をASCIIコードに変換します。

Chr(ASCIIコード)
　→ASCIIコードを文字に変換します。

ASCIIコードは文字を数字で表したものです。
当然…というべきか、コードはabc…のように順番に並んでいます。
つまり①～⑳の文字コードも順番にならんでいるのです。
①の文字コードを取得できれば、他のコードは数字別の差を求めれば②～⑳も求められるのです。

同じように、日本語とか英語を順番に表示させたい場合とかにも使えそうですよね。
他の言語にもAscやChrと同じような関数はあるかと思われます…！
…たぶんね…！

2008.02.11 Monday
VB・VBA
16:38
comments(0)
trackbacks(0)
by 謎猫

Excel VBAメモ：Format関数での0埋め

今日も仕事で残業でした。
今日は早く帰って良いよと言われてたのに残業してました。

VBAで書いてて詰まったところがあって途中で投げるのも気持ち悪くて残業しました。

詰まったといっても難しいプログラミングをしていたわけではありません。
簡単な箇所で詰まってました。

Format関数
値の表示形式を変換する関数

今回詰まった箇所は「1～3桁の数値を0埋めでExcelのセルに表示させる」…それだけのものでした。
まぁ普通に考えて下記のコードで出来るはずです。

Dim sheet As Worksheet
Dim cnt As Long
cnt = 11

sheet.Cells(1,1).Value = Format(cnt,"000")
'シートの(1,1)のセルに「011」と表示されます

――表示されるはずなのに、今日は「11」のままセルに表示されたのです。
以前に同じ処理をやったときには問題ありませんでした。

…悩みました…こんなので2時間も考えてしまったんですよ…
で、原因ですが…。

――結局これはコードに間違いはありませんでした。
これはExcelさんが得意な「余計なお世話な機能」のせいです。

…Excelさんって日本語入力でセルに数字を入力しても自動で英数表示に変換するじゃないですか…
あれですよ。
今回の「011」は自動で「11」に変換してくれているんです。…お節介な。

となるとまず思いつく解決案は、Excelのセルを右クリックして[セルの書式設定画面]から[表示形式]を「文字型」にするというのが挙げられます

しかしVBAだけで処理したい場合もあるかと思います。
その場合は以下のように記述します。

Dim sheet As Worksheet
Dim cnt As Long
cnt = 11

sheet.Cells(1,1).Value = Format(cnt,"'000")
'シートの(1,1)のセルに「011」と表示されます

Format関数の2次引数の「000」の前に「'」が入れるだけです。
こうするとセルには「'011」と出力されます。
「'」は文字の先頭に入力することで「'」以降の文字を文字型として表示させることができます。

ちなみに「+」や「=」などの四則演算子も「'」を前に入力すればセルに表示できるようになります。

2008.01.11 Friday
VB・VBA
23:43
comments(1)
trackbacks(0)
by 謎猫

Excel VBAメモ：UBound関数と多次元配列

現在仕事ではVBAをメインにプログラミングをしているのですが、今まで困っていた点が解決できたのでメモしておきます。
今回は下記の関数になります。

UBound()
配列の最大要素数を返す関数

相変わらず初歩的なものです。
まず簡単な利用例を書こうかと思います。

'(利用例)
Dim test(3) As Long
Dim i As Long

For i = 0 To UBound(test)
　　'配列の要素数だけループ
Next i

まぁこんな感じの配列のループ処理にはUBound()は重宝するかと思います。

さて、私がVBAを始めて数ヶ月間悩んでいたのは以下のような場合です。

'(NG例)
Dim test(3,5) As Long
Dim i As Long

For i = 0 To UBound(test)
　　'エラーで処理できません
Next i

見てわかる人は多いと思いますが、これではエラーがでます。
UBoundの引数に多次元配列が指定されている為、エラーが出ます。

この為、私は多次元配列の要素数は調べられないものと思い込み、不便だなーと思っていました。
…が、よくよく調べてみるとUBound関数で多次元配列の要素数を確認する方法はありました。
というかExcelのヘルプに書いてましたよ…(ぉぃ

'(利用例)
Dim test(3,5) As Long
Dim i As Long

For i = 0 To UBound(test,1)
　　'多次元配列1次元の要素数だけループ
Next i 
For i = 0 To UBound(test,2)
　　'多次元配列2次元の要素数だけループ
Next i

…これだけでした…orz
UBound関数の2次引数に次元番号を入れれば、その要素数が返されるようです。

ヘルプとかマニュアルはちゃんと読まないといけないですね。
でもExcelのヘルプはわかりにくいので読む気がしないッス…(汗