Excel VBA 質問スレ Part75

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-wadS) · 2022/02/09(水) 14:24:32.62

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑2行に減ってるけど、同じ内容を3行に増やして貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part74
https://mevius.5ch.net/test/read.cgi/tech/1639932059/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2022/02/27(日) 11:40:19.04

>>233
onerrorはなるだけ使わない方が良いと思う。俺は使わずに書いてるよ
>>233でもいいけど、なるだけ少ない方が後々の変更が楽になる

Sub foo()
'先に見つけておく
Set p = Range("A14:D150").Find("獲得ポイント")
If Not (p Is Nothing) Then
'見つかったときの処理
row_po = p.Row
Rows(row_po & ":" & row_po + 1).Delete Shift:=xlUp
End If

End Sub

2022/02/27(日) 11:42:39.74

>>234
動いたんならまず一旦良しとしていいと思う
良いやり方が他にもあるから今後更に知識が付いたその時に改良していけば良いさ

2022/02/27(日) 11:53:19.82

どうもありがとう

ただ、なんかわからないのだが、ほかの所がエラー吐いてしまっています。
ちょっと死にそうですが、悩んでみます。
多分、また来ますw

2022/02/27(日) 12:19:45.80

どうぞ～がんばって～

2022/02/27(日) 14:32:58.22

>>235
おま、これすごい

これにしてみたら他に出たエラーもピシっと消えた
On Error　は動いたけど、イレギュラーなパターンだとなぜか他でエラーになった
これも試したらイレギュラーでもバッチり

つーか、俺が昨日の夜中からずううとやっていてもこんなの作れないありがとう
ホント君らすげーよ
これ作るのに寿命を迎えるレベルだわ

2022/02/27(日) 14:49:32.88

>>239
笑った
影響が最小限になるように、ちゃんと書く方が楽なんだよ
onerrorとかですっ飛ばすと、後で余計に大変になる

2022/02/27(日) 17:57:55.85

関数て約500種類弱あるけど、全部マスターする必要あるのかな？？
知人が、「Excelができる人材の定義は関数を全部マスターしているヤツの事だ！」とか言い出しているから

2022/02/27(日) 18:04:55.19

VBAなら関数って自作が基本じゃないの？知らんけど

2022/02/27(日) 18:06:25.05

>>241
＞関数て約500種類弱あるけど、全部マスターする必要あるのかな？？
ないよ

2022/02/27(日) 18:28:40.28

https://forest.watch.impress.co.jp/docs/news/1293471.html

2022/02/27(日) 18:34:38.78

そら作れば無限に出来るわいな

2022/02/27(日) 18:39:37.90

>>241
EXCELが（凄く）できる人かEXCELが（初心者だけど）できる人では違うんじゃね

2022/02/27(日) 18:47:42.24

>>241
その知人に認めたくない人がいてExcelできる人で通ってるけど
関数はマスターしてないから言ってるだけ説

2022/02/27(日) 18:50:42.59

知ってる関数の数なんて誇る奴がいたら失笑もんだわ

2022/02/27(日) 18:55:10.53

標準の関数は少ないよな
俺はSUM CONCATENATE IFくらいしか覚えてない（ヘルプが必要）がその知人よりは多分出来ると思う

2022/02/27(日) 18:58:34.59

>>247
多分合ってるんだろうけどメッチャ理解し難いぐちゃぐちゃ関数式の様な日本語

2022/02/27(日) 19:18:55.52

>>241
その知人が馬鹿なだけだぞ

2022/02/27(日) 19:50:11.71

知人ぼろかすで草

2022/02/27(日) 19:54:03.00

Excelにどんな機能がある＝関数
ってしかいえない人の戯言では

2022/02/27(日) 20:40:55.89

>>241

If 友人が「Excelができる人材の定義は関数を全部マスターしているヤツの事だ！」と言った　then
　　throw 友人　どこか
End If

以下正常処理

2022/02/27(日) 20:51:03.99

If 友人が Then
　Yo! Yo! ﾁｪｹﾗYO!
　Go To YoYo
End If
YoYo:
Oh! Oh! 皆で楽しくﾁｪｹﾗYo!

2022/02/27(日) 21:11:45.66

