1.
2.
3.
4.Function Test() As Integer
'なんかの処理
Test = 値
End Function1.
2.
3.
4.
5.
6.
7.' nは置換対象の文字の数
' chは置換対象の文字の配列
' swは置換する文字の配列
For i = 0 To n
rename = Replace(name, ch(i), sw(i))
name = rename
Next lDim ar As String = {"a", "b", "c"}1.
2.
3.
4.
5.Sub tes()
Dim ar As Variant
ar = Array("a", "b", "c", "d", "e", "f", "g")
MsgBox UBound(ar)
End Subint a(3);
// a(0)～a(2)の3つDim a(3) As Integer
' a(0)～a(3)の4つ1.
2.
3.
4.'マクロの記録そのまま
Sub setName()
ActiveWorkbook.Names.Add name:="せる", RefersToR1C1:="=sheet1!R5C1"
End Sub1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.Sub setName()
Dim i, j As Integer
Dim str As String 'ワークシートの名前
Dim name As String 'セルにつける名前
str = ActiveSheet.name
i = 5
j = 1
name = "せる"
ActiveWorkbook.Names.Add name:=name, _
RefersToR1C1:="=" & str & "!R" & i & "C" & j
End Sub1.
2.
3.Sub delN()
ActiveWorkbook.Names("せる").Delete
End Sub1.
2.
3.
4.
5.
6.
7.
8.
9.
10.Sub delN()
Dim name As String
Dim i As Integer
i = 1
For Each nm In ActiveWorkbook.Names
name = nm.NameLocal
ActiveWorkbook.Names(name).Delete
i = i + 1
Next
End Sub1.
2.
3.
4.
5.
6.
7.
8.
9.Sub macro()
'画面を更新しない
Application.ScreenUpdating = False
'なんかの処理
'画面を更新する
Application.ScreenUpdating = True
End Sub1.
2.
3.
4.
5.
6.
7.
8.'セルA1にリンクを設定する
Sub setLink()
Cells(1, 1).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="<a href="http://tekitou.link" target="_blank" rel="noopener">http://tekitou.link", _
TextToDisplay:="表示する文字列"
End Sub1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.'アドレスはセルに記述してあるものとする
Sub setLink()
Dim i, j As Integer
Dim link As String
i = 1
j = 1
Cells(i, j).Select
link = Cells(i, j).Value
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:=link, _
TextToDisplay:=link
End Sub1.
2.
3.
4.Sub delLink()
Sheets(1).Activate 'シート1を選択
Cells.Hyperlinks.Delete 'シート内の全てのリンクを解除
End Subxcopy コピー元 コピー先 /e /t