Excel VBA質問箱 IV

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

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


14360 / 76734 ←次へ | 前へ→

【67870】Re:空白でない列番号を取得する
回答  UO3  - 11/1/14(金) 10:02 -

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

おはようございます

そうですか。式が入っているんですね。であれば

1. その式で、該当の週を判断しておられるわけですから、その式でやっている
  ロジックをVBAに取り込むのが1つの方法。
  おそらくは、B1〜Z1の各列の「意味」というか「定義」があるんですよね。
  きっと、現在の式では、その定義をベースに判断しているんだと思われます。
  たとえば、今日2011年1月14日の場合、B〜Z列(26週)のどこが該当の週?
  (逆に言えば、この時、B列は、いつの週の列?)
  この仕様がわかればそれをコード化すれば列を取得できます。

2. その仕様がわからない状態でコードを書くとすれば、「力技のループ?」で
  B1〜Z1をチェックし、値が空白ではないもの(あるいは値が日付けのもの)を
  ピックアップして、そのセルの列を取得することになります。

Option Explicit

Sub 力技ループ()
  Dim c As Range
  Dim col As Long
  
  For Each c In Range("B1:Z1")
    If IsDate(c.Value) Then
      col = c.Column
      Exit For
    End If
  Next
  If col = 0 Then
    MsgBox "日付けの入ったセルはありません"
  Else
    MsgBox "当該列番号は " & col & " です"
  End If
  
End Sub
5 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 回答

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