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 質問
【36688】Re:データ入力について かみちゃん 06/4/8(土) 0:25 回答
【36689】Re:データ入力について ワイン 06/4/8(土) 0:55 発言
【36690】Re:データ入力について かみちゃん 06/4/8(土) 1:07 発言
【36691】Re:データ入力について ワイン 06/4/8(土) 8:27 質問
【36696】Re:データ入力について Kein 06/4/8(土) 13:29 回答
【36697】Re:データ入力について ワイン 06/4/8(土) 13:58 お礼
【36788】Re:データ入力について ワイン 06/4/13(木) 20:56 質問
【36792】Re:データ入力について Kein 06/4/13(木) 23:27 回答
【36838】Re:データ入力について ワイン 06/4/14(金) 22:06 お礼

45043 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free