singo1232001

¦^´_ 2# reangame

Public actRng
Private Sub CommandButton1_Click()
actRng.Value = "¡¶"
'actRng.Offset(0, 1).Select
'ThisWorkbook.ActiveSheet.Activate ' ±N±±¨îÅvÂಾ¨ì¥Ø«e¤u§@ªí
unload me
'©ÎªÌ¥i¥H¸Õ¸Õ¬ÝUserForm1. Hide
End Sub


Private Sub UserForm_Activate()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeName(ctrl) = "CommandButton" Then
ctrl.TabStop = False
End If
Next ctrl
End Sub

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
Application.SendKeys "{TAB}"
KeyCode = 0
End If
End Sub
½Æ»s¥N½X

Sub showUF1()
    set actRng = ActiveCell
    UserForm1.Show 0 'modeless
End Sub