| ²é¿´: 1083 | »Ø¸´: 2 | ||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | ||
njnuyhwangÒø³æ (СÓÐÃûÆø)
|
[ÇóÖú]
excel ºê ×ÜÊÇÌáʾÎÞЧµÄnext ¿ØÖƱäÁ¿
|
|
|
Sub checkareao() Dim colu1 As Integer Dim colu2 As Integer Dim colu3 As Integer For colu1 = 4 To 9 Step 1 For colu2 = 10 To 20 Step 2 For colu3 = 11 To 21 Step 2 For i = 3 To 2667 Step 1 If Sheet2.Cells(i, colu1) = 0 And Sheet2.Cells(i, colu2) > 0 Then Sheet2.Cells(i, colu3) = 0 Else Sheet2.Cells(i, colu3) = Sheet2.Cells(i, colu2) End If Next i Next colu1 Next colu2 Next colu3 End Sub ×ÜÊÇÌáÐÑÎÞЧµÄnext¿ØÖƱäÁ¿ÒýÓã¬ÎªÊ²Ã´°¡£¬Çë¶®µÄ´óÏÀ°ïæ¿´¿´°¡£¬ ![]() |
» ²ÂÄãϲ»¶
311£¨085601£©Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
305Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
Ò»Ö¾Ô¸±±»¯085600²ÄÁÏר˶275|ÓÐÎÄÕÂרÀû£üÇóµ÷¼Á
ÒѾÓÐ7È˻ظ´
Ò»Ö¾Ô¸»ªÀí£¬ÊýÒ»Ó¢Ò»285ÇóAÇøµ÷¼Á
ÒѾÓÐ12È˻ظ´
289Çóµ÷¼Á
ÒѾÓÐ11È˻ظ´
ʳƷ¹¤³Ìר˶һ־ԸÖк£Ñó309Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
ÉúÎïѧѧ˶£¬Ò»Ö¾Ô¸ºþÄÏ´óѧ£¬³õÊԳɼ¨338
ÒѾÓÐ6È˻ظ´
321Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
343Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
±¾¿ÆÐÂÄÜÔ´¿ÆÑ§Ó빤³Ì£¬Ò»Ö¾Ô¸»ªÀíÄܶ¯285Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
njnuyhwang
Òø³æ (СÓÐÃûÆø)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 227.2
- Ìû×Ó: 62
- ÔÚÏß: 30.8Сʱ
- ³æºÅ: 1058938
- ×¢²á: 2010-07-16
- רҵ: Ë®»·¾³ÓëÉú̬ˮÀû
3Â¥2012-06-05 20:30:04
Áõ×Ú·¢
Òø³æ (СÓÐÃûÆø)
- Ó¦Öú: 23 (СѧÉú)
- ½ð±Ò: 178.4
- É¢½ð: 155
- ºì»¨: 1
- Ìû×Ó: 263
- ÔÚÏß: 83.5Сʱ
- ³æºÅ: 807658
- ×¢²á: 2009-07-12
- ÐÔ±ð: GG
- רҵ: ÓлúºÏ³É
¡¾´ð°¸¡¿Ó¦Öú»ØÌû
¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
xzhdty: ½ð±Ò+1, »¶Ó³£À´³ÌÐòÓïÑÔ 2012-06-05 21:55:18
njnuyhwang: ½ð±Ò+10, ¡ï¡ï¡ïºÜÓаïÖú 2012-06-12 10:34:03
xzhdty: ½ð±Ò+1, »¶Ó³£À´³ÌÐòÓïÑÔ 2012-06-05 21:55:18
njnuyhwang: ½ð±Ò+10, ¡ï¡ï¡ïºÜÓаïÖú 2012-06-12 10:34:03
|
Next colu1 Next colu2 Next colu3 ´ÎÐòµ¹ÁË ¸Ä³É Next colu3 Next colu2 Next colu1 |
» ±¾ÌûÒÑ»ñµÃµÄºì»¨£¨×îÐÂ10¶ä£©

2Â¥2012-06-04 14:55:54















»Ø¸´´ËÂ¥
ËÍÏÊ»¨Ò»¶ä