広告
Sub チエック()
MsgBox (“はじめてのＳｕｂプｒシージャー”)
End Sub
フォルダー内のブックに対して同じ処理を実行
Sub フォルダー内のブックに対して同じ処理を実行()
Dim フォルダー名 as string
dim ファイル名 as string
フォルダー名=thisworkbook.path & “￥”
ファイル名=dir(フォルダー名 & “*.xlsm”)
do whilw ファイル名<> “”
msgbox ファイル名
ファイル名=dir()I
loop
end sub
シートがあるか
sub シートがあるかどうか()
dim 探すシート as string
dim 全シート as worksheet
探すシート=range(“b3″).value
for each 全シート in worksheets
if 全シート.name=探すシート then
msgbox 探すシート&”シートはあります”
exit sub
end if
next
msgbox “探しているシートはありません”
end sub
bookを開いたら
priprivate sub workbook_open()
with worksheets(3)
.select
.range(“a3″).end(xldown).offset(1).select
msgbox.name &”シートを選択しました”
end with
yes no の確認
yes no の確認
本文sub yes no の確認()
dim kotae as integer
kotae=msgbox “データを削除しますか”、＿
vbyesno+vbquestion+vbdefaultbutton2,”確認”)
if kotae =vbyes then
range(“a4:c6”).clearcontents
msgbox “データを削除しました”
else
msgbox “操作をキャンセルしました”
end if
end sub
開いているブックに対して処理
開いているブックに対して処理
本文sub 開いているブックに対して処理()
dim 全ブック as workbook
for each ブック in workbooks
全ブック.save
next
end sub
全シート
全シートに対して処理を実行
本文sub 全シートに対して処理を実行()
dim 全シートas worksheet
for each 全シート in worksheets
全シート.tab.colorindex=xlcolorindexnone
next
end sub
行を一行おきに挿入
行を一行おきに挿入
sub 行を一行おきに挿入()
range(“a3″).select
do until activecell.value=””
range(“a3″).select
do until activecell.value=””
activecell.offset(1).entirerow.insert
activecell.offset(2).select
loop
end sub
繰り返し
sub 繰り返し()
dim 数as nteger
for 数＝1to 3
worksheets.add before:worksheets(数)
activesheets.name=”追加” &数
next 数
end sub