¦p¦ó¦bªí³æÅã¥Ü Excel ¬YÄæ¦ìªº¼ÆÈ¡H
- ©«¤l
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 66
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Excel2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-16
- ³Ì«áµn¿ý
- 2013-9-3
|
¦p¦ó¦bªí³æÅã¥Ü Excel ¬YÄæ¦ìªº¼ÆÈ¡H
§Ú«Ø¥ß¤F¤@Óªí³æ¡Aªí³æ¸Ì¦³¨âÓ textbox¡A¿é¤JȪº¸Ü·|¶Ç¦Ü Sheet3 ªºÀx¦s®æ¡I
ºâ§¹¤§«á¡A½Ð°Ý§Ún¦p¦ó§âª½§ì¨ìªí³æ¸Ì¡H
¡]¨Ò¦pºâ¥XªºÈ¦b F5ªº¸Ü¡^
§Ú¬On¥Î¼ÐÅÒ¥h¨úÈÁÙ¬O¡H
Private Sub CommandButton1_Click()
Sheet3.Range("G3").Value = 1.Text
Sheet3.Range("G10").Value = 2.Text
End Sub
§ä¤F¤@¾ãÓ¤U¤È¤F~~~~
§Ú¬O¶W¯Å·s¤â¡A¦]¬°¦ÑÁó¬ðµMn§Ú³]p Excel VBA¡AÁٽФj¤jÀ°À°¦£¡I |
|
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¦^´_ 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
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 66
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Excel2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-16
- ³Ì«áµn¿ý
- 2013-9-3
|
¦^´_ 2# hugh0620
¤£¦n·N«ä¡A§ÚÁ¿¸Ô²ÓÂI¡I
¨ãÅé´N¬O¡A§Ú¦b excel ¸Ì³Ð«Ø¤@Ó«ö¶s¡A¶}±Ò¤@Óªí³æ¡AµM«áªí³æ¸Ì¦³´XÓ textbox¡A¨Ã¼W¥[¤@Ó°õ¦æ«ö¶s¡I
°õ¦æ«á·|§â textbox ªº ª½¶Ç¦Ü Excel Àx¦s®æ¸Ì¡A¥Ñ Excel °µ¹Bºâ¡A¹Bºâ§¹«á¡A§Ú§Æ±æÈ¥i¥H show ¦bªí³æ¤W¡I
PSªí³æ¨S¦³Ãö³¬¡A¥u¬O·Q§Q¥Î Excel °µ¹õ«á¹Bºâ¦Ó¤w¡I |
|
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 66
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Excel2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-16
- ³Ì«áµn¿ý
- 2013-9-3
|
·PÁª©¥D~~~¤S¾Ç¨ì¤F¤@Ó With ªº¥Îªk¡I
¸Ü»¡¦^¨Ó Label ªº (name) Äæ¦ì¦n¹³¤£µ¹§ó§ï¡H |
|
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¦^´_ 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
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 66
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Excel2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-16
- ³Ì«áµn¿ý
- 2013-9-3
|
¦^´_ 6# GBKEE
ª©¥D~~~§Ú¯uªº·Q¤Á¸¡¦Û±þ~~~§Úµo»}¡A§Ú¤]ª¾¹D±q¨º¸Ì§ï¡I
¦ý¬Oèè´N¬O¤£µ¹§ï~~~
µM«áµ¥§A¦^ÂФ§«á¡A§Ú¤S¥h§ï~~~~Åܦ¨¥i¥H§ï¤F............................. |
|
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¦^´_ 8# bowwow1975
¨º¬O¥¿±`ªº...
¦³®ÉÔ¬O¦]¬°§A°õ¦æ¤¤ ¤£¯à§ï ©Î°õ¦æ¤¤¦³¿ù»~ ¤]¤£·|µ¹§ï |
|
¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~
¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk
¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM
|
|
|
|
|
- ©«¤l
- 6
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-4-23
- ³Ì«áµn¿ý
- 2020-4-19
|
·PÁ¤j¤j̪º«ü¾É±Ð¾Ç |
|
|
|
|
|
|