|
▼ケイ さん:
おはようございます
そうですか。式が入っているんですね。であれば
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
|
|