ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

µJÂI¤Î±±¨îÅv°ÝÃD

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2023-7-24 02:19 ½s¿è

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD