- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# 01300607 - '¶Ç¦^³Ì«á¦³¸ê®ÆÀx¦s®æ¦C¸¹: ¸ê®Æ¦b 1øó-30øó,²Ä1¦C¶}©l¨ì10¦C ¶W¹L²Ä10¦C«áÄò¦³¸ê®ÆªºÀx¦s®æ,©Ò¶¡¹jªº¦C¼Æ¤£¥i¤j©ó10¦C.
- Function findx(ByVal objsheet As Worksheet) As Long '¨ç¼Æ«¬ºA : Long (ªø¾ã¼Æ)
- 'ByVal ¿ï¾Ü©Ê¤Þ¼Æ¡Cªí¥Ü¥H¶ÇȪº¤è¦¡¨Ó¶Ç»¼¤Þ¼Æ¡C
- 'objsheet(°Ñ¼Æ) As(«¬ºA) Worksheet(¤u§@ªíª«¥ó)
- Dim x As Integer, L As Integer, k As Integer, kk As String
- x = 0
- Do 'While True : ³o±ø¥ó¬O¹w³],¥i¤£¼g
- kk = "" '¸ê¦êÂk¹s
- For L = 1 To 10 'L: ¦C¸¹ (1-10)
- For k = 1 To 30 'k: øó¸¹ (1-30)
- 'objsheet.Cells(x + L, k) -> objsheet.Cells( X+¦C¸¹L , øó¸¹ )
- If IsError(objsheet.Cells(x + L, k)) = False Then '¤£¬°¿ù»~È:±ø¥ó¦¨¥ß
- 'IsError ¨ç¼Æ ¶Ç¦^ Boolean È¡A¥Î¨Ó«ü¥X¹Bºâ¦¡¬O§_¬°¤@Ó¿ù»~È¡C
- kk = kk & objsheet.Cells(x + L, k) '²Ö¥[[¤£¬°¿ù»~Ȧs®æ]ªº¤º®e
- End If
- Next
- Next
- '¶]§¹ objsheet.Cells(x + 1, 1) ¨ì objsheet.Cells(x + 10, 30) ªº½d³ò
- If kk = "" Then Exit Do '¶]§¹ªº½d³ò¤º¨S¦³¸ê®Æ:Â÷¶}°j°é
- x = x + 1 '¬ö¿ý¦³¸ê®Æªº¦¸¼Æ => ³Ì«á¦³¸ê®Æªº¦C¸¹¦C¸¹
- Loop
- findx = x
- End Function
½Æ»s¥N½X |
|