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

vba »yªk½Ð±Ð

vba »yªk½Ð±Ð

·Q½Ð°Ý¬°¤°»ò³o­Óµ{¦¡½X¯à§ä¥X¤u§@ªí¸Ìªº¸ê®Æ¦³´X¦C¡H
¹ê¦b¦³ÂI¬Ý¤£À´¥Lªº¹B§@¤è¦¡¡AÁÂÁÂ
  1. Function findx(ByVal objsheet As Worksheet)
  2.      x = 0
  3.      Do While True
  4.         kk = ""
  5.         For l = 1 To 10
  6.             For k = 1 To 30
  7.                 If IsError(objsheet.Cells(x + l, k)) = False Then
  8.                     kk = kk & objsheet.Cells(x + l, k)
  9.                 End If
  10.             Next
  11.         Next
  12.         If kk = "" Then Exit Do
  13.         x = x + 1
  14.     Loop
  15.     findx = x
  16. End Function
½Æ»s¥N½X
hi

¦^´_ 1# 01300607
  1. '¶Ç¦^³Ì«á¦³¸ê®ÆÀx¦s®æ¦C¸¹: ¸ê®Æ¦b 1øó-30øó,²Ä1¦C¶}©l¨ì10¦C ¶W¹L²Ä10¦C«áÄò¦³¸ê®ÆªºÀx¦s®æ,©Ò¶¡¹jªº¦C¼Æ¤£¥i¤j©ó10¦C.
  2. Function findx(ByVal objsheet As Worksheet) As Long   '¨ç¼Æ«¬ºA : Long (ªø¾ã¼Æ)
  3.               'ByVal ¿ï¾Ü©Ê¤Þ¼Æ¡Cªí¥Ü¥H¶Ç­Èªº¤è¦¡¨Ó¶Ç»¼¤Þ¼Æ¡C
  4.               'objsheet(°Ñ¼Æ) As(«¬ºA)  Worksheet(¤u§@ªíª«¥ó)
  5.     Dim x As Integer, L As Integer, k As Integer, kk As String
  6.     x = 0
  7.     Do   'While True : ³o±ø¥ó¬O¹w³],¥i¤£¼g
  8.         kk = ""             '¸ê¦êÂk¹s
  9.         For L = 1 To 10     'L: ¦C¸¹ (1-10)
  10.             For k = 1 To 30 'k: øó¸¹ (1-30)
  11.                 'objsheet.Cells(x + L, k) -> objsheet.Cells( X+¦C¸¹L , øó¸¹ )
  12.                 If IsError(objsheet.Cells(x + L, k)) = False Then       '¤£¬°¿ù»~­È:±ø¥ó¦¨¥ß
  13.                   'IsError ¨ç¼Æ  ¶Ç¦^ Boolean ­È¡A¥Î¨Ó«ü¥X¹Bºâ¦¡¬O§_¬°¤@­Ó¿ù»~­È¡C
  14.                     kk = kk & objsheet.Cells(x + L, k)      '²Ö¥[[¤£¬°¿ù»~­È¦s®æ]ªº¤º®e
  15.                 End If
  16.             Next
  17.         Next
  18.         '¶]§¹ objsheet.Cells(x + 1, 1) ¨ì objsheet.Cells(x + 10, 30) ªº½d³ò
  19.         If kk = "" Then Exit Do                               '¶]§¹ªº½d³ò¤º¨S¦³¸ê®Æ:Â÷¶}°j°é
  20.         x = x + 1                                             '¬ö¿ý¦³¸ê®Æªº¦¸¼Æ => ³Ì«á¦³¸ê®Æªº¦C¸¹¦C¸¹
  21.     Loop
  22.     findx = x
  23. End Function
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¤Ó¸Ô²ÓªºÁ¿¸Ñ¤F¡AÁÂÁªO¥D
ÁÂÁÂ
hi

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD