Listプロパティについてコードの意味を解説してもらえませんでしょうか？

2023/08/08 02:32

このQ&Aのポイント

Listプロパティについてコードの意味について解説していただきたいです。
Listプロパティのコードの意味を解説していただけますか？
Listプロパティのコードの意味をわかりやすく解説してもらえませんか？

ベストアンサー

Listプロパティについて

2008/07/05 01:20

お世話になります。自分で作ったコードではないので、訂正していたらよくわからなくなってしまいました。これはsheet1からsheet2にリストボックスから転記するようになっています。MyCol = Arrayの部分を変更したのですが、参考書で調べてみたのですが、理解出来なかったので、質問しました。 ListIndex8までを転記していることはわかりました。その後、ListIndexを11列周期で値をMyBufに代入したいと考えています。(言葉が適当なのかはわかりません) 下記の部分を変更すればよいと思うのですが、まずはコードの意味を理解したいと思うので、このコードの意味をわかりやすく解説してもらえませんでしょうか？ MyBuf(i, 0) = .List(N, i * 9 + j + 8) Next Range(MyCol(j) & "21:" & MyCol(j) & "42").Value = MyBuf 以下コード Range("AP4").Value = ListBox1.List(ListBox1.ListIndex, 0) Range("AN3").Value = ListBox1.List(ListBox1.ListIndex, 1) Range("AQ3").Value = ListBox1.List(ListBox1.ListIndex, 2) Range("C3").Value = ListBox1.List(ListBox1.ListIndex, 3) Range("C6").Value = ListBox1.List(ListBox1.ListIndex, 4) Range("AH14").Value = ListBox1.List(ListBox1.ListIndex, 5) Range("AM54").Value = ListBox1.List(ListBox1.ListIndex, 7) Range("AH15").Value = ListBox1.List(ListBox1.ListIndex, 251) Range("AH16").Value = ListBox1.List(ListBox1.ListIndex, 252) Range("AH17").Value = ListBox1.List(ListBox1.ListIndex, 253) Range("AH18").Value = ListBox1.List(ListBox1.ListIndex, 254) Dim i As Integer, j As Integer, N As Integer, MyBuf(21, 0), MyCol MyCol = Array("B", "F", "K", "L", "Z", "AB", "AD", "AH", "AK", "AM", "AS") With ListBox1 N = .ListIndex For j = 0 To 8 If j <> 7 Then For i = 0 To 21 MyBuf(i, 0) = .List(N, i * 9 + j + 8) Next Range(MyCol(j) & "21:" & MyCol(j) & "42").Value = MyBuf End If Next End With Exit Sub

mimoule1998
お礼率37% (37/100)

オフィス系ソフト
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

onlyrom
ベストアンサー率59% (228/384)

2008/07/06 11:36 回答No.1

回答が付いてないようなので。。。＞ListIndex8までを転記していることはわかりました。勘違いではありませんか。正しくは、「Listboxで選択した行の８列を転記している」です。＞MyBuf(i, 0) = .List(N, i * 9 + j + 8) 　　MyBuf(列，行) 　　List(行，列) ということです。上記で、ListとMyBufでは行列が入れ替わっていますが、これは＞Range(MyCol(j) & "21:" & MyCol(j) & "42").Value = MyBuf このように配列を一度でセル範囲に入れるためです。 MyBuf(行，列)ではできません。　それから、i * 9 + j + 8　のような計算は一見ではその変化が分かりずらいので結果をシートに表示してみればいいでしょう。新しいブックで以下をお試しあれ。（データは不要） '-------------------------------------------------- Sub test() Dim i As Integer, j As Integer, N As Integer, MyBuf(21, 0), MyCol MyCol = Array("B", "F", "K", "L", "Z", "AB", "AD", "AH", "AK", "AM", "AS") For j = 0 To 8 If j <> 7 Then For i = 0 To 21 MyBuf(i, 0) = i * 9 + j + 8 Next Range(MyCol(j) & 17).Value = " ｊ = " & j Range(MyCol(j) & 18).Value = MyCol(j) Range(MyCol(j) & 19).Value = Range(MyCol(j) & "21:" & MyCol(j) & "42").Address(0, 0) Range(MyCol(j) & "21:" & MyCol(j) & "42").Value = MyBuf End If Next Range("A17").Value = "Ｊの値" Range("A18").Value = "Arrayの値" Range("A19").Value = "取得範囲" Range("A21").Value = "ListBoxの列" Range("A21").EntireColumn.AutoFit For i = 0 To 21 Cells(i + 21, "A").Value = " i = " & i Next i End Sub '--------------------------------------------- それにしても、なぜ２５５列ものListBoxを作成しているのでしょうか。２５５列もあれば一度では全ての列を見ることができないし、スクロールも厄介。ふつう、ListBoxにはキーとなるアイテムと最小限必要なアイテムだけ表示するものです。以上。

質問者

補足 2008/07/06 19:22

ご回答ありがとうございます。 sheet書類に作業確認表を作成しています。(縦書き) その項目を保存するために別シートに転記しています。自分なりに確認をしてどういう動きをしているのかは把握できました。 9列から11列毎に作業の項目を転記しているため、21項目で列の限界に達します。ただし、数が多いので、この方法が良いとわかりました。リストボックスの表示項目は最初の数列を見るだけなんです。しかし、ダブルクリックで転記させているのでこの様になっているのだと解釈しました。それにしても、動作が速いのには驚きました。わかりやすい解説ありがとうございました。

関連するQ&A

リストボックスについて
リストボックスからデータを転記したいのですが、実行時エラー"1004"が出てしまい、どうしてもうまくいきません。どなたか原因を教えてください。 Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Long With Worksheets("sheet2") i = .Range("F47").End(xlUp).Row + 1 .Range(i, 6).Value = ListBox1.List(ListBox1.ListIndex, 0) .Range(i, 12).Value = ListBox1.List(ListBox1.ListIndex, 1) .Range(i, 26).Value = ListBox1.List(ListBox1.ListIndex, 2) .Range(i, 28).Value = ListBox1.List(ListBox1.ListIndex, 3) .Range(i, 34).Value = ListBox1.List(ListBox1.ListIndex, 4) .Range(i, 37).Value = ListBox1.List(ListBox1.ListIndex, 5) End With Unload Me End Sub
- ベストアンサー
- オフィス系ソフト
リストボックスの値を拾うには
リストボックスの値を拾うには以下のボタンコマンドでListBox1のListIndexから配列二番目の値を「hinban」という変数に取り込みたいのですがうまくいきません。「hinban = ListBox1.List(ListBox1.ListIndex, 1)」という行を書いてみましたが「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」とアラートが出てしまいます。 VBA初心者です。解決法を教えてください。 Private Sub CommandButton1_Click() Dim lastRow As Long Dim i As Integer With Worksheets("Sheet1") lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'For i = 1 To 3 '.Cells(lastRow, i).Value = ListBox1.List(ListBox1.ListIndex, i - 1) hinban = ListBox1.List(ListBox1.ListIndex, 1) 'Next i End With End Sub
- ベストアンサー
- その他（プログラミング・開発）
VBA リストボックスの値をセルに転記
よろしくお願いします。したいことは、ユーザーフォームのリストボックスで複数の値を選んで複数セルに転記する。 ActiveCell.offset(10, 5)　⇐　リストボックスで選んだ1つ目 ActiveCell.offset(11, 5)　⇐　リストボックスで選んだ2つ目 ActiveCell.offset(12, 5)　⇐　リストボックスで選んだ3つ目下の構文では1つしか転記できません。 Dim n As Integer, s As String For n = 0 To ListBox3.ListCount - 1 If ListBox3.Selected(n) Then s = s & ListBox3.List(n) & vbCrLf ActiveCell.offset(10, 5).Value = s End If Next
- ベストアンサー
- Excel（エクセル）
リストボックスで選択した項目に該当するデーターをラベルに表示する
よろしくお願いしますユーザーフォームにリストボックスが2つラベルが1つ配置しています。リストボックス1で選択した項目に該当するリストをリストボックス2に表示する。次にリストボックス2で選択した項目に該当するデーターをワークシートのセル（E5：E300）から選んでラベル1に表示する。このようにしたいのですがエラーが出ます。 Dim LastRow As Long Dim DstRow As Long Const FstRow As Long = 5 Dim MctRow As Long 　　－　　－　　－ Private Sub UserForm_Initialize() With Me.ListBox1 .RowSource = Worksheets("入力").Range("A5:A300").Address(External:=True) End With End Sub 　　－　　－　　－ Private Sub ListBox1_Click() Dim j As Integer Dim RowCnt As Long With Worksheets("入力") LastRow = .Range("E300").End(xlUp).Row ListBox2.Clear For RowCnt = 5 To LastRow If ListBox1.List(ListBox1.ListIndex) = .Cells(RowCnt, 3).Value Then ListBox2.AddItem For j = 0 To 1 ListBox2.List(ListBox2.ListCount - 1, j) = .Cells(RowCnt,5 + j).Value Next j End If Next RowCnt End With End Sub 　　－　　－　　－ Private Sub ListBox2_Click() Dim SrcCode As Long SrcCode = ListBox2.List(ListBox2.ListIndex, 0) 　　　　↑　　　　↑　　　　↑ ここでエラーになります。実行時エラー型が一致しません　と表示されます With Worksheets("入力") LastRow = .Range("E300").End(xlUp).Row MctRow = Application.WorksheetFunction.Match(SrcCode, .Range("E5:E" & LastRow), 0) + 5 Label1 = Format(.Cells(MctRow, 5)) End With End Sub
- 締切済み
- その他（プログラミング・開発）
Excel VBA リストボックスについて
現在エクセルのVBAを勉強中の超初心者なのですが、リストボックスを使うコードでエラーが出てどう直したらいいかわかりません。下記コードをどのようになおしたらいいでしょうか？回答、よろしくお願いいたします。エラー内容は、実行時エラー381 Listプロパティを設定できません。プロパティの配列のインデックスが無効です。 Private Sub UserForm_Initialize() 'リストボックスの設定 With ListBox1 .Font.Size = 10 .ColumnCount = 7 .ColumnWidths = "50;100;80;80;100;30;70" .TextAlign = fmTextAlignLeft .Font.Name = "MSゴシック" End With Dim i As Integer Dim LastRow As Integer LastRow = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To LastRow With ListBox1 .AddItem Cells(i, 1).Value .List(ListCount - 1, 1) = Cells(i, 2).Value .List(ListCount - 1, 2) = Cells(i, 3).Value　←ここでエラー .List(ListCount - 1, 3) = Cells(i, 4).Value .List(ListCount - 1, 4) = Cells(i, 5).Value .List(ListCount - 1, 5) = Cells(i, 6).Value .List(ListCount - 1, 6) = Cells(i, 7).Value End With Next End Sub
- ベストアンサー
- Excel（エクセル）
リストボックスからの入力をテキストに貼付
下記コードではリストボックあ行選択しテキスト1～6に入力後、クリアボタンで消去したあと、か行選択しテキストに入力したら7～貼付けになるクリアボタンで消去後、改めてテキスト1～入力するコードがありますか。どなたか解る方よろしくお願いします。 Private Sub 実行_Click() Static cnt As Integer Dim i As Integer If Listbox.ListIndex = -1 Then Exit Sub For i = 0 To Listbox.ListCount - 1 If Listbox.Selected(i) Then cnt = cnt + 1 If cnt > 10 Then cnt = 1 Me.Controls("TextBox" & cnt).Text = Listbox.List(i) End If Next End Sub Private Sub クリア_Click() Dim tbCont As Control With Me.MultiPage1 For Each tbCont In .Pages(.Value).Controls If TypeName(tbCont) = "TextBox" Then tbCont.Value = Null End If Next tbCont End With End Sub
- ベストアンサー
- Visual Basic
ListBox内の並び替えで実行エラー
OSはXP、 Excelは2003を使用しています。ユーザーフォーム内のListBox内で、コマンドボタンをクリックして行を上や下に並び替えたく、 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1041407835 を参考にして、下記の通りに組んだのですが、下に並び替えるCommandButton2を実行時や、上に並び替えるCommandButton1を「２回目」に実行時に「実行時エラー　-2147417848(80010108)　オートメーションエラーです。起動されたオブジェクトはクライアントから切断されました。」となってしまいます。 Private Sub CommandButton1_Click() Dim i As Variant Dim j As Integer Dim k As Integer Dim myBuf1 As Variant Dim myBuf2 As Variant ' 選択されている項目を１つ上げる。 i = Me.ListBox1.ListIndex If i > 0 Then For j = 1 To 7 myBuf1 = Me.ListBox1.List(i - 1, j) Me.ListBox1.List(i - 1, j) = Me.ListBox1.List(i, j) Me.ListBox1.List(i, j) = myBuf1 Me.ListBox1.Selected(i - 1) = True For k = 0 To 6 myBuf2 = Me.ListBox2.List(i - 1, k) Me.ListBox2.List(i - 1, k) = Me.ListBox2.List(i, k) Me.ListBox2.List(i, k) = myBuf2 Me.ListBox2.Selected(i - 1) = True Next k Next j End If End Sub Private Sub CommandButton2_Click() Dim i As Variant Dim j As Integer Dim k As Integer Dim myBuf1 As Variant Dim myBuf2 As Variant ' 選択されている項目を１つ下げる。 i = Me.ListBox1.ListIndex If i < Me.ListBox1.ListCount - 1 Then For j = 1 To 7 myBuf1 = Me.ListBox1.List(i + 1, j) Me.ListBox1.List(i + 1, j) = Me.ListBox1.List(i, j) Me.ListBox1.List(i, j) = myBuf1 Me.ListBox1.Selected(i + 1) = True For k = 0 To 6 myBuf2 = Me.ListBox2.List(i + 1, k) Me.ListBox2.List(i + 1, k) = Me.ListBox2.List(i, k) Me.ListBox2.List(i, k) = myBuf2 Me.ListBox2.Selected(i + 1) = True Next k Next j End If End Sub 説明不足や上記の記述にとんちんかんな間違いがありましたら、ごめんなさい。どなたか解決方法を教えて頂けますようお願い致します。
- 締切済み
- その他MS Office製品
VBA　リストボックスについて
VBA初心者です。どうぞよろしくお願いします。ユーザーフォームにタブつきのリストボックスを作りたいと思っています。リストはsheet1の中にあります。　　A　　　　B　　　　C　　　　D・・・ 1　　NO　　品名　　売場 2　　1　　いちご　　果物 3　　2　　みかん　　果物 4　　3　　もも　　　　果物 5　　4　　ハクサイ　野菜 6　　5　　キャベツ　野菜 7　　6　　きゅうり　　野菜 8　　7 9 果物のタブには、果物の品名が表示される。 1 いちご 2 みかん 3 もも野菜のタブには、野菜の品名が表示される。 4 ハクサイ 5 キャベツ 6 きゅうり青果のタブには、果物、野菜が表示される。 1 いちご 2 みかん 3 もも 4 ハクサイ 5 キャベツ 6 きゅうり本を見ながら格闘しておりますが、きっと的違いで滅茶苦茶なことをしているのだと思います。どうにも出来ず困っております。どなたか教えていただけないでしょうか。よろしくお願いします。 Private Sub UserForm_Initialize() Dim LastRow As Long Dim i As Integer Dim ListBoxNo As Integer Dim ListBox As Control Dim Listtabu(3) As Long 'タブの数 For i = 1 To 3 Listtabu(i) = 0 Next i Worksheets("sheet1").Activate With Worksheets("sheet1") LastRow = .Range("A65536").End(xlUp).Row For i = 2 To LastRow If Worksheets("sheet1").Range(Cells(i, 3)) = "果物" Then ListBoxNo = 1 Set ListBox = 果物果物.List = Worksheets("sheet1").Range(Cells(i, 1), Cells(i, 2)).Value End If If Worksheets("sheet1").Range(Cells(i, 3)) = "野菜" Then ListBoxNo = 2 Set ListBox = 野菜野菜.List = Worksheets("sheet1").Range(Cells(i, 1), Cells(i, 2)).Value End If If Worksheets("sheet1").Range(Cells(i, 3)) = "果物" & "野菜" Then ListBoxNo = 3 Set ListBox = 青果青果.List = Worksheets("sheet1").Range(Cells(i, 1), Cells(i, 2)).Value End If ListBox.AddItem ListBox.List(Listtabu(LstBxNo), 0) = Worksheets("sheet1").Cells(i, 1).Value ListBox.List(Listtabu(LstBxNo), 1) = Worksheets("sheet1").Cells(i, 2).Value Listtabu(LstBxNo) = Listtabu(LstBxNo) + 1 Next End With End Sub
- ベストアンサー
- Visual Basic
【Excel】リストボックスにデータを重複せず昇順に表示する方法
教えてください。ユーザーフォームにリストボックス（Listbox1）があり、日付が昇順で入力されるようになっています。ただし、この日付データは重複が多いため重複されないよう表示しようと下記のコードを記述しましたが「実行時エラー1004　アプリケーション定義またはオブジェクト定義のエラーです」と表示されてしまいます。これを回避し、実行させるためにはどういう風に記述を修正したらよいでしょうか？ ================================================================ Private Sub UserForm_Initialize() Dim i As Long For i = 2 To 2000 ListBox1.AddItem Worksheets("データ").Cells(i, 1) Dim myValue As Variant Dim myRng As Range, myCell As Range Set myRng = Worksheets("データ").Cells(i, 1).End(xlUp) myValue = myRng.Value Application.ScreenUpdating = False myRng.Sort Worksheets("データ").Cells(i, 1), xlAscending, Header:=xlYes With ListBox1 .Clear For Each myCell In myRng.Resize(myRng.Rows.Count - 1).Offset(1) _ .SpecialCells(xlCellTypeVisible) .AddItem myCell.Value Next .ListIndex = 0 End With Next i ListBox1.ListIndex = 0 End Sub ================================================================
- ベストアンサー
- オフィス系ソフト
エクセルマクロ＿上書き（リストボックスでデータを抽出し、その行へ上書き）
エクセルマクロ初心者です。（２００３使用＿ユーザーフォーム，リストボックス，テキストボックス，チャックボックス） Sheet1のデータをユーザーフォームへ反映させ、修正したものをその行へ上書きするマクロを作成したいと思っていますが、うまくいかないのでどなたかお教え願います。（Sheet1―A8より表がはじまります）管理番号品名数量希望納期変更数量完納コメントアカ12 みかん　　　　40 　　8月3日アオ35 りんご　　　　30 　　8月5日クロ54 なし　　　　50 　　7月7日アカ98 もも　　　　20 　　9月1日アオ43 すいか　　　　35 　　8月3日 ●完納の行がチャックボックスで、チェックがついたら、”完納”と記載、チェックがついていなかったら空欄のまま。もし表に”完納”と記載されていたら、コマンドボタン１でデータを抽出した時に、チェックがつくようにしたいのです。が、まったくうまくいかないのです。 ●また、コマンド１での抽出データに値を入力したものを上書きすることは一部できるのですが、空欄にしたときに、空欄の状態（無記入）に上書きすることができません。 Private Sub UserForm_Initialize() Dim r As Range Set r = Sheets("Sheet1").Range("A8").CurrentRegion.Offset(1) Set r = r.Resize(r.Rows.Count - 1) With ListBox1 .ColumnWidths = "50;50;0;0;0;0;0" .ColumnCount = 7 .RowSource = r.Address(A8, G) End With End Sub Private Sub CommandButton1_Click() If ListBox1.ListIndex <> -1 Then TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 0) TextBox2.Value = ListBox1.List(ListBox1.ListIndex, 1) TextBox3.Value = ListBox1.List(ListBox1.ListIndex, 2) TextBox5.Value = ListBox1.List(ListBox1.ListIndex, 4) TextBox6.Value = ListBox1.List(ListBox1.ListIndex, 6) End If If Not IsEmpty(ListBox1.List(ListBox1.ListIndex, 3)) Then TextBox4.Value = Format(CDate(ListBox1.List(ListBox1.ListIndex, 3)), "m/d") Else TextBox4.Value = "" End If End Sub Private Sub CommandButton2_Click() If ListBox1.ListIndex <> -1 Then Dim r As Range ' 元データの範囲を取得 Set r = Sheets("Sheet1").Range("A8").CurrentRegion.Offset(1) Set r = r.Resize(r.Rows.Count - 1) ' 日付型かどうかをチェック If IsDate(TextBox4.Value) Then ' 選択されたセルの更新 r(ListBox1.ListIndex + 1, 4) = TextBox4.Value End If r(ListBox1.ListIndex + 1, 7) = TextBox6.Value End If End Sub Private Sub CheckBox1_Click() If ListBox1.ListIndex <> -1 Then Dim l As Range Set l = Sheets("Sheet1").Range("A8").CurrentRegion.Offset(1) Set l = l.Resize(l.Rows.Count - 1) If CheckBox1.Value = True Then l(ListBox1.ListIndex + 1, 5).Value = "完納" If CheckBox1.Value = False Then l(ListBox1.ListIndex + 1, 5).Value = "<>" End If End If End If End Sub すみませんが、ご親切に教えていただけましたら幸いです。よろしくお願いいたします。
- ベストアンサー
- Visual Basic