Excel VBA 質問スレ Part77

783 名前：デフォルトの名無しさん mailto:sage [2022/10/01(土) 18:15:10.78 ID:BiebxrBw0.net] セルの内容（日付のところは文字列型（頭にアポストロフィ）で入れてる） ID 名前 日付 イベント 1 名前1 2012年3月14日 Ａをした 2 名前2 2012年3月15日 Ｂをした 3 名前3 2012年3月16日 Ｃをした 4 名前4 2012年3月17日 Ｄをした 5 名前5 2012年3月18日 Ｅをした 6 名前6 2012年3月19日 Ｆをした ※Sheet1のマクロ Private Sub Worksheet_SelectionChange(ByVal Target As Range) With UserForm1 y = ActiveCell.Row .TextBox1 = Cells(y, 1) .TextBox2 = Cells(y, 2) .TextBox3 = Cells(y, 3) + vbNewLine + Cells(y, 4) End With End Sub フォーム(UserForm1)を作って下記コントロールを配置 TextBox,TextBox1,TextBox2,TextBox3(Multiline=true),CommandButton1 UserForm1のマクロ Private Sub CommandButton1_Click() Sheets(1).Range("A1").AutoFilter 2, "*" & UserForm1.TextBox.Text & "*" End Sub ファイル開くイベントとかボタン作って下記マクロでフォームを表示 UserForm1.Show vbModeless 聞いた限りではこんなのしか思い浮かばない

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef