¦p¦ó¤Ï¦V«ä¦Ò½Æ»s®æ¦¡ªº¤è¦¡!
- ©«¤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
|
VBA¨ú±o½u±øªº®y¼ÐÈ!!
§Ú·Q¨Ï¥ÎVBA±N¤u§@ªí¤¤©Òµeªº½u±ø
¨äÀY§Àªº®y¼ÐÈ°O¿ý¤U¨Ó
¦ý¬O¤£²M·¡n¦p¦ó°Ê§@
Selection.ShapeRange.Name ¥i¥H¨ú±o½u±øªº¦WºÙ
¨ºn¨Ï¥ÎþÓ«ü¥O¡A¤~¯à¨ú±o½u±ø¡AÀY§À¨âÂIªº®y¼Ð¸ê®Æ©O?? |
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
  
|
¦^´_ 1# yenwang
Dim sp As Shape
For Each sp In sheet1.Shapes
K = K + 1
Cells(K + 1, "A") = sp.Name
Cells(K + 1, "b") = sp.Type
Cells(K + 1, "c") = sp.Top
Cells(K + 1, "d") = sp.Left
Cells(K + 1, "e") = sp.Height
Cells(K + 1, "F") = sp.Width
Next
µ¹§A°Ñ¦Ò |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 3# GBKEE
ÁÂÁ¤j®aªºÀ°§U
¦³²M·¡¥B¥i¥H¸Ñ¨M°ÝÃD¤F
·P®¦ |
|
|
|
|
|
|
- ©«¤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
|
¦p¦ó¤Ï¦V«ä¦Ò½Æ»s®æ¦¡ªº¤è¦¡!
¥Ñ©ó²{¦bªºEXCELªº½u±ø½Æ»s®æ¦¡¤W
»Ýn¥ý¦b®æ¦¡¨Ó·½¤WÂI¿ï
µM«á½Æ»s®æ¦¡«á
¦AÂI¿ïnÅܧó®æ¦¡ªº½u±ø
§Ú·Q½Ð°Ý
¦³¿ìªk¤Ï¦V«ä¦Ò¶Ü??
¦]¬°²{¦b§Únק諸®æ¦¡¥i¯à¦³´X¤Q±ø½u±ø©Î¬O¦hÃä§Î
§Ú·Q¥ý§Q¥Î¿ï¨úªº¤è¦¡
±N³o´X¤Q½u±ø©Î¦hÃä§Î¿ï¨ú
µM«á«ö¤U¥¨¶°«á
«hn¨D¿ï¨ú¹wÅܦ¨¥Ø¼Ð®æ¦¡ªº½u±ø
µM«á´N¬O³o´X¤Q½u±ø©Î¦hÃä§Îªº½u«¬´N¨Ì·Ó©Ò¿ï¨úªº¥Ø¼Ð®æ¦¡×§ï
¦³¿ìªk³o¼Ë¤l¼gµ{¦¡¶Ü??? |
|
|
|
|
|
|
- ©«¤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# yenwang
¸Õ¸Õ¬Ý- Option Explicit
- Sub Ex()
- Dim Sp As Object
- Dim A(1 To 4), i, b(1 To 4)
- A(1) = Array([D5].Left, [D5].Top)
- A(2) = Array([D10].Left, [D10].Top)
- A(3) = Array([H10].Left, [H10].Top)
- A(4) = Array([H5].Left, [H5].Top)
- ActiveSheet.Shapes.SelectAll
- Selection.Delete
- For i = 1 To UBound(A)
- With ActiveSheet.Shapes.AddLine(A(i)(0), A(i)(1), A(IIf(i < UBound(A), i + 1, 1))(0), A(IIf(i < UBound(A), i + 1, 1))(1))
- b(i) = .Name
- End With
- Next
- Set Sp = ActiveSheet.Shapes.Range(b)
- With Sp
- .Fill.Transparency = 0#
- .Line.Weight = 4.5
- .Line.ForeColor.SchemeColor = 10
- End With
- Stop
- A(1) = Array(0, 3, 5, 7)
- For i = 1 To Sp.Count
- With Sp(i)
- .Fill.Transparency = 0
- .Line.Weight = A(1)(i - 1)
- .Line.ForeColor.SchemeColor = A(1)(i - 1) + 10
- .Line.BeginArrowheadLength = msoArrowheadLengthMedium
- .Line.EndArrowheadWidth = msoArrowheadWidthMedium
- .Line.EndArrowheadStyle = msoArrowheadOval
- End With
- Next
- End Sub
½Æ»s¥N½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
|
¦³½d¨Ò¤U¸ü¬Ý¶Ü¡H§Ú³£¸Õ¤£¦¨¥\¡I |
|
|
|
|
|
|