Let’s mount a counterattack from now on!

反撃を開始するぞ！

【今回の記事】

１．色が消えた！
２．BYODがあった
３．反撃開始！
４．お願いとお断り

１．色が消えた！

そのマシンを僕たちはCIJP３号機と呼んでいた･･･。
いちおう、解説すると、３機めのColor Inkjet PrinterだからCIJP３号機。規定の印刷契約枚数まではカラー・モノクロ問わず、同一料金で印刷可能な、愛すべきマシンだったが･･･。

今、僕の隣に CIJP３号機はいない。

あのマシンさえ、あれば･･･。この２週間、何度、その思いを繰り返したか、わからない。
気がつけば空を見上げて。なつかしい人たちの面影を思い浮かべて、涙し、大量印刷可能なマシンは、モノクロの輪転機しかない環境に涙し、毎日、心が折れに、折れまくった。

大量カラー印刷。それが「当たり前」に出来た世界から、「まったく」出来ない世界へ来たのだから、そう思うのは当然だけど。

正直、なんとかなるんじゃないか･･･と、あまく考えていた部分もあって･･･。
とにかく、このままでは命懸けで作った My Secret Weapon※1 が使えない。
マークシートリーダーは、カラー印刷ができなくてもまだなんとかなりそうだけれど･･･。手書き答案採点プログラムの返却用答案画像だけは･･･「赤」が使えないと、どうにもならない。

※1「赤」で採点記号を答案画像に印字する、手書き答案の採点プログラムのこと。

例えがよくないかもしれないが、心境的には、高性能（？）ミサイルはあるんだけれど、その発射装置が破壊されたってところだ。

せめて２色印刷※2ができないか･･･？

※2２色印刷は、普通「黒」＋カラー１色（例：赤）で行う印刷のこと。フルカラー印刷に比較すれば、ローコストでインパクトのある資料が作成できる。

そう考え、取り敢えず事務方の責任者にそれとなく伺ってみたが、現状、難しいではなく、「無理」である とのこと。しゅんとして孤独な作業部屋に戻り、また、空を見上げて、心に涙の雨を降らす。空は･･･あんなに青く、美しく、晴れて、きれいなのに。

なぜ･･･。

僕は聞きたいよ。これまでのすべてが、嘘だったって、思えばいいの？

やりたいことは、〇や × 、合計点を赤で印刷したいだけなんだけど･･･。

きっと、月面に一人取り残されて、太陽光の散乱のない、真っ暗な空に浮かぶ青い地球をみたら、こんな気持ちになるんじゃないか･･･。

モノクロームの世界から眺める、フルカラーの地球。
あぁ、僕はあそこに住んでいたんだって･･･。

たのしかったなー。（T_T）

こうなったら、いっそのこと･･･

たかが２５０万だろ？
個人的に購入する分には何の問題もない はずだ。
思い切って、マシンを買うか？

でも、よく考えろ･･･
Delphi の使用許諾ライセンスが１０個分買えるぞ。

バカ！
そんなにDelphi買って、どぉすんだ？

Object Pascalの信者は、絶滅危惧種の生存個体数グラフのように減少の一途をたどっているはずだ･･･

（それは〇県の〇科（科目名：〇）の教員数も同じだと思うが･･･）

だから Embarcadero Technologies, Inc. さんの営業収益増に貢献することはきみの悲願だろ？　Delphiの未来がかかってるんだ･･･

あぁでも、今は･･･カラー印刷がどぉしてもしたいんだ。
Ａ社の営業担当の方の名刺は、大切に保存してある。
電話して『ボク、１台買います！』って言えば、
それで済む話じゃないか。

おまえには、そのガッツと勇気がないのか･･･

（それは「勇気」ではなく、「無茶・無謀」だよ：亡くなった祖母の言葉）

ばぁちゃん、ごめんよ。
オレ、やっぱり大人になんか、なれないよ･･･

モノクロームの世界では、誰も気にしないことで、また、オレはこんなに悩んでる。なぜ、毎回毎回、オレばかり、誰も悩まないことで悩むんだ。

ふと THE STREET SLIDERS の、あの名曲が心に浮かぶ･･･

この曲、リアルタイムで聴いてたんだ･･･。
確か･･･大学２、３年の頃だから、もう30年も前のことだ･･･。

Please get out of my mind.
Please get out of my mind.
抜け殻になっちまうからさ。

Please get out of my mind.
Please get out of my mind.
何処かへ、消え失せてくれ。

THE STREET SLIDERS 「GET OUT OF MY MIND」より引用

