こんばんは若槻です。会社の改善発表会で発表して来ました。
人前で発表なんて卒研の時以来です。原稿作ったし声も出たけど
わたわたしてしまって終わった後どっと疲れましたorz
しばらく発表はいいよ……（遠い目）


ところであさって七夕ですね。
ウチのサイト去年のハロウィン以来豆まきもバレンタインも
こどもの日もふっとばしてるから（ひな祭りはイラストだけだし）、
そろそろ何かイベントやりたいなぁ。

構想はあるので時間あったら何かやってみようと思いますﾉｼ

こんばんは若槻です。鼻のかみすぎだったり咳のしすぎだったりで
若干頭が痛いです。し、振動が……（＝д＝；）!!


さて、ただいま少しずつですが新しい忍題に取り掛かっております。
何で全部伏字なのかって？　……ちょっと自重を……ｗ
気になる方は若槻のサイトのこれまでのお題へのリンクから
忍題ページにアクセスすると一発で分かりますよ。
もうすでに出してる方々いらっしゃるのでｂ

個人的には一番最初に出された方の文章タイプのが楽しかったです。
２ｃｈ風で会話してるんですが、あちこちで耐え切れずに噴いてしまいましたｗ

こんばんは若槻です。午後から昨日の続きで蜀伝やってました。
白帝城まで行くだろうと思っていたので五丈原で終わってちょっと
びっくりしましたｗ


さて、暦も7月となりアナログ放送では左下端に終了までの
カウントダウンがなされていますね。
それを知っているということは若槻宅もまだ古いままだったのですが、
本日ついに購入する運びとなりました。

最初は私と兄と父とで支払いを3分割するという話だったのですが、
色々と事情があって録画用の外付けHDDも含めて全部私が
出すことになりました。まあ賞与出たから普通に買えたけどさ=3


最初は太陽マークさんの所に行ったのですが売れまくってて
在庫が数少ない上注文しても終了日までに届かない可能性も
あると言われたのでYのマークのつく方に行って来ました。

若槻の住む地域のYマダさんは場所的に悪くないと思うのですが
穴場扱いなので客が少なめで、
「いいと思ったのがすぐに見つかる→購入」
の流れがあっさり進みました（´∀｀）｛らきー




それにしても今週は平日が終わるのも早かったけど
休日が終わるのも早かったなぁ……。

こんばんは若槻です。今日久々に無双６をプレイしました。
やっと蜀伝に手を伸ばしたのですが、張飛と孔明さんが意外に
使いやすくて驚きましたｗ
で、逆にホウ統さんは使いづらかったです；
それにしても１話だけの使用キャラで即死亡ルートって悲しいなぁorz


ところで昨日、ずいぶん長いこと続いていた小説の最後の
１巻が発売されました。先月が上巻、そして今月が下巻。
そう、「彩雲国物語」。

実は友達のお母さんから（何故か）お借りしたことから
はじまったのですが、気が付くと私が定期購読する
１冊となっていました。

細かい感想はまた後日書きますが、個人的には凄く
いい終わり方だなと思いました。
なんとなく、「どこが？」と訊かれたらすぐには答えられないような
軽い違和感こそあるんですが、それでも素直に清々しい読了感に
おぼれられました。

最終巻における王様と秀麗ちゃんの選択とか行動とかが、
全巻通して読んだ後だと「うん、彼らならこうなるよね」と
変に納得できるんです。

「読者に納得させるだけのキャラ像を描き、確立させる」

基本ですが最大だと思います。
私も見習わなければ！



とりあえず本編終了後から作品終了後になるまでの間は
出来ればご本人の作品として読みたいところですが
ひたすら妄想で穴埋めですｗ
秀麗ちゃんはじめ多くの女性が活躍したという王様の時代。
その娘の時代。どんなことがあったのかなと考えると
ちょっとわくわくしちゃいますね。


ただの恋愛ものからここまで大きな話を作り上げた、
創り上げたその手腕には敬意を表するほかないです。

雪乃先生、いままで本当にお疲れ様でした！




拍手くださった方、ありがとうございます＾＾

こんばんは若槻です。何だか今週は走るように日にちが
過ぎたような気がします。年取ったせいですかねぇｗ

まあそれはさておき本日は久しぶりにVBAでも。
ただし前の続きではなくてちょっと横道にそれます。

今回は「列番号から列名に変換する」です。

今まで晒してきたVBAでも使ってましたが、そちらは
人様のソースを使ってたに過ぎなかったのでちょいと
自作してみました。

こちら↓

◎ソース
'==============================================
' 列番号を列名に変換
'==============================================
Function RetuHenkan(ByVal k As Integer) As String
  Dim RetuMei As Variant  'A～Zを格納
  Dim RetuA   As Integer  '参照するｋの値が27以上の時の1桁目の文字を判断
  Dim RetuB   As Integer  '参照するｋの値が27以上の時の2桁目の文字を判断
  RetuMei = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", _
                  "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
  If k > 26 Then
    RetuA = Int(k / 26)
    RetuB = k Mod 26
    If RetuB = 0 Then
      RetuA = RetuA - 1
      RetuB = 26
    End If
    RetuHenkan = RetuMei(RetuA - 1) & RetuMei(RetuB - 1)
  Else
    RetuHenkan = RetuMei(k - 1)
  End If
End Function

◎説明
１．基本
1)受け渡し用に変数ｋを定義。これは何でもよし（必ず数字型）
2)ファンクション自体は"列名"が欲しいので文字型に
3)Variant型で定義した変数にArrayでA～Zを格納

２．本筋
1)ｋの値が27以上（＝AA列以上）の時
・RetuAにｋを26で割った値を格納。1～25の時は0、26～51の時は1、など
・RetuBにｋを26で割ったあまりを格納。0=Z、1=A、2=B……と対応
？もしもRetuBが0だったら？
→割り切れる数＝Z分類なので、RetuAの値はひとつ減らし、
RetuBには26を入れる
＝RetuHenkan(ファンクション名)にRetuAの値、RetuBの値に相当する
文字を格納する
2)ｋの値がそれ以外の時（A列～Z列）
・RetuHenkanにRetumeiから相当する文字を格納する

これだけです。
一応動作確認はしていますが私のところで大丈夫でも他の方のところで
上手くいく保証はないのでお気をつけください。

ちなみに使い方は標準モジュールにこれを置いて必要な時に呼び出すだけ。
「列番号が移動してて今どこにいるのか分からない」
「列名が必要なのに列番号しか分からない」
という時に使えると思います。

 

以下サイトメール返信です。
無名拍手の皆さんもありがとうございます＾＾