Blog: 2月 2009

2009年2月26日木曜日

【旅行】佐久間レールパーク

http://recommend.jr-central.co.jp/rail-park/index.html
2月は休館でした。なぜ。
出かける前は、開園してるかどうか調べましょう。
（つぶれてる場合もあります。）

【旅行】ドライブルート検索

Yahooドライブ
http://drive.yahoo.co.jp/route/search
時間の見積りが短めに出力される気がします。
余裕を持ったドライブプランを立てましょう。カーナビでも時間見積もるベシ。
（他にルート検索でるのはあるのかな？）

2009年2月23日月曜日

【ＴＶ】侍戦隊シンケンジャー

Ｗｉｋｉ
http://ja.wikipedia.org/wiki/%E4%BE%8D%E6%88%A6%E9%9A%8A%E3%82%B7%E3%83%B3%E3%82%B1%E3%83%B3%E3%82%B8%E3%83%A3%E3%83%BC

2009年2月21日土曜日

【考え方】GTD

ＧＴＤ/ＧＴＤとは何か - ＧＴＤの概要
http://hpcgi1.nifty.com/spen/index.cgi?%A3%C7%A3%D4%A3%C4%2F%A3%C7%A3%D4%A3%C4%A4%C8%A4%CF%B2%BF%A4%AB
時間管理、整理術、フォトリーディングなどについてのメモ
http://wiki.livedoor.jp/mobilememobiz/d/FrontPage

【vba_excel】画面ちらつき防止

Application.ScreenUpdating = False '画面ちらつき防止

2009年2月19日木曜日

Sub セルの結合5()
'
' ５セル結合します
'
Dim n As Integer
n = 4 '結合数
Do While Not (ActiveCell.Value = 0)
Selection.Resize(1, n).Select
Selection.Merge
ActiveCell.Offset(1).Select
Loop
End Sub

Sub セルの結合()
'
' セルを結合して一つ下へ移動します。
With Selection
.HorizontalAlignment = xlCenter
End With
Selection.Merge
ActiveCell.Offset(1).Select
End Sub

2009年2月18日水曜日

【旅行】天気

気象庁
http://www.jma.go.jp/jma/index.html
天気予報-wiki
http://ja.wikipedia.org/wiki/%E5%A4%A9%E6%B0%97%E4%BA%88%E5%A0%B1
気象庁-wiki
http://ja.wikipedia.org/wiki/%E6%B0%97%E8%B1%A1%E5%BA%81

2009年2月14日土曜日

2009年2月13日金曜日

【ＴＶ】仮面ライダーディケイド

Wiki
http://ja.wikipedia.org/wiki/%E4%BB%AE%E9%9D%A2%E3%83%A9%E3%82%A4%E3%83%80%E3%83%BC%E3%83%87%E3%82%A3%E3%82%B1%E3%82%A4%E3%83%89

研修でやる気は高まるのか？

・成功体験が得ることによって、自信が付き自己効力を高める。
（研修で成功体験が得られるのか？業務で得られた成功体験でなければ意味がないのでは。）
・努力すれば、結果がでると信じるこころ　を育てる。
（人それぞれの性格によるところが大きい）
・ビジョンを明確にする
（職場しだい）

そもそも効果不明の研修を行う必要性があるのか？

2009年2月8日日曜日

【人材育成】資格

資格の王道
http://www.shikakude.com/
資格取得
http://www.one-kurashi.com/
わかりやすい１０秒資格取得ガイド　
http://www.39rymy.com/shikaku/

・難しいく取り難い資格ほど価値があるような。
・能力を認めるだけの資格は、あまり価値がないような。
・やりたい事と持っている資格は合っているのか？

・少年老い易く学成り難し
勉強した結果が出るのは、数年先。勉強した結果がすぐにでなくても弱気になってはダメ。地道に努力して来た人は、いまさら資格に頼らないでしょう。

【vba_excel】実験組合せ

９パラメータ３水準組合せ

Sub Macro1()

Offset = 5
n = 1

For i = 1 To 3
Cells(4, 1).Value = Cells(i, 1).Value
For ii = 1 To 3
Cells(4, 2).Value = Cells(ii, 2).Value
For iii = 1 To 3
Cells(4, 3).Value = Cells(iii, 3).Value
For iiii = 1 To 3
Cells(4, 4).Value = Cells(iii, 4).Value
For iiiii = 1 To 3
Cells(4, 5).Value = Cells(iiii, 5).Value
For iiiiii = 1 To 3
Cells(4, 6).Value = Cells(iiiii, 6).Value
For iiiiiii = 1 To 3
Cells(4, 7).Value = Cells(iiiiii, 7).Value
For iiiiiiii = 1 To 3
Cells(4, 8).Value = Cells(iiiiiii, 8).Value
For iiiiiiiii = 1 To 3
Cells(4, 9).Value = Cells(iiiiiiii, 9).Value
For z = 1 To 9
Cells(Offset + n, z).Value = Cells(4, z).Value
Next
n = n + 1
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub