タイトルのとおり、
サファイアのIDを“31121”にするコード
を教えてください。

VBAコードではIDを変更するコードを見かけたんですが
よく分からなくて;;

なのでPARのコードだと幸いです*