·s«Ø¥ßªº¹Ï§Î¡A¦p¦ó¦bÁY©ñµøµ¡¤¤¤ß¦ì¸m¥X²{!!
- ©«¤l
- 57
- ¥DÃD
- 36
- ºëµØ
- 0
- ¿n¤À
- 94
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2024-8-13
|
·s«Ø¥ßªº¹Ï§Î¡A¦p¦ó¦bÁY©ñµøµ¡¤¤¤ß¦ì¸m¥X²{!!
·Q½Ð°Ý¤j®a
§Úªºµ{¦¡¥Ø«e§Q¥ÎVBA«Ø¥ß·s¼W¹Ï§Î¸ê®Æ
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 300, 120, 300, 100).Select
·Q°Ý»¡¦³¨S¦³¿ìªk¥i¥H¨ú±o·í¤Uµøµ¡ÁY©ñªº¤¤¤ß¦ì¸m
¦]¬°·QnÅý·s«Ø¥ßªº¹Ï§Î¦ì¸m¡A¥i¥H¦b·í¤UÁY©ñªºµøµ¡¤¤¤ß¥X²{
ÁקK¨Ï¥ÎªÌ§ä¤£¨ì·s«Ø¥ßªº¹Ï§Î¸ê®Æ
©Î¬On«ç¼Ëªº¤è¦¡¡A¤~¯à¦Pexcelµe¹Ï§Îªº¤è¦¡
¥ý¿ï¾Ünø»sªºÃþ«¬
µM«á¥Î·Æ¹«©w¦ì¥X¦ì¸mµ¹¤©«Ø¥ß·s¹Ï§Î??
·Q½Ð°Ý¤j®a¦³¨S¦³¤è¦¡¥i¥H³B²z
thank you! |
|
|
|
|
|
|
- ©«¤l
- 57
- ¥DÃD
- 36
- ºëµØ
- 0
- ¿n¤À
- 94
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2024-8-13
|
¦^´_ 2# ã´£³¡ªL
¦³¦¨¥\¤F¡A¸U¤À·PÁÂ! |
|
|
|
|
|
|
- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-15
|
Dim uT, uL, uW, uH
With ActiveWindow.VisibleRange '·í«e¥i¨£Àx¦s®æ½d³ò
¡@¡@uT = .Top '¤WÃä¶Z
¡@¡@uL = .Left '¥ªÃä¶Z
¡@uW = .Width '¼e«×
¡@¡@uH = .Height '°ª«×
¡@¡@MsgBox .Address¡@'Àx¦s®æ¦ì§}
End With
ª«¥ón«ç»ò©ñ¡A´N¥Î³o¥|Ӽƾڥh¦Û¦æpºâ¡ã¡ã |
|
|
|
|
|
|