Excel VBA質問箱 IV

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

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


14358 / 76734 ←次へ | 前へ→

【67872】Re:空白でない列番号を取得する
お礼  ケイ E-MAIL  - 11/1/14(金) 10:59 -

引用なし
パスワード
   ▼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
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 回答

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