Excel VBA質問箱 IV

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

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


44952 / 76732 ←次へ | 前へ→

【36788】Re:データ入力について
質問  ワイン  - 06/4/13(木) 20:56 -

引用なし
パスワード
   再びすみません。
この間、教えてもらいましたコードで、コンボボックス13が一つ増えたため、
自分なりに考えて下記のように改造したのですが、動作確認時に何故か
コンボ13の内容をG列に反映させたいのですが、G列にコンボ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, 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

3 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 お礼

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