あぁ･･･どうせ折れた心だ。
抜け殻のような気持ちを抱えて、
ひとりで苦しむのは、もうたくさんだ･･･

こんな消え失せて欲しい現実なんかに負けてたまるか･･･
七転八倒の人生でいいじゃないか･･･
何回倒れたって、オレは起き上がって見せる･･･

ここから抜け出すんだ。
今までだって何とかしてきたじゃないか･･･
そうだ･･･ ここに色がないのなら、
オレが色をつくってやる。

この色の消えた世界に･･･

２．BYODがあった

挫けそうな気持ちを抱えたまま、起案文書を書く。どうしても･･･、どうしても、このままでは終われない。My Secret Weapon が「もし使える状態」になれば、働き方改革にも大いに貢献できるはずだ。僕にできる唯一の社会貢献じゃないか。それに･･･

『僕がこの世から消えた後でも、動くプログラムを創る』

この夢を叶えないうちは死ねない･･･。なにか･･･、なにか、いい方法はないか･･･。
また、くすんだ窓ガラスの向こう側の空を見上げる、気がつけば、この２週間ですっかりそれがクセになってしまった･･･。

ふと、空よりずっと近いところ、天井に無線LANのアンテナが見えるのに気づく･･･

あの部屋の前の廊下にも･･･
その隣の部屋の前の廊下にも･･･
その隣の隣の部屋の前の廊下にも･･･それが･･･ある

そうだ。BYOD（Bring Your Own Device）環境があった。
カラー印刷の「紙」じゃなくて、「画像データ」、または「PDF文書」を、個人所有のタブレットに送信するんだ･･･。せっかく整備したBYOD環境の活用にもつながるし･･･。なにより「紙」を大量に消費するという、My Secret Weapon の最大の弱点も解消できる！

最高の解決方法だ！
なんとかなりそうだ！！

３．反撃開始！

スキャナーは幸い、使い慣れたものと同機種の複合機が、これまた幸い、僕の自由になる環境下に１台あった。ただ、スキャンした画像の転送先が設定されていなかったので、記憶を頼りにNASの中に適当なフォルダを作成して、そこに転送されるよう設定。セキュリティの部分でちょっと引っ掛かったけど、なんとか、クリア。そのへんにあったA4の印刷物を使ってテストした結果も良好。これで答案の読み取り準備はOKだ。

次は、僕のプログラムの改良。

まずは、マークシートリーダーで使用するExcelのマクロだ。今のままでは紙への印刷しかできないから、CheckBoxを追加して、これにチェックマークを入れて印刷ボタンをクリックしたら、採点結果を通知するPDFファイルを作成するようにすればイイ。

VBA（Visual Basic for Applications）は、そんなに詳しくないけど、Object Pascal よりメジャーだし、参考資料はWebに山のようにあるはずだ。きっと、なんとか、なる･･･

チェックボックスを追加して、キャプションを「PDFに出力する」に設定

TabIndexも忘れずに変更。開始番号のテキストボックスのTabIndexが０、終了番号のテキストボックスは１、追加したチェックボックスは２、印刷実行のコマンドボタンは３、キャンセルボタンは４に設定する。

なんで、そうなってるのか、理解に苦しむんだけど、Delphiと違って、VBAでは「標準仕様」で、なんにもプログラムコードを書かなくてもEnterキー押し下げでフォーカスがTabIndexで指定したコントロールへ「勝手に」移動する。そのようなonKeyPress イベントが予め実装されているようだ。

Enterキー押し下げで、他の動作をさせたい場合はどうするのか知らないけど、便利と言えば便利な「標準仕様」であることは言うまでもない。でも、Delphiみたいな、すべてをプログラマが制御できる環境に慣れると、VBAの「標準仕様」には驚きというか、恐怖に近いものを感じてしまう。これは僕だけのことだろうか･･･。

この動作はDelphiのObject Pascalなら、次のコードを書かなければ実現できない。

//TEditのonKeyPress イベント
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  //Enterキーで次のコントロールへ
  if key = #13 then begin
    keybd_event(VK_TAB,0,0,0);
    Key := #0;
  end;
  //入力制限する場合 ここに記述する

end;

Form1のKeyPreview を True にする必要があったと思うが、状況によっては、これも使える。

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  //リターンキーで移動させる
  if Key = #13 then
  begin
    SelectNext(ActiveControl, True, True);
    Key := #0;
  end;
end;

