「Excel VBA すべてのシートに対して一括置換」の版間の差分
ナビゲーションに移動
検索に移動
(ページの作成:「==Excel VBA すべてのシートに対して一括置換== [Excel][Excel VBA] {{amazon|4798122084}} ====すべてのシートに対して一括置換する====…」) |
|||
| (同じ利用者による、間の3版が非表示) | |||
| 1行目: | 1行目: | ||
| − | ==Excel VBA すべてのシートに対して一括置換== | + | ==[[Excel VBA すべてのシートに対して一括置換]]== |
| − | [Excel][Excel VBA] | + | [[Excel]] | [[Excel VBA]] | |
{{amazon|4798122084}} | {{amazon|4798122084}} | ||
====すべてのシートに対して一括置換する==== | ====すべてのシートに対して一括置換する==== | ||
| − | Sub | + | Sub All[[R]]eplace() |
Dim f As String | Dim f As String | ||
Dim t As String | Dim t As String | ||
Dim i As Integer | Dim i As Integer | ||
| − | Dim sht As Excel.Worksheet | + | Dim sht As [[Excel]].Worksheet |
f = InputBox("置換対象文字列を入力してください") | f = InputBox("置換対象文字列を入力してください") | ||
| − | If Trim$(f) | + | If Trim$(f) <> "" Then |
t = InputBox("置換後文字列を入力してください") | t = InputBox("置換後文字列を入力してください") | ||
End If | End If | ||
| 29行目: | 29行目: | ||
End If | End If | ||
| − | sht.Cells. | + | sht.Cells.[[R]]eplace What:=f, [[R]]eplacement:=t, LookAt:= _ |
| − | xlPart, SearchOrder:= | + | xlPart, SearchOrder:=xlBy[[R]]ows, MatchCase:=False, MatchByte:=False |
Next | Next | ||
Call MsgBox("完了") | Call MsgBox("完了") | ||
End Sub | End Sub | ||
2020年2月16日 (日) 04:25時点における最新版
Excel VBA すべてのシートに対して一括置換
すべてのシートに対して一括置換する
Sub AllReplace() Dim f As String Dim t As String Dim i As Integer Dim sht As Excel.Worksheet f = InputBox("置換対象文字列を入力してください") If Trim$(f) <> "" Then t = InputBox("置換後文字列を入力してください") End If If Trim$(t) = "" Then Exit Sub End If For i = 1 To ActiveWorkbook.Sheets.Count Set sht = ActiveWorkbook.Sheets(i) If sht.Name = f Then sht.Name = t End If sht.Cells.Replace What:=f, Replacement:=t, LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False Next Call MsgBox("完了") End Sub
© 2006 矢木浩人
