| よねさん、こんばんわ。 実行出来ていたマクロが急に型が一致しませんとメッセージが出るようになり 全く分かりません。助けてください。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim i As Long Dim t As Long Dim r As Long
r = Cells(Rows.Count, 4).End(xlUp).Row For i = 5 To r Step 2 Cells(i, 9).Value = (Cells(i + 1, 3).Value * Cells(i, 4).Value) * 100 + Cells(i - 2, 9).Value Cells(i, 5).Value = Cells(i, 4).Value + Cells(i - 2, 5).Value Cells(i, 7).Value = Cells(i, 6).Value + Cells(i - 2, 7).Value Next i For t = 6 To r Step 2 If Cells(t, 4).Value <> "" Then Cells(t, 9).Value = (Cells(t, 3).Value * Cells(t, 4).Value) * 100 + Cells(t - 3, 9).Value Else Cells(t, 4).Value = "" Exit Sub
End If
Next t End Sub 桝 桝種類 管種 距離 追加 距離 追加 GL± 掘削深 NO 桝内径 勾配 (中心) 距離 (桝間) 距離 1 "45L φ150" VU-100 0 0 4..9 0 470 0.02 2 "90L φ150" VU-100 5 5 5 5 0 480 0.02 5 5 0 3 "90L φ150" VU-100 8 13 8 13 496 0.02 5 10 0 4 "90L φ150" VU-100 4 17 3 16 503 0.02 10 0 5 "45Y φ200" VU-100 3 19 2 18 508 0.02 10 0 6 "90L φ200" VU-100 3 22 3 21 515 0.02 10 0 7 "45Y φ200" 22 21 515 上記のないようです。上手く行っていたのですが
毎度申し訳ありません。よろしくお願いいたします。
|