Excel総合相談所 96
>>8
文通りだとA1B1C1を何回も変えることになるからエスパーした
Sub aaa()
Dim a, b, c, d, e, f, g
Application.ScreenUpdating = False '描画更新ストップ
a = ThisWorkbook.Path & "\Sheet1のB列の値＋Sheet2のシート名.xls"
If Dir(a) <> "" Then
MsgBox "すでにあるよ"
Exit Sub 'すでに存在してたら終了
End If
Set b = Workbooks.Add '新規ブック作成
b.SaveAs Filename:=a
b.Activate
Set e = Sheet1
Set f = b.Sheets("Sheet1")
Set g = b.Sheets("Sheet2")
c = Sheet1.Columns(2).End(xlDown).Row
'〜続く〜
文通りだとA1B1C1を何回も変えることになるからエスパーした
Sub aaa()
Dim a, b, c, d, e, f, g
Application.ScreenUpdating = False '描画更新ストップ
a = ThisWorkbook.Path & "\Sheet1のB列の値＋Sheet2のシート名.xls"
If Dir(a) <> "" Then
MsgBox "すでにあるよ"
Exit Sub 'すでに存在してたら終了
End If
Set b = Workbooks.Add '新規ブック作成
b.SaveAs Filename:=a
b.Activate
Set e = Sheet1
Set f = b.Sheets("Sheet1")
Set g = b.Sheets("Sheet2")
c = Sheet1.Columns(2).End(xlDown).Row
'〜続く〜
|
|
|