|
▼UO3 さん:
ありがとうございました。
やりたかったことができています。
こんなにシンプルに書くだけでできてしまうんですね。
まだまだVBAの初級のため、勉強していきたいと思います。
どうもありがとうございました。
>▼ケイ さん:
>
>おはようございます
>
>そうですか。式が入っているんですね。であれば
>
>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
|
|