該当項目の選択肢番号を、複数項目回答させたデータを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…