VBAでセルの値(時間)左辺=絶対参照 から引き算でセルの値(時間)右辺=は、セルの位置が下へ1つずつ下がり、
答えのセルも右辺と同じ行の違う列に表示し、右辺の値が最終行になるまで、繰り返すコードの質門。
どなたか、お教えください。お願いします。
Dim T1 As Date
Dim T2 As Date
Dim T3 As Date
T1 = Cells(2, 5) 'E2 左辺の時間 固定(絶対参照?)
T2 = Cells(3, 5) 'E3 右辺の時間 E4, E5, E6 と下へ一つずつ移動し途中に - - (ハイフン2つ)とかのセルがありますが、右辺の値がなくなるまで移動させたいです。
T3 = T1 - T2
Cells(3, 7) = T3 'G3 答えを表示するセル。これも、T2(右辺)と同じ行なので、G3,G4,G5と下へ一つずつ値がなくなるまで移動させたいです。
わかんなくて、困ってます。おできになられる方、VBAのサンプルをお教えください。お願い致します。
No.2ベストアンサー
- 回答日時:
No.1です。
「--」で止まらないようにするため、
「If IsNumeric(Cells(i, 5)) Then」という条件をつけているわけです。
これにより、E列で数値以外のセルに当たった時には計算をスキップさせます。
Do Loopだと動かないということではありません。
私の書いたコードでもこのIf節を使えばちゃんと動きます。
その点は私の理解不足でしたのでごめんなさい。
いえいえ、お詫びするのは、こちらの方で、No.1様は、あやまらないでください。
お教え頂きました通り、Do Loop でも、もし、セルの値が数値なら、とIsNumeric 節を入れたら、
動きました。大変勉強になりました。どうも有難うございます。
今後共、宜しくお願い致します。
No.1
- 回答日時:
関数でやるとするとこういうことでしょうか。
G3=$E$2-E3
G4=$E$2-E4
で、Gx=0になるまで繰り返し処理したいと。
E3以下はあらかじめ入力してあるとしたらこんな感じでしょうか。
Dim i As Integer
i = 2
Do
i = i + 1
Cells(i, 7)=Cells(2, 5).Value-Cells(i, 5).Value
Loop While Cells(i, 7)>0
ご回答有難うございました。Do Loop ですと、セル値が - - のセルの前で止まってしまいました。
ヤフー知恵袋のカテゴリマスター様から、下記の回答をいただきまして、動きました。どうして、下記のコードだと、- - を飛ばして、下の行からまた、表示されるのか、ワタスには、わかりません。もし、おわかりになれば、お教えください。
Dim i As Integer
For i = 3 To Cells(Rows.Count, 5).End(xlUp).Row
If IsNumeric(Cells(i, 5)) Then
Cells(i, 7) = Format(Cells(2, 5) - Cells(i, 5), "h:mm")
End If
Next
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) A2セルの値が「100021_りんご01青森県」からInStrで「りんご」を抽出したい。 セルの値が 5 2022/08/15 09:42
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- 宇宙科学・天文学・天気 銀河のハビタブルゾーンを確率的セルオートマトンという数値的にシミュレーションした結果、「群島」の様な 2 2023/06/06 23:10
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Vba 実数および実数タイプの変...
-
Excelのマクロについて教えてく...
-
VBA レジストリの値の読み方に...
-
Excel VBA 定義されたプロージ...
-
Excel マクロについての相談
-
エクセルVBAについて
-
Vba SelStart、SelLen教えてく...
-
エクセルの合計を自動で表示さ...
-
Excelのマクロでワードのテキス...
-
Excelについて
-
2つのマクロでチェックボックス...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBAの質問になります Userform内で
-
VBA listBoxから
-
VBAで各列の"+"と"o"の合計数を...
-
VBA初心者 Ctrl+での操作、ボタ...
-
VBA 複数条件の分岐処理の上手...
-
VB.net(VB)で、フォームにExcel...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
【VBA】マクロの入ったファイル...
-
VBA 複数条件の分岐処理の上手...
-
現在のブックを閉じないで、マ...
-
VBAで各列の"+"と"o"の合計数を...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ユーザーフォームに別シートか...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロについて教え...
-
VBA listBoxから
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
おすすめ情報