\u5ca1\u4e09RSS\u3067\u81ea\u52d5\u58f2\u8cb7\u3092\u4f5c\u308a\u305f\u3044\u65b9<\/p>\n<\/div><\/div>\n\n\n\n
\u5ca1\u4e09RSS\u3067\u571f\u65e5\u795d\u65e5\uff08\u30de\u30fc\u30b1\u30c3\u30c8\u306e\u4f11\u65e5\uff09\u3092\u81ea\u52d5\u5224\u5b9a\u3055\u305b\u308b\u306b\u306f\u6b21\u306e\u65b9\u6cd5\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n
\u30d1\u30bd\u30b3\u30f3\u3092\u81ea\u52d5\u8d77\u52d5\u8a2d\u5b9a\u306b\u3057\u3066\u304a\u3044\u305f\u5834\u5408\u306b\u3001\u571f\u65e5\u795d\u65e5\u306b\u6ce8\u6587\u304c\u5165\u3063\u3066\u3057\u307e\u3044\u7fcc\u55b6\u696d\u65e5\u306e\u5bc4\u308a\u4ed8\u304d\u3067\u6ce8\u6587\u304c\u5b9f\u884c\u3055\u308c\u3066\u3057\u307e\u3046\u30b1\u30fc\u30b9\u304c\u3042\u308b\u304b\u3089\u3067\u3059\u3002<\/p>\n\n\n\n
\u203b\u4f55\u6545\u304b\u6ce8\u6587\u306e\u6709\u52b9\u671f\u9593\u3092\u300c\u5f53\u30bb\u30c3\u30b7\u30e7\u30f3\u306e\u307f\u300d\u306b\u3057\u3066\u304a\u3044\u3066\u3082\u53d6\u6d88\u3057\u3055\u308c\u306a\u3044\u3053\u3068\u304c\u3042\u308b<\/p>\n\n\n\n
\u203bFQUOTE\u95a2\u6570\u3067\u201c\u30d5\u30e9\u30b0\u201d\u3092\u53d6\u5f97\u3067\u304d\u308b\u304c\u571f\u65e5\u795d\u65e5\u306f\u53d6\u5f97\u3067\u304d\u306a\u3044<\/p>\n\n\n\n
\u79c1\u306e\u5834\u5408\u306f\u6b21\u306e\u3088\u3046\u306b\u3057\u3066\u3044\u307e\u3059<\/p>\n\n\n\n
\uff3b\u4f8b\u3015<\/p>\n\n\n\n
Dim sht_Boc As Worksheet
Set sht_Boc = Worksheets(\"Boctok\")<\/p>\n\n\n\n
If sht_Boc.Range(\"AP412\").Value = 0 Then Exit Sub<\/p>\n\n\n\n
\u203bAP412\u304c\u6700\u7d42\u884c\u306e\u5834\u5408<\/p>\n\n\n\n