質問です。 migi=migi+1でないといけないのでしょうか?覚えたらよいのでしょうが、あの場所にこの入力は発想がつかず、応用が利かないのではないか心配です。 下記でも行けるのではないかと思いやってみたら、最初の1行の部分だけが繰り返されてうまくゆきませんでした。 Sub koriha() Dim hidari Dim migi For hidari = 8 To 17 For migi = 5 To 14 If Range("c"&hidari).Value > 100 Then Range("f" & migi).Value = Range("a" & hidari).Value Range("g" & migi).Value = Range("b" & hidari).Value Range("h" & migi).Value = Range("c" & hidari).Value End If Next Next End Sub
虫谷吉男さんの投稿
(投稿ID: 1483)
migi=migi+1でないといけないのでしょうか?覚えたらよいのでしょうが、あの場所にこの入力は発想がつかず、応用が利かないのではないか心配です。
下記でも行けるのではないかと思いやってみたら、最初の1行の部分だけが繰り返されてうまくゆきませんでした。
Sub koriha()
Dim hidari
Dim migi
For hidari = 8 To 17
For migi = 5 To 14
If Range("c"&hidari).Value > 100 Then
Range("f" & migi).Value = Range("a" & hidari).Value
Range("g" & migi).Value = Range("b" & hidari).Value
Range("h" & migi).Value = Range("c" & hidari).Value
End If
Next
Next
End Sub
ゲストさんのコメント
(コメントID: 2707)
うまくいかないなら、僕がお伝えしたやりかたをまず鵜呑みにして覚えてください。
> あの場所にこの入力は発想がつかず、応用が利かないのではないか心配です。
パターンはそんなにありません。
無駄なことはいっさい教えていませんので、必要な知識と思ってあきらめて、身体が勝手にやってくれるまで練習してください。
以下の質問には、僕のお伝えしたやり方でできるようになってから改めて質問していただければ、回答します。
でも、そのころには、この質問自体バカバカしく感じられることでしょうが。
>質問です。
>migi=migi+1でないといけないのでしょうか?覚えたらよいのでしょうが、あの場所にこの入力は発想がつかず、応用が利かないのではないか心配です。
>下記でも行けるのではないかと思いやってみたら、最初の1行の部分だけが繰り返されてうまくゆきませんでした。
>Sub koriha()
>Dim hidari
>Dim migi
> For hidari = 8 To 17
> For migi = 5 To 14
> If Range("c"&hidari).Value > 100 Then
> Range("f" & migi).Value = Range("a" & hidari).Value
> Range("g" & migi).Value = Range("b" & hidari).Value
> Range("h" & migi).Value = Range("c" & hidari).Value
> End If
> Next
> Next
>End Sub