スイミングでご一緒の超老人の記事が掲載されておりますので、ぜひご一読を下さい
http://zasshi.news.yahoo.co.jp/article?a=20161029-00050030-gendaibiz-bus_all&p=1
VBEの画面をいじっているとたまにプロジェクトエクスプローラとプロパティウィンドウが
フローティング状態になり、元の状態に戻せなくなることがあります。
重ねてもうまくはまらなかったり、2列に並んだりしてしまいます。
こういう時はまず下側にくるプロパティウィンドウを左側に持っていくと点線が縦長になることろで
ドラッグアンドドロップすると枠にはまります。
次にプロジェクトエクスプローラーをはまったプロパティウィンドウのタイトルバーに
ドラックアンドドロップします。
上側にプロジェクトエクスプローラ、下側にプロパティウィンドウと
初期の状態になります。
できるとヤレヤレです。
カシオのスポーツウォッチのバッテリーが切れました。約3ヶ月ぶりの電池交換です。
バッテリーが少なくなるとiPhoneとの繋がりが悪くなりこのようにウォッチにバッテリーマークが点滅します。
精密ドライバー使って裏蓋と中蓋を取ります。
電池を抑えている抑えを外すのがポイントです。画鋲の針を使って外すします。
裏蓋の縁が錆が出ていました。運動の後は水でじゃぶじゃぶ洗っていたので、さすがに10m防水とはいえ水が侵入したのでしょう。アルコールで拭き拭きして綺麗にしました。このゴムパッキングが内部への水侵入を防いでいるのでこれは念入りに。
後は新しいCR2032のボタン電池を入れて全部元に戻して完成です。
日時合わせはiPhoneと繋ぐと自動的に合わせてくれるので楽です。
この調子で使うと次回は来年の1月か2月頃かな。
4年前にExcelVBAで作ったロト６自動予想プログラムを修正した後、
１０月２４日18：00の抽選発表前にあわせて番号を作ってみました。
１０月２４日17：30に番号を作って次の日に確認しようとしました。
次の日の朝、確認してみると４つのセルが赤く塗りつぶされました。
なんと４等賞でした。
思わず「ウォー」と雄たけびを上げてしまいました。
近くで自習していた生徒さんが「何事が起こった」と覗きにこられ
再度一緒に「オォー」と
４等は５，５００円でしたが当たったことがないので感激ものでした。
もちろんあの時間帯で番号を作りましたから買ってはいません。
あしからず。買っていないと当たる。人生そんなもんです。
まだ高額ではないので心情的に助かっています。
月曜と木曜日に抽選があるので週２回、このブログに予想番号を発表しようかしら。
Copyメソッドはセル内のデータだけではなく書式も含めてセル全体をコピーします。
たとえば下図のような表があった場合
標準モジュールに
Sub Sample()
Range("A1:E12").Copy Destination:=Range("G1")
End Sub
のようにコードを打って実行すると書式も含めてセル全体をコピーします。
ところが、セルをコピーするとき「データだけでいいんだけど」という場合があります。
そのときはマクロ記録で選択して貼り付けの「値」で記録すると
5行ぐらいのマクロコードになってしまします。
「どうのこうのSelect、どうのこうのPaste」と実用的ではありません。
そういう時はCopyメソッドは脇に置いて発想を代え
Valueプロパティで代入式を使えばすっきりしたコードになります。
Sub Sample2()
Range("G1:K12").Value = Range("A1:E12").Value
End Sub
書式のないデータだけが貼り付きます。
ただし注意としてValueプロパティを省略せずに指定して
さらにコピー元と貼り付け先は、同じ大きさのセル範囲でなければなりません。