エクセルの学校：全文検索：Hyper Estraier：簡易リストボックス

Results of 1 - 1 of about 222 for 簡易リストボックス (0.005 sec.)

[[20040725224159]]: #score: 10961; @digest: 5b074bf5c2c3c27b2545dda946d6ae66; @id: 7933; @mdate: 2004-07-26T15:28:31Z; @size: 3878; @type: text/plain; #keywords: mycolad (22676), lastcol (18544), teigi (14536), createnames (12049), 雅子 (6322), jindon (6095), 目雅 (5618), 夏目 (5371), 主眼 (5069), 子似 (4781), lastrow (4594), 部品 (3945), 初回 (2443), 囲名 (2103), ・部 (1961), windowsme (1835), 品b (1832), 品d (1810), 案内 (1745), 可変 (1687), 品a (1596), 各列 (1505), 名" (1489), 品c (1215), listbox1 (1125), 照範 (1116), currentregion (1052), xltoleft (1009), トボ (903), ボッ (892), と置 (862), 置き (856); 『名前定義のマクロ』（mana）
また教えていただけますか Sub teigi() Dim lastrow As Long, lastcol As Long lastrow = Range("A1").CurrentRegion.Rows.Count lastcol = Range("A1").CurrentRegion.Columns.Count Range(Cells(1, 1), Cells(lastrow, lastcol)).Select Selection.CreateNames Top:=True, Left:=False Range("A1").Select End Sub 上記マクロでリストボックス用の名前の範囲を定義しています範囲変更時に "現在の設定と置き換えますか"のダイアログボックス?が出てタイトル（列数）が多くなると "はい"を押し続けなければ成りませんそこでボックス内に"すべてはい"ボタンを置くか又はボックス自体を表示せず置き換えたいのですがお知恵をお貸し下さいよろしくお願いいたします Excel2000 WindowsME ------ こんな感じでどうでしょう? （夏目雅子似） Sub teigi() Dim lastrow As Long, lastcol As Long lastrow = Range("A65536").End(xlUp).Row lastcol = Range("IV1").End(xlToLeft).Column Range(Cells(1, 1), Cells(lastrow, lastcol)).Select Selection.CreateNames Top:=True, Left:=False Range("A1").Select End Sub ----- あのぅ、全然意味が違っている様でして^^; 失礼しました。ごめんなさいm(__)m （夏目雅子似） ---- 違っていたらごめんなさい。 (jindon) Sub teigi() Dim lastrow As Long, lastcol As Long lastrow = Range("A1").CurrentRegion.Rows.Count lastcol = Range("A1").CurrentRegion.Columns.Count Range(Cells(1, 1), Cells(lastrow, lastcol)).Name="範囲名" End Sub ----- おはようございます。全然見当違いだったら無視して下さい。（夏目雅子似） Private Sub UserForm_Initialize() Dim lastrow As Long, lastcol As Long Dim MyColAd As String lastrow = Range("A65536").End(xlUp).Row With Range("IV1").End(xlToLeft) lastcol = .Column MyColAd = .Address End With With ListBox1 .ColumnCount = lastcol .RowSource = "Sheet1!A2" & ":" & Mid(MyColAd, 2, 1) & lastrow .ColumnHeads = True End With End Sub ちょっと、訂正m(__)m ---- 夏目雅子似さん、jindonさん回答ありがとうございますお返事がおそくなりました A B C D ・・・部品A 部品B 部品C 部品D A001 B001 C001 D001 A002 B002 C002 D002 C003 B003 C003 D003 説明不足でお手間をお掛けしていますリストボックスは入力規則の簡易リストボックスです上のようなリストで各列上端行名で範囲を定義していますリストにデータ追加後マクロを実行すると現在の"部品A"の設定と置き換えますか現在の"部品B"の設定と置き換えますか・・・と列数だけ"はい"ボタンを押すことになりますこの確認をせずにマクロで置き換えたいのですよろしくお願いいたします(mana) ---- 提示されたマクロは試しましたか? 私のものはそのまま上書きすると思いますが? 要するに、可変の範囲がご希望なのですよね? 関数でも可能ですが、マクロであればChangeイベントにでも設定して、各列にデータが追加された段階で範囲指定を自動で変えたいということですか? データのあるシートのモジュールに貼り付けてください。 (jindon) Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long, x As Long, c As Long c = Range("a1").End(xlToRight).Column If Target.Column > c Or Target.Row = 1 Then Exit Sub For i = 1 To c x = Cells(65536, i).End(xlUp).Row Range(Cells(2, i), Cells(x, i)).Name = Cells(1, i).Value Next End Sub ---- jindonさんこんばんわ＞要するに、可変の範囲がご希望なのですよね? そうではなくてそのまま上書きが主眼でした初回ご案内のマクロでは"範囲名"の参照範囲がA1:D4になりましたが今回のマクロはスゴイですまさしく可変の範囲参照範囲がピッタンコですありがとうございました勉強になりました雅子さんへ初回ご案内のマクロは置き換えの確認が必要でした次のマクロはListBox1を作っていなかったので?うまく動きませんでした十分に検証できずに申し訳ありませんまたおしえてくださいね (mana) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200407/20040725224159.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