おしえて

シート指定について

解決済

質問者：kaikaikaikaikaikai
質問日時：2022/01/17 16:21
回答数：2件

office３６５のExcelVBAについて質問です。

下記プログラムでシート指定するにはどう変えればいいか教えていただけますでしょうか？

With ListBox136
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Cells(4, Columns.Count).End(xlToLeft).Offset(, 1) = .List(i)
End If
Next i
End With

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.2

回答者：初心者ですが何か。
回答日時：2022/01/17 17:53

https://oshiete.goo.ne.jp/qa/12754251.html

こちらと何か条件に変更があったのでしょうか？

- 0
- 件

通報する

No.1ベストアンサー

回答者： Qchan1962
回答日時：2022/01/17 16:34

こんにちは

Cells(4, Columns.Count).End(xlToLeft).Offset(, 1) = .List(i)
の前にはActiveSheetが省略されています。
なので
worksheets(インデックス又は名前).Cells(4, Columns.Count).End(xlToLeft).Offset(, 1) = .List(i)
で指定します。

worksheets(インデックス又は名前)　はシートオブジェクトです。
例：
dim Sh as worksheet
set Sh = worksheets(1)　で　
Sh.Cells(4, Columns.Count).End(xlToLeft).Offset(, 1) = .List(i)
としても良い（シートインデックス1のシート）

*ちなみに
worksheets(インデックス又は名前)の前にはActiveWorkbookが省略されています。