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

[µo°Ý] ®æ¦¡¤Æ±ø¥ó,¦³­È«hÅã¥Ü¾ã¼Æ¦C®Ø¬[

¥»©«³Ì«á¥Ñ register313 ©ó 2012-4-5 11:24 ½s¿è

¦^´_ 10# jackson7015

1.À˵ø/¤À­¶¹wÄý  ¤â°Ê½Õ¾ã¦C¦L½d³ò

2.VBA
¥\¯à:·íCÄæ¦C¸¹­Ó¦ì¼Æ¬°3¤§Àx¦s®æ­È¦³ÅܰʮɥB¸ÓÀx¦s®æ¤£¬°ªÅ­È=>¦Û°Ê¥[10¦C®Ø½u
         ·íCÄæ¦C¸¹­Ó¦ì¼Æ¬°3¤§Àx¦s®æ­È¦³ÅܰʮɥB¸ÓÀx¦s®æ¬°ªÅ­È=>¦Û°Ê¨ú®ø10¦C®Ø½u
¤u§@ªí¼Ò²Õ
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If (Target.Column = 3) And (Target.Row Mod 10) = 3 Then
  3.    If Target <> "" Then
  4.       Target.Resize(10, 7).Borders.LineStyle = xlContinuous
  5.    Else
  6.       Target.Resize(10, 7).Borders.LineStyle = xlNone
  7.    End If
  8. End If
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 11# register313

·PÁÂregister313¤j¤jªº¦^À³

·Q½Ð±Ð¦¹ºØPrivate Sub¥¨¶°ª½±µ¶}·s¥¨¶°¤U¥h¨Ï¥Î´N¦n¤F¶Ü?
ÁÙ¬O­n´¡¤J¨ì¦C¦L¥¨¶°¤º?

§Ú¨Ï¥Î·s¥¨¶°¤U¥h¨Ï¥Î®É,·|³sµ²¾É¤J¨ä¥L¥¨¶°
¦Ó§Ú¾É¤J¨ì·s«Øªº¦C¦L¥¨¶°¤¤,¦n¹³¨S¦³Åܧó¦C¦L½d³ò

TOP

¦^´_ 12# jackson7015
¬Ý¬Ý²Å¤£²Å§Aªº»Ý¨D
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If (Target.Column = 3) And (Target.Row Mod 10) = 3 Then
  3.    If Target <> "" Then
  4.       Target.Resize(10, 7).Borders.LineStyle = xlContinuous
  5.       PageSetup.PrintArea = "C1:I" & Target.Row + 9
  6.    Else
  7.       Target.Resize(10, 7).Borders.LineStyle = xlNone
  8.       PageSetup.PrintArea = "C1:I" & Target.Row - 1
  9.    End If
  10. End If
  11. End Sub
½Æ»s¥N½X

1.gif

TOP

¦^´_ 13# register313

·PÁÂregister313¤j¤jªºÀ°¦£

­Y¬OCÄæ¦C¸¹­Ó¦ì¼Æ¬°6ªº¸Ü¡A¬O§_§ó§ï¬°¤U¦¡
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If (Target.Column = 6) And (Target.Row Mod 10) = 6 Then
  3.    If Target <> "" Then
  4.       Target.Resize(10, 4).Borders.LineStyle = xlContinuous
  5.       PageSetup.PrintArea = "C1:I" & Target.Row + 9
  6.    Else
  7.       Target.Resize(10, 4).Borders.LineStyle = xlNone
  8.       PageSetup.PrintArea = "C1:I" & Target.Row - 1
  9.    End If
  10. End If
  11. End Sub
½Æ»s¥N½X
¦ý¬O§ó§ï«á¦n¹³¬O¿ù»~ªº¡A¤Ï¦Ó¨S¦³°Ê§@..

¥i¯à­n¦A³Â·Ðregister313¤j¤j¨ó§U¤@¤U

TOP

¦^´_ 14# jackson7015


If (Target.Column = 3) And (Target.Row Mod 10) = 6 Then
     Ä渹¬°3                                    ¦C¸¹/10«á¾l¼Æ¬°6

TOP

¦^´_ 15# register313

¤w¸g¥i¥H¥¿±`Åܧó¦C¦L½d³ò¤F,·PÁÂregister313¤j¤j

·Q½Ð±Ð,§Ú¬O±N¤u§@­¶­±¥H¼Ï¯Ã¤ÀªRªí§@¾ã²z

¦b¤â°Ê´ú¸Õ¤j¤j´£¨Ñªº´ú¸Õ½X®Éµo²{,­Y¬O±NCÄæ¸ê®Æ¤@¦¸§R°£©ÎªÌ¤@¦¸Åܧó¦Ü¦h­¶
¦n¹³µLªk§PÂ_cÄæÅܰʪº½d³ò,¥u·|¨Ì·Ó­«·s¾ã²z«eªº¦C¦L½d³òªí¥Ü

TOP

¦^´_ 16# jackson7015

11# ¤§»¡©ú
¥\¯à:·íCÄæ¦C¸¹­Ó¦ì¼Æ¬°3¤§Àx¦s®æ­È¦³ÅܰʮɥB¸ÓÀx¦s®æ¤£¬°ªÅ­È=>¦Û°Ê¥[10¦C®Ø½u
     ·íCÄæ¦C¸¹­Ó¦ì¼Æ¬°3¤§Àx¦s®æ­È¦³ÅܰʮɥB¸ÓÀx¦s®æ¬°ªÅ­È=>¦Û°Ê¨ú®ø10¦C®Ø½u
13# ¤§°Êµe»¡©ú
=>¥Ø«e´£¨Ñ¤§¤èªk,¾A¦XCÄæÀx¦s®æ³v®æ©¹¤U¿é¤J¤§¾Þ§@¤è¦¡

­Y¬OCÄæ¸ê®Æ¤w¨Æ¥ý«Ø¥ß¦n,­n¤@¦¸§PÂ_¥þ³¡¤§®Ø½u,«hµ{¦¡­n§@­×§ï(­Y­n­×§ï½ÐªþÀÉ®×)

TOP

¸ô¹LÃB¥~°Ý¤@­Ó°ÝÃD
®æ¦¡¤Æ±ø¥ó¦b¤°»ò±¡ªp¤U·|³Q¯}Ãa±¼?
¦]¬°»s§@ªºÀɮשñ¦b¤½¶}¨Ï¥Î°Ï¸Ì±`¦³®æ¦¡®ø¥¢ªºª¬ªp
¨Ï¥ÎªÌ«D±`¦h¡A¹ê¦b§ì¤£¥X½Ö§ËÃa
¤@ª½§ä¤£¨ì®æ¦¡³Q¯}Ãa¬O°µ¤F¤°»ò¾Þ§@

TOP

¦^´_ 18# vvcvc

¥ô¦óÀx¦s®æ¡BÄæ¡B¦Cªº½Æ»s¡B´¡¤J©Î§R°£³£¥i¯à¼vÅT®æ¦¡¤Æ±ø¥ó
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ jackson7015 ©ó 2012-4-9 08:50 ½s¿è

¦^´_ 17# register313

¥\¯à»Ý¨D:
·íCÄæ¦C¸¹­Ó¦ì¼Æ¬°6¤§Àx¦s®æ­È¦³ÅܰʮɥB¸ÓÀx¦s®æ¤£¬°ªÅ­È=>¦Û°Ê¥[10¦C®Ø½u
·íCÄæ¦C¸¹­Ó¦ì¼Æ¬°6¤§Àx¦s®æ­È¦³ÅܰʮɥB¸ÓÀx¦s®æ¬°ªÅ­È=>¦Û°Ê¨ú®ø10¦C®Ø½u
·íE6¤§Àx¦s®æ­È¦³ÅܰʮɥB¸ÓÀx¦s®æ¬°ªÅ­È=>¦Û°Ê¨ú®ø¦C¦L½d³ò(µL¦C¦L)
¥B·íCÄæ¦C¸¹­Ó¦ì¼Æ¬°6¤§Àx¦s®æ­È¦³ÅÜ°Ê®É=>ÀH®É§PÂ_¦C¦L½d³ò
¤é³øªí.rar (491.66 KB)

³Â·Ð¤j¤j¤F,¥Ñ°J·PÁÂ..

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD