- ©«¤l
- 5
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-1
- ³Ì«áµn¿ý
- 2010-9-22
|
¥»©«³Ì«á¥Ñ ¸ô¤ñ ©ó 2010-9-2 01:55 ½s¿è
1.¯A¤Î´¡¤J°Ê§@À³¸Ó±Ä¥Îvba»²§U
2.countif´N¥i¦³±ø¥óp¼Æ
Hsieh µoªí©ó 2010-9-2 00:26
½Ð°Ýª©¥D
1.¬O§_¦³®×¨Ò¥i¥H°Ñ¦Ò¡A¦]¬°¥Ø«eµ¥¯Å©|µLªk°µ·j´M¡A½¤F¦n´X¶³£¨S¬Ý¨ì
èè§ä¤F¤@¤U¡A¦³§ä¨ì³oÓ½d¨Ò¡A¥Ø«e´ú¸Õ¥i¥H§ì¨ì¹Ï¤ù¡A¤£¹L¦p¦ó¤~¥i¥H¸õ¸ô®|¿ï¾Ü¹Ï¤ù¡A¦]¬°¦¹³]©w¶·§â¹Ï¤ù»PEXCEL©ñ¦b¦P¤@¥Ø¿ý©³¤U¤~¥i
Sub ChangeSize()
¡@¡@picname = [a1] & ".jpg"¡@'´¡¤Jªº¹Ï¤ù¦WºÙ
¡@¡@Mypath = ThisWorkbook.Path & "/"
¡@¡@Set MyPic = ActiveSheet.Pictures.Insert(Mypath & picname)
¡@¡@With MyPic
¡@¡@¡@¡@.ShapeRange.LockAspectRatio = msoFalse
¡@¡@¡@¡@.Left = [b2].Left
¡@¡@¡@¡@.Top = [b2].Top
¡@¡@¡@¡@.Width = [b2].Width
¡@¡@¡@¡@.Height = [b2].Height
¡@¡@End With
End Sub |
|