Excel VBA質問箱 IV

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

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


14371 / 76738 ←次へ | 前へ→

【67863】Re:空白でない列番号を取得する
回答  UO3  - 11/1/13(木) 18:17 -

引用なし
パスワード
   ▼ケイ さん:

とりあえず1列にのみ値(計算式ではない)があり、その他の列は、本当の空白
という条件付で、以下をアップしておきます。

Option Explicit

Sub Sample()
  Dim c As Range
  On Error Resume Next
  Set c = Range("B1:Z1").SpecialCells(xlCellTypeConstants)
  On Error GoTo 0
  If Not c Is Nothing Then
    If c.Count > 1 Then
      MsgBox "2ヶ所以上に値が入っています"
    Else
      MsgBox "値がある列番号は " & c.Column & " です"
    End If
  Else
    MsgBox "値の入った列はありません"
  End If
  Set c = Nothing
End Sub

0 hits

【67861】空白でない列番号を取得する ケイ 11/1/13(木) 17:34 質問
【67862】Re:空白でない列番号を取得する UO3 11/1/13(木) 18:03 発言
【67864】Re:空白でない列番号を取得する ケイ 11/1/13(木) 19:27 質問
【67870】Re:空白でない列番号を取得する UO3 11/1/14(金) 10:02 回答
【67872】Re:空白でない列番号を取得する ケイ 11/1/14(金) 10:59 お礼
【67863】Re:空白でない列番号を取得する UO3 11/1/13(木) 18:17 回答

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