[µo°Ý] Àx¦s®æ­pºâ°ÝÃD

whirlwind963

½Ð°Ý¦pªG§ÚÀx¦s®æA©MB³£¦³­È
­n¦bCªºÀx¦s®æ­pºâA+Bªº­È
­n«ç¼Ë¤~¯à¦Û°Ê­pºâ
¦Ó¤£­n¥Î©ì¦²¤U©Ôªº¤è¦¡

mark15jill

¦^´_ 1# whirlwind963


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        For bb = 1 To 65535
            If Cells(bb, 1) <> "" And Cells(bb, 2) <> "" Then Cells(bb, 4) = Cells(bb, 1) + Cells(bb, 2)
            
        Next
End Sub

²Â¤p«Ä

¦^´_ 1# whirlwind963

¦bC1¿é¤J=SUM(A1+B1)´N¦æ¡A¦ý¥u¦³A1©ÎB1¤º¦³¼Æ­È®É¡AC1¬°ªÅ¥Õ´N§Ñ°O¤FÂI°µ¡A§Ú¤]·Q¾Ç¦^¡C

whirlwind963

¦^´_ 2# mark15jill

¦pªG¦³§PÂ_¦¡ªº«ç»ò¥Îªº
A1¬O¤é´Á®æ¦¡¡G2012/09/06 16:43:23  §ï¬°20120906/16  --> TEXT(A1,yyyymmdd/hh)
B1¬O¼Æ¦r¡@¡@¡G1-1920 ¬°AREA1   1921-3840¬°AREA2   3841-5760¬°AREA3   ->>IF(AND(B1>1,B11920),"area1",IF(AND(B1>1921,B1<3840)rea2",IF(AND(B1>3841,B1<5760),"area3")))
C1= TEXT(A1,yyyymmdd/hh) & IF(AND(B1>1,B11920),"area1",IF(AND(B1>1921,B1<3840)rea2",IF(AND(B1>3841,B1<5760),"area3")))

mark15jill

¦^´_ 4# whirlwind963


    ±z­nªº¥\¯à¬O¬Æ»ò?
¦pªG¦³§PÂ_¦¡ªº«ç»ò¥Îªº
A1¬O¤é´Á®æ¦¡¡G2012/09/06 16:43:23  §ï¬°20120906/16  --> TEXT(A1,yyyymmdd/hh)  <§ï®æ¦¡?>
B1¬O¼Æ¦r¡@¡@¡G1-1920 ¬°AREA1   1921-3840¬°AREA2   3841-5760¬°AREA3   ->>IF(AND(B1>1,B11920),"area1",IF(AND(B1>1921,B1<3840)rea2",IF(AND(B1>3841,B1<5760),"area3")))    <¿ï°Ï¬q?>
C1= TEXT(A1,yyyymmdd/hh) & IF(AND(B1>1,B11920),"area1",IF(AND(B1>1921,B1<3840)rea2",IF(AND(B1>3841,B1<5760),"area3")))   <¬O§_¶W¹L´Á­­?>

whirlwind963

¦^´_ 5# mark15jill

              ¤é´Á                                 °Ï¬q                 µ²ªG
2012/09/21  13:54:34               1347                20120921/13+AREA1
2012/09/24  17:54:34               2571                20120924/17+AREA2
2012/09/27  16:34:12                4571               20120927/16+AREA3

mark15jill

¶È¥Î¤p¬qµ{¦¡¥Nªí
¥i¥Î°j°é §ïµ½

1.     Columns("A:A").Select
   
2.     Selection.NumberFormatLocal = "yyyy/mm/dd hh:mm:ss;@"
   
3.         Columns("E:z").Select
   
4.     Selection.NumberFormatLocal = "@"
   
5. For xay = 2 To 10
   
6.     If Cells(xay, 1) <> "" Then
   
7.         a1 = Mid(Cells(xay, 1), 1, 4)
   
8.         a2 = Mid(Cells(xay, 1), 5, 1)
   
9.         a3 = Mid(Cells(xay, 1), 6, 2)
   
10.         a4 = Mid(Cells(xay, 1), 8, 1)
    
11.         a5 = Mid(Cells(xay, 1), 9, 2)
    
12.         
    
13.         b1 = Mid(Cells(xay, 1), 14, 2)
    
14.         b2 = Mid(Cells(xay, 1), 16, 1)
    
15.         b3 = Mid(Cells(xay, 1), 17, 2)
    
16.         b4 = Mid(Cells(xay, 1), 19, 1)
    
17.         b5 = Mid(Cells(xay, 1), 20, 2)
    
18.    
    
19.         For hs = 1 To 5760
    
20.             Select Case hs
    
21.                 Case 1 To 1920
    
22.                     aa = "area1"
    
23.                     If Cells(xay, 2) = hs Then Cells(xay, 3) = a1 & a3 & a5 & b1 & "+" & aa
    
24.                     
    
25.                 Case 1921 To 3840
    
26.                     ab = "area2"
    
27.                     If Cells(xay, 2) = hs Then Cells(xay, 3) = a1 & a3 & a5 & b1 & "+" & aa
    
28.                 Case 1921 To 5760
    
29.                     ac = "area3"
    
30.                     If Cells(xay, 2) = hs Then Cells(xay, 3) = a1 & a3 & a5 & b1 & "+" & aa
    
31.             End Select
    
32.             
    
33.             
    
34.         Next
    
35.     End If
    
36. 
    
37. Next xay

½Æ»s¥N½X

¦^´_ 6# whirlwind963

JBY

   ´Á                                 °Ï¬q                 µ²ªG
2012/09/21  13:54:34               1347                20120921/13+AREA1
2012/09/24  17:54:34               2571                20120924/17+AREA2
2012/09/27  16:34:12                4571               20120927/16+AREA3
whirlwind963 µoªí©ó 2012-9-27 13:33

µ²ªG, C1 :

=TEXT(A1,"yyyymmdd/hh")&"+AREA"&LOOKUP(B1,{1;1921;3841},{1;2;3})