|
▼kanabun さん:
できました。ありがとうございました。
大変助かりました。
>▼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済み
>
>のようにしたら、いかが?
|
|