Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

47935 / 76732

←次へ　｜　前へ→


	【33742】条件によってセルの連結を変えたいのです...

さちきょん - 06/1/19(木) 19:31 -


	引用なし

	パスワード

マクロ超初心者です。
本とネットで調べながら、作ってみたのですが、
行が変わっても、繰り返し処理ができません。

g = Range("G8")のように指定してしまっているからだと
思うのですが、どうやったら繰り返しになるのか
わかりません。
また、各数値が0の場合は、数値の前後の"S/"　","も
表示したくないのですが、できますか？

どうぞよろしくお願いいたします。

Sub セル統合()

g = Range("G8")
i = Range("I8")
k = Range("K8")
m = Range("M8")
o = Range("O8")
q = Range("Q8")
s = Range("S8")
u = Range("U8")

For v = 8 To 77

t = Cells(v, 5)

If t = "A" Then
Cells(v, 24) = "S/" & g & "," & "M/" & i & "," & "L/" & k & "," & "O/" & m & "," & "XO/" & o & ","

Else
If t = "B" Then
Cells(v, 24) = "M/" & i & "," & "L/" & k & "," & "O/" & m & ","
Else
If t = "C" Then
Cells(v, 24) = "フリー/"&q
Else
If t = "D" Then
Cells(v, 24) = "25-27cm/"&s
Else
If t = "E" Then
Cells(v, 24) = "サイズなし/"&u
Else
If t = "F" Then
Cells(v, 24) = "S/" & g & "," & "M/" & i & "," & "L/" & k & "," & "O/" & m & ","

End If
End If
End If
End If
End If
End If

Next v

End Sub

1 hits

▼

【33742】条件によってセルの連結を変えたいのです... さちきょん 06/1/19(木) 19:31

≪