- ©«¤l
- 4
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 7
- ÂI¦W
- 0
- §@·~¨t²Î
- Excel
- ³nÅ骩¥»
- 2013
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2016-6-18
- ³Ì«áµn¿ý
- 2023-9-6
|
[µo°Ý] ºô¸ô§ì¨ú¸ê®Æ¶K¦b¤£¦P¤u§@ªíªº°ÝÃD
¤£¦n·N«ä³Â·Ð¤j®a ²Ä¤@¦¸¥ÎVBA ¥Î¤F«Ü¤[¥Î¤£¥X¨Ó ³Â·Ð¤j®aÀ°¦£
§Ú¦bºô¸ô¤W§ì¨ú¸ê®Æ«á¬G¦aªºÄæ¦ì¦s¨ì"´Á³fOI" ªºFÄd §Ú§Æ±æ¨Cµ§¸ê®Æ³£¥i¥H©¹¤UÀx¦s¤£·|¨ú¥NÀ³¸Ó«ç»ò¼g©O
ÁÙ¬O¦³§ó¤è«Kªº¼gªk@@
Private Sub CommandButton2_Click()
Sheets("OIºô¸ô¶×¤J").Select
a = Range("K12").Select
Selection.Copy
Sheets("´Á³fOI").Select
h = Range("F3").End(xlDown).Row
ActiveSheet.Paste
End Sub
ÁÂÁ¤j¤jÀ°¦£ |
|