レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

受講生さんの投稿

(投稿ID: 923)

Findメソッドを使用して書いてみました。
コードがうまく表示されるか、テストも兼ねています。

Sub Sample5() 
    Dim i As Long, FoundCell As Range
    For i = 4 To 15
        Set FoundCell = Range("A4:A29").Find(what:=Cells(i, "E").Value)
        If Not FoundCell Is Nothing Then
            FoundCell.Offset(0, 2).Value = Cells(i, "F").Value
        End If
    Next i
End Sub

2014/12/02 09:27

ゲストさんのコメント

(コメントID: 2051)

匿名さん:

すっきりしていますね。
Cells(i, "E") のところは、僕なら Range("E" & i) と書くかな。Rangeで表記を統一したいので。

>Findメソッドを使用して書いてみました。
>コードがうまく表示されるか、テストも兼ねています。
>

>Sub Sample5() 
>    Dim i As Long, FoundCell As Range
>    For i = 4 To 15
>        Set FoundCell = Range("A4:A29").Find(what:=Cells(i, "E").Value)
>        If Not FoundCell Is Nothing Then
>            FoundCell.Offset(0, 2).Value = Cells(i, "F").Value
>        End If
>    Next i
>End Sub
>

2014/12/03 11:21

森則彦さんのコメント

(コメントID: 2744)

受講生さん:

>Findメソッドを使用して書いてみました。
>コードがうまく表示されるか、テストも兼ねています。
>

>Sub Sample5() 
>    Dim i As Long, FoundCell As Range
>    For i = 4 To 15
　　　　 debug.print FoundCell
>        Set FoundCell = Range("A4:A29").Find(what:=Cells(i, "E").Value)
>        If Not FoundCell Is Nothing Then
>            FoundCell.Offset(0, 2).Value = Cells(i, "F").Value
>        End If
>    Next i
>End Sub
>

>

匿名さんのコードにデバッグ　FoundCell　をかけてみました
内容は意外でした
セルe4～e15の値でした。不思議？

2015/07/13 08:41

ゲストさんのコメント

(コメントID: 2757)

森則彦さん:

感想でしょうか？質問でしょうか？？

>受講生さん:
>
>>Findメソッドを使用して書いてみました。
>>コードがうまく表示されるか、テストも兼ねています。
>>

>>Sub Sample5() 
>>    Dim i As Long, FoundCell As Range
>>    For i = 4 To 15
>　　　　 debug.print FoundCell
>>        Set FoundCell = Range("A4:A29").Find(what:=Cells(i, "E").Value)
>>        If Not FoundCell Is Nothing Then
>>            FoundCell.Offset(0, 2).Value = Cells(i, "F").Value
>>        End If
>>    Next i
>>End Sub
>>

>>
>
>匿名さんのコードにデバッグ　FoundCell　をかけてみました
>内容は意外でした
>セルe4～e15の値でした。不思議？
>

2015/07/15 22:09