VBAについて教えて下さい

質問

ＶＢＡを勉強中しております。詳しい方にお尋ね致します。ＢシートのP1、Q1を参照して、Ａシートの該当セルに貼り付けるコードになります。

If Len(.Cells(i, P1)) > 0 Then
Sheets("Ａ").Cells(14, 2) = .Cells(i, P1)
Sheets("Ａ").Cells(14, 4) = .Cells(i, Q1)
j = j + 1

Q1には数値が入るのですが、この数値が500未満である場合とそうでない場合で表示を変えたいのですが、どのように書いたらいいでしょうか。

Ａシートのセルは（14,4）（14,3）（14.4）に以下の処理を反映させたいです。
=IF(q1<500,"＜",ROUND(A1/(10^(LEN(A1)-1)),1))
=IF(q1<500,"500","○")
=IF(q1<500,"",LEN(A1)-1)

よろしくお願い致します。

回答No.1

kon555

「if　～～　then　～～」という形の、条件分岐を使用します。
　ただ勉強中というなら、直接答えを書くより参考になるサイトの紹介に留めた方がいいかと思うので、そのようにします。
https://tonari-it.com/if-then/
https://akira55.com/ifthen/
https://programming-study.com/technology/vba-if/

　if文を勉強する上のアドバイスですが、目的とする条件分岐と動作をいきなり実現しようとするのはちょっとハードルが高いと思います。
　なので、まずは「数値が500未満の時に『500未満です』とメッセージボックスを出す」などの、最低限の条件分岐判定をマスターする事を目指し、続いて判定後の動作を作り込む、といったように順を追って複雑化させていく方が実現しやすく、また理解も早いと思います。