Memo/2004-07-12
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
#contents
*Excel 関連情報 [#i955dbea]
**サンプルコード [#r906d104]
***シート内のテキストボックスの文字列を置換するサンプル [...
' メインプロシージャ
Sub Main()
ReplaceTextBox "aaa", "bbb" ' "aaa" を "bbb" に置換...
End Sub
' テキストボックスの文字列の置換を行うプロシージャ
Sub ReplaceTextBox(ByVal strFind, ByVal strReplace)
' 複数シートに対して処理を行う
Dim sheet
For Each sheet In Worksheets
' 各オートシェイプに対して処理を行う
Dim shape
For Each shape In sheet.Shapes
' タイプがテキストボックスの場合にのみ置換処...
If shape.Type = msoTextBox Then
Dim strOld
Dim strNew
' 現在のテキストボックスの文字列を取得
strOld = shape.TextFrame.Characters.Text
strNew = Replace(strOld, strFind, strRep...
' 新しい文字列をテキストボックスにセット
shape.TextFrame.Characters.Text = strNew
End If
Next
Next
End Sub
-はてな
--http://www.hatena.ne.jp/1089615935
//#comment
終了行:
#contents
*Excel 関連情報 [#i955dbea]
**サンプルコード [#r906d104]
***シート内のテキストボックスの文字列を置換するサンプル [...
' メインプロシージャ
Sub Main()
ReplaceTextBox "aaa", "bbb" ' "aaa" を "bbb" に置換...
End Sub
' テキストボックスの文字列の置換を行うプロシージャ
Sub ReplaceTextBox(ByVal strFind, ByVal strReplace)
' 複数シートに対して処理を行う
Dim sheet
For Each sheet In Worksheets
' 各オートシェイプに対して処理を行う
Dim shape
For Each shape In sheet.Shapes
' タイプがテキストボックスの場合にのみ置換処...
If shape.Type = msoTextBox Then
Dim strOld
Dim strNew
' 現在のテキストボックスの文字列を取得
strOld = shape.TextFrame.Characters.Text
strNew = Replace(strOld, strFind, strRep...
' 新しい文字列をテキストボックスにセット
shape.TextFrame.Characters.Text = strNew
End If
Next
Next
End Sub
-はてな
--http://www.hatena.ne.jp/1089615935
//#comment
ページ名:
![[CX's MEMO]](image/cx_memo.jpg "[CX's MEMO]")
