- ©«¤l
- 17
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 28
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-12-11
- ³Ì«áµn¿ý
- 2016-2-16
|
RE: ½Ð°Ý¦p¦ó§ó§ïµ{¦¡Åܦ¨¥i·s¼W¬ö¿ý
ªþ¤W¸Ô²Óªþ¥ó«Ý½Ð¦U¦ì¤j¤jÀ°¦£½T»{¬O§_þÃä½s¼g¦³»~¾É¦ÜµLªk·s¼W...ÁÂÁÂ!!- Sub ·s¼W¬ö¿ý()
-
- Dim formsheet As Worksheet, myTable As Range
- Dim NewRecord As Range, i As Long
- Dim addressList()
-
- Set formsheet = Sheets("¿é¤J¸ê®Æ")
-
- 'Application.Goto _
- 'ThisWorkbook.Names("¤u§@¥æ±µ¨Æ¶µ").RefersToRange
- '±q¦WºÙ¿ï¨ú¬¡¶Ã¯µ¥¯ÅªºÀx¦s®æ½d³ò
-
- Set myTable = _
- ThisWorkbook.Names("¤u§@¥æ±µ¨Æ¶µ").RefersToRange
- '±N¿é¤J¥Î»PÂà¼g¥Ø¼Ð¦ì¸mªºªí®æ³]©wµ¹ÅܼÆ
-
- 'Range("C4").Value = 1
-
- addressList = _
- Array("C4", "C5", "C6", "C7", "F5", "F6", "F7", "C8", "C9", "C10")
- '±NnÂà¼gªºÀx¦s®æ½s¸¹Àx¦s¦b°}¦C¤º
-
- Set NewRecord = Worksheets("¤u§@¥æ±µ¨Æ¶µ").Range("B:D")
- '¨ú±o¬ö¿ýªº·s¼W¦ì¸m
-
- For i = 0 To UBound(addressList)
- NewRecord.Cells(1, i + 1).Value = _
- formsheet.Range(addressList(i)).Value
-
- Next
-
- End Sub
½Æ»s¥N½X |
-
-
´ú¸Õª©.zip
(24.8 KB)
|