| |
▼ケイ さん：
おはようございます
そうですか。式が入っているんですね。であれば
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
|
|
UO3
- 11/1/14(金) 10:02 -
