いつもお世話になっております。
わかる方おしえてくれませんでしょうか
下記の部分がエラーになります。
エラー内容は 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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) worksheets & rows メソッドは失敗しました。のエラー回避のやり方 1 2022/06/07 13:58
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) ListView1の条件のやり方 3 2022/06/18 22:43
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) エクセルVBAで以下のようなコードを書いたらエラーになりました。何処が間違っているの教えて? 1 2023/02/10 18:30
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) リストボックス セルの値を取得する 1 2022/05/21 20:47
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
sheetsメソッドの失敗
Excel(エクセル)
-
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
-
4
実行時エラー1004「Select メソッドが失敗しました。」エラーの回避方法
Visual Basic(VBA)
-
5
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
8
エクセルマクロエラー「'Cells'メソッドは失敗しました。'_Global'オブジェクト」について
Excel(エクセル)
-
9
マクロの「Rangeメソッドは失敗しました’Globalオブジェクト」エラーの解決方法について
Excel(エクセル)
-
10
実行時エラー'1004': WorkSheetクラスのVisibleプロパティを設定できません
Visual Basic(VBA)
-
11
マクロの「SaveAs」でエラーが出るのを解消したいです
Visual Basic(VBA)
-
12
エクセルマクロエラー'Global'オブジェクト
Excel(エクセル)
-
13
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
14
'Range'メソッドは失敗しました
Excel(エクセル)
-
15
Access VBAから使用したExcelプロセスを閉じる方法について
Visual Basic(VBA)
-
16
worksheets & rows メソッドは失敗しました。のエラー回避のやり方
Visual Basic(VBA)
-
17
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
18
ACCESSのVBAにてExcelのシートをコピーしたい
その他(データベース)
-
19
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
20
VBAでワークシートを引数としてサンプル関数に渡したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
空白セルをとばして転記
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
文字列の結合を空白行まで実行
-
VBAでのリスト不一致抽出について
-
VBマクロ 色の付いたセルを...
-
vbaでシートより100より大きい...
-
エクセルVBAで『A列』に新...
-
URLのリンク切れをマクロを使っ...
-
SUM関数の範囲を変数を代入して...
-
マクロ 最終列をコピーして最終...
-
Changeイベントでの複数セルの...
-
グリッドの列の最大値を求めたい。
-
VBAで重複データを確認したい
-
IIF関数の使い方
-
VBAで、離れた複数の列に対して...
-
VBAを使って検索したセルをコピ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
マクロ 最終列をコピーして最終...
-
VBAを使って検索したセルをコピ...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
Excel(M365) Vlookup/セル反転(...
-
VBA指定行削除
-
VBAでのリスト不一致抽出について
-
C# dataGridViewの値だけクリア
-
Changeイベントでの複数セルの...
-
VBAで、特定の文字より後を削除...
-
rowsとcolsの意味
おすすめ情報
申し訳ございません
違うのを添付しました。
A1です。
添付しなおしました。
Visible =Trueの時の配列に入れてください
とはというこうことでしょうか
おしえてくれませんでしょうか