½Ð¨D°ª¤â...¦³¤èªk¯à§Ö³t§@¶Ü?
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-2-22
- ³Ì«áµn¿ý
- 2014-5-2
|
½Ð¨D°ª¤â...¦³¤èªk¯à§Ö³t§@¶Ü?
¥»©«³Ì«á¥Ñ ¥d¹Å¶ð ©ó 2014-2-22 14:48 ½s¿è
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....:'(
|
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¥»©«³Ì«á¥Ñ yen956 ©ó 2014-2-24 13:12 ½s¿è
¦^´_ 9# ¥d¹Å¶ð
±N8F ªº §R°£«ÂЦC.7z §ì¤U¨Ó,
¥´¶} VBA ¦Aקï.- Private Sub CommandButton1_Click()
- Dim i As Integer
- Dim strB, strC As Range
- '
- '¥ý±N¸ê®Æªí«ö¤É¾±Æ§Ç, ¥DnÁä¡÷¦WºÙ(CÄæ), ¦¸nÁä¡÷Ãþ§O(AÄæ)¡F Range("A1:E21")¬O±Æ§Ç½d³ò
- [A1].Resize([A1].End(xlDown).Row, [A1].End(xlToRight).Column).Sort _
- Key1:=Range("C2"), Order1:=xlAscending, _
- Key2:=Range("A2"), Order2:=xlAscending, _
- Header:=xlYes
-
- For i = [C2].End(xlDown).Row To 2 Step -1
- Set strB = Cells(i - 1, 3)
- Set strC = Cells(i, 3)
- If strC.Value = strB.Value Then
-
- '«O¯dDÄæ¸ê
- If strB.Offset(0, 1) = "" And strC.Offset(0, 1) <> "" Then
- strB.Offset(0, 1) = strC.Offset(0, 1)
- End If
-
- '«O¯dEÄæ¸ê
- 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
- '
- '½Æ»s¤W¦CVBA, ¦AצA°Ñ¼Æ§Y¥i
- '
- strC.EntireRow.Delete
- End If
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-2-22
- ³Ì«áµn¿ý
- 2014-5-2
|
¯uªº«Ü·PÁ§A
¤£¹L......·Q¦b°Ý¤@¤U
°²¦p»Ýn¶ñªº¸ê®Æ¤£¥u¨âµ§ ¦Ó¬O¤¤»µ§ªº¸Ü n«ç»ò§ó§ï?
¤ñ¦p»¡³oÓ
|
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¥»©«³Ì«á¥Ñ yen956 ©ó 2014-2-23 10:32 ½s¿è
¦^´_ 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 |
|
|
|
|
|
|
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-2-22
- ³Ì«áµn¿ý
- 2014-5-2
|
¨ºÓ©êº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 |
|
|
|
|
|
|
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-2-22
- ³Ì«áµn¿ý
- 2014-5-2
|
¨ºÓ¹ï¤£°_ §Úªº¶W¹L3¤ÀÄÁ¤£¯à½s¿è°T®§
§Ú·Q½Ð±Ð¤@¤U ¨º¤@Ó§R°£«½Æ¦C
¬O³oÓ¹À ¦]¬°§ä¤£¨ì 0.0
|
|
|
|
|
|
|
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-2-22
- ³Ì«áµn¿ý
- 2014-5-2
|
¹ï!!¨S¿ù!!¯uªº«Ü·PÁ§A!
¹ï¤£°_ Á٧ѰO¥[¤F¥t¤@Ó
b c ¤ÀÃþ °²¦p¨S¦³aªº¸Ü ¥u¦³b©Mcªº¸Ü ¤£¥Îdel «O¯d¤U¨Ó
¦n¹³¦³ÂI½ÆÂø ÀY¦n·w = = |
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¦^´_ 1# ¥d¹Å¶ð
¦pªG»Ý¨D¦p3¼Ó©Ò»¡.
«h¡G
¥ý±N¸ê®Æªí«ö¤É¾±Æ§Ç, ¥DnÁä¡÷¦WºÙ(BÄæ), ¦¸nÁä¡÷Ãþ§O(AÄæ)- 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
½Æ»s¥N½X µ²ªG¦p¤U¹Ï
![](http://www.mediafire.com/convkey/06c7/hc1pw2sux3g1d55fg.jpg) |
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
§Aªº·N«ä¬On§â«ÂЪº "¦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©Ê >) |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 1# ¥d¹Å¶ð
¤£¦n·N«ä¡I
¹ê¦b¬Ý¤£À´©pªº´yz¡A¥i§_Á|¨Ò»¡©ú¡H |
|
|
|
|
|
|