|
ぴぐぴぐ さん、おはようございます。
>フォームで入力した値をシートへ転記するのですが、
>「1B・2B」の行にそれぞれ共通項目を転記していきます。
>
>If Form入力.Option1B.Value = True Then
> 下 = Range("C4").End(xlDown).Row
> Range(Cells(下 + 1, 3), Cells(下 + 1, 3)) = Form入力.共通1.Text
> Range(Cells(下 + 1, 4), Cells(下 + 1, 4)) = Form入力.共通1.Text
> Range(Cells(下 + 1, 5), Cells(下 + 1, 5)) = Form入力.共通1.Text
>Elseif Form入力.Option2B.Value = True Then
> 下 = Range("I4").End(xlDown).Row
> Range(Cells(下 + 1, 3), Cells(下 + 1, 3)) = Form入力.共通1.Text
> Range(Cells(下 + 1, 4), Cells(下 + 1, 4)) = Form入力.共通1.Text
> Range(Cells(下 + 1, 5), Cells(下 + 1, 5)) = Form入力.共通1.Text
>End If
>こうすると、オプションボタンで2Bを選び入力すると1Bのエリアに2つの
データが入力されてしまいます。
整理すると、
>If Form入力.Option1B.Value = True Then
> 下 = Range("C4").End(xlDown).Row
> Cells(下 + 1, 3).Value = Form入力.共通1.Text
> Cells(下 + 1, 4).Value = Form入力.共通1.Text
> Cells(下 + 1, 5).Value = Form入力.共通1.Text
>ElseIf Form入力.Option2B.Value = True Then
> Cells(下 + 1, 3).Value = Form入力.共通1.Text
> Cells(下 + 1, 4).Value = Form入力.共通1.Text
> Cells(下 + 1, 5).Value = Form入力.共通1.Text
>End If
1Bも2Bも、3から5列目→C,D,E列に転記するようになっていますので、どっちを選んでも1Bのエリアに入ります。
2BではI,J,Kに入れたいのであれば、
Cells(下 + 1, 9).Value = Form入力.共通1.Text
Cells(下 + 1, 10).Value = Form入力.共通1.Text
Cells(下 + 1, 11).Value = Form入力.共通1.Text
です。
今回の場合は3,4,5列目に全部同じ値がはいっているようなので、
If Form入力.Option1B.Value = True Then
下 = Range("C4").End(xlDown).Row
Range(Cells(下 + 1, 3), Cells(下 + 1, 5)).Value = Form入力.共通1.Text
Elseif Form入力.Option2B.Value = True Then
下 = Range("I4").End(xlDown).Row
Range(Cells(下 + 1, 9), Cells(下 + 1, 11)).Value = Form入力.共通1.Text
End If
|
|