If 友人.Count > 0 Then
のチェックをしておかないと例外が発生しかねんぞ

2022/02/27(日) 21:18:59.32

>>254
そこはRaiseだろ

2022/02/27(日) 21:27:51.88

?友人 is nothing
true

2022/02/27(日) 21:34:07.20

確認事項
・友人はいますか
・親友はいますか
・彼女はいますか
・配偶者はいますか
・家族はいますか
・老後の心配はありませんか

2022/02/27(日) 21:42:34.72

>>250
知人A, 知人が認めたくない人B
Bは皆にできる人って思われてる
Aはそれが気に食わない
だから関数をマスターしていない事を理由に言ってるだけ説

ごめん頼んだ

2022/02/27(日) 21:46:20.69

人生の大抵の困難はon erorr resume nextで解決可能である

2022/02/27(日) 21:52:09.54

On Error Shutdown And Reboot With Next Life

2022/02/27(日) 22:13:39.17

>>262

例外処理が抜けてる

If You = カーズ Then
Do Until 地球からの距離 = 0
地球からの距離 = 地球からの距離 + 1
Loop
Elseif You = ディアブロ Then
死ぬ前:
死にそう
Goto:死ぬ前
死んだ

End if

2022/02/27(日) 22:37:19.46

Dim tmp As String
tmp = "どんまい"
MsgBox tmp

2022/02/27(日) 23:16:15.15

関数そこまで必要かな？
マクロできるなら全部マクロでやれば良いじゃんね

2022/02/27(日) 23:42:12.81

>>265
類は友を呼ぶ
お前もどうしようもない馬鹿だ

2022/02/28(月) 03:06:37.96

いやだなぁ～先輩、冗談すよ冗談
職場になんでもVBA、VBAといってマジでVBAで片付けていた偉い人がいたもんでw

2022/02/28(月) 08:14:19.86

知人が、偉い人が、全て他人の話
ほんとうは・・・？

2022/02/28(月) 08:33:28.33

>>268
これ以上はやめて差し上げろ

2022/02/28(月) 18:59:30.44

すいません。　こういうのはできますか？
セルの中に改行を見つけてから止める（修正）するVBAをつくりました。
改行が見つかったら、マクロを止めて手修正をして又マクロを走らせてを繰り返します。

ここで、問題なのが改行ならいいのですが、文字が多くて折り返しになっているのがたまにあります。
それも見つけたいのですが、知恵がみつかりません。
折り返し判定みたいなのはあまりなさそうです。　それとも行の高さを判定できるなら高さ2２以上とか方法があるのかな？と

すいませんが、こんなのは？ってありましたら、お願いします。

Sub test()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
Dim row_shou As Long
row_shou = Range("A14:D150").Find("小　計").Row
Dim Target As Range
Set Target = Range(Rows(14), Rows(row_shou - 1)).Find(What:=vbLf)
If Not Target Is Nothing Then
End
End If
Next Ws
End Sub

2022/02/28(月) 19:29:28.20

>>270
一行以外を全て検出したいなら、行の高さを検出するだけで終わると思う
改行は調べなくてもいいような

Sub foo()
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
基本の行の高さ = Cells(1, 1).RowHeight
For i = 1 To 最終行

If Cells(i, 1).RowHeight <> 基本の行の高さ Then
MsgBox i & "行目の高さがおかしいので、終了します。修正お願いします"
Exit Sub
End If

Next
End Sub

2022/02/28(月) 20:20:02.79

>>271
あ、あ、ありがとう
正直解読するのに一時間くらいかかって自分のに書き直せました。
一応動いていけそうです！　高さチェックでいけますね
こんなチンケな感じになりました。
神々に感謝します。

Sub test()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate

Dim row_shou As Long
row_shou = Range("A14:D150").Find("小　計").Row

'行の高さ15以上を検索
h = 15
For i = 14 To row_shou - 1
If Cells(i, 1).RowHeight > h Then
Exit Sub

End If
Next
Next Ws
End Sub

2022/02/28(月) 21:56:13.38

ぶっちゃけFindは滅多やたら使わん方が良いけどまあ良かったじゃん

2022/03/01(火) 18:55:07.17

