(1) B列に問題文を横書きで記述します。

　(2) C～F列に問題にしたい漢字を１文字ずつ記述します。

　(3) G～J列に問題にしたい漢字のふりがなを１文字ずつ記述します。

　(4) A列に番号を記述します。

　(1) 漢字入力帳の2～11行を順に読みとる。

　(2) 漢字入力帳のB列に記述されている文を１文字ずつ分解しながら漢字学習帳に縦書きで書きこむ。

　(3) 漢字入力帳のC～F列に記述されている漢字が漢字学習帳に書きこんだ文字の中にあれば、

　　　そこを空欄のマスにして、併せてそのすぐ右側に、漢字入力帳のG～J列に記述されている

　　　ふりがなを書きこむ。

xlwingsをxwとしてインポート

Excelファイル『ワークブック810.xlsx』をメモリ上に読みこみWorkbookオブジェクト『wb』を生成

『wb』のExcelシート『ワークシート1』を読みこみsheetオブジェクト『st』を生成

定数『読取列』にB列つまり『2』列を代入

定数『読取行』に『2』行目を代入

定数『列番号』にL列つまり『12』列を代入

定数『最小行』に『2』行目を代入

変数『txt』にセル(『読取行』,『読取列』)の値を代入

変数『txt』から文字数を取得し、変数『最大文字数』に格納

変数『位置インデックス』を 0 から『最大文字数』までカウントアップしながら以下の処理を繰り返す

変数『行番号』に『最小行』＋『位置インデックス』を代入

セル(『行番号』,『列番号』)の値に変数『txt』から取得した『位置インデックス』の文字を代入

xlwingsをxwとしてインポート。

Excelファイル『ワークブック810.xlsx』をメモリ上に読みこみWorkbookオブジェクト『wb』を生成

『wb』のExcelシート『ワークシート1』を読みこみsheetオブジェクト『st』を生成

定数『読取列』にB列つまり『2』列を代入

定数『読取行』に『2』行目を代入

定数『列番号』にL列つまり『12』列を代入

定数『最小行』に『2』行目を代入

変数『txt』にセル(『読取行』,『読取列』)の値を代入

変数『txt』から文字数を取得し、変数『最大文字数』に格納

変数『位置インデックス』：インデックスを 0 から『最大文字数』までカウントアップしながら

以下の処理を繰り返す

変数『行番号』に『最小行』＋『位置インデックス』を代入

セル(『行番号』,『列番号』)の値に変数『txt』から取得した『位置インデックス』の文字を代入

xlwingsをxwとしてインポート

Excelファイル『ワークブック810.xlsx』をメモリ上に読みこみWorkbookオブジェクト『wb』を生成

『wb』のExcelシート『ワークシート1』を読みこみsheetオブジェクト『st』を生成

定数『読取列』にB列つまり『2』列を代入

定数『読取行』に『2』行目を代入

定数『漢字最小列』にC列つまり『3』列を代入

定数『漢字最大列』にF列つまり『6』列を代入

定数『列番号』にL列つまり『12』列を代入

定数『最小行』に『2』行目を代入

変数『txt』にセル(『行番号』,『読取列』)の値を代入

変数『txt』から文字数を取得し、変数『最大文字数』に格納

変数『位置インデックス』を 0 から『最大文字数』までカウントアップしながら以下の処理を繰り返す

変数『行番号』に『最小行』＋『位置インデックス』を代入

セル(『行番号』,『列番号』)の値に変数『txt』から取得した『位置インデックス』の文字を代入

変数『漢字列』を『漢字最小列』から『漢字最大列』+1までカウントアップしながら以下の処理を繰り返す

変数『漢字名』にセル(『読取行』,『漢字列』)の値を代入

変数『漢字名』が空白でないとき

セル(『読取行』,『読取列』)の値から『漢字名』の位置を調べて変数『位置インデックス』に格納

変数『位置インデックス』が0以上のとき

変数『行番号』に『最小行』+『位置インデックス』を代入

変数『列番号』を列英字名に変換し変数『列英字名』に代入

変数『枠領域』に『列英字名』&『行番号』を代入

枠領域のセルの周りを実線で囲う

枠領域を空白にする

定数『漢字最小列』にC列つまり『3』列を代入

定数『漢字最大列』にF列つまり『6』列を代入

