½Ð¨D°ª¤â...¦³¤èªk¯à§Ö³t§@¶Ü?

¥d¹Å¶ð

A¦C ¬O¥DÅé  ¤£¯à§R°£ªº
µM«á ¦aÂI¸ò¹q¸Ü Äæ¦ìªÅ¥Õªº¸Ü
«h¦bB C §ì¨ú¸ê®Æ (­«½Æ¦WºÙªº)
B ¬°Àu¥ý ¨ä¦¸¬OC
(A B C¨º¤@Äæ ¤£¯à¬å! ´N¬O³Ì¥ªÃ䪺¨º­Ó)
(¨S¦³BC¦Cªº¸Ü ´Nª½±µ«O¯d­ì¦ì¸m)

½Ð°Ý¦³¤èªk§Ö³t§@¶Ü? ...¦]¬°¦³¼Æ¸Uµ§¸ê®Æ...§@¨ì¦³ÂI§Ö­ú¤F....:'(

¤U¸ü (6.17 KB)

2014-2-22 14:36

c_c_lai

¦^´_ 1# ¥d¹Å¶ð
¤£¦n·N«ä¡I
¹ê¦b¬Ý¤£À´©pªº´y­z¡A¥i§_Á|¨Ò»¡©ú¡H

yen956

§Aªº·N«ä¬O­n§â­«ÂЪº "¦WºÙ" ¦C§R°£¶Ü?
­«ÂЪº "¦WºÙ" ³Ì¥ªÃ䪺 "A", "B", "C", ¥u«O¯d¤@¦C?
¥B§R°£¦C¥H«e, ¾¨¶q«O¯d "¦aÂI", "¹q¸Ü" ?
(¥B "A" ªº­«­n©Ê > "B" ªº­«­n©Ê > "C" ªº­«­n©Ê >)

yen956

¦^´_ 1# ¥d¹Å¶ð
¦pªG»Ý¨D¦p3¼Ó©Ò»¡.
«h¡G
¥ý±N¸ê®Æªí«ö¤É¾­±Æ§Ç, ¥D­nÁä¡÷¦WºÙ(BÄæ), ¦¸­nÁä¡÷Ãþ§O(AÄæ)

1. Private Sub CommandButton1_Click()
   
2.     Dim i As Integer
   
3.     Dim strB, strC As Range
   
4.     For i = [B2].End(xlDown).Row To 2 Step -1
   
5.        Set strB = Cells(i - 1, 2)
   
6.        Set strC = Cells(i, 2)
   
7.        If strC.Value = strB.Value Then
   
8.            If strB.Offset(0, 1) = "" And strC.Offset(0, 1) <> "" Then
   
9.                 strB.Offset(0, 1) = strC.Offset(0, 1)
   
10.            End If
    
11.            If strB.Offset(0, 2).Value = "" And strC.Offset(0, 2).Value <> "" Then
    
12.                 strB.Offset(0, 2).Value = strC.Offset(0, 2).Value
    
13.            End If
    
14.            strC.EntireRow.Delete
    
15.        End If
    
16.     Next
    
17. End Sub

½Æ»s¥N½X

µ²ªG¦p¤U¹Ï

¥d¹Å¶ð

¤U¸ü (20.17 KB)

2014-2-22 19:42

¹ï!!¨S¿ù!!¯uªº«Ü·PÁ§A!

¹ï¤£°_ Á٧ѰO¥[¤F¥t¤@­Ó
b c ¤ÀÃþ °²¦p¨S¦³aªº¸Ü ¥u¦³b©Mcªº¸Ü ¤£¥Îdel «O¯d¤U¨Ó
¦n¹³¦³ÂI½ÆÂø ÀY¦n·w = =

¥d¹Å¶ð

¨º­Ó¹ï¤£°_ §Úªº¶W¹L3¤ÀÄÁ¤£¯à½s¿è°T®§
§Ú·Q½Ð±Ð¤@¤U ¨º¤@­Ó§R°£­«½Æ¦C
¬O³o­Ó¹À ¦]¬°§ä¤£¨ì 0.0

¤U¸ü (56.88 KB)

2014-2-22 19:55

¥d¹Å¶ð

