Excel VBA質問箱 IV

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

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


14639 / 76738 ←次へ | 前へ→

【67588】Re:様式の異なるシート間での値の抽出と転記について
回答  UO3  - 10/12/16(木) 21:58 -

引用なし
パスワード
   ▼八家九僧陀 さん:
>なにせ12月分給与が、20日締めの25日明細書渡し、月末支給と期限が迫り、同時にこの年末調整をする必要があり、切羽詰まっています。何卒お助けください。
おいそぎのようですので、大急ぎで書きました。
バグあるかも?
要否欄の文字列は、正しい者にかえてください。
とりあえず、"年末調整する" にしてあります。

(大江戸温泉、先週、私も浸かってきました)

Sub Sample()
 Const ID As Integer = 1
 Const YOUHI As Integer = 13
 Const KANPU As Integer = 53
 Const FUSOKU As Integer = 54
 Dim amt As Long
 Dim z As Long, x As Long
 Dim colA As Range
 Dim v As Variant
 Dim ck As Variant
 Dim idA As Range
 
 With Sheets("最終支給台帳")
  x = .Cells(.Rows.Count, 1).End(xlUp).Row
  Set idA = .Range("A2").Resize(x - 1)
  With .Range("CO2").Resize(x - 1)
   .ClearContents
   v = .Cells
  End With
 End With
 
 With Sheets("年調DATA")
  z = .Cells(1, .Columns.Count).End(xlToLeft).Column
  For Each colA In .Range("B1").Resize(54, z - 1).Columns
   If colA.Cells(YOUHI).Value = "年末調整する" Then
    If colA.Cells(KANPU).Value > 0 Then
     amt = colA.Cells(KANPU).Value * -1
    Else
     amt = colA.Cells(FUSOKU).Value
    End If
'    MsgBox colA.Cells(ID).Value
'    MsgBox colA.Address
'    MsgBox idA.Address
    ck = Application.Match(colA.Cells(ID).Value, idA, 0)
    If IsNumeric(ck) Then
     v(ck, 1) = amt
    End If
   End If
  Next
  
  Sheets("最終支給台帳").Range("CO2").Resize(x - 1) = v
  
 End With
 
 Set idA = Nothing
 
End Sub
0 hits

【67583】様式の異なるシート間での値の抽出と転記について 八家九僧陀 10/12/16(木) 12:48 質問
【67588】Re:様式の異なるシート間での値の抽出と転... UO3 10/12/16(木) 21:58 回答
【67589】Re:様式の異なるシート間での値の抽出と転... UO3 10/12/16(木) 22:21 発言
【67591】Re:様式の異なるシート間での値の抽出と転... 八家九僧陀 10/12/17(金) 2:10 お礼
【67599】Re:様式の異なるシート間での値の抽出と転... UO3 10/12/17(金) 10:44 回答
【67600】Re:様式の異なるシート間での値の抽出と転... UO3 10/12/17(金) 11:33 回答
【67622】Re:様式の異なるシート間での値の抽出と転... 八家九僧陀 10/12/18(土) 23:48 発言
【67624】Re:様式の異なるシート間での値の抽出と転... UO3 10/12/19(日) 7:44 発言
【67625】Re:様式の異なるシート間での値の抽出と転... UO3 10/12/19(日) 8:33 発言
【67628】Re:様式の異なるシート間での値の抽出と転... UO3 10/12/19(日) 9:34 発言
【67629】Re:様式の異なるシート間での値の抽出と転... UO3 10/12/19(日) 15:25 回答
【67632】Re:様式の異なるシート間での値の抽出と転... 八家九僧陀 10/12/20(月) 0:09 お礼
【67633】Re:様式の異なるシート間での値の抽出と転... UO3 10/12/20(月) 6:46 発言
【67647】Re:様式の異なるシート間での値の抽出と転... 八家九僧陀 10/12/20(月) 22:54 発言
【67660】Re:様式の異なるシート間での値の抽出と転... UO3 10/12/21(火) 18:22 発言
【67670】Re:様式の異なるシート間での値の抽出と転... 八家九僧陀 10/12/22(水) 17:44 発言
【67671】Re:様式の異なるシート間での値の抽出と転... UO3 10/12/22(水) 18:14 発言
【67674】Re:様式の異なるシート間での値の抽出と転... 八家九僧陀 10/12/23(木) 21:53 お礼
【67603】Re:様式の異なるシート間での値の抽出と転... こたつねこ 10/12/17(金) 12:30 回答
【67623】Re:様式の異なるシート間での値の抽出と転... 八家九僧陀 10/12/18(土) 23:52 発言

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