シートによってエラーが出たりでなかったりする関数

投稿者 : sumire2yomi4     投稿日時 : 2023/03/16(Thu) 11:17:28     OS : Windows 11     EXCEL : Excel 2019

---

一つのエクセルデータの中でVBAを組んでおります。

シートは"解答用紙"と"計算処理"の2つあるのですが、"計算処理"の中でボタンを押す、あるいは関数のデバックを始めると一番下のBorderAroundでエラーが発生します。

しかし、"解答用紙"の中でデバックを始めるとエラーが発生しません。

この関数は、"計算処理"のシートで計算された座標の位置をLoop関数にあてはめ、"解答用紙"のシートに指定された数だけ四角い枠を罫線で作るというものです。

原因となりうるものがわかる方がいらっしゃったらご返信いただけますと幸いです。

もしこれ以前の関数が必要ということであれば、仰って位だたいた際に返信で追記しようと思います。

～以下関数～

Dim X

X = Worksheets("計算処理").Range("C7")

For m = 1 To X

Worksheets("計算処理").Cells(5 + m, 14) = m

Next

Dim row As Integer

row = 5

Dim s As Integer

Dim t As Integer

Do Until Worksheets("計算処理").Cells(row, 15) = ""

s = Worksheets("計算処理").Cells(row, 15).Value

t = Worksheets("計算処理").Cells(row, 16).Value

Worksheets("解答用紙").Range(Cells(s, 1), Cells(t, 6)).BorderAround Weight:=xlThick

row = row + 1

Loop

投稿者 : ngk     投稿日時 : 2023/03/16(Thu) 11:36:23

---

Worksheets("解答用紙").Range(Cells(s, 1), Cells(t, 6)).BorderAround Weight:=xlThick

を

Worksheets("解答用紙").Range(Worksheets("解答用紙").Cells(s, 1), Worksheets("解答用紙").Cells(t, 6)).BorderAround Weight:=xlThick

にしてみて下さい。


CellsやRangeなどのオブジェクトはシートを指定しないとActivesheetが略されたものと看做されるので、
「計算処理」からマクロを起動すると
　　Worksheets("解答用紙").Range(Cells(s, 1), Cells(t, 6)).BorderAround Weight:=xlThick
はのRange内のアドレスは「計算処理」のアドレスになります。

それでエラーになるとは思えませんが、とりあえず試してみてください。

投稿者 : sumire2yomi4     投稿日時 : 2023/03/16(Thu) 11:44:50

---

ngk様

ご返信ありがとうございます。sumire2yomi4です。

仰っていただいたとおりに直してみたところ、稼働いたしました。

気を付けていたつもりでしたが、そこまで考えが及んでおりませんでした。

初歩的な質問にもご丁寧にお答えいただきありがとうございました。

投稿者 : sumire2yomi4     投稿日時 : 2023/03/16(Thu) 11:45:32

---

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