ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Æ»s«e¤@­Ó¤ë¤½¦¡¦Ü·í¤ë¨Ã±N«e¤@­Ó¤ë¤½¦¡¶K¤W¬°­È

[µ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
2019-11-02 15_35_51-°ÝÃD - Excel.png

°ÝÃD.rar (16.54 KB)

¦b³Â»¶®a±Ú¨ü¯q¨}¦hªì¾ÇªÌ

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2019-11-3 10:28 ½s¿è

1) 2¤ë¥÷, ­þ¦³"¤W¤W­Ó¤ë" ????
2) ­Y¦³¤@­Ó¤ëº|¤F½Æ»s¤½¦¡, ¤U¤U­Ó¤ë¤£´NµLªk½Æ»s¤½¦¡???
3) 12¤ë, ­nµ¥¹j¦~1¤ë³B²z???

¤£¦p«O¯d1¤ë¥÷¤½¦¡, ·í¤ë½Æ»s1¤ë¥÷¤½¦¡, ¨Ã±N«e¤@­Ó¤ë¦Ü2¤ë¥÷¶K¦¨­È~~
Sub ½Æ»s¤½¦¡()
Dim xArea As Range, M%
Set xArea = [B2:M8]
M = Month(Date)
If M = 1 Then Exit Sub
xArea.Columns(1).Copy xArea.Columns(M)
If M <= 2 Then Exit Sub
With xArea.Columns(2).Resize(, M - 2): .Value = .Value: End With
End Sub


=====================================

TOP

¦^´_ 2# ­ã´£³¡ªL
¤£¦n·N«ä¡A¥i¥H¦A½Ð±Ð¤@¤U
¡uDim xArea As Range, M%¡v
M%¬O¤°»ò¼Ëªº¥Îªk¡A¤p§Ì§Ú¦³ÂI¤£¤Ó²M·¡¡H¡H
©Î¬O¦³¤°»ò«ü¤Þ°Ñ¦Ò¸ê®Æ
¦b³Â»¶®a±Ú¨ü¯q¨}¦hªì¾ÇªÌ

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD