FC2ブログ

ワークシート関連マクロ

2017–05–13 (Sat) 14:37
[広告] VPS


今回初めて動画を使わせて頂きましたが、どうやったら見やすくなるのか全く分かりません。
初心者ですので、お手柔らかにお願い致します。

Macro.xlsm

マクロのコードはこちらです。

枚数指定コピー
Private Sub CommandButton1_Click()
maisu = Application.InputBox(Prompt:="枚数を入力してください", Type:=1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sheet As Worksheet
Set sheet = ActiveSheet
For i = 1 To maisu
sheet.Copy After:=sheet
Next i
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

新規シートの追加

Private Sub CommandButton1_Click()
Sheets.Add
End Sub

シートの削除

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each s In ActiveWindow.SelectedSheets
s.Delete
Next s
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
スポンサーサイト



« INDEX+MATCHに完全対応した「資格証データ」が登場 | HOME |  VLOOKUPとINDEX&MATCH早いのはどちらか »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク