ブログ日和

夏休み中の息子（小1）のためにExcelで計算ドリルを作りました。
いわゆる「計算カード」のExcel版です。
時間計測が必要なのでVBAを利用しました。

Public myTime As Date
Public myFlg As Boolean
Sub StopWatch()
If myFlg = False Then
myTime = Now
myFlg = True
Else
MsgBox “かかったじかん　” & Format(Now – myTime, “h:mm:ss”)
myFlg = False
End If
End Sub

ボタンに「Sub StopWatch」を登録します。
始める時と、終わった時にボタンを押します。
さて。これで効果が上がるかどうか・・・。

変更を保存せずにEXCELを終了させるVBAです。

Sub 終了()
　　　Dim wbook As Workbook
　　　For Each wbook In Workbooks
　　　　wbook.Saved = True
　　　Next wbook
　　　Application.Quit
End Sub

結合した文字列をセル内で改行させたい。
そのような時は CHAR関数 を使用します。
※あらかじめ、文字列をセル内で折り返して表示する設定にしておきます。
[書式]-[セル]-[配置]タブ-「折り返して全体を表示する」をオン

A1「埼玉県」
B1「さいたま市」
C1「= A1 & B1」 => 「埼玉県さいたま市」

この時、

C1「=A1 & CHAR(10) & B1」

と入力すると、

C1「埼玉県
　　　さいたま市」

とすることができます。
以下、CHAR関数およびコード番号について
CHAR(数値)：
コード番号で指定した文字を返す
指定した数値を ASCII または JIS コードの番号と見なし、それに対応する文字を返します。
数値：
変換する文字を表す 1 〜 255 の範囲の数値を指定します。
使用するコンピュータの文字セットから、そのコード番号に対応する文字が返されます。
ASCII文字コード（IT用語辞典）：
http://e-words.jp/p/r-ascii.html
ASCIIコード「10（10進数）」は「LF（NL）」つまり改行
だから、=CHAR(10)　で「改行コード」となるわけですね♪