夜勤明け

夜勤明けでぼぅ～っとしてます。。【れおにゃるど・ふみんち？】
気が付けば、６００記事、４０００nice!　を超えていました。これも、皆様のおかげです。

『エクセル小僧：ばかよけ２』でも、次に書こうかな。。と思いつつ。

01: ' 文字列を生成
02: str1(0) = Format(Now(), "現在：yyyy/mm/dd(aaa) hh:mm:ss")
03: ' ActiveCell.Addressでは、単一セルしか代入できないので、Selectionを使う
04: str1(1) = str1(0) & vbCrLf & Selection.Address
05: str1(1) = str1(1) & "セルに今日の日付を代入しますか？"
06: ' 選択されているセルに今日の日付を代入するか、確認
07: ans1 = MsgBox(str1(1), vbYesNo + vbExclamation + vbDefaultButton2)
08: ' 場合分け
09: Select Case ans1
10:   Case vbYes ' 「はい」
11:     ' 選択されているセルに今日の日付を代入
12:     For Each objRANGE In Selection.Cells
13:       objRANGE.Value = Format(Now(), "yyyy/m/d")
14:     Next
15:     'Range(ActiveCell.Address) = Format(Now(), "yyyy/m/d") ' 単一セルへの代入
16:   Case vbNo ' 「いいえ」
17:     ' 何もしない
18:   Case Else '「はい」でも「いいえ」でもない
19:     ' 何もしない
20: End Select

記事にしたいのは、6/12の記事で紹介した、選択された複数のセルに今日の日付（例：2012/6/12) を代入するマクロの上記の部分です。

説明はおいおい。。

Nirvana - Jesus Don't Want Me For a Sunbeam

タグ：Jesus Don't Want Me For a Sunbeam Nirvana エクセル VBA

コメント 4

６００記事、４０００nice!、おめでとうございます♪
このブログはエクセルの操作について貴重なアドバイスが
あるので、その知識を得るために訪れる人も多いでしょうね。

by Loby (2012-07-05 05:29) 

おぉ！　600記事ですかぁ！
自分より100多いですね　＾＾
おめでとうございます♪
by haku (2012-07-05 07:43) 

夜勤明けお疲れ様です。ｗ

　　　　　　　　600記事！ワッショイ！！
　　　　　＼＼　 4000nice！ワッショイ！！　　　／／
　+　　　+　＼＼　おめでとう！ワッショイ！！／／+
　　　　　　　　　　　　　　　　　　　　　　　　　　　　+
　　　+　　／■＼　　／■＼　 ／■＼　　+
　　　　　　（　´∀｀∩（´∀｀∩） （　´∀｀）
　+　（(　（つ　　　ノ （つ　　丿（つ　　つ　)）　　+
　　　　　　 ヽ　 （　ノ （　ヽノ　　　）　）　）
　　　　　　　（＿）し'　 し（＿）　 （＿）＿）


by モッズパンツ (2012-07-05 11:17) 

Lobyさん、
私の記事が、誰かの役にたつなら、うれしい限りです。

hakuさん、
記事の数こそ多いですが、
１行に満たない記事も数え切れず。。
まあ、こんな感じで１０００記事目指したいかと。。

モッズパンツさん、
いつもありがとうございます。
夜勤がつらいお年頃になりました。。

nice!　arigatougozaimasu !
(・ω<)






by cheese999 (2012-07-05 22:14)