なんでもスレだと更新が少なく答えがもらえなさそうなので、こちらにも書き込んですみません。
Excel VBAで質問です。

現在開いているシートにマクロボタンを作り、実行させると…
現在シートのB列に検索値
別のシート(ABC)のB列の5行目～400行目までを検索して一致したセル番号が欲しいのですが
For cnt=1 To 10 samsu(cnt)=WorksheetFunction.Match(Cells(cnt,1),Worksheets(”ABC”).Range(Cells(5,1),Cells(400,1)),0)
…
next
このMatch関数の正しい書き方を教えてもらいたいのですが。

**デフォルトの名無しさん** (ｽﾌｯ Sdea-SZxA) · 2022/03/01(火) 22:29:13.54

ちゃんと見ていないが、とりあえず.cellsの前にも全部ワークシートを指定しよう

2022/03/02(水) 07:23:43.88

どっちでも好きな方をどうぞ
samsu(cnt) = WorksheetFunction.Match(Cells(cnt, 1), Worksheets("ABC").Range(Worksheets("ABC").Cells(5, 2), Worksheets("ABC").Cells(400, 2)), 0)
samsu(cnt) = WorksheetFunction.Match(Cells(cnt, 1), Worksheets("ABC").Range("B5:B400"), 0)

2022/03/02(水) 18:02:30.94

質問です

社員毎に月々の残業時間の合計プログラムを作っています
合計した数値に対して、30分で切り上げ切り捨てしています（会社の残業規定に則り）
（例えば、月4:10の残業であれば4:00として出力、月4:35であるば5:00として出力）
合計した数値に対してFloor関数を使って切り上げ切り捨てをしているのですが、
月23:30の残業をした社員がいた場合、出力された値が0になってしまいます
表示形式を[h]にしてみましたが、結果は変わりません
デバックでFloor関数の中の変数の値を確認しましたら、23:30のシリアル値はきちんと入っています
そうするとFloor関数で切り上げしているのが原因なのでしょうか？
どなたかご教示いただきたいです…

2022/03/02(水) 18:09:09.52

簡潔ですが、以下のようなコードで書いています
.cells（1,1）.NumberFormatLocal = "[h]"
a = "23:30"
.cells（1,1） = Application.Floor（a + TimeValue（"0:30"）,TimeValue（"1:00"））

2022/03/02(水) 18:13:22.97

>>277
mroundで1:00単位でいいんじゃない
https://i.imgur.com/igLdP9C.png

>>278
24と表示されたよ。そのままだとエラーになるので、2行目はtimevalueにいれた
https://i.imgur.com/a54wsnQ.png

2022/03/02(水) 18:43:03.81

>>279
MRoundにしてみたらできました！
ありがとうございます！

TimeValueについて書き損じ失礼しました
本来は"23:30"ではなく変数が入っていて、変数には23:30のシリアル値が入っています
なぜ0になってしまうのか謎ですが解決してよかったです

2022/03/02(水) 19:19:22.93

23時の次は24時ではなく0時だからだわな

2022/03/02(水) 19:25:50.55

>>281
いや、書式設定が[h]なら24と表示されるはず

2022/03/03(木) 07:42:09.33

>>276
無事に動きました。
ありがとうございました。

2022/03/03(木) 13:47:21.71

質問をさせていただきます。　理解ができないことがあります。
　まず、加工BOOK　と　マクロ保存BOOK　の二種類を使用しています。

加工BOOKにある複数のシートを連続して加工するときにネット情報で下記書き方を拾いました。
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
～色々な動作～
Next Ws
この「色々な動作」の中で
ThisWorkbook.Activate　’マクロ保存BOOKをアクティブ（シート指定セル指定してコピーを取ってます）
その後、Ws.Activate　と書き　上記保存した文字を指定したセルにペースト
これは問題なくペーストできています。
ただ、なぜうまくペーストできるのか理解ができていません。

理由はではこれをシート毎に連続ではなく一枚だけペーストにした場合
最初の　For Each Ws In Worksheets　と　Next Ws　を削除すればいいか？と思いやってみたのですが、エラーしか出ません。

