|
▼taichi さん:
こんにちは。
> kanabunさんの
> このコードに興味を持ちました。が
> UBound(v)のところでエラーになります。
> 何か問題があるのでしょうか?
>
>> Set dic = CreateObject("Scripting.Dictionary")
>> For i = 1 To UBound(v) '配列0番目はSkip
>> dic(勘定科目(i)) = i
>> Next
>> dic("その他") = i '「その他」科目を追加
>>
すみませんね〜
そこは、
>(1)勘定科目リストを dicに入れる
> 勘定科目 = Array("", "入金票", "交換小切手", "先付小切手",
......
のところなので、
>> For i = 1 To UBound(v) '配列0番目はSkip
でなく、
For i = 1 To UBound(勘定科目) '配列0番目はSkip
が正解でした。
また、シートレイアウトがよく分からなかったので、
・シート名や元データテーブルが6行目から始まっている、
・ソート対象列が左から数えて5列目
・表は空白列がない
など、適当な仮定を入れたサンプルですので、
そうでない場合は該当行を適切に編集する必要があります。
コードの注目行にブレークポイント[F9]を付して、その行で
コードの実行を一時中断させ、
[F8]キーで1行づつステップ実行しながら、その行がどういう処理を
しているか、またその行を実行することにより変数の内容が
どう変化しているか、変数にマウスを置いたり、ローカル
ウィンドウで変数の内容を調べながらデバッグしていくと
理解が速くなりますよ。
ではでは。
|
|