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

powerlink77

§Ú¦³¤@­Ó¢Ó¢æ¢Ñ¢Ó¢ÚÀÉ¡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

thps51134

¦^´_ 3# powerlink77

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

powerlink77

«¢«¢¡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

GBKEE

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