タグ: programing

　昨日のバージョンでは絵文字を入れたシートで実行するか、途中でそのシートに移動するかしなければならなかったが、このバージョンでは最初に取り込んでおくので、後でシート間の移動があっても安心。配列を関数の引数にすることを覚えた。

sub main()
Dim numOfer(2) As Integer ‘エラーの数（最終表示のため）
Dim showtxt(2) As String ‘メッセージ内容
Dim sw As Integer ‘メッセージ用
Dim emoji(11, 5) As String ‘メッセージを作る時に使用

‘ どこかでエラーをカウントした結果 numOfer(1) ,numOfer(2) には数字が入っている。
‘　テストのために数字を入れる
numOfer(1) = 3
numOfer(2) = 5

‘絵文字取り込み　シートhogeの1,1-11,5 セルに顔文字を入れておく。
Sheets(“hoge”).Select
For i = 1 To 11
For j = 1 To 5
emoji(i, j) = Cells(i, j)
Next j
Next i

　　for i = 1 to 2
sw = numOfer(i)
showtxt(i) = getEmoji(sw, emoji())
next i

MsgBox “ERR1：” & numOfer(1) & ” 個 ” & showtxt(1) & vbNewLine & vbNewLine & _
“ERR2：” & numOfer(2) & ” 個 ” & showtxt(2)
end sub

Function getEmoji(sw As Integer, emoji() As String) As String
‘swにはエラーの数が入っている、emoji は配列でメインルーチンの最初にシートから取り込んだもの

Dim mood As Integer ‘どの行を使うかを乱数で決定
Dim retsu As Integer ‘どの列を使うかは残りのエラー数で決める

mood = Rnd * 10 + 1

If sw = 0 Then
retsu = 1
ElseIf sw = 1 Then
retsu = 2
ElseIf sw < 5 Then retsu = 3 ElseIf sw < 9 Then retsu = 4 Else retsu = 5 End If getEmoji = emoji(mood, retsu) End Function

　引き続きVBAで思いつき。Fanction の使い方マスターしたのでさらにコーディングの生産性が上がった。

　実行の結果、修正すべきエラーが残っていたらダイアログを出すというだけのものだが、それだけでは味気ないのでランダムでメッセージを出すようにしてみた。それ用のワークシートを持っておいて（画面上は非表示）そこからエラー数の大きさによって深刻度を変えるが、同じ数字でも違う顔文字を出すようにしてみた。

　マスタとなるメッセージ（顔文字）の数を増やして種類を増やすことは簡単にできる。ここではセルから直接データをとっているが、見せたくなければ他のファイルから読み込むこともできるだろうし、懐かしのRead data 文でソース内部に持つことも可能だろう（VBAで read data が使えるかは未確認です）。

　これはメインルーチンに組み込むことが前提だが、エラー数によって呼び出されるサブルーチンにすることも可能。そうすれば、エラー数の有無によってメッセージを出すかどうかを振り分ける if は不要。


Sub errMsg()
'
' eswにエラーの数をカウントしておく。
'チェック項目が増えても同じロジックで配列を増やすだけでOK
'
Dim esw(2) As Integer
Dim showtxt(2) As String
Dim sw As Integer

esw(1) = Rnd * 10 + 1 'テスト用
esw(2) = Rnd * 10 + 1 'テスト用

If esw(1) > 0 Or esw(2) > 0 Then
sw = esw(1)
showtxt(1) = getEmoji(sw)

sw = esw(2)
showtxt(2) = getEmoji(sw)

MsgBox "ERR1 " & esw(1) & " 個 " & showtxt(1) & vbNewLine & _
"ERR2 " & esw(2) & " 個 " & showtxt(2)
End If
End Sub

Function getEmoji(sw As Integer) As String
Dim mood As Integer 'どの行を使うかを乱数で決定
Dim retsu As Integer 'どの列を使うかは残りのエラー数で決める

mood = Rnd * 10 + 1

