Excel VBA質問箱 IV

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

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


4720 / 76735 ←次へ | 前へ→

【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 質問[未読]
【77624】Re:VBA初心者 ウッシ 15/11/12(木) 9:10 質問[未読]
【77625】Re:VBA初心者 井上 15/11/12(木) 9:29 発言[未読]
【77626】Re:VBA初心者 β 15/11/12(木) 10:30 発言[未読]
【77627】Re:VBA初心者 ウッシ 15/11/12(木) 11:26 回答[未読]
【77628】Re:VBA初心者 井上 15/11/12(木) 12:49 お礼[未読]
【77631】Re:VBA初心者 ウッシ 15/11/12(木) 14:32 回答[未読]
【77632】Re:VBA初心者 ウッシ 15/11/12(木) 14:37 発言[未読]
【77629】Re:VBA初心者 井上 15/11/12(木) 12:52 お礼[未読]
【77630】Re:VBA初心者 β 15/11/12(木) 14:13 発言[未読]

4720 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free