| |
今仕事で以下のようなマクロを利用しています。
ただ、重くなりすぎていて使いにくいということで、VBAでやれれば軽くなるというアドバイスをもらいました。
ただ、私の力では作成が難しいので、これをVBAにしていただければと思い投稿させていただきました。
よろしくお願いします。
Range("C12").Select
ActiveCell.FormulaR1C1 = "=IF(RC1="""",,MIN(MAX(R11C,VLOOKUP(R7C2&RC1,date!C1:C8,6,FALSE)),
VLOOKUP(R7C2&RC1,date!C1:C8,7,FALSE))-
MAX(MIN(R9C,VLOOKUP(R7C2&RC1,date!C1:C8,7,FALSE)),
VLOOKUP(R7C2&RC1,date!C1:C8,6,FALSE)))"
Range("C12").Select
Selection.AutoFill Destination:=Range("C12:R12"), Type:=xlFillDefault
Range("V12").Select
ActiveCell.FormulaR1C1 = "=IF(RC1="""",,VLOOKUP(R7C2&RC1,date!C1:C8,8,FALSE))"
Range("U12").Select
ActiveCell.FormulaR1C1 = "=IF(RC1="""",,VLOOKUP(R7C2&RC1,date!C1:C9,9,FALSE))"
Range("B12").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",VLOOKUP(RC[-1],date!C[2]:C[3],2,FALSE))"
Range("B12:W12").Select
Selection.Copy
Range("B13:B69").Select
ActiveSheet.Paste
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