¨º­Ó©êºp
½Ð°Ý¨º¬O ? ­n«ç»ò¥Î?

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim strB, strC As Range
    For i = [B2].End(xlDown).Row To 2 Step -1
       Set strB = Cells(i - 1, 2)
       Set strC = Cells(i, 2)
       If strC.Value = strB.Value Then
           If strB.Offset(0, 1) = "" And strC.Offset(0, 1) <> "" Then
                strB.Offset(0, 1) = strC.Offset(0, 1)
           End If
           If strB.Offset(0, 2).Value = "" And strC.Offset(0, 2).Value <> "" Then
                strB.Offset(0, 2).Value = strC.Offset(0, 2).Value
           End If
           strC.EntireRow.Delete
       End If
    Next
End Sub

yen956

¦^´_ 7# ¥d¹Å¶ð
1. ¦^6f, ©êºp, §Úªº¬O 2003, ¤£²M·¡¨º­Ó«ö¶sªº§@¥Î!
2. ¦^7f, ¨º¬OVBA, °t¦X CommandButton1 ¥Îªº,
3. «Øij¤U¦¸ pos ¹Ï®É, ³s¡iÄæ¦W¡j¤Î¡i¦C¸¹¡j¤@°_  pos ¥X¨Ó,
¤j®a¤ñ¸û®e©ö¬Ý±oÀ´.
ªþ¤WÀÉ®×(¤w§â¡i§Ç¸¹¡j¦C¤J¤F), ½Ð°Ñ¦Ò¬Ý¬Ý.

§R°£­«ÂЦC.7z
http://www.mediafire.com/download/whhfyklg45t6yu1/%E5%88%AA%E9%99%A4%E9%87%8D%E8%A6%86%E5%88%97.7z

¥d¹Å¶ð

¯uªº«Ü·PÁ§A
¤£¹L......·Q¦b°Ý¤@¤U
°²¦p»Ý­n¶ñªº¸ê®Æ¤£¥u¨âµ§ ¦Ó¬O¤­¤»µ§ªº¸Ü ­n«ç»ò§ó§ï?
¤ñ¦p»¡³o­Ó

¤U¸ü (32.36 KB)

2014-2-23 16:31

yen956

¦^´_ 9# ¥d¹Å¶ð
±N8F ªº §R°£­«ÂЦC.7z §ì¤U¨Ó,
¥´¶} VBA ¦A­×§ï.

1. Private Sub CommandButton1_Click()
   
2.     Dim i As Integer
   
3.     Dim strB, strC As Range
   
4.     '
   
5.     '¥ý±N¸ê®Æªí«ö¤É¾­±Æ§Ç, ¥D­nÁä¡÷¦WºÙ(CÄæ), ¦¸­nÁä¡÷Ãþ§O(AÄæ)¡F Range("A1:E21")¬O±Æ§Ç½d³ò
   
6.     [A1].Resize([A1].End(xlDown).Row, [A1].End(xlToRight).Column).Sort _
   
7.               Key1:=Range("C2"), Order1:=xlAscending, _
   
8.               Key2:=Range("A2"), Order2:=xlAscending, _
   
9.               Header:=xlYes
   
10.                   
    
11.     For i = [C2].End(xlDown).Row To 2 Step -1
    
12.        Set strB = Cells(i - 1, 3)
    
13.        Set strC = Cells(i, 3)
    
14.        If strC.Value = strB.Value Then
    
15.       
    
16.            '«O¯dDÄæ¸ê
    
17.            If strB.Offset(0, 1) = "" And strC.Offset(0, 1) <> "" Then
    
18.                 strB.Offset(0, 1) = strC.Offset(0, 1)
    
19.            End If
    
20.            
    
21.            '«O¯dEÄæ¸ê
    
22.            If strB.Offset(0, 2).Value = "" And strC.Offset(0, 2).Value <> "" Then
    
23.                 strB.Offset(0, 2).Value = strC.Offset(0, 2).Value
    
24.            End If
    
25.            '
    
26.            '½Æ»s¤W¦CVBA, ¦A­×¦A°Ñ¼Æ§Y¥i
    
27.            '
    
28.            strC.EntireRow.Delete
    
29.        End If
    
30.     Next
    
31. End Sub

½Æ»s¥N½X