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

[µo°Ý] ¦C¦Lªº¥¨¶°¡C¡C¦p¦ó­×§ï¡C¡C

[µo°Ý] ¦C¦Lªº¥¨¶°¡C¡C¦p¦ó­×§ï¡C¡C

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-11-27 16:47 ½s¿è

§Ú¦³¤@­Ó¢Ó¢æ¢Ñ¢Ó¢ÚÀÉ¡A¦C¦L¬O¥i¥H¥Î¿ï¾Ü¤é´Á¨Ó¦C¦L©Ò»Ýªº³øªí
¦ý¡C¡C¦P¨Æ¤wÂ÷¾¡C¡C
§Ú¥\¤O¤£°÷¡A¯à§_À°¬Ý¤@¤U¡C¡C­n¦p¦ó­×§ï¤Î¨ä·N¸q¦pCells(3, 10)Ô£·N«ä¡C¡H¡C¡C

Private Sub click_¨ú®ø_Click()
UserForm1.Hide
End Sub

Private Sub click_½T©w_Click()
Dim D55 As Integer
Dim D11 As Integer
Dim D21 As Integer
D11 = (ComboBox2.Value - ComboBox1.Value)
For D21 = 0 To D11
Worksheets("¤é³øªí").Cells(3, 10).Value = (D21 + ComboBox1.Value)
ActiveWindow.SelectedSheets.PrintOut COPIES:=1, COLLATE:=True
Next D21
UserForm1.Hide
End Sub


Private Sub ComboBox1_Change()
Dim D44 As Object
SETD44 = ComboBox1.Value
End Sub

Private Sub ComboBox2_Change()

End Sub

Private Sub UserForm_Click()

End Sub
powerlink77

¦^´_ 1# powerlink77
­n¦p¦ó­×§ï :  ¦p¦ó­×§ï ­nªþÀÉ»¡²M·¡
¦pCells(3, 10)Ô£·N«ä  : Cells(¦C, Äæ)ªº¦ì¸m     Range( "B10" ) -> Cells(10, 2)  ©Î Cells(10, "B")      
¨ä¾lªº ¦h¬Ý¬Ý´Nª¾¹D

TOP

«¢«¢¡I¡I¦æ®a¤@¥X¤â´N¸Ñ¨M¤F¢I¢I
¦pCells(3, 10)Ô£·N«ä  : Cells(¦C, Äæ)ªº¦ì¸m<------¤F¸Ñ¡I¡I¡I
ÁÂÁ¡I¡I¡I¡I¡I
powerlink77

TOP

¦^´_ 3# powerlink77

¡@¡@®³­Ó¦nªF¦èµ¹§A¬Ý¬Ý¡@¾Ç²ßExcel VBAªº¤@¨Ç°ò¥»·§©À
ª©¥D¥X«~¥²ÄݨΧ@¡]¯º¡^

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD