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
0 hits

【33742】条件によってセルの連結を変えたいのです... さちきょん 06/1/19(木) 19:31 質問
【33743】Re:条件によってセルの連結を変えたいので... Statis 06/1/19(木) 19:43 発言
【33745】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 20:12 発言
【33747】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 20:29 発言
【33749】Re:条件によってセルの連結を変えたいので... Statis 06/1/19(木) 21:15 回答
【33750】Re:条件によってセルの連結を変えたいので... Statis 06/1/19(木) 21:24 発言
【33752】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 21:30 発言
【33754】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 21:44 発言
【33755】Re:条件によってセルの連結を変えたいので... こたつねこ 06/1/19(木) 21:46 回答
【33757】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 21:57 発言
【33758】Re:条件によってセルの連結を変えたいので... こたつねこ 06/1/19(木) 22:03 回答
【33759】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 22:14 発言
【33760】Re:条件によってセルの連結を変えたいので... こたつねこ 06/1/19(木) 22:28 発言
【33763】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 22:51 お礼

47935 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free