[過去ﾛｸﾞ] Excel VBA 質問スレ Part80 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

236(4): 2023/12/04(月)16:43 ID:Nbpgvbo/(2/3)調 AAS
質問パクったわけではないですが確かに似てますね
省略しないと以下になります
処理の内容は同じです

■うまくいく方

For Each rng In Range(Cells(3, 7), Cells(m, n))
If rng.Column <> 9 Then
If rng.Value = "-" Then
dataEx.Cells(j, i) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(rng.Row, 3).Value
dataEx.Cells(j, i + 1) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(2, rng.Column).Value
j = j + 1
End If
End If
-----------------------------------------------------------------
■すべてスキップされてしまう方

For Each rng In Range(Cells(3, 7), Cells(m, n))
If rng.Column = 9 Then
GoTo skipCol
If rng.Value = "-" Then
dataEx.Cells(j, i) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(rng.Row, 3).Value
dataEx.Cells(j, i + 1) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(2, rng.Column).Value
j = j + 1
End If
skipCol:
End If

---

238: 2023/12/04(月)17:25 ID:IJgpRS5M(1)調 AAS
>>236
馬鹿はGotoを使う法則
こんなこと瞬時にわからん頭ならやめとけ

---

239: 2023/12/04(月)20:44 ID:iY+/6ufA(1)調 AAS
>>236
落ち着いてよく考えてみ

---

248: 2023/12/05(火)20:07 ID:R0TA+AvY(1)調 AAS
>>236
自分でステップ実行してどのように処理されているか確認してみては。本当に分からないならif文の仕組みを勉強するところから始める必要があるかと。

---

249(1): 2023/12/06(水)23:52 ID:Y0R/nynM(1)調 AAS
>>236って
ここに張り付けたからインデント消えているのか？
実際のコードもインデントなしで書いてそうだな

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.413s*