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

[µo°Ý] Userform±N¸ê®Æ¤ÀÃþ«ákey¤J¤u§@ï¸Ì¦U¦ì¸m

[µo°Ý] Userform±N¸ê®Æ¤ÀÃþ«ákey¤J¤u§@ï¸Ì¦U¦ì¸m

¥»©«³Ì«á¥Ñ lifedidi ©ó 2013-6-20 11:54 ½s¿è

¤j¤j¦n¡G

¤p§Ì»Ý­n§Ë¤@­Óuserform¡A«ö¤UkeyinÁä«á¡A±Nuserform¸Ìªº¸ê®Æ¤ÀÃþ«ákey¤J¤u§@ï¦U¦ì¸m

¤u§@ï(¯Ó§÷²M³æ)¸Ì¨C¤@­Ó¯Ó§÷¬°12¦C²Õ¦¨¡A

ªþ¥ó¸Ì¦³¤ñ¸û¸Ô²Óªº±Ô­z¡A½Ð°Ñ¦Ò¡C

¯Ó§÷¶i¥Xï.rar (766.43 KB)

ÁÂÁ¡C

¥»©«³Ì«á¥Ñ lifedidi ©ó 2013-6-21 11:10 ½s¿è

¦^´_ 1# lifedidi


¤j¤j¦n¡I
¤p§Ì¦Û¤v§Ë¤F¤@¨Çµ{¦¡½X¡A¦ý¬O¥d¦bµLªk³]©w§ä¥X·í¦C³Ì«á¤@­Ó­ÈµM«á¶K¤W¡A
½Ð«ü±Ð¡A

¯Ó§÷¶i¥Xï20130621.rar (734.33 KB)

³o¼Ëªº¼gªk¤£ª¾¹D¥i¤£¥i¦æ¡A¦pªGOK

¦b¦W¬°"·s¼W¸ê®Æ"ªºuserform¸Ì

¬õ¦â¬°§Ú³]©w¦b²Ä¤­¦C±N¸ê®Æcopy¤W¡A¹ê»Ú¤WÀ³­n¬°·í¦C¸ê®Æ³Ì«á¤@µ§offset1Äæ«ácopy¤W¡C

´M§ä±ø¥ó¬°"Äl¸¹"¥H¤Î"«¬¸¹(³W®æ)"¡A³o¨âµ§¸ê®Æ¬°¯Ó§÷¸Ì¿W¤@µL¤Gªº¸ê®Æ¡A©Ò¥H°µ¬°´M§ä¨Ì¾Ú¡A