てっきりWSという関数に加工BOOKの場所データが格納されていてWs.Activateを書けば加工BOOKに戻ってきていると思ったのですが、エラーとなると違っていたのか？と理解ができなくなりました。

加工BOOKのBOOK名とかが書ければいいのでしょうが、BOOK名（ファイル名）は不特定でやりたい。他人に渡すので環境が読めない。

最初にアクティブになっていたブックシート情報を関数に入れておけばよいと想像しているのですが、どうすればいいかとかわかっていません。
グダグダな質問でわかりにくいと思いますが、二つのＢＯＯＫを行き来して片方はマクロを作動させた時にアクティブだったシートって条件にしたいのです。

2022/03/03(木) 14:00:06.45

AvtIVeやらしてる時点で作者も大した事なさそう

2022/03/03(木) 14:13:34.66

>>284
For Each Ws In Worksheets
Ws.Activate
～色々な動作～
Next Ws
↓
sheets("ワークシート名").Activate

WSをWorksheet("ワークシート名")
に変える
あと、Ws.Activateはなるべくやめたほうがいい
PCが重くてアクティブなシートやブックが変わると、大惨事になる可能性がある

本当にやるならopenなどで対象ファイルを開き、戻り値をsetするのが理想

>>285
？？

2022/03/03(木) 14:19:57.38

>>286
ありがとうございます。
この”ワークシート名”が分からなくても動かしたいのです。
つまり、hogehoge.xlsx だったり zukozuko.xlsxだったりするので
最初にアクティブだったファイル（シート）に戻ってくる汎用性がほしい。

2022/03/03(木) 14:22:48.58

>>287
あぁ、じゃあ
ActiveSheet
でいいよ
ActiveSheet.Cells(1, 1) = 1
みたいな感じで使える

2022/03/03(木) 14:24:24.97

そういやブックを指定する時はopenでいいけど、
シート名が不定な時、シートを指定する方法ってないのか
一旦開いてinputboxにインデックスかシート名入れるぐらいしかないのだろうか

2022/03/03(木) 14:32:22.98

まずワークシートもワークブックもわかってない事から勉強したほうがよいのではないか
それとよくわからず何となく動いたものを他人に渡して大丈夫なのかと不安になるわ

2022/03/03(木) 14:43:43.44

あんまり大丈夫じゃないけど、そこまで言うのもねぇ

2022/03/03(木) 15:56:08.71

心配かけます
とりあえず、データは何回でもダウンロードできるのでいくら壊れても大丈夫です。
内輪の事務ですし
やはり、どんなファイル名（シート名）でもＯＫとなると難しいですかね
当然フルパスみたいに書くのが良いのはわかります。

2022/03/03(木) 16:16:41.04

加工されるワークブックにはワークシートは複数なの？それとも1つなの？
仮に先頭にあるワークシートであれば
Set Ws = Worksheets(1)
のような指定をすればいいだけだぞ
ワークシート名が決まった名前であれば
Set Ws = Worksheets("○○")
のような指定でもOK
どのシートが加工していいのかを判断できるなら当初のFor文で回しながらシートを特定してもいいかと思うが
ある程度のルールが決まった質問じゃないと漠然としすぎて回答する側もとまどうと思うぞ

2022/03/03(木) 17:11:57.48

>>284
>てっきりWSという関数に加工BOOKの場所データが格納されていて
Wsは関数じゃなくて変数
その変数に値をセットしていたのがFor文
>最初にアクティブになっていたブックシート情報を関数に入れておけばよいと想像しているのですが、どうすればいいかとかわかっていません。
Set Ws=ActiveSheet
かな。試してないけど
とりあえずForの代わりにこれで動くんじゃね

あまりにも基本がわかってない感があるなぁ

2022/03/03(木) 17:21:03.63

コピペしかしない人なんでしょ

2022/03/03(木) 18:46:16.06

>>294
はいすいません
関数は書き間違いです。変数ですよねｗ
ちょっと、脳が
Set Ws=ActiveSheet
で辻褄があいました。
最初の　For　Nextで全シートした場合も１シートだけやった場合もエラーが出ずに自分の脳みそも合致がいきました。
これを書いていないのに　Forで動かしたときに問題なかったので？？？状態になっておりました。
ありがとうございます。

