久しぶりにいじったらRubyとこんがらがってて、配列長取得(UBound)を忘れているなど・・・最終行を取得 btmRow = Range("A65536").End(xlUp).Row というのをよく見るけれども、65536っていうのが何となく気持ち悪かったり、空行が入ってたら止まってしまった…

vbaでOptional base 1を指定すると、配列の開始indexが1になる。 デフォルトだと0。Optional base 0のとき（default） test_array(4) => [0][1][2][3]Optional base 1のとき test_array(4) => [1][2][3][4]0を最初とする言語が多い印象だけれども、vbaを触る…

該当項目の選択肢番号を、複数項目回答させたデータを0/1に変換する。 1:猫 2:牛 3:虎 4:兎 5:蛇 例：3,5 → 00101 Dim MA2SA As Variant Dim i As Long Dim j As Long For i = 4 To 100'読み込む行範囲 If Cells(i, 2) <> "" Then 'MA回答が2列目にあるとき…

excelで作った複数のグラフを、パワポなどに貼り付ける為に、同じサイズにしたい。 基本的に元のグラフをコピペで良いけど、入りきらないときや、サイズ変更が必要な時に、まとめてサイズ変更できれば楽かな、とおもい作成。使い方は、このサイズにしたい、…

目にすることが一番多いであろうJANコード そのチェックサム流通システム開発センター http://www.dsri.jp/jan/check_digit.htm ここの絵が分かりやすい。 Option Explicit Public Function outCode(ProdCode As String) Dim i As Long Dim chkSum As Long D…