2008-10-23から1日間の記事一覧

10進数を16進数に変換 16進数を10進数に変換

ExcelVBA

10進数を16進数に変換 Function Dec2Hex(Dec As Long) As String Dec2Hex = Hex(Dec) End Function 16進数を10進数に変換 Function Hex2Dec(Hex As String) As Long Hex2Dec = Val("&H" & Hex) End Function ネタ元 http://www.bekkoame.ne.jp/~poetlabo/COM…

範囲を選択しているかチェック

ExcelVBA

'範囲選択しているかチェック If Application.Selection.Count = 1 Then '選択していない Exit Sub Else '選択している Exit Sub End If 参考 http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=14237;id=excel

関数ポインタと関数ポインタ配列

CPP

よくわすれるのでメモ void (*func)(char*) = func00; void (*func_table[TABLE_MAX])(char*) = { func00, func01, func02, }; 参考 http://www.nurs.or.jp/~sug/soft/tora/tora13.htm