ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】指定ブックの指定シートの指定セルを選択するマクロを作成してみました。




どうも、ゴリラストロングです。

 

本日は久しぶりにエクセルマクロを作ってみました。

 

指定ブックの指定シートの指定セルを選択するマクロです。

 

以下の画像のようにマクロが格納されたブックを作成しました。

 

【VBA】指定ブックの指定シートの指定セルを選択するマクロ

VBA】指定ブックの指定シートの指定セルを選択するマクロ


ソースコードは以下の通りです。

 

Sub 指定ブックの指定シートの指定セルを選択するマクロ()

Dim macro As Object
Set macro = ThisWorkbook.Worksheets(1)

Dim obj As String
obj = macro.Range("B7")

Dim bookname As String
bookname = macro.Range("B5")

Workbooks.Open obj

Dim j As Long
j = 10

Dim lastrow As Long
lastrow = macro.Cells(Rows.Count, 1).End(xlUp).Row

For i = 10 To lastrow

Dim sheetnum As Long
sheetnum = macro.Range("A" & j)

Dim address As String
address = macro.Range("D" & j)

Workbooks(bookname).Worksheets(sheetnum).Activate
Workbooks(bookname).Worksheets(sheetnum).Range(address).Select

j = j + 1

Next

Workbooks(bookname).Save
Workbooks(bookname).Close

End Sub

 

このコードを実行すると、指定のブックの指定のシート番号のシートにおいて、指定のセルへのアクティブセルの移動が行われます。

動作としては以上です。

 

ご覧いただきありがとうございました。

以上、ゴリラストロングでした。