カテゴリー: Program

今日も見に来てくださって、ありがとうございます。
お仕事で、ちょっとつまずいたので、まとめます。誰かのお役にたつとうれしいです。

　あ、お急ぎの方に、結論から言いますと、Microsoft Excel VBAマクロでセルに正しくない計算式をセットするとこのエラーを発生させてしまいます。
　例：

Range("A1").Value = "=SUM([3:[10)"

　業務でマクロ、普通に作られていますね。ある日、「実行時エラー ‘1004’:」なんて発生して動かなくなると、ショックですよねぇ。このエラー、Google先生に聞いてみたのですけど、どうして発生するのかという条件がありすぎるせいか、原因を特定するのが難しいエラーのようです。通常のエラーだと、マクロが発生個所を教えてくれるのですが、関数内で「On Error GoTo 」が記述されてあったので、このエラー、どこで発生したのか分かりませんでした。なので1行ずつ自分でステップ実行していって、発生個所を特定する必要がありました。
　今回エラーが発生したマクロのイメージは以下のような感じです。商品ごとに毎月の売り上げがあって、1年間の合計欄を作成するようなケースです。

Sub 年間合計欄をセット()
    ' 開始行、開始列から下にある12か月分の合計セル(=SUM())を商品店数分セットします。
    Dim i As Integer
    Dim 商品点数 As Integer
    Dim 開始行 As Long
    Dim 開始列 As String
    Dim 出力列 As String
    Dim 計算式 As String

    商品点数 = 5
    開始行 = 3
    開始列 = "C"
    For i = 1 To 商品点数
        出力列 = Chr(Asc(開始列) + i - 1)
        計算式 = "=SUM(" & 出力列 & Format(開始行) & ":" & 出力列 & Format(開始行 + 12 - 1) & ")"
        Range(出力列 + Format(開始行 + 12)).Value = 計算式
    Next
 End Sub

　ここでのポイントは、「出力列」の算出方法です。「開始列」”C”は、Asc関数で67になります。これは”C”をASCII文字コードに置き換えています。これに順次数字を加えていって、商品点数5の場合、”C”(67)、”D”(68)、”E”(69)、”F”(70)、”G”(71)が出力列として算出されます。できあがる一つ目の「計算式」は、この場合「=SUM(C3:C14)」になります。一見問題なさそうに見えますね。
　問題点は、列が”Z”(90)までは見つかりません。問題は列がその隣にうつった時、”AA”≠(91)のため発生するのです。今回これを回避するためにエクセルの機能を利用して以下のように関数を作成しました。

'*****************************************************************
'*関数名　：Number2Letter
'*機能概要：入力されたカラム位置の数値からカラム文字の英数字に変換します
'*引数  　：カラム位置（1～16384）
'*戻り値　：カラム文字
'*****************************************************************
Function Number2Letter(iCol As Integer) As String
    Number2Letter = Split(Columns(iCol).Address(True, False), ":")(0)
End Function

　あるいは、数値をA～Zの26文字で表現する26進数に変換する、と考えると以下のような関数をつくってもよいかも知れませんね。

Function Number2Letter(iCol As Integer) As String
    If iCol < 1 Then Number2Letter = "": Exit Function
    Number2Letter = Number2Letter(Int((iCol - 1) / 26)) & Chr(Asc("A") + ((iCol - 1) Mod 26))
End Function

　これで、スッキリ解決です。

　ちなみに、今回の問題点をわかりやすくするために、単純化して書いてありますけど、実際にはちょっとした落とし穴があって、エラーは以下のような行で発生していました。簡単にしてますけど、”A:A”,”AA:AA”は複雑な変数で記載されていましたよ。

Range("A:A","AA:AA").Value = Range("A:A","AA:AA").Value

　同じ範囲のレンジを代入しているだけなので、エラーが起きる意味が分かりませんよね。今回、対象商品が増えてエラーが発生したので、すぐに「AA」が怪しいな、とあたりを付けて、「Range(“A:A”,”Z:Z”).Value」と「Range(“AA:AA”).Value」に分けて実行したところ、前者は成功して、後者が失敗したのです。それで、エクセルは「AA」セルのコピーを失敗する不具合があるのかな、と、一つ目の落とし穴に落ちたのでした。
　このValueへのセット、実は、文字列の式を値に変換するために代入しているのでした。そのため、文字列の式に誤りがあると、今回のエラーが発生するわけです。同様のエラーを発生させるステップは以下の通りです。文章だと意味がわかりにくいと思いますので実際に実行してみてくださいね。

