- ©«¤l
- 17
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office 2003 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2010-10-1
- ³Ì«áµn¿ý
- 2022-2-18
|
·PÁ¸ѵª¡A¥Ø«eÁÙµL¨S¦³Åv¤U¸ü
§Úè¥Î¤F¥¨¶°¿ý»sªº¤è¦¡¦A¥[¤wקï¦p¤U
Sub AddSeal()
ActiveSheet.Shapes("NameText1").Select
Selection.Characters.Text = Worksheets("Sheet4").Range("c1").Value
ActiveSheet.Shapes("NameText2").Select
Selection.Characters.Text = Worksheets("Sheet4").Range("c2").Value
ActiveSheet.Shapes("DATE").Select
Selection.Characters.Text = Worksheets("Sheet4").Range("c3").Value
End Sub |
|