| |
▼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
私は、ＶＢＡで数式を使用することは、EXCEL/VBAならではの手法だと
思っていますし、このサイトのご質問を利用して
この事象では、有効な方法か否かを数式を使用したコードを投稿する
事により、色々と試させてもらっています。
今回の場合は、まあまあの使用方法だと思いましたが・・・。
|
|
ichinose
- 05/7/17(日) 7:11 -
