- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 5
- ÂI¦W
- 0
- §@·~¨t²Î
- window10
- ³nÅ骩¥»
- office2016 32bit
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-9-16
- ³Ì«áµn¿ý
- 2021-3-24
|
[µo°Ý] ½Æ»s«e¤@Ӥ뤽¦¡¦Ü·í¤ë¨Ã±N«e¤@Ӥ뤽¦¡¶K¤W¬°È
¥»©«³Ì«á¥Ñ johnny05181983 ©ó 2019-11-2 16:46 ½s¿è
CÄæ·í¤ë¼Æ¾Ú§¡¥Ñ¤½¦¡²Îp¡A¸ó¤ë®É·|¥H¤H¤u¤è¦¡±N¤W¤ë¤½¦¡½Æ»s¨ì¤U¤@¦C·í¤ë¥H§Q«ùÄò²Îp·í¤ë¼Æ¾Ú¡A¦A¥H¤H ...
msmplay µoªí©ó 2017-4-30 13:00
¤U±¬O§Ú°Ñ¦Ò¥H«e¦³µo¤å¹Lªº¸ê®Æ¦Û¤v¸ÕµÛ§ï¼g¡A¦ý¯uªº«Üµæ¡A¼g§¹³£¨S¦³¤ÏÀ³
½Ð°Ý¤j®a¥i§_«ü¾É¤@¤U¨ºÃ䦳°ÝÃD¡I¡I
Sub ¥»¤ë¶K¤W¤ë¤½¦¡()
Dim xArea As Range, xColumn As Range, M1%, M2%
Set xArea = [B2:M8] '³]©w½d³ò
M1 = Month(Date) '¨ú¤ë¥÷
For Each xColumn In xArea.Columns
M2 = Val(xColumn.Cells(1, 0))
If M1 - M2 = 1 Then
If xColumn(2).HasFormula Then Exit Sub
If xColumn.HasFormula Then
xColumn.Copy xColumn(2)
Else
MsgBox xColumn.Cells(1, 0) & "µL¤½¦¡©Î¤½¦¡¤£»ô¥þ!! ": Exit Sub '¦P¤@¦CÀx¦s®æ³£¦³¤½¦¡¤~·|½Æ»s
End If
End If
If M2 < M1 Then xColumn = xColumn.Value
Next
End Sub |
|