Excel VBA質問箱 IV

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

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


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

45043 / 76732

←次へ　｜　前へ→


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

Kein - 06/4/8(土) 13:29 -


	引用なし

	パスワード

dataシートのAA列を作業列として数式を入れ、ComboBox1～ComboBox4の値を
繋ぎ合わせた文字列と比較して、一致した行があったらそのE列にComboBox5の
値を加算、一致しなかったら最終入力行 + 1へ新規に追加する。
というコードを提示してみます。

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)
　 With Worksheets("data")
　　　MxR = .Range("A65536").End(xlUp).Row
　　　If MxR = 1 Then
　　　　 .Range("A2:D2").Value = Ary
　　　　 .Range("E2").Value = Val(ComboBox5.Text)
　　　Else
　　　　 If IsEmpty(.Cells(MxR, 27).Value) Then
　　　　　　.Range(.Cells(2, 27), .Cells(MxR, 27)).Formula = _
　　　　　　"=CONCATENATE($A2,"","",$B2,"","",$C2,"","",$D2)"
　　　　 End If
　　　　 CkSt = Join(Ary, ",")
　　　　 CkR = Application.Match(CkSt, .Columns(27), 0)
　　　　 If IsError(CkR) Then
　　　　　　.Range(.Cells(MxR + 1, 1), .Cells(MxR + 1, 4)) _
　　　　　　.Value = Ary
　　　　　　.Cells(MxR + 1, 5).Value = Val(ComboBox5.Text)
　　　　 Else
　　　　　　.Cells(CkR, 5).Value = _
　　　　　　.Cells(CkR, 5).Value + Val(ComboBox5.Text)
　　　　 End If
　　　End If
　 End With
　 Worksheets("menu").Activate
　 MsgBox "入力完了", 64
End Sub

1 hits

▼

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