車輪ã®å†ç™ºæ˜Žã€‚Excelã®ã‚»ãƒ«ã‚’A1ã«æƒãˆã‚‹ï¼‹Î±ã®ãƒžã‚¯ãƒã‚’書ã„㟠- ãªã‹æ—¥è¨˜ãƒã‚¿ã‹ã©ã†ã‹ã¯èªã‚“ã 人ã®åˆ¤æ–ã«ãŠä»»ã›ã™ã‚‹ã¨ã—ã¦ã€ä¹…ã—ã¶ã‚Šã«VBAã®ã‚³ãƒ¼ãƒ‰æ›¸ãã¾ã—ãŸã€‚ タイトルã«ã‚る通りã€åŒã˜ãƒ•ã‚©ãƒ«ãƒ€ã«ã‚ã‚‹Excelファイルã®å…¨ã‚·ãƒ¼ãƒˆã‚’A1セルã«æƒãˆã‚‹ã£ã¦ã‚„ã¤ã§ã™ã€‚ ã¤ã„ã§ã«ã€ã€Œæ‹¡å¤§çŽ‡ã‚’100%ã«æƒãˆã‚‹ã€å‡¦ç†ã‚‚è¿½åŠ ã—ã¾ã—ãŸã€‚ コード é©å½“ã«æ¨™æº–モジュールã«ã§ã‚‚コピペã—ã¦ä½¿ã£ã¦ä¸‹ã•ã„。 ã©ã†ã§ã‚‚良ã„ã“ã¨ã§ã™ãŒã€ç§ã¯VBA書ãã¨ãã«ãƒ¡ã‚½ãƒƒãƒ‰åã«æ—¥æœ¬èªžä½¿ã†ã®ãŒç™–ã«ãªã£ã¦ã¾ã™ã€‚ Option Explicit Private Sub セルをA1ã«ã‚»ãƒƒãƒˆã™ã‚‹(sheet As Worksheet) sheet.Select sheet.Range("A1").Select ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1 End Sub Private Sub 拡大率を100パーセントã«ã™ã‚‹(sheet As Wor
{{#tags}}- {{label}}
{{/tags}}