Private Sub CommandButton1_Click()
'
²¤¹L
'
Set Äl¸¹ = Cells.Find(What:=Äl¸¹1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
        With Sheet1
            If Not (Äl¸¹ Is Nothing) Then
            If Äl¸¹.Offset(-2, 0) = ³W®æ1 Then
            i = 5
            Äl¸¹.Offset(-9, i) = ·s¼W¸ê®Æ.±M®×½s¸¹
            Äl¸¹.Offset(-8, i) = ·s¼W¸ê®Æ.»s³y¶Ç²¼½s¸¹
            Äl¸¹.Offset(-7, i) = ·s¼W¸ê®Æ.»â®Æ­«1
            Äl¸¹.Offset(-6, i) = ·s¼W¸ê®Æ.»â®Æ®É¶¡1
            Äl¸¹.Offset(-5, i) = ·s¼W¸ê®Æ.TextBox1
            Äl¸¹.Offset(-4, i) = ·s¼W¸ê®Æ.°h®Æ­«1
            Äl¸¹.Offset(-3, i) = ·s¼W¸ê®Æ.°h®Æ®É¶¡1
            Äl¸¹.Offset(-2, i) = ·s¼W¸ê®Æ.TextBox1
            Äl¸¹.Offset(-1, i) = ·s¼W¸ê®Æ.¯u¹ê©m¦W
            Äl¸¹.Offset(0, i) = ·s¼W¸ê®Æ.¯u¹ê½s¸¹
            Else
            MsgBox "¶ÈÄl¸¹¬Û¦P"
            Exit Sub
            End If
            Else
            MsgBox "µL¹ïÀ³¸ê®Æ"
            Exit Sub
            End If
        End With
'
²¤¹L
'
End Sub

TOP

¦^´_ 2# lifedidi

i = Äl¸¹.Offset(-9, Columns.Count - 2).End(xlToLeft).Column - Äl¸¹.Column + 1

¥t³¡¤Àµ{¦¡¤º®e¦ü¥G¦³¿ù¸m :
            Äl¸¹.Offset(-6, i) = ·s¼W¸ê®Æ.TextBox1
            Äl¸¹.Offset(-5, i) = ·s¼W¸ê®Æ.»â®Æ®É¶¡1

            Äl¸¹.Offset(-3, i) = ·s¼W¸ê®Æ.TextBox1
            Äl¸¹.Offset(-2, i) = ·s¼W¸ê®Æ.°h®Æ®É¶¡1

TOP

¦^´_ 3# luhpro

luhpro¤j¤j¡AÁÂÁ§A¡A¤w­×¥¿¡I

½Ð±Ð¤@¤U¡A§Ú­n¤@¨Öºâ¥X®w¦s¶q¡A¤p§Ì¤£¤~³o¼Ë¼g¬O¿ùªº¡A½Ð°ª¤â«ü¾ÉÁÂÁ¡A

Äl¸¹.Offset(2, i) = Val(Äl¸¹.Offset(2, Columns.Count - 2).End(xlToLeft).Column - Äl¸¹.Column) - (Val(·s¼W¸ê®Æ.»â®Æ­«1) - Val(·s¼W¸ê®Æ.°h®Æ­«1))

¡ô®w¦s¶q¡@¡@¡@¡@¡@¡@¡×¡@¡@¡@¡@¡@¡@¡ô·í¦C³Ì«á¤@­Ó¼Æ­È¡]³Ì«á¤@µ§¸ê®Æ®w¦s¶q¡^¡@¡@¡@¡@¡@¡Ð¡@¡@¡@¡@¡@¡@¡@¡@¡@¡ô·s¤@µ§¸ê®Æªº¨Ï¥Î²b­«

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2013-6-26 23:41 ½s¿è

¦^´_ 4# lifedidi

¬Ý¤£À´§Aªº°ÝÃD,

¬O­þ¸Ì¿ù¤F©O?

µ²ªG»P§Aªº¹w´Á¤£¦P?

ÁÙ¬O·|¥X²{¿ù»~°T®§?

¬O§_¥i¥H±Ô­zªº§ó²M·¡¤@¨Ç.

¥t, «Øij§Aªº UserForm ©ñ¦b Sheet.Activate ¦A©I¥s Show
¦Ó¦b DeActivate ¸Ì±N¥LHide¸û¦n.

TOP

¥»©«³Ì«á¥Ñ lifedidi ©ó 2013-6-27 10:38 ½s¿è

¦^´_ 5# luhpro

luhpro¤j¤j¦n¡G

§Ú³o¼Ëªº³]©w«Ü¹³¦³ÂI¶Ã¡A§Ú·|¨Ì·Ó¤j¤j«Øij­×§ï¡C

¦^¨ì°ÝÃD¡G

¤j¤jªºµ{¦¡½X¨S°ÝÃD¡I¬O¤p§Ì¦b¤U¤@¨B®É¥X²{°ÝÃD¡A·Q½Ð±Ð¡I

¡m¹ê»Úªí®æ¡n   ¢x             ¡m¹ïÀ³µ{¦¡½X¡n         
                        i = Äl¸¹.Offset(-9, Columns.Count - 2).End(xlToLeft).Column - Äl¸¹.Column + 1       
±M®×½s¸¹               ¢x     Äl¸¹.Offset(-9, i) = ·s¼W¸ê®Æ.±M®×½s¸¹       
»s³y¶Ç²¼½s¸¹   ¢x     Äl¸¹.Offset(-8, i) = ·s¼W¸ê®Æ.»s³y¶Ç²¼½s¸¹       
»â¥X¼Æ¶q               ¢x     Äl¸¹.Offset(-7, i) = ·s¼W¸ê®Æ.»â®Æ­«1       
»â¥X¤é´Á               ¢x     Äl¸¹.Offset(-6, i) = ·s¼W¸ê®Æ.»â®Æ®É¶¡1       
»â¥X®É¶¡               ¢x     Äl¸¹.Offset(-5, i) = ·s¼W¸ê®Æ.TextBox1       
°h¦^¼Æ¶q               ¢x     Äl¸¹.Offset(-4, i) = ·s¼W¸ê®Æ.°h®Æ­«1       
°h¦^¤é´Á               ¢x     Äl¸¹.Offset(-3, i) = ·s¼W¸ê®Æ.°h®Æ®É¶¡1       
°h¦^®É¶¡               ¢x     Äl¸¹.Offset(-2, i) = ·s¼W¸ê®Æ.TextBox1       
­û¤u©m¦W               ¢x     Äl¸¹.Offset(-1, i) = ·s¼W¸ê®Æ.¯u¹ê©m¦W       
­û¤u½s¸¹               ¢x     Äl¸¹.Offset(0, i) = ·s¼W¸ê®Æ.¯u¹ê½s¸¹       
²b¥Î­«¶q               ¢x     Äl¸¹.Offset(1, i) = ·s¼W¸ê®Æ.»â®Æ­«1 - ·s¼W¸ê®Æ.°h®Æ­«1       
®w¦s¼Æ¶q               ¢x     Äl¸¹.Offset(2, i) = Val(Äl¸¹.Offset(2, Columns.Count - 2).End(xlToLeft).Column - Äl¸¹.Column) - (Val(·s¼W¸ê®Æ.»â®Æ­«1) - Val(·s¼W¸ê®Æ.°h®Æ­«1))       

¥H¤W¦b¡m®w¦s¼Æ¶q¡n¦³ÂI°ÝÃD¡A¤p§Ìªº·Qªk¬O®w¦s¼Æ¶q¬°¡i«e¤@µ§¸ê®Æªº®w¦s¼Æ¶q - ³o¦¸ªº²b¥Î¼Æ¶q¡j

ºâ¥X¨Óªº­È©M¹ê»Úªº­È¤£¦P

¦Ó«e¤@µ§ªº®w¦s¼Æ¶q¦ì¸m«ç»ò§ì©O¡H

³o¼Ë¼gªº­È¬O§ì¨ì­þ¤@®æ¥h¤F...
Val(Äl¸¹.Offset(2, Columns.Count - 2).End(xlToLeft).Column - Äl¸¹.Column)

TOP

¦^´_ 6# lifedidi
§Úı±o°ÝÃDªºÃöÁäÀ³¸Ó¬O¦b©ó :
"¥Ø«e¼Æ¶q" Äæ¦ì­è¶}©l¬O¨S¦³¸ê®Æªº,
©Ò¥H­n§ì¥½Ä檺Ä渹,
ÁÙ¬O«Øij©µ¥Î¤W­±ªº¤è¦¡§ì¥½Äæ,
µM«á¦A±N¸Ó«ü¼Ð¦ì²¾¨ì·Q­nªº¦ì¸m¥h :

Äl¸¹.Offset(2, i) = Val(Äl¸¹.Offset(2, Äl¸¹.Offset(-9, Columns.Count - 2).End(xlToLeft).Column - Äl¸¹.Column + 1)) - (Val(·s¼W¸ê®Æ.»â®Æ­«1) - Val(·s¼W¸ê®Æ.°h®Æ­«1))

¸Õ¸Õ¬Ý¬O§_¥i¥H.

TOP

¦^´_ 7# luhpro

uhpro±z¦n¡G

¦pªG±N¸ê®Æ§ï¬°



¦p¬õ¦â¦rÅ鳡¤À¡A³o¼Ë­ºµ§¸ê®Æ¶i¥h§ìªº¨ì600¶Ü¡H

ÁÂÁ¡I

TOP

¦^´_  luhpro
uhpro±z¦n¡G
¦pªG±N¸ê®Æ§ï¬°
¦p¬õ¦â¦rÅ鳡¤À¡A³o¼Ë­ºµ§¸ê®Æ¶i¥h§ìªº¨ì600¶Ü¡H
...
lifedidi µoªí©ó 2013-6-28 09:27

­ºµ§¬O¶Ü?
¨º Column ¤£­n¥[ 1 ´N¬O«e¤@µ§¸ê®ÆÅo :

Äl¸¹.Offset(2, Äl¸¹.Offset(-9, Columns.Count - 2).End(xlToLeft).Column - Äl¸¹.Column)

TOP

¦^´_ 9# luhpro

¤j¤j¡A¤£¦n·N«ä¡A¤p§Ì¤Ó²Â¤F¡A¦Û¤v§ï¤F´X¦¸ÁÙ¬O¥¢±Ñ¡I

§Ú§âÀɮײ³æ¤Æ¨Ã¤W¶Ç¡A½Ð±zÀ°¦£¡AÁÂÁ¡I

¯Ó§÷¶i¥Xï20130702.rar (227.5 KB)

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD