FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2018/12«│ 2019/01| 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/02
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
2037/05/26
18:22:54
未視聴ドラマ、アニメ、ドラマCD、音楽と未読本に囲まれて暮らす女子です。

ドラマ 20作程度
アニメ 50作程度
ドラマCD 500枚程度
音楽 500枚程度
未読本 20冊程度
積みゲー 10本程度

減少させるのに必死ですが、どんどんと増えて行きます。
きちんと計算してないから後どれだけあるか全くわかりません。
取りあえず週に5つぐらいは減らして行こうと思っています。
このブログは私の未視聴未読積みゲーの解消を書いていきます。



Love and Like...
相方さん♡
どんな時もずっと好き♡ 嫌いになることはないと思います。
一生でも足りないぐらいに好きです。感謝してもしきれないくらい!!!


うたプリ・・・神宮寺レン・聖川真斗・黒崎蘭丸
薄桜鬼・・・土方歳三
めいこい・・・泉鏡花
REBORN・・・山本武、雲雀恭弥、ディーノ
くじらのぬいぐるみ、ぷーさん、ピカチュウ、あひるのペックル
コウペンちゃん、愛しすぎて大好きすぎる、ねこぺん日和

MUSIC・・・MUSE、Mr.Children、supercell、藤田麻衣子

BOOK・・・伊坂幸太郎、綾辻幸人、我孫子武丸、池波正太郎、谷崎潤一郎   その他耽美小説系

COMIC・・・種村有菜、水瀬藍、華夜



カテゴリごとにまとめました。
エホバの証人
読書感想まとめ
CD・音楽感想まとめ
エクセルまとめ




最新版ソフト一覧。

読書感想.zip
タイムスタンプ
はな色作成ソフト
はなClipboard
はなImageListDelete
はなタイムスタンプ
はなメモ作成


入構書類.NET 別館です

Category:未分類コメント:1│ トラックバック :--
07:48:27
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim f As File
Set f = fso.GetFile("c:\temp.txt")
Dim d As Date
d = f.DateLastModified ' 更新日時を取得
Debug.Print (d)
Set fso = Nothing

チェックリストに必要なマクロになります。
日付がないとしっかりチェックが必要ですが、日付があると少し手を抜くことが出来ます。
(この人は確実に更新がある、ない、が分かるので……。)
23:59:38
今までなかなかお客さんが付かなかったのですが、ようやっとお客さんが付きました。

ちなみに3人です。

前に一度太い客が付いたのですが、上手くいかなくなってしまって……。自分の為にお金を使ってくれる人って本当にいいですね。もうお客さんがお金にしか見えません。¥マークが見えます(笑)
嬢は美人が多いと言われていますが、普通、普通以下も多いです。メイクとウィッグと雰囲気で見せてるだけです。
太客つかないと意味ないんでねー。どれだけ普通のお客さんが多くてもね(笑)意味がないのですよ。稼ぐためです。
今は太客が10人付くことを目標に頑張っています。
それを言うなら私のような新人は、ベテランのおこぼれ客を貰うことしか出来ないので……。
目標は1000円/日です。頑張ります!

今までは10000/月が目標だったのですが。。。かなり甘いと思ったので。

07:43:34
資格証で文字列+数字としなければならないものがあるので、これを作りました。
ただ、上手く使えない場合もあります。

「=RIGHT(A1,LEN(A1)*10-SUM(LEN(SUBSTITUTE(A1,{0,1,2,3,4,5,6,7,8,9},))))」
A1の所は指定セルまたは関数になります。

無題

「0」が最初でもきちんと表示されますね。これがあると結構助かります。これにアルファベットも追加できるようにしたいです。
そうしたらもう少し使い勝手が良くなりそうなので。。。






久しぶりに空の境界みてます! 本も読みたいな~。3連休の間に読もうかな!
2019/01/09
23:59:04
式の作成2を作りました。資格証入力です。
ただ使いにくいかな~と思ってもいます。

Dim buf
Dim buf2
Dim buf3
Sub 資格証Match作成()
On Error Resume Next
If buf = "" Then
Set buf = Application.InputBox("名前のセルを入力して下さい", Type:=8)
End If
ActiveCell.Value = "=match(" & buf.Address & "," & "indirect(" & """" & "資格証!" & """" & "&" & """" & "b:b" & """" & "),0)"
On Error GoTo 0
End Sub
Sub 資格証個数作成()
On Error Resume Next
If buf = "" Then
Set buf = Application.InputBox("名前のセルを入力して下さい", Type:=8)
End If
If buf2 = "" Then
Set buf2 = Application.InputBox("Matchのセルを入力して下さい", Type:=8)
End If
ActiveCell.Value = "=countif(" & "indirect(" & """" & "資格証!" & """" & "&" & """" & "b:b" & """" & ")," & buf2.Address & ")+" & buf2.Address & "-1"
On Error GoTo 0
End Sub

Sub 資格証範囲作成()
On Error Resume Next
Set buf2 = Application.InputBox("Matchのセルを入力して下さい", Type:=8)
Set buf3 = Application.InputBox("数のセルを入力して下さい", Type:=8)
ActiveCell.Value = "資格証!" & "C" & Range(buf2.Address) & ":" & "C" & Range(buf3.Address)
On Error GoTo 0
End Sub
Sub 免範囲作成()
On Error Resume Next
Set buf2 = Application.InputBox("範囲のセルを入力して下さい", Type:=8)
ActiveCell.Value = "=" & """" & "資格証!D" & """" & "&match(" & """" & "免" & """" & "," & "indirect(" & buf2.Address & "),0)&" & """" & ":D" & """" & "&countif(indirect(" & buf2.Address & ")" & "," & """" & "免" & """" & ")"
On Error GoTo 0
End Sub

リボンから入力出来るようになるともっと良いな~と思います。
プロフィール

はなかな

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

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

この人とブロともになる

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