![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
いつもお世話になっております。
下記のコードで条件を付けることは可能でしょうか。
.SubItems(4) = wS.Range("F" & R).Value '生年月日
ここの部分で年齢が20歳以上
可能でしょうか。
わかる方おしえてくれませんでしょうか
With ListView1.ListItems.Add 'ListView1に1行追加
.Text = wS.Range("B" & R).Value 'チェックボックスにB列
.SubItems(1) = wS.Range("C" & R).Value '名前
.SubItems(2) = wS.Range("D" & R).Value '性別
.SubItems(3) = wS.Range("E" & R).Value '血液型
.SubItems(4) = wS.Range("F" & R).Value '生年月日
End With
End If
Next
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) リストボックス セルの値を取得する 1 2022/05/21 20:47
- Visual Basic(VBA) 今日の日付が過ぎたらその行を削除したい 1 2023/04/01 20:06
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) Worksheets メソッドは失敗しました。のエラー処理のやり方 4 2022/05/29 21:29
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAコードで教えて下さ...
-
フィルターかけた後、重複を除...
-
1、Rstudioで回帰直線を求める...
-
access2003 クエリSQL文に...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
Outlook VBAについて
-
VBA リストボックス(複数条件...
-
プレースホルダー
-
JANコードとPOSコードは同じ?
-
Access DCountでの連番について
-
Nullの使い方が不正です。
-
ACCESSユニオンクエリでORDER B...
-
アクセスで桁数を増やしたい
-
COBOLの文法
-
VB2005 RowFilterのパラメータ...
-
ペンダントライトのコードの色...
-
ユーザーフォームに2つのコン...
-
特定行の背景色を変えたいのですが
-
VBAでファイルオープン後にコー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
過剰なオブジェクト指向脳から...
-
1、Rstudioで回帰直線を求める...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
access2003 クエリSQL文に...
-
pythonにてseleniumを使うも、...
-
access2021 VBA メソッドまたは...
-
chatgptでつくってもらったコー...
-
パイソンプログラム
-
Gitのクローンについて
-
ExcelのVBAコードについて教え...
-
JANコードとPOSコードは同じ?
-
sinカーブの表示のさせ方
-
COBOLの文法
-
特定行の背景色を変えたいのですが
-
JavaScriptの定数名が取り消し...
-
アルファベットに付いて質問し...
-
◾️Excel VBA 統合について Cons...
-
変数名「cur」について
おすすめ情報
.SubItems(4) = wS.Range("F" & R).Value '生年月日
例えば
.SubItems(4) = もしも20歳以上なら、1だなければ2
wS.Range("F" & R).Value '生年月日
とかくにはどうしたよろしいでしょうか
すみません 質問がかわってしまい。