目標と世界
人それぞれ自分の世界ってもっていますよね。
自分の生き方がそのまま世界だったり。
最近いろいろな人にあっているから考えたりします。
あ、この人素敵だなｔ思った人の世界を知り、自分の世界と違ってくると、
その人の世界に飛び込んで、自分の世界を広げるか、壁を作って拒絶するか。
まあ、どちらかかと思いますが。
そんなことを考えながら、自分の世界を考えてみました。
なんとなくですが。
自分の世界を広げるためには、どうしたらよいか？
横にひろげる？それともほりさげる？
人と会い、話、いろんなものを見ることで横にひろがるかな。
自分の技術、才能を研鑽することで、深まるかな。
ひとついえることは、僕はもっといろんな事に興味を持つべきなんだとおもうんだ。
ということで、目標をたてて、どの程度できたかをみていかなければ。
まずは、他の世界にもっと興味を持つようにする。
勧められたら、興味なくても、まずは、やってみる。興味がないことを極められないのは、当然だし、
長年やってきた人にかなうわけがない。
なので、できる限りやってみる。
あと、今までとりたかった資格はとっていきます。
行政書士はとりたい。
そして、いろんな世界を見て、通りすがりの行政書士になるのもわるくないな。
あ、あと、初詣にいってきたときに、お願いしたことがあって、
自分の中から怒りがきえるようにって祈っておきました。
おみくじは、末吉。
んー微妙。
鵠沼海岸
鵠沼海岸に、素敵なお店があるんです。
ほいで、素敵な方がいるんです。
がんばってるなーって感じで。
元気もらったり。
ちょくちょくはいけないのですが、たまに行って飲んで。
素敵です。
すごい人徳がある方で、仲間がいっぱいいる感じで、
前向きで、ダークサイドの僕にはちょっとまぶしい感じです。
新年会
日付変わって昨日。
渋谷でふたりで新年会をやっていました。
トラジにいったんですが、うまかったです。
焼肉はいいね。
お上品って苦手なんですが・・・。
焼肉といえば、１２０分一本勝負金網デスマッチ
まあ、単純に２時間制の食べ放題のお店にいって、
死ぬほどくうってだけなんですが。
網みえないぐらい肉をひいて。
網見えたら負けというか。
めちゃくちゃたべたいから、ビールとかのまないんです。
でも、昨日はビール飲んで楽しみました。
一緒にいたい人と一緒にいれるって素敵だなぁ。
さて
というか、ストイックにいきたいというか、超絶をこえたいんす。
とおもいながら、気づくと夜中。
あれ？
さっき初詣に行って、帰りに缶コーヒーとガリガリくん買って。
はらへったな。らーめんくいたいな。
まだまだ
もっといい方法ないかな？なんて思いながら、アルゴリズム云々をかんがえてみまり。
んー。夜テレビ見ながらやったら、だめだね。
動きがおかしい。
まあ、どこがおかしいかわかってないから、移動中コードながめてよーとおもって。
軽くリハビリ中です
スイッチシステムVBA判（途中）
'********************
'* スイッチシステム *
'********************
Private Sub Switch_Click()
'変数の宣言
Dim RowNumber As Long
'入力シートをアクティブ化
Worksheets("入力").Activate
'作業履歴の入力行を特定
RowNumber = Worksheets("作業履歴").UsedRange.Rows.count
'ボタンの判定
'スタートの場合
If Switch.Caption = "スタート" Then
'入力行を特定
RowNumber = RowNumber + 1
'スタート時にシートに登録
StartOn (RowNumber)
'Captionをストップに変更
Switch.Caption = "ストップ"
'クリアボタンをFalse
Clear.Enabled = False
'ストップの場合
Else
'ストップ時にシートに登録
StopOn (RowNumber)
'Captionをスタートに変更
Switch.Caption = "スタート"
'クリアボタンをTrue
Clear.Enabled = True
End If
'入力シートをアクティブ化
Worksheets("入力").Activate
'最後に変数の初期化
WorkType = ""
Contents = ""
End Sub
'スタート時にシートに登録
Sub StartOn(ByVal RowNumber As Long)
'変数の宣言
Dim WorkType As String
Dim Contents As String
'入力シートをアクティブ化
Worksheets("入力").Activate
'入力を登録
WorkType = Worksheets("入力").Cells(3, 2)
Contents = Worksheets("入力").Cells(4, 2)
'作業履歴シートをアクティブ化
Worksheets("作業履歴").Activate
'日付をシートに登録
Worksheets("作業履歴").Cells(RowNumber, 1).Value = Date
'開始時間をシートに登録
Worksheets("作業履歴").Cells(RowNumber, 2).Value = Time
'作業種別をシートに登録
Worksheets("作業履歴").Cells(RowNumber, 4).Value = WorkType
'作業内容をシートに登録
Worksheets("作業履歴").Cells(RowNumber, 5).Value = Contents
End Sub
'ストップ時にシートに登録
Sub StopOn(ByVal RowNumber As Long)
'作業履歴シートをアクティブ化
Worksheets("作業履歴").Activate
'開始時間をシートに登録
Worksheets("作業履歴").Cells(RowNumber, 3).Value = Time
End Sub
'入力項目をクリア
Private Sub Clear_Click()
'入力項目をクリア
'入力シートをアクティブ化
Worksheets("入力").Activate
'入力を登録
Worksheets("入力").Cells(3, 2) = ""
Worksheets("入力").Cells(4, 2) = ""
End Sub
'入力行を特定
Function RowNumber() As Long
'入力行を取得
RowNumber = Worksheets("Sheet1").UsedRange.Rows.count + 1
End Function
'コンボボックスの取得
Private Sub cmbWorkType_DropButtonClick()
'コンボボックスを初期化
cmbWorkType.Clear
'宣言
Dim WTcount As Long
Dim i As Long
Dim j As Long
Dim k As Long
Dim count As Long
Dim tes As Long
Dim WorkTypeDef() As String
Dim WorkTypeWk() As String
Dim WorkTypeList() As String
WTcount = Worksheets("作業履歴").UsedRange.Rows.count
ReDim WorkTypeDef(WTcount - 1)
'作業種別リスト用の配列の件数を代入
'作業リストの最初の行数を代入
count = WTcount - 2
i = 0
j = 0
k = 0
tes = 1
'作業種別初期リストを作成
Do While WTcount >= 2
'作業履歴シートより作業種別をすべて取得
WorkTypeDef(count) = Worksheets("作業履歴").Cells(WTcount, 4)
'件数をカウント
i = i + 1
'取得行数のカウントをマイナス
WTcount = WTcount - 1
'配列をマイナス
count = count - 1
Loop
'作業種別ワーク用配列を作成
ReDim WorkTypeWk(i)
'配列の件数 - 1 を保持
i = i - 1
j = i
k = i
'配列の件数が0以上の場合に処理を実行
If i >= 0 Then
'最後の配列を代入
WorkTypeWk(j) = WorkTypeDef(i)
End If
'初期リストの次の場所を確定
i = i - 1
'初期リストに次の配列があることを確認
If i >= 0 Then
'重複するリストを削除
Do While j >= 0
If i >= 0 Then
'重複するか比べる
End If
'
Do While i >= 0
Worksheets("test").Cells(tes, 2) = "１２．(j)の中身:" & WorkTypeWk(j) & " :j:" & j
tes = tes + 1
If WorkTypeWk(j) = WorkTypeDef(i) Then
WorkTypeDef(i) = ""
Worksheets("test").Cells(tes, 2) = "１３．(j)の中身1:" & WorkTypeWk(j) & ":j:" & j
tes = tes + 1
Worksheets("test").Cells(tes, 2) = "１４．(i)の中身1:" & WorkTypeDef(i) & " :j:" & i
tes = tes + 1
Else
End If
i = i - 1
Loop
j = j - 1
i = j - 1
If i >= 0 Then
'配列が存在する場合に、代入する
WorkTypeWk(j) = WorkTypeDef(i)
End If
Loop
End If
Dim a As Long
a = k
Do While a >= 0
Worksheets("test").Cells(tes, 1) = "１５． WorkTypeWk(a)1:" & WorkTypeWk(a)
a = a - 1
tes = tes + 1
Loop
ReDim WorkTypeList(k)
count = 0
Worksheets("test").Cells(tes, 1) = "１６．k:" & k
tes = tes + 1
Do While k >= 0
Worksheets("test").Cells(tes, 1) = k & "１７．k:Type:" & WorkTypeWk(k) & ":count:" & count
tes = tes + 1
If WorkTypeWk(k) = "" Then
Worksheets("test").Cells(tes, 1) = "１８．K:" & k & "_WorkTypeList:" & WorkTypeList(count)
tes = tes + 1
Else
WorkTypeList(count) = WorkTypeWk(k)
Worksheets("test").Cells(tes, 6) = "１９．count1K2:" & k & "_WorkTypeList:" & WorkTypeList(count)
tes = tes + 1
Worksheets("test").Cells(tes, 6) = "２０．count1:" & count & "_WorkTypeList:" & WorkTypeList(count)
tes = tes + 1
count = count + 1
End If
k = k - 1
Worksheets("test").Cells(tes, 5) = "２１．count1:" & count & "_WorkTypeList:" & WorkTypeList(count)
tes = tes + 1
Loop
Worksheets("test").Cells(tes, 5) = "２２．count1:" & count & "_WorkTypeList:" & WorkTypeList(count)
tes = tes + 1
count = count - 1
Do While count >= 0
'作業種別のリストを作成
cmbWorkType.AddItem WorkTypeList(count)
Worksheets("test").Cells(tes, 6) = "２３．WorkTypeList(count):" & WorkTypeList(count)
tes = tes + 1
count = count - 1
Loop
End Sub
連続業務
先週の月曜日から休みなく働いており、ときどきぶっ倒れています。
月曜日、火曜日、水曜日、木曜日、金曜日、土曜日、日曜日、月曜日、火曜日・・・。
9日連続か・・・。
昔に比べて体力がおちた気がしますが、
ひとりでこつこつやる仕事でもなく、
連日、遅くまで仕事をしていて、プレッシャーも半端なかったので、
ぎりぎりまで働いて、力尽きて、寝て。そして、普通におきて、
また会社にいって。
そして、土日の出張のために、調査が終わらず、ぎりぎりまで調査して。
失敗は許されないから、プレッシャーも半端なかったし、
仕事前にやるリハーサルも一切出来ない状態。
それでいて、仕事はかさむかさむ。
ということが続き、昨日はぶっ倒れてました。
ぶっ倒れて、起きて会社にいって、遅くまで仕事をして、また力尽きて、多少回復すると
目覚め・・・。
体動かなくなるまでやるのは久しぶりだけど、ええかん年だなぁ。
嫁がほしいです。