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

[µo°Ý] ¨â­ÓÅܼƵLªk¦X¦¨¤@­ÓÅܼơA¦p¦ó­×§ï?

[µo°Ý] ¨â­ÓÅܼƵLªk¦X¦¨¤@­ÓÅܼơA¦p¦ó­×§ï?

sub test()
Dim  ddda,ou
For ou = 2 To 61
If Sheets("Sheet3").Cells(ou, "bc") > 2.8 Then
ddda & ou = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00") '¬õ¦â¬°¿ù»~
end if
next
end sub

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-4-26 23:01 ½s¿è

¦^´_ 1# t8899

¬°¦ó¤£   ddda = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00")   & ou               '¬õ¦â¬°¿ù»~

µ¥¸¹ªº«e­±¥u¯à¦³¤@­ÓÅܼơAµ¥¸¹ªº«á­±«o¥i¥H¦³¦n´X­Ó³sµ²©Î°µ¹Bºâ

TOP

¦^´_  t8899

¬°¦ó¤£   ddda = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00")   & ou             ...
lpk187 µoªí©ó 2015-4-26 22:59


§Ú»Ý­nªº¬O¦n´X­ÓÅܼƩñ¤J¤£¦Pªº­È
¨Ò¦p
ddda1=abc
ddda2=fgh
ddda3=ijk
.....
....
....
....

TOP

¦^´_ 3# t8899


    ÅܼƤ£¯à³o¼Ë²Ö¥[¡A§Aªº¤è¦¡¥i¥H§Q¥Î°}¦C¨Óªí¥Ü
Sub test()
Dim ddda(2 To 61)
For ou = 2 To 61
If Sheets("Sheet3").Cells(ou, "bc") > 2.8 Then
ddda(ou) = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00") '¬õ¦â¬°¿ù»~
End If
Next
End Sub

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2015-4-27 15:20 ½s¿è
¦^´_  t8899


    ÅܼƤ£¯à³o¼Ë²Ö¥[¡A§Aªº¤è¦¡¥i¥H§Q¥Î°}¦C¨Óªí¥Ü
Sub test()
Dim ddda(2 To 61)
F ...
lpk187 µoªí©ó 2015-4-27 07:18


Sub test()
Dim ddda(2 To 4)
For ou = 2 To 4
If Sheets("Sheet3").Cells(ou, "b") > 2.8 Then
ddd = ddd & Sheets("Sheet3").Cells(ou, "b").Row & ","
ddda(ou) = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00")
End If
Next
Range("c65536").End(xlUp).Offset(1) = ddd
Dim pp
For pp = 1 To Len(ddd)
MsgBox Mid(ddd, pp, 2)
If Mid(ddd, pp, 2) = ddda(ou) Then  '°}¦C¯Á¤Þ¶W¥X½d³ò
  Range("c65536").End(xlUp).Offset(0).Characters(pp, 2).Font.ColorIndex = 7
pp = pp + 1
End If
Next
End Sub Book2.zip (7.64 KB)
¥Øªº¡A§â ddd ¸Ì­± ¤j©ó 2.8ªº¦r(row) Åܦâ

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2015-4-27 19:38 ½s¿è

§Ú¸Õ¥X¨Ó¤F, ¤£ª¾¦³µL¸û²«K(§Ö³t)ªº¤èªk ? ¬õ¦â³¡¥÷¤S¦h¶]¤@¦¸??
¥Øªº¡A§â ddd ¸Ì­± ¤j©ó 2.8ªº¦r(row) Åܦâ
Sub test()
Dim ddda(1 To 8)
For ou = 1 To 8
If Sheets("Sheet3").Cells(ou, "b") > 2.8 Then
ddd = ddd & Format(Sheets("Sheet3").Cells(ou, "b").Row, "00") & ","
ddda(ou) = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00")
Else
ddd = ddd & Format(Sheets("Sheet3").Cells(ou, "b").Row, "00") & ","
End If
Next
Range("c65536").End(xlUp).Offset(1) = ddd
Dim pp
For pp = 1 To Len(ddd)
For ou = 1 To 8  
If Mid(ddd, pp, 2) = ddda(ou) Then
  Range("c65536").End(xlUp).Offset(0).Characters(pp, 2).Font.ColorIndex = 7
  End If
  Next      
pp = pp + 2
Next  
End Sub Book2.zip (8.18 KB)

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD