よねさんのWordとExcelの小部屋 なんでも掲示板
HOME
HELP
新規作成
新着記事
ツリー表示
トピック表示
検索
過去ログ
[
親記事をトピックトップへ
]
このトピックに書きこむ
入力内容にタグは利用可能です。
他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
メールアドレスには自動でNo-の文字が挿入されます。メール収集対策。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
使用例)
No123 → 記事No123の記事リンクになります(指定表示)。
No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
No123-130 → 記事No123〜130 の記事リンクになります(連続表示)。
Name
/
E-Mail
/
Title
/
URL
/
Comment/ 通常モード->
図表モード->
(適当に改行して下さい/半角10000文字以内)
■No13131に返信(野田さんの記事) > よねさん、こんばんわ。 > 実行出来ていたマクロが急に型が一致しませんとメッセージが出るようになり > 全く分かりません。助けてください。 > 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 > > 上記のないようです。上手く行っていたのですが > > 毎度申し訳ありません。よろしくお願いいたします。
削除キー
/
(半角8文字以内)
ガード用キー(必須)
/
1357と半角で入力
プレビュー/
[ トピック内全2記事(1-2 表示) ] <<
0
>>
■13132
/ inTopicNo.1)
Re[1]: 型が一致しませんエラーの解決が分かりません
▼
■
□投稿者/ 野田
Mail
-(2017/01/10(Tue) 22:24:57)
よねさんへ
申し訳ありません。解決いたしました。
r = Cells(Rows.Count, 4).End(xlUp).Row
を入れておきながら、先の表の下に表をくっつけていました。
セルの範囲を指定することで解決しました。
すみませんでした。
引用返信
/
返信
削除キー/
編集
削除
■13131
/ inTopicNo.2)
型が一致しませんエラーの解決が分かりません
▲
▼
■
□投稿者/ 野田
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
上記のないようです。上手く行っていたのですが
毎度申し訳ありません。よろしくお願いいたします。
引用返信
/
返信
削除キー/
編集
削除
このトピックをツリーで一括表示
トピック内ページ移動 / <<
0
>>
Pass/
HOME
HELP
新規作成
新着記事
ツリー表示
トピック表示
検索
過去ログ
-
Child Tree
-