これがしたかった！

こういうことがやりたかったのだ！！　というアクセスのデータベースを自在に検索できるシステムのサンプルのVBEを本に書いてあるとおりに入力して試してみたら、うまくいった〜！！　すごぉい。まだ今のところ、よくはわかっていないから、あとは今からよぉく寝て、頭をすっきりさせて、もう一度コードをしっかりみなおしてみようと思う。

今日、生徒さんのIさんに教えてもらった、エクセルの裏技、おもしろぉい！！
セルの上で、Ctrlキーをおしながら、セミコロンをおすと今日の日付が、同じく、Ctrlキーをおしながら、コロンをおすと、そのときの時間が表示される。おもしろぉい。(^^)

ほんとにいつも眠くなったらこのページをあけている。(^^;

でも、プログラムの勉強していると、わけがわからなくなってきて、どうしても眠くなるから。。しかたないなぁ。。

今、２７８ページ。なんとか、今日中に終わらせたかったのだが。。

そうそう、何日か前に、FAXつきの電話用子機を、ヤフオクで落札したのが届いていたのだが、こっちの勉強をどうしてもやりたくて、放ってあったのだが、やっとのことで、今日子機の登録を終え、今まで使っていた増設電話をとりはずして、子機２台にすることができた。わぁい＼(^^)/

さぁ、あとまだもう少し進めたいから、こぉぉいコーヒーを今から作ってこよっと！！

眠い

眠くなったら、このページを開けているみたい。はは。。(^^;　でも、このページのおかげでたすかる〜。今、２４０ページ、眠いけど、でも進んではいる。ちょっとわからないところがでてくると眠くなる。まぁしかたがないなぁ。前から何度もでてきている、for next や、do while や、select case だが、今回少し深く理解できたように思う。特にselect case の使い方、だいたいわかったかなぁ。。そんな気がする。もう少しがんばろう！！

眠い、もうだめ〜。おやすみなさい。

ほんとに、なんとかして、今度こそプログラムをものにしたい。毎日続けるぞ。

プログラムの勉強やりながら、「だからあなたも生きぬいて」という本を読んでいる。中学のとき、強烈ないじめにあって、横道にそれたが、必死で勉強して弁護士になったという。すごいなぁ。勉強のおもしろさを知ったんだろうな。。この人にはかなわないかもしれないけど、わたしだって、がんばれば、プログラムものにできないわけはない！！　がんばるっ！！

今はプログラムを覚えたいということで、頭がいっぱい

他のことをする時間がおしい。。といっても、本を読み続けていると、とってもしんどくなって、そればかりはやってられないのだが。。

前に書いたのは、CGIプログラムのことだったと思うが、日曜日に何冊か本を買ってきて、今はそれをやっている。

読んだ本は、エクセル丸秘技、これはかなりおもしろかった。今まで知らなかったり、知っていたけど、まだ完全には自分のものになっていなかった、知っていて便利な関数や技が網羅されている。ジュンク堂に山積みにされていただけのことはあると思う。昨日の朝から、できるアクセス２００２応用編を一通り全部やった。そして今は、１０日でおぼえる、ACCESSVBA＆マクロ入門教室という本を最初からやっていっている。１３１ページまで終了。これは５日目の第１時間目が終了したところだ。

今回こそは絶対ものにする！！

vbaを使って、スケジュール表

今月のスケジュール表を名前を変えて保存、中の内容もその月の日付に変えて、内容は全部消去した後、一列ごとに青い色をつけ、日曜日の行にはピンク色をつける、という作業を、VBAを使って、ボタン一発でできるようにしたいと、朝からずっとがんばっていた。

教えてgooで、諸先輩の教えを受けながら、今、なんとかできあがった。あとは、ボタンをつけて、それにプロシージャーを登録したら、おしまいだ。

うれしいなぁ。

なくなると困るので、ここにコピーしておこうっと。(^^)
…………………………………………………………………………………………
Sub newbook2()
Dim a, bbb, NitiN, ddd, e As Integer
a = InputBox("何月の予定表を作りますか？")

ChDir "D:\いろいろ\1か月予定"
ActiveWorkbook.SaveAs Filename:="D:\いろいろ\1か月予定\2004年" & a & "月.xls"
Range("b1").Value = "2004年" & a & "月予定表"

MotonoTuki = Month(Range("b5").Value)
bbb = a - MotonoTuki
Range("B5:B190").Select
For Each r In Selection
r.Value = DateSerial(Year(r.Value), Month(r.Value) + bbb, Day(r.Value))
Next r
Cells.Select
Selection.Interior.ColorIndex = xlNone
Range("d5:k190", "m5:s190").Select
Selection.ClearContents
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.ClearContents

Range("B4:B190").Select
Range("B4:B190,D4:D190,f4:f190,h4:h190,j4:j190,l4:l190,n4:n190,p4:p190,r4:r190").Select
Range("r4").Activate
Selection.Interior.ColorIndex = 34
Dim i As Integer

i = 5
While (Cells(i, 3).Value <> "")
'i行目のC列の内容をチェック
If Cells(i, 3).Value = "日" Then
'それは「日」だったので色をつける
Range("B" & Trim(Str(i)) & ":S" & Trim(Str(i))).Interior.ColorIndex = 38
'文字そのものの色をピンクにする場合にはこちらを使う
'Range("A" & Trim(Str(i)) & ":S" & Trim(Str(i))).Font.ColorIndex = 7
End If
'次の行へ
i = i + 1
Wend

End Sub
………………………………………………………………………………………
以上でした。

えへへへ。。ほんと、うれしい。＼(^^)/