- 帖子
- 17
- 主題
- 6
- 精華
- 0
- 積分
- 55
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office 2003 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2010-10-1
- 最後登錄
- 2022-2-18
|
感謝解答,目前還無沒有權限下載
我剛用了巨集錄製的方式再加已修改如下
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 |
|