FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2019/06«│ 2019/07| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 »2019/08
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
05:37:11
なんて言うのかな、一昨日(10月17日)までは焦りが大きかったのですが、それを過ぎたらなんて言うのか、吹っ切れました。
そしたら急に色々と思いついて、楽することを一気に思いついたんですね。

なんか、つい2、3日前まで焦っていた自分が嘘みたいです。
これからもっと色々と思いつかないとなぁって思ってます。ちなみに今日だけで10近く新しいことを始めたと言う恐ろしさです。

とりあえず一つ目は干支入力。後は後悔出来ないので・・・色々な意味で。

Sub 干支入力()

Dim Junishi As Variant
Dim JN
Junishi = Array("子", "丑", "寅", "卯", "辰", "巳", _
"午", "未", "申", "酉", "戌", "亥")
JN = Junishi((Year(ActiveCell) + 8) Mod 12)
Dim buf As Variant
Set buf = Application.InputBox("干支を入力するセルを入力して下さい", Type:=8)
Range(buf.Address) = JN
End Sub

これがあるとすごく仕事が楽になります。これだけで(笑)




わたしも欲しい。

来年のカレンダーはこれにしようかと思ってます。「愛しすぎて大好きすぎる。」




コメント
コメントの投稿










トラックバック
トラックバックURL
→http://ayukt0526.blog.fc2.com/tb.php/475-a0727d0f
この記事にトラックバックする(FC2ブログユーザー)
プロフィール

はなかな

Author:はなかな
FC2ブログへようこそ!

最新記事
最新コメント
月別アーカイブ
カテゴリ
フリーエリア
ランキング参加しています。 にほんブログ村 哲学・思想ブログ エホバの証人へ にほんブログ村 にほんブログ村 本ブログ 読書日記へ にほんブログ村 にほんブログ村 音楽ブログへ にほんブログ村
音楽(J-POP) ブログランキングへ
小説(読書感想) ブログランキングへ
キリスト教 ブログランキングへ
ブログランキング ブログ王ランキングに参加中!
検索フォーム
RSSリンクの表示
リンク
このブログをリンクに追加する
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
FC2アフィリエイト