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

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

残業時間がいちばん多い従業員の情報を出力する。Max関数、Min関数より便利なマクロ

山本茂生さんの投稿

(投稿ID: 1021)

小川先生

　１問目は、最初、下のように、作りました。
　動画で、先に、①行Ｎｏを特定　して、後で、②該当のセル（Ｊ列）
に、ピンポイントで入れる、
という、お団子２個　作ることが、勉強になりました。

[Sub takai()]
[]
[ Dim dekai]
[ dekai = 0]
[　 Dim gyo]
[　　 For gyo = 2 To 11]
[　　 If dekai < Range("G" & gyo) Then]
[ dekai = Range("G" & gyo).Value]
[ 　　　Range("J" & gyo) = "最高点です"]
[　　　 Range("j2:H" & gyo - 1) = ""]
[ ]
[　　　　End If]
[ ]
[ Next]
[ ]
[/End Sub]

2015/01/13 18:54

ゲストさんのコメント

(コメントID: 2166)

ライスミルクさん:

いただいたコードだと、現時点での王者が入れ替わる都度、以下の２行が実行されます。
これがムダですね。ループを抜けたあとの１回だけにしたいです。

Range("J" & gyo) = "最高点です"
Range("j2:H" & gyo - 1) = ""

Sub takai()
    Dim dekai
    dekai = 0
     Dim gyo
      For gyo = 2 To 11
         If dekai < Range("G" & gyo) Then
             dekai = Range("G" & gyo).Value
            Range("J" & gyo) = "最高点です"
            Range("j2:H" & gyo - 1) = ""
        
        End If
       
      Next
    
End Sub

>小川先生
>
>　１問目は、最初、下のように、作りました。
>　動画で、先に、①行Ｎｏを特定　して、後で、②該当のセル（Ｊ列）
>に、ピンポイントで入れる、
>という、お団子２個　作ることが、勉強になりました。
>
>[Sub takai()]
>[]
>[ Dim dekai]
>[ dekai = 0]
>[　 Dim gyo]
>[　　 For gyo = 2 To 11]
>[　　 If dekai < Range("G" & gyo) Then]
>[ dekai = Range("G" & gyo).Value]
>[ 　　　Range("J" & gyo) = "最高点です"]
>[　　　 Range("j2:H" & gyo - 1) = ""]
>[ ]
>[　　　　End If]
>[ ]
>[ Next]
>[ ]
>[/End Sub]
>

2015/01/14 03:04

山本茂生さんのコメント

(コメントID: 2170)

小川先生

　ありがとうございます。
　はい、動画を拝見して、その分が余計だと分かりました。
（書いたり消したり）

>>という、お団子２個　作ることが、勉強になりました。
　現在、

＊お団子作る
　①　兄さんお団子：最高点を特定する
　②　次男お団子：　特定したところに、「最高点です」を入れる。

↓
箱の蓋
　兄さんお団子：最高点を特定する
箱のそこ
　次男お団子：　特定したところに、「最高点です」を入れる。

という　認識ですが、よろしいでしょうか。

>ライスミルクさん:
>
>いただいたコードだと、現時点での王者が入れ替わる都度、以下の２行が実行されます。
>これがムダですね。ループを抜けたあとの１回だけにしたいです。
>
> Range("J" & gyo) = "最高点です"
> Range("j2:H" & gyo - 1) = ""

>

Sub takai()
>    Dim dekai
>    dekai = 0
>     Dim gyo
>      For gyo = 2 To 11
>         If dekai < Range("G" & gyo) Then
>             dekai = Range("G" & gyo).Value
>            Range("J" & gyo) = "最高点です"
>            Range("j2:H" & gyo - 1) = ""
>        
>        End If
>       
>      Next
>    
>End Sub

>
>
>>小川先生
>>
>>　１問目は、最初、下のように、作りました。
>>　動画で、先に、①行Ｎｏを特定　して、後で、②該当のセル（Ｊ列）
>>に、ピンポイントで入れる、
>>という、お団子２個　作ることが、勉強になりました。
>>
>>[Sub takai()]
>>[]
>>[ Dim dekai]
>>[ dekai = 0]
>>[　 Dim gyo]
>>[　　 For gyo = 2 To 11]
>>[　　 If dekai < Range("G" & gyo) Then]
>>[ dekai = Range("G" & gyo).Value]
>>[ 　　　Range("J" & gyo) = "最高点です"]
>>[　　　 Range("j2:H" & gyo - 1) = ""]
>>[ ]
>>[　　　　End If]
>>[ ]
>>[ Next]
>>[ ]
>>[/End Sub]

2015/01/14 21:47

ゲストさんのコメント

(コメントID: 2174)

ライスミルクさん:

>＊お団子作る
>　①　兄さんお団子：最高点を特定する
>　②　次男お団子：　特定したところに、「最高点です」を入れる。

何を言っているのかもはやよく分からないですがw

工程をきちんと守って作業されているなら、大丈夫です。
「ハナコ」は僕のオリジナルのメタファです。
ご自身でご自由に解釈していただければとも。

>小川先生
>
>　ありがとうございます。
>　はい、動画を拝見して、その分が余計だと分かりました。
>（書いたり消したり）
>
>>>という、お団子２個　作ることが、勉強になりました。
>　現在、
>
>＊お団子作る
>　①　兄さんお団子：最高点を特定する
>　②　次男お団子：　特定したところに、「最高点です」を入れる。
>
>↓
>箱の蓋
>　兄さんお団子：最高点を特定する
>箱のそこ
>　次男お団子：　特定したところに、「最高点です」を入れる。
>
>という　認識ですが、よろしいでしょうか。
>
>>ライスミルクさん:
>>
>>いただいたコードだと、現時点での王者が入れ替わる都度、以下の２行が実行されます。
>>これがムダですね。ループを抜けたあとの１回だけにしたいです。
>>
>> Range("J" & gyo) = "最高点です"
>> Range("j2:H" & gyo - 1) = ""
>

Sub takai()
    Dim dekai
    dekai = 0
     Dim gyo
      For gyo = 2 To 11
         If dekai < Range("G" & gyo) Then
             dekai = Range("G" & gyo).Value
            Range("J" & gyo) = "最高点です"
            Range("j2:H" & gyo - 1) = ""
        
        End If
       
      Next
    
End Sub

>>
>>
>>>小川先生
>>>
>>>　１問目は、最初、下のように、作りました。
>>>　動画で、先に、①行Ｎｏを特定　して、後で、②該当のセル（Ｊ列）
>>>に、ピンポイントで入れる、
>>>という、お団子２個　作ることが、勉強になりました。
>>>
>>>[Sub takai()]
>>>[]
>>>[ Dim dekai]
>>>[ dekai = 0]
>>>[　 Dim gyo]
>>>[　　 For gyo = 2 To 11]
>>>[　　 If dekai < Range("G" & gyo) Then]
>>>[ dekai = Range("G" & gyo).Value]
>>>[ 　　　Range("J" & gyo) = "最高点です"]
>>>[　　　 Range("j2:H" & gyo - 1) = ""]
>>>[ ]
>>>[　　　　End If]
>>>[ ]
>>>[ Next]
>>>[ ]
>>>[/End Sub]
>

2015/01/15 21:30