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

VBAµ{¦¡°õ¦æ®É,¥X²{¥¼©w¸q

VBAµ{¦¡°õ¦æ®É,¥X²{¥¼©w¸q

½Ð¦U¦ì«ü¾É
Sub Clear()
   Set R = [E7:CL7]    -----¥X²{¥¼©w¸q--
   For i = 7 To 145
   For Each A In [C7:C145]
     If C= "" Or C = 0 Then
     R.Value = ""
   End If
   Set R = R.Offset(1, 0)
   Next i
End Sub

¦^´_ 1# jim

¬O­n³o¼Ë¶Ü?
  1. Sub Clear()
  2.    Set R = [E7:CL7]
  3.    For Each A In [C7:C145]
  4.      If A = "" Or A = 0 Then
  5.        R.Value = ""
  6.      End If
  7.    Set R = R.Offset(1, 0)
  8.    Next
  9. End Sub
½Æ»s¥N½X

TOP

¦³¨â­Ó¿ï¾Ü
1.§â³Ì¤W¦æªºOption Explicit§R±¼
2.³W³W¯x¯xµ¹ÅܼƩw¸qÃþ«¬

TOP

¦^´_ 2# register313
register313  thanks
    ¦ý¬O°õ¦æ®É  Set R=[E7:CL7]
²£¥Í R=    (½s¿è¿ù»~ :   Åܼƥ¼©w¸q)

TOP

¦^´_ 4# jim
chin 15  ¦hÁ  §R°£«á¤w¸g¥i°õ¦æ    ¦P®É¤]ÁÂÁ  register313
  ¬O§_¥i§iª¾­ì¦]?
  ¦pªG§Ú§Æ±æ¦³¤@­ÓÅܼƧY¦b A3
   ­ì¥»°õ¦æ½d³ò [ C7:C145 ]   
­Y A3¬° 15  «h§Æ±æ°õ¦æ®É¬O  A3+5
§Y§ï±q  [ C20:C145 ]¬°°õ¦æ½d³ò ¬O§_¥i¦æ  ÁÂÁÂ

TOP

¦^´_ 5# jim

Range("C" & [A3] + 5, "C145")

TOP

¦^´_ 6# register313
register313 ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD