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

[µo°Ý] ½Ð°Ý½s±Æ¶Ô°È¯Zªí°ÝÃD

[µo°Ý] ½Ð°Ý½s±Æ¶Ô°È¯Zªí°ÝÃD

½Ð°Ý¦U¦ìexcel¯«¤H¡A¤è«K½Ð°Ý¤@¤U¯Zªí±Æ¯Z¨ç¼Æªº³]­p¶Ü
±Æ¯Z¤è¦¡¦p¤U¡G
°²¦p¥»³æ¦ì¤H¼Æ¬°27¤H¡A½s±Æ¶Ô°È¬O¥H½s¸¹½s±Æªº

¤W¯Z¤H¼Æ¬°Á`¤H¼Æ¦©±¼½ü¥ð+®t°²+¥ð°²(§Yµµ¦â¹º½u³¡¤À)ªº¤H¬Ò¥H¸¹½Xªí¥Ü
¦Ó¥~±JªÌ«h¦b18ÂI«á©ñ°²¡A§Y¶ñ¼g¦b¥~±J³B¶ñ¼g¥~±J¤H­û¸¹½X(¾ï½u³B)¥B18®É¤§«á¤£·|¥X²{¦b¶Ô°È½s±Æ¤W
«Ý©RªA¶Ô³B(ºñ½u)¬°¥ª°¼¤w½s±Æ¶Ô°È³Ñ¤U¤§¤W¯Z¤H¸¹½X(¬õ½u)¡A³q°T¹õ¹±¬°«Ý©RªA¶Ô³Ì«e¤è²Ä¤@­Ó¤H½s¸¹(ÂŽu)
105.4.1.rar (18.95 KB)

¤£ª¾¹D³o¼Ëªí¹F¬O§_²M·¡
¤p§Ì¥u¬O·Q´î»´¥DºÞ±Æ¯Zªº¨¯³Ò¡A²¦³º¥DºÞ¦³ÂI¦~¬ö¤F¡AÁÂÁÂ

¦^´_ 1# °¨¯Ç


    ¤£¤j¤F¸Ñ§Aªº»Ý¨D¡A©Ò¥H§A¬O­n³]­p­þ­Ó¦a¤èªº¨ç¦¡¡H

TOP

¦^´_ 2# tku0216


Á`¤H¼Æ¬°27¤H¡A¯Zªí¤W¥H1.2.3.4.5.....25.26.27 ªí¥Ü
À³¸Ó¬O«Ý©RªA¶Ô³B 08-18 ®É¡AÅã¥Ü¬°Á`¤H¼Æ½s¸¹¦©±¼¥ð°²+®t°²+½ü¥ð¦A¦©±¼¤w½s±Æ¤p®É¤º¶Ô°È¤H¼Æ
EX¡G¥ð°²¤H­û¬°4.7.22 ®t°²3.14.25  ½ü¥ð1.5.8.15.16.17.20.24
¤W¯Z¤H¬°2.6.9.10.11.12.13.18.19.21.23.26.27   
08-10®É ­È¯Z10  ¾r°V21 ±ÏÅ@12.27   «Ý©RªA¶Ô2.6.9.11.13.18.19.21.23.26

¦Ó18-08®É «Ý©RªA¶Ô«h¶·¦b¦©°£¥~±J¤H­û½s¸¹

¤£ª¾¹D³o¼Ëªí¥Ü¬O¤£¬O¥¿½T¡A§ÚEXCEL¤@ª½°±¦b°ò¥»¨ç¼Æ³¡¤À¦Ó¤w...

©Ò¥H§Ú¬Oı±o¨ç¦¡À³¸Ó¬O¼g¦b«Ý©RªA¶ÔÄæ¦ì¡A¦ý¬O¤£ª¾¹D¦p¦ó¬D¥X¥¼±Æ¶Ô°È¤§½s¸¹

TOP

¦^´_ 3# °¨¯Ç

±Æ¯Z¥²¶·¦Ò¼{¨ìªº±ø¥ó«Ü¦h
¦©°£µLªk±Æ¤Jªº¤H­û¡A¨ä¾l¤W¯Z¤H­û¨ä¶Ô°È¶¶§Ç¡A¨C¤H­È¯Z®É¼Æ¡A¨C¤H¬O§_¯S©w¾°Èµ¥°ÝÃD§¡¶·¦Ò¶q
¥Ø«eªþ¥ó¤¤ªº±Æ¯Z¦ü¥G¨S¦³¤@­Ó·Ç«h¥i´`
­Y¥ð°²«á¦^¨Ó­È¶Ô¤S¸Ó¦p¦ó´¡¤J±Æ¯Zªº³W«h¤S¬O¦p¦ó?
ºØºØ°ÝÃD¥²¶·¾ã²z¥X¥Lªº³W«h¡A¤~¥i¯à¥Îµ{¦¡¨Ó°µ
¬O§_¯à±N³o¨Ç°ÝÃD±Ô­z²M·¡¡A¤~¯à¶i¤@¨B°Q½×
¥t¦³¤@°ÝÃD´N¬O§A¯Zªí¤º¨ú±oªº½s¸¹¤S¥i¯à¬O¥HÂI§@³sµ²¨Óªí¥Ü¦h¤H
³o¼Ëªº¦r¦ê¤]·|¼W¥[¨ç¼Æªº§xÃø
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¤p§Ìªì¸ÕVBA¡A½Ð±z«ü±Ð
Sub s1()
    Worksheets("¶Ô°Èªí").Select
    For j = 0 To 23
            Cells(9 + j, 19) = "01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,"
        For i = 0 To 11
              '§R°£½ü¥ð
              If Cells(34, 4 + i) <> "" Then
                  Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(34, 4 + i), "")
              End If
            
              '§R°£¥~±J
              If Cells(35, 4 + i) <> "" Then
                  Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(35, 4 + i), "")
              End If
            
              '§R°£®t°²
              If Cells(34, 19 + i) <> "" Then
                  Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(34, 19 + i), "")
              End If
              
              '§R°£¥ð°²
              If Cells(35, 19 + i) <> "" Then
                  Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(35, 19 + i), "")
              End If
        Next i
        
        '§R°£¤w¬£
        For i = 0 To 13
              If Cells(9 + j, 5 + i) <> "" Then
                  Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(9 + j, 5 + i), "")
              End If
        Next i
        For i = 0 To 1
             If Cells(9 + j, 29 + i) <> "" Then
                  Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(9 + j, 29 + i), "")
              End If
        Next i


    Next j
End Sub

TOP

¥»©«³Ì«á¥Ñ ML089 ©ó 2016-4-9 22:24 ½s¿è

¾ï¦â°Ï¤½¦¡¡A¤U©Ô½Æ»s
S9 =MID(AH9,2,99)                               
AG9 =MID(AH9,2,99)
                                                                                                                               
¶À¦â°Ï¤½¦¡¡A¥ý¥k©Ô27®æ(¬Ý¦³¦h¤Ö¤H¼Æ)¡A¦b¾ã­Ó¤U©Ô½Æ»s                                                                       
AH9 =IF(ISERROR(FIND("."&COLUMN(A1)&".",TRIM("."&$E9&"."&$G9&"."&$I9&"."&$K9&"."&$M9&"."&$O9&"."&$Q9&"."&$D$34&"."&$S$34&"."&$S$35&"."))),"."&COLUMN(A1),"")&AI9


http://www.FunP.Net/992889
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

ÁöµM§Ú¦^µª¤£¤F¼Ó¤@¼Ó¤j¤jªº°ÝÃD
¤£¹L»¡¯uªº
³o±iªí§Ú¤§«e¦³¬ã¨s¹L¤@¤p¬q®É¶¡(À³¸Ó¸ò¤j¤j¬O¦P¹D¤¤¤H)
¨Æ¹êµý©ú¤F¤@¥ó¨Æ
´N¬OÅܤƤj©ó­p¹º
¨ç¼Æ¼g·U¦h
Á{®É¶Ô°È­n­×¥¿´N·U³Â·Ð

TOP

¦^´_ 1# °¨¯Ç
²Ä¤Gª©VBAµ{¦¡½X©ñ¦bWorksheet_SelectionChange¤¤¡A¥u­n¸Ó®É¬q¦³½ü¥ð¡B¥~±J.....¡A¦b³]¶Ô°È®É¥i¥Î¤U©Ô¦¡²M³æ

TOP

¦^´_ 1# °¨¯Ç
§Ú§¹¦¨ªº²Ä¤Gª©¡Aµ{¦¡½X¦p¤U¡A½Ð«ü±Ð¡I

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For j = 0 To 23
            Cells(9 + j, 19) = "01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,"
        For i = 0 To 11
              '§R°£½ü¥ð
              If Cells(34, 4 + i) <> "" Then
                  Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(34, 4 + i) & ",", "")
              End If
            
              '§R°£¥~±J
              If Cells(35, 4 + i) <> "" Then
                  Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(35, 4 + i) & ",", "")
              End If
            
              '§R°£®t°²
              If Cells(34, 19 + i) <> "" Then
                  Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(34, 19 + i) & ",", "")
              End If
              
              '§R°£¥ð°²
              If Cells(35, 19 + i) <> "" Then
                  Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(35, 19 + i) & ",", "")
              End If
        Next i
        
        '§R°£¤w¬£
        For i = 0 To 13
              If Cells(9 + j, 5 + i) <> "" Then
                  Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(9 + j, 5 + i) & ",", "")
              End If
        Next i
        For i = 0 To 1
             If Cells(9 + j, 29 + i) <> "" Then
                  Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(9 + j, 29 + i) & ",", "")
              End If
        Next i
        
        
        '³]©w¾°È¬£¥ô²M³æ
        With Range(Cells(9 + j, 4), Cells(9 + j, 15)).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Cells(9 + j, 19)
        End With
        With Range(Cells(9 + j, 29), Cells(9 + j, 30)).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Cells(9 + j, 19)
        End With
    Next j
End Sub

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD