回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -4,16 +4,15 @@
|
|
|
4
4
|
```vba
|
|
5
5
|
Function AddAge(Age As String) As String
|
|
6
6
|
Dim Ages As Variant
|
|
7
|
-
AddAge = Age
|
|
8
7
|
Ages = Split("0才 1才 2才 3才 4才 5才 6才 1年生 2年生 3年生 4年生 5年生 6年生 " & _
|
|
9
8
|
"中学1年生 中学2年生 中学3年生")
|
|
10
|
-
|
|
9
|
+
AddAge = Age
|
|
11
10
|
On Error Resume Next
|
|
12
11
|
AddAge = Ages(WorksheetFunction.Match(Age, Ages, 0))
|
|
13
12
|
End Function
|
|
14
13
|
|
|
15
14
|
Sub MultiReplacement()
|
|
16
|
-
Dim Rng As Range
|
|
15
|
+
Dim Rng As Range, Ans As Long
|
|
17
16
|
Set Rng = Selection 'マウスで範囲を選択してください。
|
|
18
17
|
If Rng.Count = 1 Then
|
|
19
18
|
Ans = MsgBox("セル１つしか選択されていませんが、よろしいですか？", vbYesNo)
|