¦p¦ó¦bªí³æÅã¥Ü Excel ¬YÄæ¦ìªº¼ÆÈ¡H
- ©«¤l
- 558
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 625
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-5-20
|
¦^´_ 1# bowwow1975
½Ð¤W¶Ç§Aªº½d¨Ò~ ¦]¬°¬Ý¤£À´ §A¤U±ªº³o¨â¥y¸Ü
============================
ºâ§¹¤§«á¡A½Ð°Ý§Ún¦p¦ó§âª½§ì¨ìªí³æ¸Ì¡H
¡]¨Ò¦pºâ¥XªºÈ¦b F5ªº¸Ü¡^
============================
©Ò¿×ªººâ§¹«áªºÈ¬O¤°»ò·N«ä?? (§AªºÈ¬O«ç»òºâªº,¬O¤°»ò·N¸q©O??)
©Ò¿×ªºÈ¦bF5¤S¬O¤°»ò·N«ä??
°ÝÃDªº´yzn§ó²M·¡¤@¨Ç~ ·|§ó¦nª¾¹D§Aªº»Ý¨Dò~ |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 558
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 625
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-5-20
|
¦^´_ 5# bowwow1975
ªí³æªº¬[ºc¹Ï
- 'ªí³æ¤ºªºµ{¦¡½X
- Private Sub CommandButton1_Click() 'Add
- A = Sheet1.Range("A65536").End(xlUp).Offset(1, 0).Row
- With UserForm1
- Sheet1.Range("A" & A).Select
- Sheet1.Range("A" & A) = .TextBox2.Text
- .TextBox1.Text = A
- End With
- End Sub
- Private Sub CommandButton2_Click() '¤W¤@µ§
- With UserForm1
- K = .TextBox1.Value - 1
- If K < 3 Then
- MsgBox "¤w¸g¨ì¸ê®Æªº²Ä¤@µ§"
- Sheet1.Range("A3").Select
- .TextBox1.Text = 3
- Else
- Sheet1.Range("A" & K).Select
- .TextBox1.Text = Sheet1.Range("A" & K).Row
- .TextBox2.Text = Sheet1.Range("A" & K)
- End If
- End With
- End Sub
- Private Sub CommandButton3_Click() '¤U¤@µ§
- With UserForm1
- K = .TextBox1.Value + 1
- S = Sheet1.Range("A65536").End(xlUp).Row
- If K > S Then
- MsgBox "¤w¸g¨ì¸ê®Æªº³Ì«á¤@µ§"
- Sheet1.Range("A" & S).Select
- .TextBox1.Text = S
- Else
- Sheet1.Range("A" & K).Select
- .TextBox1.Text = Sheet1.Range("A" & K).Row
- .TextBox2.Text = Sheet1.Range("A" & K)
- End If
- End With
- End Sub
- Private Sub UserForm_Activate() '°õ¦æUserForm®Éªº¦U¶µ¹w³]
- '===== ªì©lªºUserFormªº³]©w======
- With UserForm1
- .CommandButton1.Caption = "Add"
- .CommandButton2.Caption = "¤W¤@µ§"
- .CommandButton3.Caption = "¤U¤@µ§"
- .Label1.Caption = "²{¦b¬O²Ä"
- .Label2.Caption = "¦C¸ê®Æ"
- .TextBox1.Text = Sheet1.Range("A3").Row
- .TextBox1.Enabled = False
- .TextBox2.Text = Sheet1.Range("A3")
- End With
- '=================================
- End Sub
½Æ»s¥N½X |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|