いつもお世話になります。
Excelで、ENTERを押下したときの選択セルの移動方向を変更する
マクロを組んで使っておりましたが、今日そのマクロを使おうとすると
特定の行でexcelが落ちるようになりました。
ステップ実行したところ、
Application.MoveAfterReturn = True
としたときに落ちるようです。どう直せばよいでしょうか、お知恵を
お借りさせていただければと思います。
一応該当行を移動などしてみたのですが、
Application.MoveAfterReturn = True
となるところで毎回落ちてしまいます。
ソースは以下の通りです。
Public dlgComboBoxReturn As Boolean Public dlgComboBoxResult As Integer Sub setDirectionAtEntering() ' ' setDirectionAtEntering Macro ' Enterしたときのセルの移動方向を設定する ' ' Dim defaultDirection As XlDirection DlgComboBox.Caption = "ENTER後セル移動方向設定" DlgComboBox.Label1.Caption = "ENTER押下後移動する方向を" DlgComboBox.Label2.Caption = "選択してOKしてください" defaultDirection = Application.MoveAfterReturnDirection With DlgComboBox.ComboBox1 .AddItem ("上") .AddItem ("下") .AddItem ("左") .AddItem ("右") ' この下の行で落ちる Application.MoveAfterReturn = True Select Case defaultDirection Case xlUp .ListIndex = 0 Case xlDown .ListIndex = 1 Case xlToLeft .ListIndex = 2 Case xlToRight .ListIndex = 3 End Select End With DlgComboBox.Show If dlgComboBoxReturn Then Dim direction As XlDirection Select Case dlgComboBoxResult Case 0 direction = xlUp Case 1 direction = xlDown Case 2 direction = xlToLeft Case 3 direction = xlToRight End Select Application.MoveAfterReturnDirection = direction End If End Sub
Private Sub CommandButton1_Click() dlgComboBoxResult = ComboBox1.ListIndex dlgComboBoxReturn = True Unload Me End Sub Private Sub CommandButton2_Click() dlgComboBoxReturn = False Unload Me End Sub Private Sub UserForm_Click() End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/04/25 04:05
2017/04/25 04:26
2017/05/08 09:37