変数『漢字列』を『漢字最小列』から『漢字最大列』+1までカウントアップしながら以下の処理を繰り返す

変数『漢字名』にセル(『読取行』,『漢字列』)の値を代入

変数『漢字名』が空白でないとき

セル(『読取行』,『読取列』)の値から『漢字名』の位置を調べて変数『位置インデックス』に格納

変数『位置インデックス』が0以上のとき

変数『行番号』に『最小行』+『位置インデックス』を代入

変数『列番号』を列英字名に変換し変数『列英字名』に代入

変数『枠領域』に『列英字名』&『行番号』を代入

枠領域のセルの周りを実線で囲う

枠領域を空白にする

xlwingsをxwとしてインポート

Excelファイル『ワークブック810.xlsx』をメモリ上に読みこみWorkbookオブジェクト『wb』を生成

『wb』のExcelシート『ワークシート1』を読みこみsheetオブジェクト『st』を生成

定数『読取列』にB列つまり『2』列を代入

定数『読取行』に『2』行目を代入

定数『最大枠数』に『4』を代入

定数『漢字最小列』にC列つまり『3』列を代入

定数『漢字最大列』にF列つまり『6』列を代入

定数『列番号』にL列つまり『12』列を代入

定数『最小行』に『2』行目を代入

変数『txt』にセル(『行番号』,『読取列』)の値を代入

変数『txt』から文字数を取得し、変数『最大文字数』に格納

変数『位置インデックス』を 0 から『最大文字数』までカウントアップしながら以下の処理を繰り返す

変数『行番号』に『最小行』＋『位置インデックス』を代入

セル(『行番号』,『列番号』)の値に変数『txt』から取得した『位置インデックス』の文字を代入

変数『漢字列』を『漢字最小列』から『漢字最大列』+1までカウントアップしながら以下の処理を繰り返す

変数『漢字名』にセル(『読取行』,『漢字列』)の値を代入

変数『漢字名』が空白でないとき

セル(『読取行』,『読取列』)の値から『漢字名』の位置を調べて変数『位置インデックス』に格納

変数『位置インデックス』が0以上のとき

変数『行番号』に『最小行』+『位置インデックス』を代入

変数『列番号』を列英字名に変換し変数『列英字名』に代入

変数『枠領域』に『列英字名』&『行番号』を代入

枠領域のセルの周りを実線で囲う

枠領域を空白にする

変数『ふりがな読取列』に『漢字列』＋『最大枠数』を代入

変数『ふりがな名』にセル(『読取行』,『ふりがな読取列』)の値を代入

変数『ふりがな名』が空白でないとき

変数『ふりがな列』に『列番号』＋ 1 を代入

変数『ふりがな列』を列英字名に変換し変数『列英字名』に代入

変数『枠領域』に『列英字名』&『行番号』を代入

枠領域のセルの値に『ふりがな名』を代入

枠領域のセルのフォントサイズを8に設定

枠領域のセルの横方向の配置を左詰めに設定

枠領域のセルの文字の配置を縦方向に設定

枠領域のセルの文字を縮小して全体を表示に設定

定数『最大枠数』に『4』を代入

変数『ふりがな読取列』に『漢字列』＋『最大枠数』を代入

変数『ふりがな名』にセル(『読取行』,『ふりがな読取列』)の値を代入

変数『ふりがな名』が空白でないとき

変数『ふりがな列』に『列番号』＋ 1 を代入

変数『ふりがな列』を列英字名に変換し変数『列英字名』に代入

変数『枠領域』に『列英字名』&『行番号』を代入

枠領域のセルの値に『ふりがな名』を代入

枠領域のセルのフォントサイズを8に設定

枠領域のセルの横方向の配置を左詰めに設定

枠領域のセルの文字の配置を縦方向に設定

枠領域のセルの文字を縮小して全体を表示に設定

xlwingsをxwとしてインポート

Excelファイル『ワークブック810.xlsx』をメモリ上に読みこみWorkbookオブジェクト『wb』を生成

『wb』のExcelシート『ワークシート1』を読みこみsheetオブジェクト『st』を生成

定数『読取列』にB列つまり『2』列を代入

定数『最大枠数』に『4』を代入

定数『漢字最小列』にC列つまり『3』列を代入

定数『漢字最大列』にF列つまり『6』列を代入

