请问如何得到ALT+ENTER组合键

Question

请问如何得到ALT+ENTER组合键，我想在一个.XLS中让一个字符串换行显示在一个单元格中，谢谢！

Answer 1

Private Sub Command1_Click()
End
End Sub
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 4 Then
Command1_Click
End If
End Sub

Answer 2

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    
    
    If KeyCode = vbKeyReturn And (Shift And vbAltMask) Then
        MsgBox "按下了ALT+ENTER"
    End If
    
End Sub

Answer 3

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     If KeyCode = vbKeyReturn And Shift = 1 Then
        MsgBox "按下了ALT+ENTER"
    End If
End Sub
这样可以么？

Answer 4

sorry，shift=4 ，写错了。
和你的shift and vbaltmask有什么区别？

Answer 5

在你的字符串中间加上换行符,然后让单元格的text=你的字符串

Answer 6

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     If KeyCode = vbKeyReturn And Shift = 1 Then
        MsgBox "按下了ALT+ENTER"
    End If
End Sub
这样可以么？可以。不过在vb.net里才可以通过。.net里把键盘对应的值都做了对应的名字。

Answer 7

在.XLS中只要在字符串中加上chr(10) ，就可以实现字符串换行了。
现在问题改为：如何在.csv文件中实现在一个单元格中字符串换行呢？