FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2018/02«│ 2018/03| 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 »2018/04
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
23:18:31
お世話になっております。
平成29年1年間の作業等評価をお送り致しますので、何卒、ご査収の程お願い申し上げます。

総合評価・・◎

作業時態度・○
体調の落差が激しく、著しく体調が悪い時が多かったように感じます。また、服装に注意して下さい。夏は暑苦しく、冬は寒々しく見えます。

技術点・・・◎
総合評価は二重丸ですが、技術先行過ぎて周りがついていくことが出来ていません。
自分だけが使用するものと、周りの方も使用するものに分割すると分かりやすいかと思います。また、技術は素晴らしい物ですが、確認用の作業フォーム等が無いのが惜しいです。
要求管理のチェックリストは必須のため、即作成して下さい。

時間管理・・○
要領が良い部分と悪い部分にはっきりと分かれています。時間の使い方をよく考えてください。

アドインの分かりやすさ・・・△
メール1、など分かりにくいGUIが多いように感じます。ツールチップなどを多用し、どなたでも使用出来るものを作成してみましょう。
アドインにお気に入り機能とチェック機能が有ると尚良くなるでしょう。

その他・・・△少し考えてみてはどうでしょうか。
・作業時間は少し短いかと思います。本業の勉強やその他の勉強等、いそしむことが多い中、よく努力しているとは思いますが、少し考えてみてはどうでしょうか。
・周りと相談して、もっと作業時間を増やして欲しいと感じます。作業時間を調整して、疲れにくい予定の組み方が出来ませんか?
・午前に大変な仕事、午後はある程度簡単な仕事をするなど調整をすることは難しいのでしょうか?

なにか長時間作業が出来る対策が有りましたらお願い致します。
冷たいような気がします。もう少し周りが見えるようになると良いでしょう。

評価届いてたのですが、毎回のことながら技術点だけはやたら高い(笑)
エクセルお気に入りマクロは直ぐにでも作ろうと思います。
そんなに難しいことも無いでしょうし……。30分もあれば作れるかなあ。作業中ブック保存マクロ。

連絡したリストの書類は出来ました。30分ぐらいだったかなあ……。意外と簡単で楽ですね。
連絡したリスト.xlsm

07:42:17
12年間し続けていたことをやめました。
自分の中でずっとやめようか迷っていたのですが、やめた方がこの先いいだろうと思いました。自分がどういう風になりたいかと思ったら必要かもしれませんが……

続けていてよかったこと
・どんなときでも要領よくしようと考えるようになった。
要領よく考えると、余裕も生まれてきます。
たった一つでも順番が狂ってると「時間ががかかる」と言うこともわかりました。
時間に関する感覚をものすごく培えました。

・面倒くさいは発明の母

・時間やお金の節約に詳しくなった
やたら詳しくなりました。