If sw = 0 Then
retsu = 1
ElseIf sw = 1 Then
retsu = 2
ElseIf sw < 5 Then retsu = 3 ElseIf sw < 9 Then retsu = 4 Else retsu = 5 End If getEmoji = Cells(mood, retsu).Value End Function

　「VBA に夢中ｗｗｗ Excel から IE を介して情報収集（サンプルコード付）」以降にも引き続きVBAを書いている。

　今日は、特定のフォルダのファイル名を取得し、そのファイルから別のフォルダに一括でファイル名を変更しながらコピーするというマクロを組んだ。ついでに、ファイル名のリストを使って、複数のファイルの任意の指定したセルに任意のデータを書き込むマクロもセットした。

　「そんなもん、何に使うねん？」と思うかもしれないが、企業の事務職なら分かるはずだ。派遣さんの得意技に、「前月（期）に作ったフォルダをコピーしてファイル名だけ変えて翌月（期）の作業ファイルにする」というものがある。過去のファイルを残しながら、数字だけを入れ替えれば今期の資料ができるというメリットが有る。ルーチンワーク主体の業務では合理的ではある（弊害もあるが）。

　で、経理としては決算資料がその典型例となる。そして、作る資料の数も多い。フォルダを複製、一つ一つのファイル名を変更、一つ一つのファイルを開いてヘッダ要素（”2013年度9月” とか “第2四半期” など）を手作業でやっていた。時間もかかるし何より何も価値を生み出さない機械的な作業だ。そう、「機械的な作業」。これこそVBAの最も得意とするところだ。

　さらに、この作業の効率を上げるために、対象となるファイルの年月や期といった要素を全て同じセルから取り出すように作り替えた。定型化されたワークシートならこの作業は不要だが、微妙に異なるフォーマットを使っているので、オフセット化するのだ（このやり方はワークシートのパラメータを扱う際にも有効）。

　これで、1～2時間かかっていた作業が数秒になった。しかも、入力忘れは皆無だ。本当に人間が判断して入力しなければならない箇所に集中できる。

iPhone や Android の開発は敷居が高い。敷居が高い上に使い道がないからやる気も出ない。かといって、人に使ってもらえるようなものも思いつかない・・・

　そんな、プログラムしたい情熱を叩きつける相手が最近は VBA(Excel)だ。Web にある情報とオンラインヘルプだけでやっているので、簡単なことに躓くことがあるが、基本的なテクニックを使いまわして課題をクリアできると楽しい。今の実行環境（Windows7,8GB,SSD,Core i5 2GHz,Office 2010)でなら1万レコードの集計も1秒もかからない。数万回のループが回っても数秒で終わる。だから、コーディングは分かりやすいことを最優先させる。20年以上前に汎用機でした、実行時の実メモリ使用量域を減らしたり、ロジックのチューニングをしたりといった苦労は全て過去のことだ。

　今回、VBA から IE を操作するという本を kindle store で見かけて、無理やり用途を見つけて作ってみた。オブジェクトから値を引き出す所に苦労したが、それ以外は従来からのプログラム方で対応できた。

　企業秘密もないし、財産価値もないし、完全に個人で作ったものなので公開する。自由にダウンロードして使っていただきたい。ただし、以下をあらかじめご了解頂いた上での利用に限ります。
・ソースを読んで、中身に変なところがないか確認できる人。
・社内で使うことが前提なのでエラー処理とかちゃんとやっていません。こちらの環境では正しく動きましたが、他の環境で同様に動くか分かりません。
・Yahoo! のファイナンス情報をとってきているので、サイトの仕様が変わったら正常に動かなくなります。
・テストしたのは Windows 7 + Excel2010 です。他の組み合わせで動くかわかりません。

　また、26週間移動平均線をとるための履歴データを多く持つのがめんどくさかったので、2013年4月以降にしか対応していません。過去に遡って自動的に26週間移動平均線を作るマクロも考えられますので、改造してはいかがでしょうか。また、スパンについても月固定ですが、任意の期間を選べるようにしても面白いかもしれません。

　なお、こちらの一連の動画にはお世話になった。このサイトがなければ諦めていたかもしれない。

為替レートグラフ