Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4717 / 76732

←次へ　｜　前へ→


	【77631】Re:VBA初心者

ウッシ - 15/11/12(木) 14:32 -


	引用なし

	パスワード

こんにちは

英文を最初に記載しておいた方が良かったですね。

βさんも書かれていますが、引数「row」の意味が分かりにくいですが、

「with data」という表現からすると、1000行目、1列という意味で指定する
ような意味合いではないでしょうか？

つまり判定範囲がセルA1～A1000という。

一般的に最終行は下から探すので、シートの最大行数を使います。

課題としてはsubからfunctionを呼び出せとなっているので、

Sub test_sub()
'1列目の1000行目から調べて最初の値の行を表示する
　　MsgBox test_function(1000, 1)
End Sub
Function test_function(r As Long, c As Long) As Variant
　　Dim i As Long
　　test_function = ""
　　For i = r To 1 Step -1
　　　　If Cells(i, c) <> "" Then
　　　　　　test_function = i
　　　　　　Exit For
　　　　End If
　　Next
End Function

と答えた方がいいでしょうね。

但し、rowを指定する意味は教授に確認した方がいいと思います。

0 hits

▼

【77623】VBA初心者 井上 15/11/12(木) 7:34