続けていて悪かったこと
・人の欠点ばかり(特に要領悪いところ)が目につくようになった。
ここをこうしてこうしたらもうその作業終わるよとろいなぁ(笑 みたいに考えてしまいとにかく腹が立ちやすくなりました。
時間がないと言う人にあなたがとろいだけ!と自己ツッコミしてます。

・面倒くさいことができなくなった

・ずる賢いことにも早くなった
要領が良いと言うことは人から見たらずるい!ということもあります。
××をしてはならない、○○をした方がいい(○○はやたら面倒だったりすること)

・考え方が飛ぶようになった
AからZの結果を出すみたいならない感じの考え方になりました。
人にはわからないことですね。

そして冷えとりを始めました。
・のぼせると、のぼせるほどイライラする
靴下3枚、タイツ2枚、ストーブ、湯たんぽ、レッグウォーマーまで使用するようになったらのぼせにくくなりました!

暑そうって思われますが暑くないのです。むしろ体が気持ちよくて!!!
まだ時々顔に熱が来るとのぼせますが、その確率も減りました。今まではちょっとの暖房もダメでした!!!
まぁ、暑すぎるところでは意味ないですけどね~~~。

17:18:34

別ブックにチェックリストがあり、そのブックにチェックを入れる場合のマクロ


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sh As Object
Application.OnTime Now(), "ThisWorkbook.After_Insatsu"
End Sub
Private Sub After_Insatsu()
Dim aWb As Workbook
Set aWb = ActiveWorkbook

For Each sh In ActiveWindow.SelectedSheets
namae = sh.Range("f18")
rc = MsgBox(sh.Name & "をチェックリストに登録しますか?", vbYesNo + vbQuestion, "確認")
Application.ScreenUpdating = False
If rc = vbYes Then
For Each wb In Workbooks
For Each ws In wb.Worksheets
If "提出書類(" & namae & ")" = ws.Name Then
x = 1
Do Until ws.Cells(x, 1) = ""
If ws.Cells(x, 1) = "シート名" Then
ws.Cells(x, 1).Font.Strikethrough = True
Exit For
End If
x = x + 1
Loop
End If
Next
Next
End If
Application.ScreenUpdating = True
Next
End Sub

何ともいえない適当なチェックリスト笑
書類の名前が書いてあって、取り消し線を引いてくれるだけです。
単純な仕事は世界一素晴らしいと思います。
06:34:38
冷え取り健康法を始めました。そしたら早速体調不良が。
めんげんと言うものを信じているわけではないので、胃腸科へ……。そしたら先生の一言「出しきってしまいましょう」
一応吐き気止めはだしますが、本当に辛い時だけ飲んでください。
「え!?!?」と言う感じでした。
この症状、PMSで先月も先々月も同じときくらいに病院に行ったので婦人科にも行った方がいいと言われ行きました。
1時間かけて、ちょっと離れた病院まで。
そこでは体の冷えを指摘されました。顔が赤くなりにくいだけで、顔や頭はいつも熱いし、相当冷えが酷いらしい。
現在は冷え取り(足湯)と靴下の重ねばき(絹+綿+くるぶしソックス+タイツ二枚+レッグウォーマー)、湯たんぽを毎日しています。
乾燥生姜や塩(私の場合は味噌と塩辛)、唐辛子(生七味や一味唐辛子・唐辛子ペースト)も毎日食べてます。
それでも寒いので足元ヒーターも使用します。上半身はタンクトップ+長袖シャツ一枚です。
運動は床に足台を置き、そこで足の上げ下げをしながら裁縫とか読書とかしています。


印刷後処理のマクロです。
印刷した書類が一つ&対象者は複数の場合の処理を追加しました。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sh As Object
Application.OnTime Now(), "ThisWorkbook.After_Insatsu"
End Sub
Private Sub After_Insatsu()

Dim x As Long
Dim flg As Integer
Dim y As Long
Dim flflg As String
flflg = ""
nnn = 0
For Each sh In ActiveWindow.SelectedSheets
x = 1
flg = 0
namae = ""
If InStr(sh.Name, "(") <> 0 Then
namae = Mid(sh.Name, InStrRev(sh.Name, "(") + 1)
namae = Replace(namae, ")", "")
insatsu = Left(sh.Name, InStrRev(sh.Name, "(") - 1)
ElseIf InStr(sh.Name, " (") <> 0 Then
namae = Mid(sh.Name, InStrRev(sh.Name, "(") + 1)
namae = Left(namae, Len(namae) - 1)
insatsu = Left(sh.Name, InStrRev(sh.Name, " ") - 1)
Else
insatsu = sh.Name
End If
x = 1
On Error Resume Next

'namaeがあり、1対1の書類の場合

Set s = Worksheets("提出書類(" & namae & ")")
Set s = Worksheets("会社提出書類(" & namae & ")")
On Error GoTo 0
If IsEmpty(s) = False Then
Do Until s.Cells(x, 1) = ""
If s.Cells(x, 1) = insatsu Then
s.Cells(x, 1).Font.Strikethrough = True
End If
x = x + 1
Loop
End If

'namaeの無い場合
If namae = "" Then
For Each ws In Worksheets
If InStr(ws.Name, ("提出書類(")) <> 0 Then
x = 1
Do Until ws.Cells(x, 1) = ""
If ws.Cells(x, 1) = insatsu Then
ws.Cells(x, 1).Font.Strikethrough = True
End If
x = x + 1
Loop
End If
If InStr(ws.Name, ("会社提出書類(")) <> 0 Then
x = 1
Do Until ws.Cells(x, 1) = ""
If ws.Cells(x, 1) = insatsu Then
ws.Cells(x, 1).Font.Strikethrough = True
End If
x = x + 1
Loop
End If
Next
Else

'namaeがあるが、書類によって処理が違う場合
For Each ws In Worksheets
If InStr(ws.Name, ("提出書類(")) <> 0 Then
x = 1
Do Until ws.Cells(x, 1) = ""
If ws.Cells(x, 1) = insatsu Then
rc = MsgBox(ws.Name & "の"&"insatsu&"を追加しますか?", vbYesNo + vbQuestion, "確認")
If rc = vbYes Then
ws.Cells(x, 1).Font.Strikethrough = True
End If

End If
x = x + 1
Loop
End If
If InStr(ws.Name, ("会社提出書類(")) <> 0 Then
x = 1
Do Until ws.Cells(x, 1) = ""
If ws.Cells(x, 1) = insatsu Then
rc = MsgBox(ws.Name & "の"&"insatsu&"を追加しますか?", vbYesNo + vbQuestion, "確認")
If rc = vbYes Then
ws.Cells(x, 1).Font.Strikethrough = True
End If
End If
x = x + 1
Loop
End If
Next
End If
Next sh

End Sub

チェックしたシートの色を変更し保護するマクロも作成しました。
全て保護をしておくことで、変な入力が減ります。式が入っているところはマスタデータを変更すれば自動計算されるので特に問題ないのです。
Sub チェックしたシートの色を変更し保護する()
Dim u As Variant
Dim kazu As Long
kazu = ActiveWindow.SelectedSheets.Count
ReDim u(kazu)
Dim i As Long
i = 0
For Each sh In ActiveWindow.SelectedSheets
u(i) = sh.name
i = i + 1
sh.Tab.Color = 6684927
Next sh
ActiveWindow.SelectedSheets(1).Select

For k = 0 To UBound(u) - 1
On Error Resume Next
Worksheets(u(k)).Unprotect
j = Worksheets(u(k)).Protection.AllowEditRanges.Count
If i = 0 Then Exit Sub

For j = i To 1 Step -1
Worksheets(u(k)).Protection.AllowEditRanges(j).Delete
Next j

Worksheets(u(k)).Protect
On Error GoTo 0
Next

End Sub
2018/03/18
13:11:49
在宅で3時間~4時間仕事しています。
その間に別の用事終わらせたり、昨日みたいに作業所行ったりしています。
後は妄想とか。普通の妄想では既に何も思わないので、かなりハードなものが多いです。
深夜の妄想吐き捨て場とか、とてもじゃないけれど見せられないですよ。恥ずかしいし……。
猟奇殺人とえっちぃな妄想とその他もろもろと・・・・・・。エロは普通のでは意味が無いので基本びっくりされます(されるのは嫌ですが、妄想では可能)
以前にほとんど経験ないのにエロ妄想はすごいねって言われたなぁ……官能小説とかも読んでいるからかなぁ。

目標は一杯あるので、もっと努力しないとなぁ。
ちなみに、給料以外の収入は全て貯金しています。おかげでかなり溜まりました。
取りあえず電子ピアノ(30万円くらい)とカメラと腕時計が欲しいんだよなぁ……。一応そのぐらいのお金は副収のみで行けそうですが……。


Private Sub After_Insatsu()

Dim x As Long
Dim flg As Integer
Dim y As Long
Dim flflg As String
flflg = ""
nnn = 0
For Each sh In ActiveWindow.SelectedSheets
x = 1
flg = 0
namae = ""
If InStr(sh.Name, "(") <> 0 Then
namae = Mid(sh.Name, InStrRev(sh.Name, "(") + 1)
namae = Replace(namae, ")", "")
insatsu = Left(sh.Name, InStrRev(sh.Name, "(") - 1)
ElseIf InStr(sh.Name, " (") <> 0 Then
namae = Mid(sh.Name, InStrRev(sh.Name, "(") + 1)
namae = Left(namae, Len(namae) - 1)
insatsu = Left(sh.Name, InStrRev(sh.Name, " ") - 1)
Else
insatsu = sh.Name
End If
x = 1
On Error Resume Next
Set s = Worksheets("提出書類(" & namae & ")")
Set s = Worksheets("会社提出書類(" & namae & ")")
On Error GoTo 0
If IsEmpty(s) = False Then
Do Until s.Cells(x, 1) = ""
If s.Cells(x, 1) = insatsu Then
s.Cells(x, 1).Font.Strikethrough = True
End If
x = x + 1
Loop
End If
If namae = "" Then
For Each ws In Worksheets
If InStr(ws.Name, ("提出書類(")) <> 0 Then
x = 1
Do Until ws.Cells(x, 1) = ""
If ws.Cells(x, 1) = insatsu Then
ws.Cells(x, 1).Font.Strikethrough = True
End If
x = x + 1
Loop
End If
If InStr(ws.Name, ("会社提出書類(")) <> 0 Then
x = 1
Do Until ws.Cells(x, 1) = ""
If ws.Cells(x, 1) = insatsu Then
ws.Cells(x, 1).Font.Strikethrough = True
End If
x = x + 1
Loop
End If

Next
End If
Next sh

End Sub

印刷後処理のマクロがすっきりしました。
色々と考えないと汚くなるね。無駄な処理も入るし、ミスも増えるし……。
21:41:10
最近、マクロの高速化を数多く行っています。
0.00秒以下でも「遅い」と言ってくるクライアントさんもいますが、そんなクライアントさんばかりではありません。実際本当に「遅い」マクロを「ごく普通に」使用している方もたくさんいらっし

ゃいます。
そういう方を見ると、本当にもったいないなぁ……と思います。
だからマクロなんていらないんだよとか言う人まで……。でも、ブックを開く⇒一か所を修正する⇒保存する 程度の簡単な作業だったらマクロを使った方が早いし楽なんですけどね~。
人間の目で「探す」作業が入っていないので。
人間が入力して、指定した位置に「機械が」登録してくれます。

人間がする仕事なんて少なくていいのです。人力で作業するには限界があるしね。
それに仕事の仕方なんて人それぞれ微妙に違ってくるわけですし……。ある人は「そんなやり方ではだめだ」と言ってもある人にとっては「それは良い」なんてことはざらにあります。

無題
border="0" width="300" height="212" />


クライアントさんから送られてきたものを高速化しました。
まず、最初の3秒の時点では「配列」が一切使用されていなかったので、全てを配列にしました。
また、データの入れ替えマクロで指定した行を消していくマクロが入っていたので、配列内で削除し、最後に入れ替えデータを全て挿入することにしました。
(元々は選択行のみ入れ替えでしたが、全て入れ替えた方が早くなりました)
コンピュータは理路整然としたことの方が早くできたりします。
同じ書類でも50音順や数字の昇順・降順などの方が早くなります。


Private Sub After_Insatsu()
Dim x As Long
Dim flg As Integer
Dim y As Long
nnn = 0
For Each sh In ActiveWindow.SelectedSheets
x = 1
flg = 0

For Each ws In Worksheets
If nnn = 0 Then

If InStr(ws.Name, "提出書類(") <> 0 Then
namae = Replace(ws.Name, "提出書類(", "")
namae = Replace(namae, ")", "")
namae2 = Replace(namae, " ", "")
If InStr(sh.Name, namae) <> 0 Or InStr(sh.Name, namae2) <> 0 Then
insatsu = sh.Name
If InStr(insatsu, "(") <> 0 Then
insatsu = Left(insatsu, InStrRev(insatsu, "(") - 1)
End If
x = 1
Do Until ws.Cells(x, 1) = insatsu
x = x + 1
Loop
ws.Cells(x, 1).Font.Strikethrough = True
nnn = ws.Index
Exit For
ElseIf InStr(ws.Name, "提出書類(") <> 0 Then
insatsu = sh.Name
If InStr(insatsu, "(") <> 0 Then
insatsu = Left(insatsu, InStrRev(insatsu, "(") - 1)
End If
If InStr(insatsu, "(") <> 0 Then
insatsu = Left(insatsu, InStrRev(insatsu, "(") - 1)
End If
x = 1
Do Until ws.Cells(x, 1) = insatsu
x = x + 1
Loop
ws.Cells(x, 1).Font.Strikethrough = True
End If
End If
Else
If ws.Index > nnn Then
namae = Replace(ws.Name, "提出書類(", "")
namae = Replace(namae, ")", "")
namae2 = Replace(namae, " ", "")
If InStr(sh.Name, namae) <> 0 Or InStr(sh.Name, namae2) <> 0 Then
insatsu = sh.Name
If InStr(insatsu, "(") <> 0 Then
insatsu = Left(insatsu, InStrRev(insatsu, "(") - 1)
End If
x = 1
Do Until ws.Cells(x, 1) = insatsu
x = x + 1
Loop
ws.Cells(x, 1).Font.Strikethrough = True
nnn = ws.Index
Exit For
ElseIf InStr(ws.Name, "提出書類(") <> 0 Then
insatsu = sh.Name
If InStr(insatsu, "(") <> 0 Then
insatsu = Left(insatsu, InStrRev(insatsu, "(") - 1)
End If
If InStr(insatsu, "(") <> 0 Then
insatsu = Left(insatsu, InStrRev(insatsu, "(") - 1)
End If
x = 1
Do Until ws.Cells(x, 1) = insatsu
x = x + 1
Loop
ws.Cells(x, 1).Font.Strikethrough = True
End If
End If
End If
Next

Next sh
End Sub




これは印刷した書類を一人ずつチェックするマクロです。
印刷後⇒提出書類を探す⇒チェックするです。
Thisworkbookに追加して使用します。ま、このぐらい楽しても誰も文句言わないよね♪ 「当たり前」の事ですし。
今回はまだ作成していないのですが、会社別も作成し、最後に提出書類一覧が出来るようなマクロまで作成する予定です。
2018/03/14
07:42:44
第2週にほとんど稼ぐことが出来ず、目標600円でしたが、270円しか行きませんでした。
その割に、忙しかったのもあって、ブログも更新することが出来ず……。

作業所に出ていることも多かったので、仕方がないのかなぁ。
そしてここ最近、メンバー内コイバナが多いんですよね。
私みたいにメンバー内に恋人はおろか、好きな人の一人も出来たことが無い人もいますが……。
普通にバレはありますけどね。どこにでもいるから、誰かにどこかでばれるんですよね><
家に迎えに来てもらった時を見られたりとか笑
一番最悪だったのが、初デートの時に見られて、数日後にひそひそ話をされていた時。別に噂になるほどの人ではないんですけどね……。普通の人だし。
小柄な人の方が好きだけどね(笑)
身長170くらいの人で、背が高いなぁ……並びにくいなぁって思ったからね。


さて、3月12日からエクセルマクロを高速化するためのお仕事を別件で行っています。
1秒以内に終わるようなマクロなのに、「もっと早くできないか?」と聞いてきたので大変です。
ちなみに、流れはこのような感じです。


1.PDFのファイルを選択する
2.リンクを付けるブックを開く
3.PDFが存在するフォルダに応じてハイパーリンクを作成する
4.ブックを保存して閉じる


計測するのは「3」のみですが、3のみの場合0.00秒以下なんですよね……。

上書き保存やブックを開くことに時間がかかっている事を伝えた方がよさそうです;;;

修正したところは、Workbooks("●●●.xlsx").save と Workbooks("●●●.xlsx").Close のブック名を変数にしただけです。
(0.05秒程は短くなりましたが……)

いじめ的なクライアントさんでした。保存先だって、ネットワークだし。
ためしにデスクトップを指定したら0.8秒⇒0.6秒~0.7秒でした。

いくら高速化と言っても、不可能な範囲が必ずあります。ワークブックを開いたり保存したりする命令には時間がかかります。
大体、こっちはそんな下手なプログラム組んでないですし……。


過去にはエクセルで「三か月計算の式が邪魔だから消してほしい」と言われて、消して全部のセルに式を入れたら「計算が遅い」と文句が来たこともありました。
そんなこと言うならエクセル使って仕事するな~~~!!! いくらエクセルでも魔法ではないのです。
どれだけすごい関数も魔法ではありません。それを作ったのも使うのも人であることを忘れてほしくない。
そんなに云うのなら自分でソフトウェアの開発をしてください。

07:41:53
本格復帰に当たって始めた事は沢山の仕事。
他の人と同じ仕事を半分以下で終わらせて他の仕事をして、作業することが一番大切です。
来年度から別の仕事と通信制大学受講が始まるので、本当忙しくなるな~って予定見ながら思っていました。なので、最後の月は予定いれまくり!!!
体力が持つかがすごくすごく不安です。


そしてまた葉っぱが伸びてました。
やっぱり少しずつしか伸びないですね~~~。メンバー内の成績みたい。

1520205924106.jpg

1520205933494.jpg

今日は「不要行削除ブック別」のマクロを作成しました。
15:09:53
元々の「ラブライブ!」のアニメと音楽が好きだった私。
新シリーズが出来たと知り、見たのですがやっぱりμ'sの方が好きです。
Aqoursはμ'sに比べて華やかさも足りませんし……。μ'sの場合は強力なライバルがいたと言うのも大きいかもしれませんね。
後はSnow Halation がすごく好きでした。この曲は本当に名曲だと思います。
この曲があったからラブライブ好きになったんです。



Aqoursは、キャラが立ってるメンバーがさらに増えたなあと思います。
花丸ちゃんずらーーーとか、ルビィちゃんとか…善子ちゃんとか。
ルビィちゃんが一番好きです。Saint Snowのリアちゃんと話すところとか格好良いなって思いました。
花丸ちゃんはもう、あのキャラが好きです。「ずら」が本当に可愛い。
みんな集まった二期の方より面白かったです。

最後ラブライブが終わった時にちゃんと勝って、学校の名前を残せてよかったですよね。

DWDMYpHUMAADhdZ.jpg
ルビィちゃん可愛いよ~~~。
他のキャラも良いけど彼女が一番好き♪



P.S. 3月始まってからあまり稼げてはいない、と言っても、広告で結構稼げていました。
04:50:28
3月3日
データ入力他 20.9円
広告他 39.11536円

3月始まってから上手く稼げていません。。。

何故か作っていなかったマスターデータ変更マクロでした。
意外と欲しいと思っても作らないことって多いんですよね~~~。
昨日書類を作成していた時に、印刷が多いと気がついて、修正することに気がつきました。
まずはマスターデータの変更です。
これは選択したセルを検索してマスターデータを変更してくれます。
使用しやすくて便利ですよ。

自分の好きなことは全てしなければなりません。欲しい物は全て手に入れなければなりません。
当然のことだと思います。

Sub マスターデータ変更()
On Error Resume Next
kazu = 0
Dim x As Long
Dim kosu As Long
For i = Selection.Row To 2 Step -1
kosu = 0
x = 1
If Cells(i, 1) = Cells(Selection.Row, 1) Then
kazu = kazu + 1
ichi = WorksheetFunction.Match(Cells(Selection.Row, 1), 変更するワークシート名.Range("a:a"), 0) + kazu - 1
Do Until 変更するワークシート名.Cells(ichi, x) = ""
If Cells(Selection.Row, x) = 変更するワークシート名.Cells(ichi, x) Then
kosu = kosu + 1
End If
x = x + 1
Loop
If x = kosu + 1 Then
Exit For
End If
End If

Next
Dim henkou As String
henkou = InputBox(Range(Selection.Address) & "変更後データを入力して下さい")
変更するワークシート名.Cells(ichi, Selection.Column) = henkou
Range(Selection.Address) = henkou
On Error GoTo 0
End Sub

削除も同じです。
Sub 選択マスター行削除()
On Error Resume Next
kazu = 0
Dim x As Long
Dim kosu As Long
For i = Selection.Row To 2 Step -1
kosu = 0
x = 1
If Cells(i, 1) = Cells(Selection.Row, 1) Then
kazu = kazu + 1
ichi = WorksheetFunction.Match(Cells(Selection.Row, 1), 変更するワークシート名.Range("a:a"), 0) + kazu - 1
Do Until 変更するワークシート名.Cells(ichi, x) = ""
If Cells(Selection.Row, x) = 変更するワークシート名.Cells(ichi, x) Then
kosu = kosu + 1
End If
x = x + 1
Loop
If x = kosu + 1 Then
Exit For
End If
End If

Next


変更するワークシート名.Rows(ichi).Delete
On Error GoTo 0
End Sub


こうやって、ミスが多かった書類を一つ一つずつ確認していくのが大切です。
やりたい事は全て一つ一つ確認していくことが大切なんですよ。
きちんと自分のしたいことが出来るようになること、これは何より大切なことだと思います。
努力はそう言うところに出てくるのかなあと密かに感じます。

プロフィール

はなかな

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

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

この人とブロともになる

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