Excel VBA質問箱 IV

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

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


42243 / 76732 ←次へ | 前へ→

【39560】Re:納品書&請求書
回答  かみちゃん E-MAIL  - 06/6/26(月) 17:24 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>そちらを一つのファイルにまとめシート別で管理しようと考えているのですが、
>現状は下記の様な状態で納品書・請求書の数量を別に打ち込んでいる状態です。
>納品書のみの打ち込みで請求書に加算する方法

納品書と請求書が1つのブックに別シートでまとめてあることが前提ですが、
以下のような感じでできると思います。
納品書の入力が終わったら、Macro1を実行してください。
請求書に商品をあらかじめ設定しておく必要はありません。
なければ、勝手に追加しますから。。。

Sub Macro1()
 Dim ws1   As Worksheet
 Dim ws2   As Worksheet
 Dim c    As Range
 Dim c2    As Range
 Dim LastCell As Range
 
 Set ws1 = Sheets("Sheet1") '納品書シート
 Set ws2 = Sheets("Sheet2") '請求書シート
 ws1.Activate
 
 Set LastCell = Range("A65536").End(xlUp)
 If LastCell.Row > 1 Then
  For Each c In Range("A2", LastCell)
   With ws2.Columns("A").Cells
    Set c2 = .Find(c.Value, LookIn:=xlValues, LookAt:=xlWhole)
    '前日まで納品したものがあれば
    If Not c2 Is Nothing Then
     c2.Offset(, 1).Resize(, 2) = _
      Array(c2.Offset(, 1).Value + c.Offset(, 1).Value, _
         c2.Offset(, 2).Value + c.Offset(, 2).Value)
    '前日まで納品したものがなければ、追加
    Else
     ws2.Range("A65536").End(xlUp).Offset(1).Resize(, 3).Value = _
      c.Resize(, 3).Value
    End If
   End With
  Next
 End If
 MsgBox "納品書を請求書に加算しました。"
End Sub

2 hits

【39549】納品書&請求書 まるた 06/6/26(月) 15:24 質問
【39552】Re:納品書&請求書 かみちゃん 06/6/26(月) 15:27 発言
【39555】Re:納品書&請求書 まるた 06/6/26(月) 15:43 質問
【39560】Re:納品書&請求書 かみちゃん 06/6/26(月) 17:24 回答
【39580】Re:納品書&請求書 まるた 06/6/27(火) 3:37 お礼

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