Sub test()
    Range("A1").NumberFormat = "@" ' 文字列書式に変更
    Range("A1").Value = "=SUM(]3:]14)" ' 正しくない式を代入
    Range("A1").NumberFormat = "General" ' 書式を戻す
    Range("A1").Value = Range("A1").Value ' エラーが発生します
End Sub

　と、いうことで、処理データが増えたときにカラム方向へセルを拡張させるときには、気を付けましょう、というお話でした。

追記

　このページ、ぼくのブログの中では一番アクセスが多いので、きっとこの問題で悩んでいる人は多いのでしょうね。ということで、またしても発生しましたので原因を追記いたします。

　再現するには、イミディエイトウィンドウで、以下のように実行します。

? Sheet1.Cells(0,1).Value

　セルの行列の数値を正しくセットしていない場合にも発生します。オフィス2013のエクセルの場合、行の値の範囲は、1～1048577、列の値の範囲は1～16384の制限があるようです。なので、VBAで変数を使って行列をセットしている場合は注意が必要です。

　不覚にもこのエラーがまた出てしまいましたが、原因は、if文の条件ミスでした。変数に値をセットできておらず、0で実行してしまったのでした。みなさんも、気をつけましょう。

さらに追記

　ここまで読んでくださって、ありがとうございます。さて、ここまで読まれたあなたは、問題が解決したでしょうか？いやいや、まだ解決していない、ということでもしよけらばコメントいただけますでしょうか。Excelの記事は数えるほどしかないホームページ ですが、前述しましたとおり、このページは中でもアクセス数が多いページです。訪れられた方の問題が少しでも多く解決するといいな、という気持ちでやっておりますので、上記以外の問題でも解決できるようにしたいと思います。新たな問題、お待ちしております。

今日も見にきてくださって、ありがとうございます。

　勉強会でPythonの講師をさせていただいているので、ここのところPythonについて思いを馳せるタイミングが増えてきています。最近Pythonを使っていて、おお！と思ったことをちょっと書こうと思います。なんと、クラス作成後に属性を追加することができるのです！すべてオブジェクトにすると、こんなこともできてしまうのですね。ちょっといろいろと確認してみます。

　まずは、何もないクラスを作成。そして、インスタンスを作成します。

>>> class Box:
...     pass
... 
>>> box1 = Box()

なんと、このあと動的にアトリビュートを追加することができるのです。

>>> box1.x = 100
>>> box1.y = 120         
>>> print(box1.x, box1.y)
100 120
>>> 

当然、メソッドも追加できますよね？
ということで、やってみます。まず関数を定義して、代入して、実行してみます。

>>> def getpos(self):
...     print(self.x, self.y)
...
>>> box1.getpos = getpos
>>> box1.getpos()
Traceback (most recent call last):
  File "<stdin>", line 1, in <module>
TypeError: getpos() missing 1 required positional argument: 'self'
>>> </module></stdin>

おっと、うまくいきませんね。ちなみに、この「self」というのは、クラスのメソッドがインスタンスになった時、関数実行時に一つ目のパラメータとしてインスタンスが渡されるために必要になる引数です。ホントはどんな名前でもいいのですけど慣例として「self」とすることになっています。
あ、ここまで書いて気づきました。インスタンスに関数を定義したのがいけないのかも知れません。Boxクラスの方へセットしてみます。

>>> Box.getpos = getpos
>>> box2 = Box()
>>> box2.x = 300
>>> box2.y = 320
>>> box2.getpos()
300 320
>>>              

できました！
このように、クラス作成後に動的にクラスを変更できてしまうので、プログラムを使ってコーディングすることができますね。ちなみに、アトリビュートは文字列を使ってセットできることを確認しました。dir()関数を使って、定義したクラスの中身を調べてみました。

>>> dir(Box)
['__class__', '__delattr__', '__dict__', '__dir__', '__doc__', '__eq__', '__format__', '__ge__', '__getattribute__', '__gt__', '__hash__', '__init__', '__init_subclass__', '__le__', '__lt__', '__module__', '__ne__', '__new__', '__reduce__', '__reduce_ex__', '__repr__', '__setattr__', '__sizeof__', '__str__', '__subclasshook__', '__weakref__', 'getpos']
>>> 

名前からアトリビュートっぽいのを探ります。以前いろいろと探して「__dir__」に含まれているのを知っていたので、中を見てみましょう。

