| 
    
     |  | ▼Jaka さん: >こんにちは。
 >パッと見ですが
 >>Left(Cells(R, 2), 4) <> "2004"
 >これって、日付の年号ですか?
 >日付だとしたら、表示形式で日付としているのでしょうか?
 
 はい、そのとおりです。
 
 >グラフって、コードだけ提示されても非常に解りにくいです。
 >出来たら、グラフに使ったデータなども記載してくれると、再現しやすいし回答者にも伝わりやすいと思うんですけど....。
 >回答者にコード読んで、自分でデータ作くれっていわれてもねぇ!
 
 説明が下手で、すみません。
 本当に必要な個所だけ抜き出したほうがよかったですね。
 Cells(R, C).Value = FormInput.TextKora
 Cells(R, C + 1).Value = FormInput.TextZencyo
 Selection.NumberFormatLocal = "0"
 Cells(R, C + 2).Value = FormInput.TextWeight
 Selection.NumberFormatLocal = "0"
 Cells(R, C + 3).Value = FormInput.TextComment
 Selection.NumberFormatLocal = "0"
 ↑↑ここだけみてもらったほうがわかりやすかったでしょうか?
 
 簡単なモジュールを作れば誤解されなくてよかったですね。ごめんなさい。
 
 |  |