素人がExcelVBAによる「一人働き方改革」に挑むブログスマートフォン用の表示で見る素人がExcelVBAによる「一人働き方改革」に挑むブログExcelVBAネタです。この状態のときのルビの設定は、このとおり。11(ムーンサルト),月面宙返)になる。11のところの数字を増減させれば、ルビと親文字の位置関係を調整することができる。getRepairedFieldCodeText(ret)は、このシリーズではすでにおなじみの自作FunctiongetRepairedFieldCodeText(【参考】)を用いて、引数で受け取ったフィールドコード文字列を必要に応じて整形。shiftSize))ここがちょっとややこしい。10(ムーンサルト),月面宙返)になる。10(ムーンサルト),月面宙返)の「10」を「11」に変えたいわけなのだ。そのために、まず、変数tmpを用意して、そこにSplit(ar(7))(1)の値を入れる。第2引数を省略してSplit関数を用いると、半角スペースが区切り文字になるので、インデックス番号1の要素は10(ムーンサルト),月面宙返)になるはず。"(")(0)を実行する。今度は、「(」を区切り文字にしてSplit関数を用いる。できた配列のインデックス番号0の要素は、先頭の数字(今回の例だと10)になるはず。shiftSize))で、Replace関数を用いて、現在のtmpをtmpにshiftSizeを加えた数値(を文字列にキャストしたもの)で置き換える。めんどくせーなw最後に、これまたおなじみの自作FunctiongetAssembledFieldCodeText(【参考】)でフィールドコード文字列を組み立て直してreturn。使ってみるこの状態(「オフセット」値は「1」)で、次のコードを実行してみる。Subオフセット値を1プラスするコード。実行すると、こうなる。わかりづらいけれど、ルビの設定を確認すると、ちゃんと「オフセット値」が「2」になっている。11」の「\up」の部分を「\do」に変えて、数字をマイナスにすると、うまくやれば下付のルビにもできたりするのだが、数字の調整のしかたがよくわからない。このあたりは今後の課題。フィールドコード自体の理解を深める必要があるのかも。»プロフィールid:akashi_keirinExcelVBAネタです。SyntaxHighlighter.all();注目記事はてなブログをはじめよう!akashi_keirinさんは、はてなブログを使っています。ブログを報告するスターをつけました引用をストックしましたストック一覧を見る閉じる引用するにはまずログインしてくださいログイン閉じる引用をストックできませんでした。再度お試しください閉じる限定公開記事のため引用できません。