>>> dir(Box.__dict__)
['__class__', '__contains__', '__delattr__', '__dir__', '__doc__', '__eq__', '__format__', '__ge__', '__getattribute__', '__getitem__', '__gt__', '__hash__', '__init__', '__init_subclass__', '__iter__', '__le__', '__len__', '__lt__', '__ne__', '__new__', '__reduce__', '__reduce_ex__', '__repr__', '__setattr__', '__sizeof__', '__str__', '__subclasshook__', 'copy', 'get', 'items', 'keys', 'values']

ええと、ディクショナリークラスの中身のようですね。見方が違いました。きっと、こうですね。

>>> Box.__dict__
mappingproxy({'__module__': '__main__', '__dict__': <attribute '__dict__' of 'Box' objects>, '__weakref__': <attribute '__weakref__' of 'Box' objects>, '__doc__': None, 'getpos': <function getpos at 0x0000029DA5021E18>})

先程追加した関数getposはありましたが、xとyがありませんね。あ、、、そういえばインスタンスの方にセットしただけでした。では、インスタンスの方を確認しましょう。

>>> box1.__dict__
{'x': 100, 'y': 120, 'getpos': <function getpos at 0x0000029DA5021E18>}

そうそう、こんな感じです。
では、文字列の’x’と’y’を使って、クラスの方へアトリビュートと初期値をセットしてみます。

>>> setattr(Box,'x',10)
>>> setattr(Box,'y',20)
>>> dir(Box)
['__class__', '__delattr__', '__dict__', '__dir__', '__doc__', '__eq__', '__format__', '__ge__', '__getattribute__', '__gt__', '__hash__', '__init__', '__init_subclass__', '__le__', '__lt__', '__module__', '__ne__', '__new__', '__reduce__', '__reduce_ex__', '__repr__', '__setattr__', '__sizeof__', '__str__', '__subclasshook__', '__weakref__', 'getpos', 'x', 'y']
>>> box3 = Box()
>>> box3.getpos()
10 20
>>>

はい、見事、xとyがクラスに追加されて、メソッドが最初から利用できるようになりましたね。オブジェクトの場合は「__dict__」を普通のdictと同じようにしてアトリビュートを追加することができたのですけど、クラスの場合の「__dict__」はmappingproxyになっていて読み込みのみでしたので、setattrを使う必要がありました。ちなみに、中を見てみるとどうなっているかというと、

>>> Box.__dict__
mappingproxy({'__module__': '__main__', '__dict__': <attribute '__dict__' of 'Box' objects>, '__weakref__': <attribute '__weakref__' of 'Box' objects>, '__doc__': None, 'getpos': <function getpos at 0x0000029DA5021E18>, 'x': 10, 'y': 20})
>>>

こんな感じです。オブジェクトの方にアトリビュートを追加するもう一つの方法は以下の通りです。

>>> box3.__dict__['z'] = -100
>>> box3.__dict__
 {'z': -100}
>>>

おっと、少し想定と違いました。xとyがいませんね。クラスで定義したアトリビュートはここには入らない、ということでしょうか。以下の通り、値は取り出せました。

>>> box3.x
10
>>> box3.y
20
>>> box3.z
-100
>>>

ちょっと、xに値を代入したらどうなるかやってみます。

>>> box3.x = -10
>>> box3.__dict__
{'z': -100, 'x': -10}
>>> 

なるほど、思った通りですね。クラスで定義した値が変更されていなければインスタンスごとにその値を持つ必要がない、ということですね。

そういえは、関数を文字列から作成して組み込むのはどうやるのだろうか、と、気になってまいりましたが、長くなってきたので今回はこれくらいで。

　今日も見に来てくださって、ありがとうございます。

　Google先生、これまでもいろいろなサービスを提供してくれていますが、この機能、昨日（ダジャレ）初めて知りました。Google Colaboratoryです。何かというと、Googleのアカウントを持っていれば、Jupyter notebookの機能がWebブラウザだけで使える、というサービスです。GPUも使えるそうです。そして、無料です！いや～、Google先生、ありがとうございます。

　知らない人に簡単に説明すると、Jupyter notebookは、対話的にPythonスクリプトを実行することができ、その結果を記録するドキュメントの機能を融合したWeb技術を基盤としたツールです。実行する前の状態をドキュメントにしておいて、説明するときに順番に実行して見せる、という使い方もできるし、説明ドキュメントをメインにして、実行結果を付けて見せる、という使い方もできます。再利用可能という点においても優れており、研究成果や教科書的な媒体としての位置づけを獲得しているそうです。