だから、僕が作ったVBAのGUIをマウスなしで操作するなら、設計時にコントロールを移動したい順番にTabIndexを指定しておき、実行時には、まず開始番号をテキストボックスへ入力してEnter、次に終了番号をテキストボックスに入力してEnter、チェックボックスへフォーカスが勝手に移動したら、スペースキーを押し下げてチェックをON／OFFし、Tabキーを押してフォーカスを印刷実行のコマンドボタンへ移動。Enterキー押し下げで、印刷（or PDFファイル作成）が実行という手順になる。

Windows標準のコントロールの移動は、Enterキーではなく、Tabキーであることを忘れてはいけない。

印刷＆PDFファイル作成部分は･･･

Private Sub CommandButton1_Click()

    Dim PrintNo1 As Integer
    Dim PrintNo2 As Integer
    Dim i As Integer
    
    'PDF出力用に追加
    Dim Rng As Range
    Dim fName As String
    
    If UserForm1.TextBox1.Text = "" Then
        MsgBox ("開始番号を半角数字で入力してください。")
        TextBox1.SetFocus
        Exit Sub
    End If
    
    If UserForm1.TextBox2.Text = "" Then
        MsgBox ("終了番号を半角数字で入力してください。")
        TextBox2.SetFocus
        Exit Sub
    End If
    
    PrintNo1 = UserForm1.TextBox1.Text
    PrintNo2 = UserForm1.TextBox2.Text
    i = PrintNo1

    For i = PrintNo1 To PrintNo2
        Range("A2").Select
        ActiveCell.FormulaR1C1 = i
        Range("B6:AB38").Select
    
        ActiveSheet.PageSetup.PrintArea = "$B$6:$AB$38"

        'PDFにする範囲を指定
        Set Rng = ActiveSheet.Range("B6:AB38")

        'PDFファイル名
        If i < 10 Then
            fName = Range("C8") & "0" & Range("E8") & "_" & Range("G8")
        Else
            fName = Range("C8") & Range("E8") & "_" & Range("G8")
        End If

        '全角＆半角スペースを削除する
        fName = Replace(fName, " ", "")
        fName = Replace(fName, "　", "")
        
        If Not CheckBox1.Value Then
            '紙に印刷（テスト時にはここをコメント化する）
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        Else
            'PDF出力
            Rng.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=ActiveWorkbook.Path & "\" & fName & ".pdf"
        End If
        
    Next i
    
    Range("A2").Select

End Sub

なんでVBAなのに、PDF作成部分の代入演算子（？）が := なんだ？って疑問が･･･生まれたけど、取り敢えず、動かす方が先。

=と:=の違い

http://officetanaka.net/excel/vba/beginner/02.htm

上の疑問について、調べてみた結果、VBAで、引数に値を設定するときに使用される記号が「:=」であるとのこと。初めて知りました。

サンプルデータだから、超簡略化して･･･

これで実行すると･･･

こうなると、ボタンのCaptionは「実行」だけの方がいいかな？

結果は･･･、次の通り。

できた！ できた！！

PDFファイルの内容は･･･

あとは、このPDFファイルをBYOD環境を利用して、個人所有のタブレット端末へ送信する仕組みを構築すれば、いい。それは仲間と協力すれば、必ずできる。

魂の抜け殻みたいな状態の･･･今の僕でも、取り敢えず、ここまでは･･･できた。
明日、朝、目が覚めたら、手書き答案採点プログラムの合計点印刷手続きを改良して、「紙」へ印刷するのではなく、上で行った作業と同様に、今度は指定フォルダ内に返却用答案画像ファイルを作成＆保存できるようにしよう。アルゴリズムは同じだから、Delphiでも必ずできるはずだ。

プログラムも、僕も、よくなるんだ･･･。
それで、いいじゃないか。
また、ゼロから創めればいいだけのことじゃないか･･･。

今までだって、全部ゼロから作ってきたんだ。
そうだ。僕は･･･ 精一杯、やった。
その時々で、僕にできることは全部やった。
後悔など、何ひとつない。

それが今、また、ゼロに戻っただけだ。

この･･･色のない世界に、色を創るのは僕だ。
僕にしか、出来ない仕事だ。
僕が色を創るんだ。

僕があきらめない限り、
この夢は･･･実現できる可能性を残している。

僕にしか、出来ない仕事をしてみせる･･･。

あきらめるもんか。
やるぞ！

４．お願いとお断り

このサイトの内容を利用される場合は、自己責任でお願いします。記載した内容を利用した結果、利用者および第三者に損害が発生したとしても、このサイトの管理者は一切責任を負えません。予め、ご了承ください。