0
この質問に以前に回答したことがある場合はお詫び申し上げます。私は仕事のために郵便料金の報告をしています。バッチ情報の列A〜F（バッチ番号、スキーム、ドロップ時間、合計個数、割引、送料）に入力する領域があります。私はバッチを集計するためにK-O列に領域を持っています（バッチ1のすべての部分が列Kで合計されます）別の列の値に基づいて列に複数のセルを追加する
時には、バッチ1a、1b、および1cまでを持つことがあります。私がしようとしているのは、複数のバッチがある場合でもバッチ1の総数を集計することです。より具体的には、列Aの列にバッチ番号が付いている列Dのセルを合計します。これを行う数式はありますか、シートを別に修正する必要がありますか？あなたはこれを達成するための機能SUMIF()を使用することができます
Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
With ws
.Cells(iRow, 1).Value = Me.TextBox1.Value
.Cells(iRow, 2).Value = Me.TextBox2.Value
.Cells(iRow, 3).Value = Me.TextBox3.Value
.Cells(iRow, 4).Value = Me.TextBox4.Value
.Cells(iRow, 5).Value = Me.TextBox5.Value
.Cells(iRow, 6).Value = Me.TextBox6.Value
End With
Unload Me
End Sub
何を試してみましたか？あなたのコードを投稿してください。 – Rdster
後半の応答のため申し訳ありません @Rdster：/ ます。Private Sub CommandButton1_Click（） 点心iRow 薄暗いWS限りをワークシート 設定WS = ThisWorkbook.ActiveSheet iRow = ws.Cells（Rows.Count、1として、 ）_ .END（xlUp）.Offset（1、0）.Row .Cells（iRow、1）.Valueの= Me.TextBox1.Value .Cells（iRow、2）.Valueのミー=ウィリアムズ症候群。 TextBox2.Value .Cells（iRow、3）.Value = Me.TextBox3.Value .Cells（iRow、4）.Value = Me.TextBox4.Value .Ce でLLS（iRow、5）.Valueの= Me.TextBox5.Value .Cells（iRow、6）.Valueの= Me.TextBox6.Value エンド End Subの – Corbinjt101
編集をあなたのコードをあなたのポストを私をアンロードします。 – Rdster