定数『読取最小行』に『2』を代入

定数『最小列』にL列つまり『12』列を代入

定数『書込ステップ列』に『2』を代入

定数『最小行』に『2』行目を代入

B列つまり『2』列の最大行を取得し、変数『読取最大行』に格納

変数『列番号』に定数『最小列』の値を代入

変数『読取行』を『読取最小行』から『読取最大行』+1までカウントアップしながら以下の処理を繰り返す

変数『txt』にセル(『行番号』,『読取列』)の値を代入

変数『txt』から文字数を取得し、変数『最大文字数』に格納

変数『位置インデックス』を 0 から『最大文字数』までカウントアップしながら以下の処理を繰り返す

変数『行番号』に『最小行』＋『位置インデックス』を代入

セル(『行番号』,『列番号』)の値に変数『txt』から取得した『位置インデックス』の文字を代入

変数『漢字列』を『漢字最小列』から『漢字最大列』+1までカウントアップしながら以下の処理を繰り返す

変数『漢字名』にセル(『読取行』,『漢字列』)の値を代入

変数『漢字名』が空白でないとき

セル(『読取行』,『読取列』)の値から『漢字名』の位置を調べて変数『位置インデックス』に格納

変数『位置インデックス』が0以上のとき

変数『行番号』に『最小行』+『位置インデックス』を代入

変数『列番号』を列英字名に変換し変数『列英字名』に代入

変数『枠領域』に『列英字名』&『行番号』を代入

枠領域のセルの周りを実線で囲う

枠領域を空白にする

変数『ふりがな読取列』に『漢字列』＋『最大枠数』を代入

変数『ふりがな名』にセル(『読取行』,『ふりがな読取列』)の値を代入

変数『ふりがな名』が空白でないとき

変数『ふりがな列』に『列番号』＋ 1 を代入

変数『ふりがな列』を列英字名に変換し変数『列英字名』に代入

変数『枠領域』に『列英字名』&『行番号』を代入

枠領域のセルの値に『ふりがな名』を代入

枠領域のセルのフォントサイズを8に設定

枠領域のセルの横方向の配置を左詰めに設定

枠領域のセルの文字の配置を縦方向に設定

枠領域のセルの文字を縮小して全体を表示に設定

変数『列番号』に『列番号』＋『書込ステップ列』を代入

定数『読取最小行』に『2』を代入

定数『最小列』にL列つまり『12』列を代入

定数『書込ステップ列』に『2』を代入

Excelの漢字入力帳のB列に記述されている文を１文字ずつ分解しながら、

漢字学習帳に2行目から縦書きで書きこみ、漢字入力帳のC～F列に記述されている漢字が

漢字学習帳に書きこんだ文字の中にあれば、該当セルを空欄のマスにして、

併せてそのすぐ右側に、漢字入力帳のG～J列に記述されているふりがなを書きこむ。

これは、Pythonプログラム『PXS8013.py』の処理部に記述されていることなので、

Pythonプログラム『PXS8013.py』の処理部がブロックとしてそのままつかえます。

Pythonプログラム『PXS8013.py』の処理部を【ブロックA】とします。

先ず、ExcelのB列の文字が入っているセルの最大行を取得するプログラムコードを追加します。

読取最大行 = st.range(st.cells.last_cell.row, 2).end('up').row

それから、漢字入力帳の最小行:『読取最小行』(2行目)から最大行:『読取最大行』+ 1行にかけて、

各行の処理【ブロックA】をループ処理で実行します。

そこで、【ブロックA】の一つ上の行に、

for 読取行 in range(読取最小行, 読取最大行 + 1):を追加し、

【ブロックA】を１インデントします。

Pythonプログラム『PXS8013.py』までは『列番号』を定数としていましたが、

今回のPythonプログラムから『列番号』を変数に変更します。

そのため、『列番号』のカウントアップが必要となります。

漢字入力帳の最小行から最大行までのループ処理の中で、

『列番号』は行が1行増加するたびに、L列から2列ずつカウントアップしていきます。

そのため、漢字入力帳の最小行から最大行までのループ処理の中に、

列番号 = 列番号 + 書込ステップ列を追加します。

更に、『列番号』の初期値はL列(12列目)なので、そのループ処理の前に、

列番号 = 最小列を追加します。