【Excel VBA】ListBox.RowSourceの範囲について詳しく教えてください
- ExcelのVBAでListBoxのRowSourceに範囲を指定する方法について詳しく教えてください。質問者は初心者であり、変数を使用して範囲を指定したいと考えていますが、うまくいかないようです。具体的には、五十音順に並んだリストからウ音のみをListBoxに表示したいとのことです。
- VBAコードでは、ウ音を見つけてその後のセルのアドレスを取得する方法を使用しています。しかし、現在のコードではうまくいかず、ListBoxのRowSourceに正しい範囲が指定されていない可能性があります。
- 質問者は別の方法でもかまわないという旨を伝えており、同様の処理を実現する別の方法を教えて欲しいとしています。質問者の要望に応じて、より効果的な方法を教えてください。
- ベストアンサー
ExcelのVBA ListBox.RowSourceの範囲について教えてください。
下記のように範囲を変数で検索指定したいのですが、うまくいきません。VBAは初心者です。誰か助けて。 内容は・・・五十音順にあるリストを作り、ウ音のみをListBoxに表示したいのですが。 Private Sub ToggleButton3_Click() Dim A As Range Dim BBB As String Dim C As Range Dim DDD As String Set A = Cells.Find(what:="ウ", lookat:=xlWhole) BBB = Cells(A.row, A.Column + 1).Address Set C = Cells.Find(what:="エ", lookat:=xlWhole) DDD = Cells(C.row - 1, C.Column + 1).Address ListBox商品名.RowSource = "BBB:DDD" End Sub PS 違う方法でもいいのでどなたか教えてください。
- soccerman777
- お礼率40% (4/10)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ListBox 及び ToggleButton はユーザーフォーム上ではなく、シート上に配置されているのでしょうか？ もしそうでしたら下記の記述に変更すれば大丈夫なハズですよ。 シート上に配置されている場合、ListBoxの範囲指定は、RowSource ではなく ListFillRangeを使用します。また範囲は、変数と文字を連結した文字列を代入すれば大丈夫です。 ListBox商品名.ListFillRange = BBB & ":" & DDD もし、ユーザーフォーム上でのご質問でしたら、全く内容が異なりますので補足願います。
関連するQ&A
- エクセルのＶＢＡで悩んでいます。
いつもありがとうございます。 エクセルのＶＢＡで悩んでいます。 セルの範囲指定をＶＢＡで行いたいのです。 ただし、引数に数値変数を使用する為、Cellsプロパティを使います。 すると、離れている範囲の範囲指定が出来ないのです。 例えば、Rangeプロパティだと、 Range("A5:E5,A9:E32").Select こうなるところを、 A9:E32 を変数に置き換えたくて、 Range("A5:E5", Cells(g, 1), Cells(h, 5)).Select と、するとエラーが出ます。 VBAの前文は次の通りです。 Private Sub CommandButton1_Click() a = Me.TextBox1.Value b = Me.TextBox2.Value Set c = Range("a:a").Find(what:=a, LookIn:=xlValues, lookat:=xlWhole) Set d = Range("a:a").Find(what:=b, LookIn:=xlValues, lookat:=xlWhole) 'MsgBox c + d e = c.Address 'MsgBox e f = d.Address 'MsgBox f g = Range(e).Row MsgBox g h = Range(f).Row MsgBox h Range(Cells(g, 1), Cells(h, 5)).Select End sub よろしくお願い致します。
- 締切済み
- Windows XP
- VBAで列を探して最終行までハイパーリンクを付けた
Ａ列に URL http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ が入ってる場合は、 Sub Sample1() Dim R As Range For Each R In Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row) ActiveSheet.Hyperlinks.Add Anchor:=R, Address:=R.Value Next End Sub でハイパーリンクを付けられますが、 URL列がＡ列じゃない場合の応用の聞かせ方がわかりません。 場合によっては、画像のようにＢ列であったりＣ列であったりします。 なので Dim C As Long C = Cells.Find(What:="URL", LookAt:=xlWhole).Column で列番号を取得して、ループさせようと思ったのですが、 For Each R In Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row) の部分でどうすればいいのかわかりません。 range表記ではなくcells表記にすればいいような気がしますがどうやって改造すればいいでしょうか？ あと、この場合はForEachではなくDoloopやForNextを使った方が良いのでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡのＦＩＮＤの質問です。
エクセルＶＢＡのＦＩＮＤの質問です。 シート１ A B C D 1 コード１ コード２ コード３ 名 称 2 4 1 1 3 4 2 2 4 4 3 1 シート２ A B 1 コード１ 名 称 2 1 名称１ 3 2 名称２ やりたいことは、シート１のＤ列に、シート１のコード３をもとにシート２から名称を取得したいのです。 下記に記したプログラムだと最初のＦＩＮＤＮＥＸＴは動くのですが、 2回目でエラーになってしまい、次を読んでくれません。 どなたか、ご教授頂けますでしょうか。 シート１の検索条件はコード１の"4"です。 シート１のコード１は重複キーで、一レコードずつ読んで行き、各レコード毎にシート２を読みたい のです。 Dim シート1 As Worksheet Dim シート2 As Worksheet Dim obj As Object Dim Lin As Integer Dim mykey As Integer Dim obj1 As Object Dim Lin1 As Integer Dim mykey1 As Integer Dim st_Lin As Integer Set シート1 = ThisWorkbook.Worksheets("シート１") Lin = シート1.Cells(シート1.Rows.Count, 1).End(xlUp).Row mykey = "4" Set obj = シート1.Range("A1", "A" & Lin).Cells.Find(What:=mykey, _ LookIn:=xlValues, _ lookat:=xlWhole, _ SearchOrder:=xlByColumns) If obj Is Nothing Then MsgBox ("異常です") Exit Sub Else st_Lin = obj.Row Do Until obj.Row <> st_Lin Set obj = シート1.Range("A1", "A" & Lin).FindNext(obj) If obj Is Nothing Then Exit Do Else Set シート2 = ThisWorkbook.Worksheets("シート２") With シート2 Lin1 = .Cells(シート2.Rows.Count, 1).End(xlUp).Row mykey1 = シート1.Cells(obj.Row, 3).Value Set obj1 = .Range("A1", "A" & Lin1).Cells.Find (What:=mykey1,LookIn:=xlValues,lookat:=xlWhole,SearchOrder:=xlByColumns) If obj1 Is Nothing Then MsgBox ("名称取得できませんでした") Exit Sub Else シート1.Cells(obj.Row, 4).Value = .Cells(obj1.Row, 2).Value End If End With End If Loop End If
- ベストアンサー
- その他（プログラミング・開発）
- EXCELマクロのこの記述の意味を教えてください。
こんにちは。 以前、教えてもらったマクロですが もう少し深く勉強したいので、記述の 意味（翻訳？）を教えてください。 Sub Test5() Dim FR1 As Range, FR2 As Range With ActiveSheet Set FR1 = .Cells.Find( _ "*", , xlValues, xlWhole, xlByRows, xlPrevious) Set FR2 = .Cells.Find( _ "*", , xlValues, xlWhole, xlByColumns, xlPrevious) End With Range("A1", Cells(FR1.Row, FR2.Column)).Select Set FR1 = Nothing: Set FR2 = Nothing End Sub また、この範囲をA列だけを見る場合、つまりA列の最終行を範囲とする場合は、どう記述すればよいのでしょうか？ ぜひ、教えてください。
- ベストアンサー
- オフィス系ソフト
- Excel VBA オートフィルの範囲指定
Excel VBA で関数を入れたセルを最下行までコピー させたいのですが、範囲の指定がうまくできません。ごちゃごちゃ書きすぎて、よくわからなくなってしまいました。 実行してみたら、オートフィルのところでデバッグが出ました。 VBAはまだまだ初心者レベルです・・・ どこをどう直せばきちんと処理されるのか、どなたかお知恵をお貸しください。 （それと初めの定義は、Rangeで合ってるのでしょうか？） Sub sample() Dim MyCell1 As Range Dim MyCell2 As Range Dim MyCell3 As Range Dim MyCell4 As Range Dim MyCell5 As Range Set MyCell1 = Cells(5, Range("4:4").Find(what:="○○", searchorder:=xlByColumns).Offset(1, 1).Column) Set MyCell2 = Cells(5, MyCell1.Offset(0, 2).Column) MyCell1.Select Selection.Formula = "=$A5-" & MyCell2.Address(False, True) Set MyCell3 = Cells(5, MyCell1.Offset(0, -1).Column) Set MyCell4 = Cells(5, Cells(5, Columns.Count).End(xlToLeft).Column) Set MyCell5 = MyCell1.Offset(0, 1) MyCell5.Select Selection.Formula = "=" & MyCell3.Address(False, True) & "-" & MyCell4.Address(False, True) Range(MyCell1, Cells(5, MyCell1.Offset(0, 1).Column)).Select Selection.AutoFill Destination:=Cells(Cells(5, MyCell1.Column), Cells(Cells(Rows.Count, 1).End(xlUp).Row, MyCell5.Column)), Type:=xlFillCopy End Sub ********************* 下のような表に関数を入力して最下行までコピーさせたいです。 ｜ A ｜ B ｜ C ｜ D ｜ E ｜ F ｜ G ｜ H ｜ I ｜ J ｜ K ｜ L ｜ -------------------------------------------------------------------------- 4 | code | name | 7/1 | 7/2 | ○○ | | | code|name| 7/1 | 7/2| ○○ | 5 |10000|aaaaaa| 15 | 20 | 35 | | |10001|bbbbbb| 13 | 25 | 38 | (( )) F5に "=$A5-$H5" と数式を入れてcodeを比較し、G5に "=$E5-$I5"と入れて数量を比較する。 F列とG列の入力されている最下行まで数式をコピーする。 ※毎月日数が変わり、商品数も変わるので、A列・B列・４行目以外は全て可変。 WindowsXP Excel2003 です。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel マクロ
Private Sub Workbook_Open() Dim name As String name = "7月" '//ワークシート名----編集用（本日曜日カラー変更ロジック用----月初変更箇所） Dim week As String Dim Y As Integer Dim X As Integer '//処理(1)-(1) すべての曜日セルの背景を白にする Worksheets(name).Range("A13:M13").Interior.ColorIndex = 19 '白 '//処理(1)-(2) 今日の曜日を取得して色を変更する week = WeekdayName(Weekday(Now), False) '今日の曜日 Y = Worksheets(name).Cells.Find(week).Row X = Worksheets(name).Cells.Find(week).Column Worksheets(name).Cells(Y, X).Interior.ColorIndex = 45 'オレンジ系の色 '//処理(2) 本日日付を取得して色を変更する Dim D As Integer D = Day(TODAY()) '本日の日付 Y = Worksheets(name).Cells.Find(D, LookAt:=xlWhole).Row X = Worksheets(name).Cells.Find(D, LookAt:=xlWhole).Column Worksheets(name).Cells(Y, X).Interior.ColorIndex = 19 ' End Sub 途中なのですが、日付を取得して色を変える というロジックを作っていて 処理(2)からを新しく付け足した時にエラーが起こりました。 内容は「SubまたはFunctionが定義されていません」です。 どうやらD = Day(TODAY())らへんでエラーになっているようなのですが どなたか分かる方教えてください(´・ω・`)(´-ω-`))ぺこり
- ベストアンサー
- Visual Basic
- VBA 選択された離れたセルの値の取得について
EXCELのVBAでどうしても前に進めず困っております。 目的としているコードは、離れたセル（複数）をあらかじめCtrlキーで選択状態にしておき、選択されたセルの値のみをVBAが別のセルに並べていくというものです。 以下が私の作ったコードなのですが、思ったとおりの動作をしてくれません。 VBA初心者なもので、おかしな記述がたくさんあると思うのですが、どなたかアドバイスお願いします。 Public Sub xx() Dim SelectArea As String Dim TargetCell As Range Dim a As Integer Dim Row As Integer Dim Column As Integer Dim CNT1 As Integer a = 0 Row = 0 Column = 0 For CNT1 = 1 To 10 Row = Row + 1 SelectArea = Selection.Address Set TargetCell = Range("B3").Cells(Row - 1, Column) If Intersect(Range(SelectArea), TargetCell) Is Nothing Then Else Range("A30").Cells(a, 0) = Range("B3").Cells(Row - 1, Column).Value a = a + 1 End If Next End Sub
- ベストアンサー
- オフィス系ソフト
- 複数の列を繋げてＡ列に入れたい ＶＢＡ
aaa aaa bbb aaa bbb ccc aaa (A列にaaa、B列にbbb、C列にcccが入ってます) と言うデータがあるのですが 全てＡ列に入れて aaa aaabbb aaabbbccc aaa としたいです。 ・最終列は必ずしもＣではないのです。（Dの場合もEの場合もある） ・最終行も変化します。 Sub 分かれてる列を繋げる() Dim Col As Long Dim Row As Long For Row = 1 To Range("a65536").End(xlUp).Row For Col = 1 To Cells(Row, 256).End(xlToLeft).Column Cells(Row, 1) = Cells(Row, 1) & Cells(Row, 2) & Cells(Row, 3) Next Col Next Row End Sub をやってみましたが、 aaa aaabbbbbb aaabbbcccbbbcccbbbccc aaa となってしまい、 欲しい結果とは違くなってしまいます。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAのFind について
VBAで、特定の文字が入っているセル位置(結合セル)を取得したく、 シートのコード記述で --- Private Sub Worksheet_Change(ByVal Target As Range) Dim w_CelObj As Object Set w_CelObj = ActiveSheet.Cells.Find(What:="あああ", LookAt:=xlWhole, MatchByte:=False) MsgBox w_CelObj.Row MsgBox Cells.Find(What:="いいい").Row End Sub ----- と記述し、"aa"も"bb"もどちらの方法でも取得できました。 ですが、これを別のEXCELブック（既にシートがたくさんあり、コードもびっしり記述してあります）で同様のことを行おうとするとエラーになってしまいます。 ※新しいシートを作成し、そのシートにコードをコピーして試しました。 セルの結合を解除すると正常に取得できるのですが、結合セルだとFindされてきません。 調べてみましたが、「Cells.Find」ときちんとセル全体を指定していれば大丈夫のようで、同様の事例を検索できませんでした。 他に何を調べればよいでしょうか？ ご協力よろしくお願いします。
- 締切済み
- オフィス系ソフト
- マクロの関係で困ってしまいました。印刷できません
Sub Sample3() Dim i As Long, k As Long, c As Range, r As Range i = InputBox("入替え元番号を入力") k = InputBox("入替え先番号を入力") Set c = Range("A:A").Find(what:=i, LookIn:=xlValues, lookat:=xlWhole) Set r = Range("A:A").Find(what:=k, LookIn:=xlValues, lookat:=xlWhole) On Error Resume Next If c.Row < r.Row Then i = c.Row k = r.Row Else i = r.Row k = c.Row End If Rows(k + 1).Insert Rows(i).Cut Cells(k + 1, "A") Rows(k).Cut Cells(i, "A") Rows(k).Delete End Sub 上記のようなマクロを組んで頂いたのですが、「改ページ位置を移動できません」という状況になっています。せっかくgooの質問で答えて頂いたのですが、これでやったら８０行ぐらいから、この表示が出て、解決できません。どなたか、解決して頂けませんか。その時に補足すればよかったのですが、動かしてみて分かった次第です。お答え頂いた方に大変申し訳なく思っています。よろしくお願いします。 なお、間違った入力をしてしまった時に、一回だけは元に戻るなんてことはできないですかね。これもできたら厚かましいですがお答え頂けたらと思います。
- ベストアンサー
- Excel（エクセル）
お礼
ありがとうございました。ListBox商品名.ListFillRange = BBB & ":" & DDD で解決しました。 つまり、文字列を接続する演算子が分からなかったみたいでした。 ちょっとした事だったんだけど、助かりました。もっと勉強していきます。