 |
|
||||||
|
|||||||
2008年03月20日
ドラゴンクエスト9発売日決定
ドラクエ9発売日決定という夢を見た・・・。
オリックスは、今季西武から移籍のカブレラが打撃練習でさく越えを連発。「１００％まではいかないが、バットが振れている」との言葉を裏付けた。ラロッカ、ローズとともに、強力打線として期待は高い。カブレラは「初の公式戦が西武でうれしい。オリックスの選手として勝利に貢献したい」と、古巣に宣戦を布告した。
さあ、明日オリックスがんばれ！
2007年07月10日
2007年07月06日
ブログの再構築
Sub テキストボックス置換()
Dim BeforeStr As String
Dim AfterStr As String
Dim ws As Worksheet
Dim s As Shape
Application.ScreenUpdating = False
BeforeStr = InputBox("置換前の文字列を入力してください。")
AfterStr = InputBox("置換後の文字列を入力してください。")
For Each ws In Worksheets
ws.Activate
For Each s In ws.Shapes
If s.Name Like "Text Box*" Then
s.Select
Selection.Characters.Text = _
Replace(Selection.Characters.Text, BeforeStr, AfterStr)
End If
Next
Next
Application.ScreenUpdating = True
End Sub
--------------------------------------------------------------
Sub Test()
Dim ws As Worksheet, myFind As String, myReplace As String
myFind = Application.InputBox("検索文字列は？", "シート名置換", Type:=2)
myReplace = Application.InputBox("置換文字列は？", "シート名置換", Type:=2)
For Each ws In ActiveWorkbook.Worksheets
On Error Resume Next
ws.Name = Replace(ws.Name, myFind, myReplace, 1, -1, 2)
Next ws
End Sub
Dim BeforeStr As String
Dim AfterStr As String
Dim ws As Worksheet
Dim s As Shape
Application.ScreenUpdating = False
BeforeStr = InputBox("置換前の文字列を入力してください。")
AfterStr = InputBox("置換後の文字列を入力してください。")
For Each ws In Worksheets
ws.Activate
For Each s In ws.Shapes
If s.Name Like "Text Box*" Then
s.Select
Selection.Characters.Text = _
Replace(Selection.Characters.Text, BeforeStr, AfterStr)
End If
Next
Next
Application.ScreenUpdating = True
End Sub
--------------------------------------------------------------
Sub Test()
Dim ws As Worksheet, myFind As String, myReplace As String
myFind = Application.InputBox("検索文字列は？", "シート名置換", Type:=2)
myReplace = Application.InputBox("置換文字列は？", "シート名置換", Type:=2)
For Each ws In ActiveWorkbook.Worksheets
On Error Resume Next
ws.Name = Replace(ws.Name, myFind, myReplace, 1, -1, 2)
Next ws
End Sub
2007年06月21日
2007年06月18日
2007年03月06日
ワンダーキング
|