　ここで使い方の詳細を紹介しようかとも思ったのですけど、サービス上にすでに紹介がありますので、そのリンクを張り付けておきます。

https://colab.research.google.com/notebooks/welcome.ipynb

これで、誰でもJupyter notebookが使えますね。すばらしい。

　今日も読みに来てくださって、ありがとうございます。今回は、Pythonのお話です。

　Pythonでファイルの更新とキー入力待ちを同時にチェックしたいという要望がありました。ファイルの更新チェックは、新しいデータが記録されたのを抜き出したい、ということで、更新確認は、前回タイムスタンプと今回タイムスタンプが異なっていれば、何らかの更新があった、という判断で対応できました。その更新チェックをしながら、キー入力待ちを同時にやりたい、という要望です。

　通常Pythonでキー入力を受け付けるというと、「input()」が思いつきます。こんな感じですね。

>>> a = input('Hit any key:')
Hit any key:aaa
>>> print(a)
aaa

　ただこれだと、「input()」が実行されると先に進まなくなって、待ち状態になってしまいます。そうすると、ファイルのタイムスタンプが更新されたらデータを読み込むという処理をしながらキー入力待ちができないのです。そう、やりたいのは、かつてBASICでINKEY$というコマンドで実装していたように、その関数が実行された時に入力されたキーを知りたい、ということです。調べてみるといろんなやり方があるようでしたが、中でも簡単に実装できたやつをメモしておきます。blessedというモジュールに入っている、Terminalを利用します。「input()」は標準モジュールに含まれていますが、blessedは標準モジュールではないのでpipでインストールする必要があります。

pip install blessed

　このblessedは、cursesモジュールという文字セル表示を扱うためのライブラリをより簡単に使えるようラップしたものだそうです。cursesは、Unix端末で主に利用されているcursesライブラリのインターフェースということでした。もっと簡単に言うと、CUIのインターフェースをうまく扱えるようにするために使えるライブラリですね。
　インストールできたので、さっそく使ってみます。

from blessed import Terminal

t = Terminal()

with t.cbreak():
    while True:
        k = t.inkey(timeout=0.001)
        if not k :
            pass
        elif k.is_sequence:
            if k.name == 'KEY_ESCAPE':
                break
            print(f'"{k.name}"が押されました。終了するには「ESC」キーを押してください。')
        else:
            print(f'"{k}"が押されました。終了するには「ESC」キーを押してください。')

　これでESCキーが押されるまでループを繰り返すようになりました。合間にファイルのタイムスタンプ更新チェックを入れれば要望通りのことができます。
　ただ、このスクリプトの実行に、ぼくの環境ではCPUの使用率が35%ほどかかっていました。もしこれが問題で、使用率を下げたいなら、timeモジュールのsleepを上記のpassのところに記載するとよいでしょう。試しにぼくの環境で入れてみましたが、sleep(0.1)と入れるだけで、CPU使用率が2.5～3%ほどに下がりました。単純にループしてるだけなのに、sleepしないとCPU使用率って意外とかかるのですね。

　今日も見にきてくださって、ありがとうございます。がんばって更新していきます。

　ずっとデータベースの論理設計の勉強会に参加しているのですけど、そちらでしばらくPythonの勉強会をすることになりました。メンバーのなかでは適任者ということで講師に任命されまして、それで先日、第一回目が開催されました。その講習の中でぼくが「Pythonでは、すべてがオブジェクトとして管理されています。」と説明してから、ふと、class作成後、class変更したら、以前のclassとは異なるオブジェクトになっているのだろうか、ということが自分でも気になったので、確認してみました。でも、このタイトルだと、なんのこっちゃ、という感じですねぇ♪

　まず、オブジェクトとはこんな感じのモノです、というイメージがわかりやすいように、listを作成してみます。ご覧のとおり、typeはlistになり、オブジェクトとして管理するためにidが採番されています。

>>> alist = [1,2,3,4,5]
>>> type(alist)
<class 'list'>
>>> id(alist)
3005538914888
>>>

　ちなみに、この中で使われている「1」などの数値もオブジェクトとして管理されています。調べていて面白かったのは、-5～256の範囲の数値はintのオブジェクトとしてあらかじめキャッシュされて使いまわされているそうです。この点は処理系によって実装は異なるのでしょうけど、ぼくの環境では以下のように確かに使いまわされているのが確認できました。