**デフォルトの名無しさん** (ｽﾌｯ Sdea-SZxA) · 2022/03/03(木) 19:43:39.19

何ていうかVBAの言語より先にちゃんとした構文の日本語を学ぶ事をおすすめします

2022/03/03(木) 21:25:56.68

いやでも回答者さんの言うとおりだと思う。理屈や仕組み分からないまま使ったりしていたらいつかは大事故に繋がる。
過去にそういう事が身近であった。

2022/03/03(木) 21:46:06.24

何がきっかけで作ることになったか知らないけど
どうして動いてるかもわからずに作って少ししておかしいことに気づいてもすぐ直せなかったら評価悪くなると思うんだよね
自分の周りの出来事でなければ知ったことではないんだけどその辺は踏まえて作った方がいいよ

2022/03/03(木) 22:33:01.31

ID:KJVc8U50M の言い回しが技術サイトでありがちな英語かロシア語の機械翻訳文に似てて草

2022/03/05(土) 11:35:29.63

！！Private Sub Worksheet_Change（ByVal Target As Range）

Dim i As Long
For i ＝1 to 5
cells（i，4）＝DateValue（Cells（i，1）&" 年"&" 月"&Cells（i，2）&Cells（i，3）&"日"）
Next i
End Sub

上記記述して実際にｼーﾄに数字を入力すると型が一致しませんとｴﾗーになってしまいます
どうしていいのかわからずご教授していただければと
素人みたいな質問すいません

2022/03/05(土) 12:01:15.53

月の位置がおかしいから？w

2022/03/05(土) 12:21:43.22

こういうひとってデバッグの仕方とか知らないのかね？
Debug.Print(Cells（i，1）&" 年"&" 月"&Cells（i，2）&Cells（i，3）&"日")
のようなことをすればどんな値が指定されているかわかるんだからみればいいのに

＞素人みたいな質問すいません
素人でもこんな質問するかなという内容

2022/03/05(土) 12:21:43.61

>>301
とりあえず止まったときにイミディエイトウィンドウで
Debug.Print Cells（i，1）&" 年"&" 月"&Cells（i，2）&Cells（i，3）&"日"
ってやってみな

2022/03/05(土) 12:22:36.15

被ったわ…

2022/03/05(土) 12:39:47.23

そもそもVBAにする必要あるのかこれ？

2022/03/05(土) 12:51:19.12

>>301

Private Sub Worksheet_Change（ByVal Target As Range）
Dim i As Long
For i ＝1 to 5
cells（i，4）＝DateValue（Cells（i，1）&" 年"&　Cells（i，2）&"月"&Cells（i，3）&"日"）
Next i
End Sub

すいません!
月の位置が違いました
上記の記述でも型が一致しませんとエラーになってしまいます

2022/03/05(土) 13:08:57.00

=Date(A2, B2, ... え？それ以上はやめとけって？　はーい

2022/03/05(土) 13:15:31.27

その書き方だと少なくとも変更された際のイベントでDateValueを正しく動作させるには
1から5行目までの1から3列目までにそれぞれ年月日の値が保証されないと型が一致しないとでるけど
そういう状態が担保できてるの？
1行目の入力中でもその書き方だと2行目以降が空欄だと単なる「年月日」という値でDateValue実行してしまいますよ

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-OYGG) · 2022/03/05(土) 13:43:03.37

セルの中身が実はシリアル値でしたに一票

2022/03/05(土) 14:24:04.55

>>309
おっしゃるとおりだと
なんとなくわかっていたのですが
回避方法ありますか？

2022/03/05(土) 14:46:06.75

>>311
いずれかのセルが空欄や数字以外だったら4列目に空を設定
それ以外の場合のみDateValueとかでいいんじゃないの
ただ結果的に月日が不正な値(99月など)ならどうするとかそういうのも含めて自分で考えないとこの先やっていけないのでは

2022/03/05(土) 14:57:28.77

>>313
なるほど
参考になります
ググって見ます！
ありがとうございます！

2022/03/08(火) 11:28:41.82

すみません、質問です！
例えばA1セルに関数が入っていたとします
A1セルが空白かどうか(関数は入っています)をVBAのIF文で分岐したいですがうまく行きません
VBAでは空白を取得できているはずなんですが何故なんでしょう…
どなたか対応方法を教えてください

