|
▼VBA初心者 さん:
>現在のソースでは「sheet1」で下記のコマンドを実行しているのですが、
>「sheet2」に下記のコマンドボックスを作成する場合、「sheet1」のデータ
>を見るように指定するにはどうしたらよいでしょうか。
>
>myPath = ActiveWorkbook.Path & "\"の部分かと思い、myPath = ThisWorkbook.Worksheets(1).Activate
>などのように記載しても出力されなかったりしてしまいます。
Activate Select などになるべく頼らない記述法を身につけましょう。
対象ワークシート用変数 WS1 を追加して、
> Sub Lesson_Print2() 'タイトル2行
Dim WS1 As Worksheet
> Dim Tbl As Range
> Dim v, i As Long, n As Long, n1 As Long
> Dim myPath As String
> Dim newBook As Workbook
> Dim Bookname As String
>
> Application.DisplayAlerts = False
>
> myPath = ActiveWorkbook.Path & "\"
Set WS1 = ActiveWorkbook.Worksheets("Sheet1")
> 'Set Tbl = ActiveSheet.[A1].CurrentRegion '◆ A列で Sort済み
Set Tbl = WS1.[A1].CurrentRegion '◆ A列で Sort済み
のようにしたら、いかが?
|
|