Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12471 / 76734

←次へ　｜　前へ→


	【69783】Re:VBA VLOOKUP関数での列指定について

boko

- 11/8/29(月) 13:49 -


	引用なし

	パスワード

先程のコードの続きです。

'-----------------
'　前月を生成
'-----------------

　　If Right(prmYYMM, 2) = "01" Then
　　　　 Get_BeforeMonth = CInt(Left(prmYYMM, 4)) - 1 & "12"
　　Else
　　　　 Get_BeforeMonth = prmYYMM - 1
　　End If

End Function

'Private Sub Set_VLOOKUP(prmWS As Worksheet, prmThisRV As RangeValue, prmLastRV As RangeValue)
''===================
''　 VLOOKUPを設定
''===================
'
'　　For L = prmThisRV.Start To prmThisRV.End
'　　　　prmWS.Range(HonLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & HonTCol & ")"　 '本給
'　　　　prmWS.Range(NenLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & NenTCol & ")"　 '年俸月額
'　　　　prmWS.Range(SyaLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & SyaTCol & ")"　 '謝金
'　　　　prmWS.Range(SaiLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & SaiTCol & ")"　 '裁量労働
'　　　　prmWS.Range(OvGLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmThisRV.Start & ":" & VEC & prmThisRV.End & "," & SaeTCol & ")"　 '超過勤務・法定
'　　　　prmWS.Range(OvGLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & OvGTCol & ")"　 '超過勤務・法定外
'　　　　prmWS.Range(OvNLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & OvNTCol & ")"　 '超過勤務・法定内
'　　　　prmWS.Range(HldLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & HldTCol & ")"　 '休日勤務
'　　　　prmWS.Range(HldLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmThisRV.Start & ":" & VEC & prmThisRV.End & "," & HmdTCol & ")"　 '休日勤務(60h内)
'　　　　prmWS.Range(HldLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmThisRV.Start & ":" & VEC & prmThisRV.End & "," & HndTCol & ")"　 '休日勤務(60h外)
'　　　　prmWS.Range(OvSLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & OvSTCol & ")"　 '超過勤務・深夜
'　　　　prmWS.Range(HeiLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & HeiTCol & ")"　 '平日勤務
'　　　　prmWS.Range(ShnLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & ShnTCol & ")"　 '深夜手当
'　　　　prmWS.Range(JyuLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & JyuTCol & ")"　 '住居手当
'　　　　prmWS.Range(TkNLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & TkNTCol & ")"　 '通勤手当
'　　　　prmWS.Range(TkTLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & TkTTCol & ")"　 '特殊通勤手当
'　　　　prmWS.Range(EtcLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & EtcTCol & ")"　 'その他支給
'　　　　prmWS.Range(KenLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & KenTCol & ")"　 '(事業主)健康保険
'　　　　prmWS.Range(KaiLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & KaiTCol & ")"　 '(事業主)介護保険
'　　　　prmWS.Range(KouLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & KouTCol & ")"　 '(事業主)厚生年金
'　　　　prmWS.Range(JidLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & JidTCol & ")"　 '(事業主)児童拠出厚年
'　　　　prmWS.Range(KiHLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & KiHTCol & ")"　 '(事業主)基金標準
'　　　　prmWS.Range(KiALCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & KiATCol & ")"　 '(事業主)基金加算
'　　　　prmWS.Range(KohLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & KohTCol & ")"　 '(事業主)会計用雇保
'　　　　prmWS.Range(RouLCol & L).Value = "=VLOOKUP(" & VSC & L & "," & VSC & prmLastRV.Start & ":" & VEC & prmLastRV.End & "," & RouTCol & ")"　 '(事業主)会計用労災
'　　Next L
'
'
'End Sub
'

4 hits

▼

【69777】VBA VLOOKUP関数での列指定について boko 11/8/29(月) 10:59