|
はじめまして。こんにちは。
つい最近初めたVBA初心者です。
どうしてもわからずニッチもサッチもいかないのでどうか教えてくださいませ。
複数のシート(=YYYYMM)からInputBoxよりシートを指定し、そのシートか
ら別のシート(=TEST)にコピペをしたいです。
しかしプロシージャをまたぐ制御変数の指定に問題があるのかできません。
どこをどう直したらいいのでしょうか?
Sub AAA()
Dim SHITEI As String 'エクセル シート指定
On Error GoTo Errorhandler
SHITEI = Application.InputBox(Prompt:="何年何月分?", _
Title:="シート指定", _
Default:="YYYYMM")
For Each Mmm In ActiveWorkbook.Worksheets
If SHITEI = Mmm.Name Then
Call BBB(SHITEI)
Exit Sub
End If
Next
Errorhandler:
MsgBox "入力されたシート名 " & SHITEI & " はありません", , "シート指定エラー"
End Sub
Sub BBB(SHITEI As String)
'******* コピー *******
Worksheets(" & SHITEI & ").Activate '
Set cpy = Worksheets(" & SHITEI & ").Range(Cells(1, 5), Cells(5, 5)) '
Worksheets("TEST").Activate '
Set pst = Worksheets("TEST").Range(Cells(1, 5), Cells(5, 5)) '
pst.Value = cpy.Value '
End Sub
|
|