>>> type(1)
<class 'int'>
>>> id(1)
140729051148544
>>> id(alist[0])
140729051148544
>>> id(2)
140729051148576
>>> id(1+1)
140729051148576
>>> id(alist[1])
140729051148576

　では、本題のclassを定義して確認してみます。以下のようなスクリプトを実行してみます。poiクラスを作成してidを確認してから、内容を少し変更したpoiクラスを再作成してもう一度idを確認してみます。

class poi:
    pass

print(type(poi))
print(id(poi))

class poi:
    a = 1

print(type(poi))
print(id(poi)) 

printの実行結果は、以下の通りでした。やっぱり違うモノ（オブジェクト）になってますよね。

　ちょっと意外に感じたのは、class定義されたもののtypeが「type」だったことです。やっぱり、<class ‘class’>はちょっとヘンだよねぇ、ということにでもなったのでしょうか？このあたりの呼び名は宗教観(?)の違いで争われそうですね。
　idは予想通り異なっていたので、class定義することで、以前のクラスが別のオブジェクトで上書きされた、という風に考えられますね。あ、、、でも、上書きではありませんでしたね。自分で説明しておいて間違えました。変数名は、オブジェクトに張り付けた付箋のようなイメージです、と説明したのでした。実際にはpoiクラスというクラスのオブジェクトができて、再度、別のpoiクラスというクラスのオブジェクトができる、というのが正しい考え方ですね。ちょっと変数にセットしてみてやってみます。

class poi:
     pass

poiA = poi

class poi:
    a = 1

poiB = poi

　予想通り、「poi class」というオブジェクトが二つできました。先ほどの例ではpoiAに代入しなかったので、最初の「poi class」オブジェクトがガベージコレクトされて捨てられてしまった、ということですね。

　今日も見にきてくれて、ありがとう。久しぶりの更新です。そのうちまた更新しますので、また見にきてくださいね。

　おしごとの関連で富士ゼロックスさんのドキュワークスでつくられた文書のテキストを抜き出す必要があったので、Pythonスクリプト作成してみました。帳票出力のプログラムを修正したときに、修正前後の差分をとって、チェックするのに便利です。
ご利用は自己責任でどうぞ。

利用するまでに必要な作業は以下の通りです。

１．Pythonのインストール
　　これは、本家のサイトをご覧になってがんばってやってください。
　　ぼくの環境は、実行時最新の3.7.4をインストールしました。

２．xdwlibのインストール
　　「pip install xdwlib」で完了。3.8.2.0がインストールされました。なぜかインストール時にエラーがでましたけど、正常に利用できました。林秀樹さん、ありがとうございます。

from sys import argv, exit
from os.path import basename, isfile, splitext
from xdwlib import xdwopen

def export_xdwfulltext(input_file):

    BASE_FILENAME , ext = splitext(input_file)
    if ext.lower() != ".xdw":
        print("指定されたファイルの拡張子が.xdwではありません。["+ext+"]")
        input("Hit Enter key.")
        return

    if not isfile(input_file):
        print("指定されたファイルが存在しません。["+input_file+"]")
        input("Hit Enter key.")
        return

    OUTPUT_PATHNAME = BASE_FILENAME + ".txt"

    if isfile(OUTPUT_PATHNAME):
        print("出力先のファイルが既に存在します。["+OUTPUT_PATHNAME+"]")
        answer = input("上書きしますか？（Y/N):")
        if answer.upper()[0] != "Y":
            print("処理を中断しました。")
            return

    with open(OUTPUT_PATHNAME,"w",encoding="utf-8") as f,\
         xdwopen(input_file) as doc:
        for p in doc:
            f.write(p.fulltext())
            f.write("\n")


if __name__ == '__main__':

    if len(argv) < 2:
        print(basename(argv[0]),"は、ドキュワークスで出力されたxdwファイルの中のテキストを出力するプログラムです。")
        print("拡張子が.xdwのファイルのみ対象とし、同ファイル名の.txtファイルとして出力します。")
        print("使い方１：",basename(argv[0]),"hoge.xdw ...")
        print("使い方２：",basename(argv[0]),"に、ファイルをドラッグ＆ドロップ")
        input("Hit Enter key.")
        exit

    for f in argv[1:]:
        export_xdwfulltext(f)