|
▼さちきょん さん:
こんばんは
>すごいです!最初のも次のも成功です!!
動作して何よりです。
>●lngEndROW = Range("E65536").End(xlUp).Row
これは、さちきょんさんが提示されたコードでは77行目まで
ループされていたのですが、77行目まで入力がされていない
場合、無駄な部分が出てきますので、E列で入力されている
最終行の行番号を取得しています。
>● Size_S = IIf(Range("G" & v).Value = "", "", "S/" & Range("G" & v).Value & ",")
>
> ※これは、IfじゃなくてIIfなんですか?
変数に直接条件判断で値を入れたい場合はIIF関数を使用します。
>●If strTEXT <> "" Then
> strTEXT = Left(strTEXT, Len(strTEXT) - 1)
> Cells(v, 24).Value = strTEXT
> strTEXT = ""
ここは、もしもすべての数量が0とかの場合は、セルに値を入れな
いようにしています。
説明が苦手なのでちゃんと伝えられているか、まったく自信があり
ません、Helpを参照してみてくださいね。
|
|