頑張らない! 

February 25 [Mon], 2008, 21:51
久し振りの更新になりました!

暑い日が続いていましたがみなさんお元気ですか?

私の3連休は、スポーツジム、お洗濯、お墓参り、勉強の予定などです♪

さてさて、最近思うこと、それは、頑張らないこと。

出来るようでできない。
気が付いたら頑張ってしまいます。

そういう思考に自然となっています。

けれどこれからはがんばらない自分で居たいな〜と思っています。

今も、がんばろうかどうしようか考え中なのですが(笑)

恋愛も、仕事も無理をしたくない。
自分の気持ちに正直に、自分の健康のことに気を配りながら行きたいと思います!

Guy 

February 15 [Fri], 2008, 18:29
"Let's Stay Together"

もう2ヶ月・・・ 

February 08 [Fri], 2008, 0:45
請求書を提出して2ヶ月が経ったのに・・・




まだ何の連絡もありません・・・
いい加減、担当の方に聞いてみたほうがいいんだろうか。



ここにきて、こんなに待たされるとは正直思っていませんでした。
しかも受理したのかどうかの連絡もなくて・・・



友達が言うには、「10月の頭には連絡が来るんじゃないかな?連絡が来たら振込みまでは早いよ〜」とのこと。
そうだといいんだけど。



今度の休みに、また共済組合に聞いてみようと思います。
10月にお金が入らないと、本当にやばい・・・



それもこれも、お金を使いすぎているのがいけないんですが・・・

お疲れさん 

January 30 [Wed], 2008, 1:53
今日の加藤さん。試合のような緊張感だったゴルフの為ピラティスはお疲れです。

お花の名前思い出したよ〜〜〜 

January 17 [Thu], 2008, 5:43
こないだの買ってきたお花の名前を思い出しました^^
「千日紅」です! ラズベリーなんとか・・・とも呼ばれてるみたいですけど^^

あのお花1年草なんですけど 自分で種を取れるかな〜。挑戦してみたいと思います!

雨の一日 

January 10 [Thu], 2008, 13:29
今日は朝から雨、会長から預かった、バス旅行の会計報告をまとめる。
幹事が計算した数字に間違いは無かった。
表を作り項目を記入して数字を入れた。
午後は雨が上がっていたので、会長宅までバイクで行って、見本を郵便ポストに入れて帰って来る。
良いと成れば、33枚プリントして、参加者に配布する。
11月3日のご苦労さん会に各班長さんに渡す事になっている。
後は個人が申し込んだ写真をプリントする。
一人顔にシミが目立ち、消してみる、何とか消えた。
4時からは何時ものように水戸黄門を見る。
5時からは、日記や血圧表を記録をついける。

9月17日、10キロ1時間10分 

December 23 [Sun], 2007, 4:20
やっとの思いで、重い腰をあげ、外ランした。

この先思いやられる。

計画を立てねば。

頑張りましたー★+。 

December 14 [Fri], 2007, 20:43
めっさ頑張ったッ!!睡魔に襲われながらも(ぇ

エクセルでコントロール配列 

December 07 [Fri], 2007, 13:48
 先日からエクセルのUserFormを利用したチョットしたマクロを造っている。



その中でコントロール配列を利用しようと調べてみたが、VBAでは



コントロール配列は直接利用できないと書いてある。



擬似的にコントロール配列を使う方法を考えてみた。









(1)準備



UserForm1の上に、Label1〜Label3の3つのコントロールを置く。



さらに、Command Button1を置いてみよう。



(2)マクロの記述



考え方は、labelをプライベートなMSForms.Label型の配列変数に置き換え、以降この



UserForm1のプロシージャーの中では、この配列変数を利用して、



コントロール配列として扱おうというものだ。



下記にVBAのマクロを示す。




'---------------------------------------

Private MyLabel(1 To 3) As MSForms.Label

'Generalのエリアにこのモジュール内のプライベート変数として宣言する。
'--------------------------------------



Private Sub UserForm_Initialize()
Dim i As Integer

For i = 1 To 3

Set MyLabel(i) = UserForm1.Controls("Label" & i)
Next i

End Sub

'UserFormの初期化の段階で、Labelを配列変数 MyLabelに置き換える。
'以降、変数 MyLabelを擬似的コントロール配列として利用できる。
'------------------------------------------


Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 3

MyLabel(i).Caption = "yellow"

Next i

End Sub

' CommandButton1のイベントで、 MyLabelをコントロール配列として利用している。
'-----------------------------------------











注記

上記のエクセルバージョン Excel 2002 SP3

レベル(^◇^) 

November 30 [Fri], 2007, 7:37
   今はレベル上げをしていません・・・なんか一回負けるとやる気が・・・

   なんかおもしろいゲームがないか探しています(*_*;

   最近PS2が壊れたせいでなんかつまらんです(T_T) 今からハンゲーでも行ってきます(;一_一)
P R
プロフィール
  • プロフィール画像
  • アイコン画像 ニックネーム:lauein379
読者になる
2008年02月
« 前の月  |  次の月 »
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
最新コメント
アイコン画像☆ネル☆
» 頑張らない! (2008年10月22日)
アイコン画像真那斗
» 頑張らない! (2008年10月18日)
アイコン画像†*もぇちゃ*†
» 頑張らない! (2008年10月12日)
アイコン画像猫男爵
» 頑張らない! (2008年10月07日)
アイコン画像チャーリー
» 頑張らない! (2008年10月05日)
アイコン画像マヨネーズ・ラテ
» 頑張らない! (2008年10月03日)
アイコン画像RAOSU
» 頑張らない! (2008年10月02日)
アイコン画像きりひと
» 頑張らない! (2008年10月01日)
アイコン画像南雲
» 頑張らない! (2008年09月23日)
アイコン画像MASA
» 頑張らない! (2008年09月17日)
Yapme!一覧
読者になる