Excel VBA質問箱 IV

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

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


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

44952 / 76732

←次へ　｜　前へ→


	【36788】Re:データ入力について

ワイン - 06/4/13(木) 20:56 -


	引用なし

	パスワード

再びすみません。
この間、教えてもらいましたコードで、コンボボックス１３が一つ増えたため、
自分なりに考えて下記のように改造したのですが、動作確認時に何故か
コンボ１３の内容をG列に反映させたいのですが、G列にコンボ１の内容が
反映されてしまいます。
どこが違うのか教えて下さい。

Private Sub CommandButton2_Click()

Dim MxR As Long
　 Dim Ary As Variant, CkR As Variant
　 Dim CkSt As String
　
　 Ary = Array(ComboBox1.Text, ComboBox2.Text, _
　 ComboBox3.Text, ComboBox4.Text, ComboBox5.Text, ComboBox13.Text)
　　　　　　　　　　　　　　　　　　　　　　’治したとこ
　 With Worksheets("data")
　　　MxR = .Range("A65536").End(xlUp).Row
　　　If MxR = 1 Then
　　　　 .Range("A2:E2,G2").Value = Ary　　　　　　　　 '治したとこ
　　　　 .Range("F2").Value = Val(ComboBox6.Text)　　　 '治したとこ
　　　Else
　　　　 If IsEmpty(.Cells(MxR, 27).Value) Then
　　　　　　.Range(.Cells(2, 27), .Cells(MxR, 27)).Formula = _
　　　　　　"=CONCATENAT($A2,"","",$B2,"","",$C2, _
　　　　　　　　　　　"","",$D2,"","",$E2,"","",$G2)" '治したとこ
　　　　 End If
　　　　 CkSt = Join(Ary, ",")
　　　　 CkR = Application.Match(CkSt, .Columns(27), 0)
　　　　 If IsError(CkR) Then
　　　　　　 Union(.Range(.Cells(MxR + 1, 1), .Cells(MxR + 1, 5)) _
　　　　　　, .Cells(MxR + 1, 7)).Value = Ary　'治したとこ
　　　　　　.Cells(MxR + 1, 6).Value = Val(ComboBox6.Text)
　　　　 Else
　　　　　　.Cells(CkR, 6).Value = _
　　　　　　.Cells(CkR, 6).Value + Val(ComboBox6.Text)
　　　　 End If
　　　End If
　 End With
　 Worksheets("menu").Activate
　 MsgBox "入力完了", 64
End Sub

2 hits

▼

【36687】データ入力について ワイン 06/4/7(金) 23:31