よねさんのWordとExcelの小部屋 なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

[ 最新記事及び返信フォームをトピックトップへ ]

■13131 / inTopicNo.1)  型が一致しませんエラーの解決が分かりません
  
□投稿者/ 野田 Mail -(2017/01/10(Tue) 22:02:33)
    よねさん、こんばんわ。
    実行出来ていたマクロが急に型が一致しませんとメッセージが出るようになり
    全く分かりません。助けてください。
    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

    上記のないようです。上手く行っていたのですが

    毎度申し訳ありません。よろしくお願いいたします。
引用返信/返信 削除キー/
■13132 / inTopicNo.2)  Re[1]: 型が一致しませんエラーの解決が分かりません
□投稿者/ 野田 Mail -(2017/01/10(Tue) 22:24:57)
    よねさんへ
    申し訳ありません。解決いたしました。


    r = Cells(Rows.Count, 4).End(xlUp).Row
    を入れておきながら、先の表の下に表をくっつけていました。
    セルの範囲を指定することで解決しました。
    すみませんでした。


引用返信/返信 削除キー/



トピック内ページ移動 / << 0 >>

このトピックに書きこむ

Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -