|
▼nossori さん:
おはようございます。
>
>それから、ichinoseさんのこのコードは難しく理解できません。
>どのような意味なのでしょうか?小生の質問の仕方が問題ありでしたでしょうか?
まず、実行した結果はどうだったのでしょうか?
nossoriさんが意図した結果が出ているのですか?
(これが確定して解説という流れですよね?)
>
>>
>>'=========================================================
>>Sub test()
>> Dim maxrow As Long
>> With Range("e16:e100")
>> maxrow = Evaluate("=MAX(IF(" & .Address & "<>"""",ROW(" & .Address & ")))")
msgbox "=MAX(IF(" & .Address & "<>"""",ROW(" & .Address & ")))"
' ↑これを追加して、この数式がどんな結果を返す数式なのか考えてみてください
>> End With
>> If maxrow > 0 Then
>> Range("z12").Value = Range("e" & maxrow).Value
>> Else
>> MsgBox "該当なし"
>> End If
>>End Sub
私は、VBAで数式を使用することは、EXCEL/VBAならではの手法だと
思っていますし、このサイトのご質問を利用して
この事象では、有効な方法か否かを数式を使用したコードを投稿する
事により、色々と試させてもらっています。
今回の場合は、まあまあの使用方法だと思いましたが・・・。
|
|