
いつもお世話になっております。
わかる方おしえてくれませんでしょうか
下記の部分がエラーになります。
エラー内容は Worksheets メソッドは失敗しました。
Globalオブジェクト
val = Worksheets("Sheet1").Range("A1").CurrentRegion.Offset(1).Value
わかる方おしえてくれませんでしょうか
Private Sub Workbook_Open()
UserForm1.Show vbModeless
Application.Visible = False
Windows(ThisWorkbook.Name).Visible = False
End Sub
With ListView1
.View = lvwReport
.FullRowSelect = True
.AllowColumnReorder = True
.Gridlines = True
.AllowColumnReorder = True '列幅の変更を許可
.CheckBoxes = True 'チェックボックスの追加
.ForeColor = vbBlue
.ColumnHeaders.Add , , "NO", 70
.ColumnHeaders.Add , "B", "名前", 100
.ColumnHeaders.Add , "C", "性別", 50
.ColumnHeaders.Add , "D", "血液型", 50
.ColumnHeaders.Add , "F", "生年月日", 100
Dim val
val = Worksheets("Sheet1").Range("A1").CurrentRegion.Offset(1).Value
For i = LBound(val) To UBound(val)
Application.ScreenUpdating = False
With .ListItems.Add
.Text = val(i, 1)
.SubItems(1) = val(i, 2)
.SubItems(2) = val(i, 3)
.SubItems(3) = val(i, 4)
.SubItems(4) = val(i, 5)
End With
Next
Application.ScreenUpdating = True
End With
------------------------------
Worksheets("Sheet1")の内容
A列 B列 C列 D列 E列
No 名前 性別 血液型 生年月日

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【教えて!goo ウォッチ 人気記事】風水師直伝!住まいに幸運を呼び込む三つのポイント
記事を読む>>
-
sheetsメソッドの失敗
Excel(エクセル)
-
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
エクセルマクロエラー'Global'オブジェクト
Excel(エクセル)
-
4
VBA 実行時エラー1004 rangeメソッドは失敗しました。globalオブジェクトのエラー
Excel(エクセル)
-
5
'Range'メソッドは失敗しました
Excel(エクセル)
-
6
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
7
ACCESSのVBAにてExcelのシートをコピーしたい
その他(データベース)
-
8
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
11
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
12
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
13
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
14
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
15
'Cells'メソッドは失敗しました '_Global'オブジェクト
Word(ワード)
-
16
Access サブフォームでの選択行の取得
その他(データベース)
-
17
Access VBAよりシート名を取得したい
その他(データベース)
-
18
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
19
実行時エラー'1004': WorkSheetクラスのVisibleプロパティを設定できません
Visual Basic(VBA)
-
20
エクセルマクロエラー「'Cells'メソッドは失敗しました。'_Global'オブジェクト」について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
エクセル 2つの表の並べ替え
-
5
Changeイベントでの複数セルの...
-
6
VBAを使って検索したセルをコピ...
-
7
スプレッドシートのデータをGAS...
-
8
Cellsのかっこの中はどっちが行...
-
9
VBAで、特定の文字より後を削除...
-
10
[ASP+SQL]絞込み済みのレコード...
-
11
VBAの構文 3列置きにコピーし...
-
12
【VBA】全角半角入り交じった住...
-
13
VBA 別ブックからの転記の高速...
-
14
マクロ 最終列をコピーして最終...
-
15
期限を超えた日付に警告のメッ...
-
16
ユーザーフォームに入力したデ...
-
17
VBA初心者です。
-
18
VBマクロ 色の付いたセルを...
-
19
targetをA列のセルに限定するに...
-
20
エクセル アクティブセルから...
おすすめ情報
公式facebook
公式twitter
申し訳ございません
違うのを添付しました。
A1です。
添付しなおしました。
Visible =Trueの時の配列に入れてください
とはというこうことでしょうか
おしえてくれませんでしょうか