2022/03/08(火) 11:33:03.86

If Range("A1").Fomula = "" Then

2022/03/08(火) 11:33:45.29

あ、嘘。ごめん。間違えた。忘れて。

2022/03/08(火) 11:39:20.91

>>315
ありがとうございます
Formulaを設定すると関数をそのまま取得してしまいました
なので空白の時の分岐ができませんでした

2022/03/08(火) 11:41:01.62

大丈夫です！
ありがとうございますm(_ _)m

ご存じの方いらっしゃいましたらよろしくお願いします

2022/03/08(火) 12:20:48.22

普通にセルのValueなりTextなりを見ればいいんじゃないの？

2022/03/08(火) 12:37:16.79

>>314>>318
If Range("A1").value = "" Then

>>319
その普通を学習前の段階ぽい

2022/03/08(火) 13:18:52.50

空なのか空白なのか

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-6iqn) · 2022/03/08(火) 13:28:01.68

Trim(.Text)じゃないか？

>>321
数式が入ってたらEmptyにはならん

2022/03/08(火) 14:12:30.12

Empty と空文字列と空白は違うって話かと

2022/03/08(火) 19:12:34.37

前任者のシートで0を書式で空白にしてるのには参ったね
textプロパティを覚えるきっかけにはなったけど

2022/03/08(火) 19:25:23.65

文字列枠だけど書式は #
よくやるw

2022/03/11(金) 06:05:40.07

すみません、質問させてください。
VBAで自作したクラスのメソッドやプロパティの一覧を列挙するにはどうすれば宜しいでしょうか？
どのような自作したクラスでも使える汎用的なものを作成したいです。

2022/03/11(金) 07:32:33.79

すみません。
特定のセル内に有るリンクを抽出する方法は有りますか？

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-6iqn) · 2022/03/11(金) 08:32:32.67

>>326
VBAでは無理
ソースをエクスポートしてテキストファイルを処理するぐらいしかないと思う
VB.netならGetMembersってのがあるんだけど

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-6iqn) · 2022/03/11(金) 08:33:31.79

>>327
Hyperlink

2022/03/12(土) 01:24:13.27

>>328
なるほど、VBAでは無理なんですね。
以前、VB.Netの命令をVBAで走らせることが出来る場合があることをこのスレで聞いたことがあるような気がしましたので、
そちらとAPIで実装出来ないかを模索してみます。ありがとうございました。

2022/03/12(土) 03:38:02.55

オブジェクトブラウザがやってるけど、どうやってるんだろうな
>>328
エクスポートとかしなくても、VBEオブジェクト使えばコードのスキャンはできる
プロシジャ名の列挙だけでよければここの実行結果３がそうじゃね
https://excelwork.info/excel/codemoduleproperty/

2022/03/12(土) 08:17:43.49

>>331
後出しになってしまい申し訳ありません。
実は、実際にやりたかったことは
自作したEntityクラスのプロパティを
片っ端からGetして配列に入れ込み、
それをシートに展開すると言うことでした。

名前の列挙さえ取得できれば
後はリフレクションで呼び出せば可能と
考えていました。

おかげで実装の目処がつきました。
ありがとうございます。

2022/03/13(日) 02:21:31.96

どういう状況で使うんだろう
自分で作ったのに数が多すぎて覚えてないとか?

2022/03/13(日) 02:43:05.91

素人ですが質問させて下さい。

画像のような、1つのシートに20行単位の表で、連番と日付を上の表から取得するようなブックを作成しています。
表の順番を変えても、常に1つ上の表の番号+1、同じ日付としたいため、直接セルを参照せずこのような関数を使用しています。

式は、↓としています。
=INDIRECT(ADDRESS(ROW()-20,COLUMN()))

起動中は問題なく動作するのですが、ブックを閉じて再起動すると、起動時に必ず落ちてしまいます。(手動計算にすると開ける)

コピーを作成して、上記の式の部分だけ消すと問題なく起動します。

この場合、何が悪いのでしょうか。或いは代替手段があれば教えて頂けると助かります。

https://i.imgur.com/cVZnwnZ.jpg