Office TANAKA - Excel VBA Tips[Excelã®çµ„ã¿è¾¼ã¿ãƒ€ã‚¤ã‚¢ãƒã‚°ã‚’表示ã™ã‚‹]ãŸã¨ãˆã°ã€ã‚ãªãŸãŒã‚るマクãƒã‚’作ã£ãŸã¨ã—ã¾ã™ã€‚ãã‚Œã¯ã€ä½•ã‚‰ã‹ã®å‡¦ç†ã‚’ã—ãŸå¾Œã§ã€ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã‚’å°åˆ·ã™ã‚‹ã‚ˆã†ãªãƒžã‚¯ãƒã§ã™ã€‚処ç†ã‹ã‚‰å°åˆ·ã¾ã§ã‚’プãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã—ã¦å®Œæˆã—ã¾ã—ãŸã€‚ã¨ã“ã‚ãŒã€ãƒ¦ãƒ¼ã‚¶ãƒ¼ã‹ã‚‰ã‚ã‚‹è¦æœ›ãŒâ€¦â€¦ã€‚ 「å°åˆ·ã™ã‚‹æ™‚ã•ã€ãã®ã¤ã©éƒ¨æ•°ã‚’指定ã§ãるよã†ã«ã—ã¦ãã‚Œãªã„？〠å°åˆ·ã‚’実行ã™ã‚‹PrintOutメソッドã¯ã€å¼•æ•°Copiesã«å°åˆ·éƒ¨æ•°ã‚’指定ã§ãã¾ã™ã€‚AcriveSheet.PrintOut Copies:=2 ã¨ã™ã‚Œã°2部å°åˆ·ã•ã‚Œã¾ã™ã€‚ã“ã“ã¯InputBoxを使ã£ã¦ã€ Sub Sample1() Dim n As Long n = Val(InputBox("å°åˆ·éƒ¨æ•°ã‚’入力ã—ã¦ãã ã•ã„")) If n < 1 Then Exit Sub ActiveSheet.PrintOut Copies:=n End Sub よã—OKã …ã¨å‹•ä½œç¢ºèªã—ã¦ã„ãŸã‚‰é›»è©±ãŒâ€¦â€¦ã€‚ 「ã‚ã®ã•ã€å°åˆ·ãƒšãƒ¼ã‚¸ã‚‚指定
{{#tags}}- {{label}}
{{/tags}}