5倍速!メールマガジン
外部アカウントで登録
受講生の声
新着の講座投稿
新着の講座コメント
新着のノート投稿
投稿一覧へ新着のノートコメント
表示できる投稿はありません。
サイト運営者紹介
小川 慶一講師/教材/システム開発者紹介
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
表示できる投稿はありません。
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
虫谷吉男さんの投稿
(投稿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