次のVBAコードを使用して、コンボボックスを使用してドロップダウンリストに入力するときにオートコンプリートを許可しています。
このコードは、VBAコードが適用されているシートの「元に戻す」および「やり直し」機能を無効にします。 これらの機能を許可するようにVBAコードを変更できますか?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'更新者 Extendoffice:2018 / 9 / 21
OLEObjectとしての薄暗いxCombox
文字列としての薄暗いxStr
ワークシートとしての薄暗いxW
薄暗いxArr
xWs=Application.ActiveSheetを設定します
エラーで次の再開
xCombox = xWs.OLEObjects( "TempCombo")を設定します
xComboxを使用
.ListFillRange = ""
.LinkedCell = ""
.Visible = False
最後に
Target.Validation.Type=3の場合Then
Target.Validation.InCellDropdown = False
キャンセル= True
xStr = ターゲット.検証.式1
xStr = Right(xStr、Len(xStr)-1)
xStr = ""の場合、Subを終了します
xComboxを使用
.visible = 真
.Left = ターゲット.Left
.Top = ターゲット.Top
.Width = ターゲット.Width + 5
.高さ = ターゲット.高さ + 5
.ListFillRange = xStr
If .ListFillRange = "" Then
xArr = Split(xStr、 "、")
Me.TempCombo.List = xArr
終了する場合
.LinkedCell = ターゲット.アドレス
最後に
xCombox.Activate
Me.TempCombo.DropDown
終了する場合
End Subの
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger、ByVal Shift As Integer)
ケースキーコードを選択
ケース9
Application.ActiveCell.Offset(0、1).Activate
ケース13
Application.ActiveCell.Offset(1、0).Activate
選択して終了
End Subの
このコードは、VBAコードが適用されているシートの「元に戻す」および「やり直し」機能を無効にします。 これらの機能を許可するようにVBAコードを変更できますか?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'更新者 Extendoffice:2018 / 9 / 21
OLEObjectとしての薄暗いxCombox
文字列としての薄暗いxStr
ワークシートとしての薄暗いxW
薄暗いxArr
xWs=Application.ActiveSheetを設定します
エラーで次の再開
xCombox = xWs.OLEObjects( "TempCombo")を設定します
xComboxを使用
.ListFillRange = ""
.LinkedCell = ""
.Visible = False
最後に
Target.Validation.Type=3の場合Then
Target.Validation.InCellDropdown = False
キャンセル= True
xStr = ターゲット.検証.式1
xStr = Right(xStr、Len(xStr)-1)
xStr = ""の場合、Subを終了します
xComboxを使用
.visible = 真
.Left = ターゲット.Left
.Top = ターゲット.Top
.Width = ターゲット.Width + 5
.高さ = ターゲット.高さ + 5
.ListFillRange = xStr
If .ListFillRange = "" Then
xArr = Split(xStr、 "、")
Me.TempCombo.List = xArr
終了する場合
.LinkedCell = ターゲット.アドレス
最後に
xCombox.Activate
Me.TempCombo.DropDown
終了する場合
End Subの
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger、ByVal Shift As Integer)
ケースキーコードを選択
ケース9
Application.ActiveCell.Offset(0、1).Activate
ケース13
Application.ActiveCell.Offset(1、0).Activate
選択して終了
End Subの