1PrivateSub CommandButton1_Click()2Dim r As Range, c As Range, n AsLong, EndR As Range
34Set EndR = Cells(Rows.Count,1).End(xlUp)56If EndR.Row < ActiveCell.Row Then7 MsgBox "データのあるセルを選択してください。"8ExitSub9ElseIf EndR.Row = ActiveCell.Row Then10Set r = Cells(ActiveCell.Row,1)11Else12Set r = Range(Cells(ActiveCell.Row,1), EndR).SpecialCells(xlCellTypeVisible)13EndIf1415ForEach c In r
16 n = n +117Me("TextBox"& n)= c.Value & c.Offset(,1).Value
18If n =5ThenExitFor19Next2021For n = n +1To522Me("TextBox"& n)=""23Next24EndSub
1Option Explicit
23PrivateSub CB_Change()4WithMe.ActiveControl
5If.Tag <>""Then Cells(.Tag,4).Value =.Value
6EndWith7EndSub89PrivateSub ComboBox1_Change()10 CB_Change
11EndSub1213PrivateSub ComboBox2_Change()14 CB_Change
15EndSub1617PrivateSub ComboBox3_Change()18 CB_Change
19EndSub2021PrivateSub ComboBox4_Change()22 CB_Change
23EndSub2425PrivateSub ComboBox5_Change()26 CB_Change
27EndSub2829PrivateSub CommandButton1_Click()30Dim r As Range, c As Range, n AsLong, EndR As Range
3132Set EndR = Cells(Rows.Count,1).End(xlUp)3334If EndR.Row < ActiveCell.Row Then35 MsgBox "データのあるセルを選択してください。"36ExitSub37ElseIf EndR.Row = ActiveCell.Row Then38Set r = Cells(ActiveCell.Row,1)39Else40Set r = Range(Cells(ActiveCell.Row,1), EndR).SpecialCells(xlCellTypeVisible)41EndIf4243ForEach c In r
44 n = n +145Me("TextBox"& n).Value = c.Value & c.Offset(,1).Value
46Me("ComboBox"& n).Tag = c.Row 'コンボボックスのTagに行インデックスを格納47If n =5ThenExitFor48Next4950For n = n +1To551Me("TextBox"& n).Value =""52Me("ComboBox"& n).Tag =""53Next54EndSub5556PrivateSub UserForm_Initialize()57Dim i AsLong5859For i =1To560WithMe("ComboBox"& i)61.AddItem ("○")62.AddItem ("×")63EndWith64Next65EndSub
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/05/02 08:24