½Ð°Ý¦U¦ì¤j¤j¡A¥H¤U³o¨Ç¥N½X¬O§_¯à²¤Æ©O!? ¤@ª½§ä¤£¨ì·Pı¥Î¤£¦Pªº¤èªk¼g¡AÅý§Ú·Pı¦³ÂI®À§éªü ><¡A¥ýÁ¹L¤j¤jÌ....:)- Private Sub CommandButton2_Click()
- Range("S1").Select
- ActiveCell.FormulaR1C1 = "½s¸¹"
- Range("S2").Select
- ActiveCell.FormulaR1C1 = "=IF(R[1]C[-17]=R[0]C[-17],1,0)"
- Selection.AutoFill Destination:=Range("S2:S600"), Type:=xlFillDefault
- Range("S2:S600").Select
- Range("T1").Select
- ActiveCell.FormulaR1C1 = "»sµ{"
- Range("T2").Select
- ActiveCell.FormulaR1C1 = "=IF(R[1]C[-16]=R[0]C[-16],1,0)"
- Selection.AutoFill Destination:=Range("T2:T600"), Type:=xlFillDefault
- Range("T2:T600").Select
- Range("U1").Select
- ActiveCell.FormulaR1C1 = "ª«®Æ¦WºÙ"
- Range("U2").Select
- ActiveCell.FormulaR1C1 = "=IF(R[1]C[-9]=R[0]C[-9],1,0)"
- Selection.AutoFill Destination:=Range("U2:U600"), Type:=xlFillDefault
- Range("U2:U600").Select
- Range("V1").Select
- ActiveCell.FormulaR1C1 = "¥N½X"
- Range("V2").Select
- ActiveCell.FormulaR1C1 = "=IF(R[1]C[-13]=R[0]C[-13],1,0)"
- Selection.AutoFill Destination:=Range("V2:V600"), Type:=xlFillDefault
- Range("V2:V600").Select
- Range("W1").Select
- ActiveCell.FormulaR1C1 = "Á`¥["
- Range("W2").Select
- ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
- Selection.AutoFill Destination:=Range("W2:W600"), Type:=xlFillDefault
- Range("W1").Select
- Selection.AutoFilter
- ActiveSheet.Range("$S$1:$W$600").AutoFilter Field:=5, Criteria1:="4"
- Columns("E:H").Select
- Selection.EntireColumn.Hidden = True
- End Sub
½Æ»s¥N½X |