Excel VBA質問箱 IV

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

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


48231 / 76737 ←次へ | 前へ→

【33442】空欄のセルの参照方法
質問  鐘本政和 E-MAIL  - 06/1/12(木) 10:07 -

引用なし
パスワード
   Excel表の有効データ範囲を自動的に求め、最大値を求めてからデータ処理をするアプリを作成しています。NULデータを見つけ境界を探しましたが、ゼロの値のあるときはそこが境界と認識してしまいます。
UsedRangeを使うと文字列の形で配列の範囲が与えられましたが、配列のインデックス値を使いたい処理では使いにくいところがあります。
Excelの空欄を参照するのにNothingを使うという説明を見つけましたので、これを使ってみました。下記はSAMPLE.xlsのセルの有効範囲を求め、この中の最大値を求めるためのプログラム例です。
しかし、ゼロのデータが含まれていると空欄とみなしてしまい、うまく有効データ範囲が求められません。
何か良い方法があればご教示ください。

 Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet

    Dim Line, Column As Integer
    Dim j, k, max, value, rate, L, C, Lmax, Cmax As Integer

    xlApp = CreateObject("Excel.Application")
    xlBook = xlApp.Workbooks.Open("C:\VB.NET\SAMPLE.xls") ' Excel ファイルのオープン")

    xlApp.Application.Visible = True    'Excel を表示する。
    xlApp.Parent.Windows(1).Visible = True
    xlSheet = xlBook.Worksheets("Sheet1")

    L = 1
    C = 1
    Lmax = 0
    Cmax = 0
    max = 0

    Do
      If xlSheet.Cells(L, C).value = Nothing Then
        If C = 1 Then
          Lmax = L
          Exit Do
        End If
        Cmax = C
        L = L + 1
        C = 1
      Else
        If xlSheet.Cells(L, C).value > max Then
          max = xlSheet.Cells(L, C).value
        End If
        C = C + 1
      End If
    Loop

0 hits

【33442】空欄のセルの参照方法 鐘本政和 06/1/12(木) 10:07 質問
【33446】Re:空欄のセルの参照方法 Jaka 06/1/12(木) 10:42 回答
【33450】Re:空欄のセルの参照方法 鐘本政和 06/1/12(木) 12:08 お礼
【33453】Re:空欄のセルの参照方法 Jaka 06/1/12(木) 12:33 発言
【33455】Re:空欄のセルの参照方法 鐘本政和 06/1/12(木) 12:56 お礼
【33456】Re:空欄のセルの参照方法 こたつねこ 06/1/12(木) 13:00 発言
【33461】Re:空欄のセルの参照方法 鐘本政和 06/1/12(木) 14:59 お礼
【33464】Re:空欄のセルの参照方法 鐘本政和 06/1/12(木) 15:33 発言
【33465】Re:空欄のセルの参照方法 鐘本政和 06/1/12(木) 15:36 発言
【33466】Re:空欄のセルの参照方法 こたつねこ 06/1/12(木) 15:43 発言
【33469】Re:空欄のセルの参照方法 鐘本政和 06/1/12(木) 16:05 回答
【33473】Re:空欄のセルの参照方法 Jaka 06/1/12(木) 16:38 発言
【33474】Re:空欄のセルの参照方法 こたつねこ 06/1/12(木) 16:40 発言
【33482】Re:空欄のセルの参照方法 鐘本政和 06/1/12(木) 17:30 お礼
【33476】Re:空欄のセルの参照方法 小僧 06/1/12(木) 17:05 発言

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