1-3. 変数と繰り返し処理 第12回.変数宣言のDimとデータ型 第13回.定数宣言のConstと型宣言文字 第14回.文字の結合(&アンパサンド)と継続行(_アンダーバー) 第15回.四則演算と注釈(コメント) 第16回.繰り返し処理(For Next) 第17回.繰り返し処理(Do Loop) 第18回.最終行の取得(End,...
Exit Function End If 'ほんとうは1バイトづつ結合するのではなく、パフォーマンスを考慮した '結合の仕方をすべきですが、学習のため、ややこしいことはしないで、1バイトづつ結合します。 For j = 1 To OutputBytesCount UTF8ToUTF16 = UTF8ToUTF16 & ChrB(OutputBytes(j-1)) Next Next ...
For i = 2 To rowsData Dim deliDate As Date deliDate = wsData.Cells(i, 1).Value If Year(deliDate) = Year(dayCutoff) And Month(deliDate) = Month(dayCutoff) Then wsData.Range(wsData.Cells(i, 2), wsData.Cells(i, 4)).Copy wsTemplate.Cells(k, 1) k = k + 1 End If Next ...