Excel VBA 質問スレ Part66

[377 デフォルトの名無しさん 2020/05/30(土) 17:00:12.37 ID:EKBxQQvi]

14列目から全てセルの巾15ピクセルで固定されてます。指定したピクセル数に伸ばしたり縮めたりしたいんですがどうしたらいいですか？

privata Function AAA(objTarSht,intPicel)

clmTar=14
do until objTarSht.Cells(1,clmTar)=空

ここ

clmTar=clmTar + 1

loop