Excel VBA質問箱 IV

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

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


44513 / 76732 ←次へ | 前へ→

【37235】Re:在庫管理表を作りたい★
回答  Statis  - 06/4/26(水) 16:01 -

引用なし
パスワード
   こんにちは
最初の表をSheet1とし在庫表をSheet2とします
Sheet2(在庫側)は事前に作成している事。


Sub Test()
Dim Da As Variant, Co As Long, i As Long, ii As Long
Dim Fi As Range, Ad As String, Con As Long

With Worksheets("Sheet2")
   Co = .Range("IV1").End(xlToLeft).Column
   Da = .Range("A2", .Range("A65536").End(xlUp)).Resize(, Co).Value
   Con = 1
   With Worksheets("Sheet1")
     For i = 2 To Co
       For ii = 1 To UBound(Da)
         Set Fi = .Columns(Con).Find(Da(ii, 1), , xlValues, xlWhole)
         If Not Fi Is Nothing Then
           Ad = Fi.Address
           Do
           Set Fi = .Columns(Con).FindNext(Fi)
           If IsEmpty(Fi.Offset(, 1).Value) Then
             Da(ii, i) = Da(ii, i) + 1
           End If
           Loop Until Ad = Fi.Address
           Set Fi = Nothing
         End If
       Next ii
       Con = Con + 2
     Next i
   End With
  .Range("A2", .Range("A65536").End(xlUp)).Resize(, Co).Value = Da
End With
End Sub
0 hits

【37233】在庫管理表を作りたい★ わかば 06/4/26(水) 15:22 質問
【37234】Re:在庫管理表を作りたい★ Kein 06/4/26(水) 15:45 回答
【37235】Re:在庫管理表を作りたい★ Statis 06/4/26(水) 16:01 回答
【37236】Re:在庫管理表を作りたい★ Jaka 06/4/26(水) 16:30 回答
【37306】Re:在庫管理表を作りたい★ わかば 06/4/28(金) 15:35 お礼

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