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

¥[¤J¦Û°Ê±Æ§Ç

¥[¤J¦Û°Ê±Æ§Ç

¤j¤j­Ì, ¦n
¤U¦Cµ{¦¡½X·Q¥[¤J¦Û°Ê±Æ§Ç, ¦ý¸Õ¹L´X¦¸³£¥¢±Ñ, ½Ð¤j¤j¨ó§U­×§ï,
µ{¦¡½X¬O«ö¸ê®Æªí®waÄæ¦ì, ·í¿é¤J«K¦Û¦æ±Æ§Ç, Àµ½Ð¤j¤j±Ð¾É, ·P®¦..

Public Sub refresh_all()

Dim ar(13)
If [f5] = "" Or Not Sheets("¸ê®Æ®w").[a:a].Find([f5], , , 1) Is Nothing Then
MsgBox "½s¸¹¤v¦s¦b,©Î»Õ¤U§Ñ°O¶ñ¼g½s¸¹,½Ð®Ö¹ê­«·s¿é¤J!!": Exit Sub
Else
For i = 6 To 17
   ar(S) = Cells(i, 6).Value
   S = S + 1
Next
n = Sheets("¸ê®Æ®w").[A65536].End(3).Row + 1
Sheets("¸ê®Æ®w").Cells(n, 1).Resize(, 13) = ar
[H6].Copy Sheets("¸ê®Æ®w").Cells(n, 14)
End If
End Sub

¤j¤j­Ì, ¦n
¤U¦Cµ{¦¡½X·Q¥[¤J¦Û°Ê±Æ§Ç, ¦ý¸Õ¹L´X¦¸³£¥¢±Ñ, ½Ð¤j¤j¨ó§U­×§ï,
µ{¦¡½X¬O«ö¸ê®Æªí®waÄæ¦ì, ·í ...
317 µoªí©ó 2012-8-18 16:39
  1. Public Sub refresh_all()
  2.   Dim ar(13)

  3.   With Sheets("¸ê®Æ®w")
  4.     If [f5] = "" Or Not .[a:a].Find([f5], , , 1) Is Nothing Then
  5.       MsgBox "½s¸¹¤v¦s¦b,©Î»Õ¤U§Ñ°O¶ñ¼g½s¸¹,½Ð®Ö¹ê­«·s¿é¤J!!": Exit Sub
  6.     Else
  7.       For i = 6 To 17
  8.         ar(S) = Cells(i, 6).Value
  9.         S = S + 1
  10.       Next
  11.       n = .[A65536].End(3).Row + 1
  12.       .Cells(n, 1).Resize(, 13) = ar
  13.       [H6].Copy .Cells(n, 14)

  14.       .[a:d].Sort Key1:=.[a1]
  15.       ' ¤£ª¾¹D§A­n±Æ¨ì­þ¤@Äæ, ¦¹³B°²³]¬° d Äæ,§A¥i¥H¦Û¦æ§ó§ï.
  16.     End If
  17.   End With
  18. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD