Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24167 / 76732

←次へ　｜　前へ→


	【57916】連続入力

ぴぐぴぐ - 08/9/20(土) 23:47 -


	引用なし

	パスワード

一覧表作成で困っています。アドバイスをお願いします。

フォームで入力した値をシートへ転記するのですが、
「1B・2B」の行にそれぞれ共通項目を転記していきます。

Option Explicit
Dim 下

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つの
データが入力されてしまいます。

オプションで選んだところに共通項目を転記していきたいのですが・・・

これでセルを選択させて「ActiveCell.End(xlDown).Row」にするエラーになります
↓↓↓
Sub 選択()
　If Form入力.Option1B.Value = True Then
　　　　　　Sheets("一覧").Range("C5").Select
　　　　
　　　　ElseIf Form入力.Option2B.Value = True Then
　　　　　　Sheets("一覧").Range("I5").Select
　 End If

1 hits

▼

【57916】連続入力 ぴぐぴぐ 08/9/20(土) 23:47

≪