{"version":"1.0","blog_url":"https://glassonion.hatenablog.com/","published":"2005-10-17 19:18:45","width":"100%","image_url":null,"author_name":"glass-_-onion","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fglassonion.hatenablog.com%2Fentry%2F20051017%2F1129544325\" title=\"\u4e45\u3005\u306bVBA - A Day In The Life\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_title":"A Day In The Life","type":"rich","height":"190","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/glass-_-onion/","description":"\u4eca\u65e5\u306f\u4e45\u3057\u3076\u308a\u306bExcel\u306e\u30de\u30af\u30ed\u3092\u4f5c\u6210\u3057\u307e\u3057\u305f\u3002 \u3068\u3042\u308bExcel\u30b7\u30fc\u30c8\u304b\u3089\u5225\u306e\u30b7\u30fc\u30c8\u306b\u30bb\u30eb\u306e\u5185\u5bb9\u3092\u30b3\u30d4\u30fc\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3067 Private Const START_FROM As Integer = 4 Private Const START_TO As Integer = 3 Private Sub Start_Click() Dim copyTo As Workbook Dim copyFrom As Workbook '\u8cbc\u308a\u4ed8\u3051\u5148Excel\u30d5\u30a1\u30a4\u30eb Set copyTo = ActiveWorkbook '\u30b3\u30d4\u30fc\u5143Excel\u30d5\u30a1\u30a4\u30eb Set copyFrom = Workbooks.O\u2026","title":"\u4e45\u3005\u306bVBA","categories":["vb"],"url":"https://glassonion.hatenablog.com/entry/20051017/1129544325"}