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

[µo°Ý] ¦p¦ó¬d¸ß¤ñ¹ï«á¥[Á`¦X§e¦C

[µo°Ý] ¦p¦ó¬d¸ß¤ñ¹ï«á¥[Á`¦X§e¦C

¥»©«³Ì«á¥Ñ BV7BW ©ó 2022-7-19 13:06 ½s¿è

½Ð±Ð ¦U¦ì ¥ý¶i «e½ú ¦Ñ®v­Ì

¦p¦ó¬d¸ß¤ñ¹ï«á¥[Á`¦X§e¦C

°ÝÃD(1)
1)«È¤á¬d¸ß:¥HO2:O200,ÂI¤J«á¦AK11®æ¥X²{
.¨Ò¿ï©wO4(³¯¤@)ÂI¤J«á,¦AK11®æ¥X²{(³¯¤@)
¶µ¥Ø¬d¸ß¥HH4:200ÂI¤J«á¦AK9¥X²{
¨Ò¿ï©wH4(§A1)ÂI¤J«á,¦AK9®æ¥X²{(§A1)
°ÝÃD(2)
1)³æ¶µ¥Ø¬d¸ß¥HK9(¶µ¥Ø)¤ÎK5.K6(¤é´Á)
¦Ü­q³f©ú²Óªí¤¤¤ñ¹ï«á¥[Á`©M¥X
§e¦CA2:D2¤¤.¦A±a¥XR2:V2¦U¶µ¥Ø¸ê®Æ
E2(®w¦s)«h¶·¦Ü¶µ¥Ø½s¸¹¤¤¤ñ¹ï¸ê®Æ
§e²{¥XE2(®w¦s)¸ê®Æ

2)³æ«È¤á¬d¸ß¥HK11(«È¤á)K5.K6(¤é´Á).
¤ÎK9(¶µ¥Ø)¦Ü­q³f©ú²Óªí¤¤¤ñ¹ï
±a¥XQ2:V2¦U¶µ¸ê®Æ

3)¶µ¥ØÁ`¶q¬d¸ß¥HK9(¶µ¥Ø)¤ÎK5.K6(¤é´Á)
¦Ü­q³f©ú²Óªí¤¤¤ñ¹ï«á¶µ¥ØÁ`¦X§e¦CA2;D2
E2(®w¦s)«h¶·¦Ü¶µ¥Ø½s¸¹¤¤¤ñ¹ï¸ê®Æ
§e²{¥XE2(®w¦s)¸ê®Æ

4)«È¤áÁ`¶q¬d¸ß¥HK11(«È¤á)¤ÎK5.K6(¤é´Á)
¦Ü­q³f©ú²Óªí¤¤¤ñ¹ï¶µ¥ØÁ`©M
§e¦CR2:V2¦U¶µ¸ê®Æ

¾P°â¶µ¥ØÁ`¶qªí(¤@).rar (668.7 KB)

±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

¦^´_ 1# BV7BW [/b
­×­q

3)¶µ¥ØÁ`¶q¬d¸ß¥HK5.K6(¤é´Á)
¦Ü­q³f©ú²Óªí¤¤¤ñ¹ï«á¶µ¥ØÁ`¦X§e¦CA2;D2
E2(®w¦s)«h¶·¦Ü¶µ¥Ø½s¸¹¤¤¤ñ¹ï¸ê®Æ
§e²{¥XE2(®w¦s)¸ê®Æ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 2# BV7BW

¦^§Aªº¶¡ÃD¤@¡G
¦b¾P°âÁ`¶qªíªºVBA¼Ò²Õ¡G
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'¥u¦³¿ï¾Ü1­ÓÀx¦s®æ¤~±Ò¥Î
If Target.Count = 1 Then
    '«È¤á¬d¸ß:¥HO2:O200,ÂI¤J«á¦AK11®æ¥X²{
    If Target.Column = 15 And Target.Row > 1 And Target.Row <= 200 Then
        [K11] = Target.Value
    End If
    '¨Ò¿ï©wH4(§A1)ÂI¤J«á,¦AK9®æ¥X²{(§A1)
    If Target.Column = 8 And Target.Row > 1 And Target.Row <= 200 Then
        [K9] = Target.Value
    End If
End If
End Sub
¥t¨â­Ó°ÝÃD³£¬O¬d¸ß¡A§A¥i¥H¦Û¤w¸ÕµÛ°µ¬Ý¬Ý¡A¦³°ÝÃD¦A°Ý¡A³o¼Ë¾Ç¤~·|¦³¶i¨B¡I

TOP

¦^´_ 3# lpk187
ÁÂÁÂ ¥ý¶ilpk187 ¤j¤j
§¹¦¨°ÝÃD(1)¤Î«D±`©ú²Ó¸Ñ»¡.
¸gºt½m§¹¥þ²Å¦X»Ý¨D
  ·PÁ lpk187 ¦Ñ®v «ü¾É ÁÂÁÂ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ BV7BW ©ó 2022-7-20 12:28 ½s¿è

¦^´_ 3# lpk187
  lpk187 ¦Ñ®v
ÁÂÁ§A©ú²Óª`¸Ñ
¹y®É·Q¶}=15¤Î=8 ³o¬qµ{§Ç¥Î·N
If Target.Column = 15 And Target.Row > 1 And Target.Row <= 200 The
If Target.Column = 8 And Target.Row > 1 And Target.Row <= 200 Then
  =15 ¬O«ü¦b15Ä椤¤Î=8¤@¼Ë¥Î·N
§Ú¤@ª½¤£À´³o¼Æ¦r¥Ñ¨Ó.¸g§Aª`¸Ñ¹y®É¤F®©
«D±`ÁÂÁ lpk187 «ü±Ð ÁÂÁÂ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 1# BV7BW

°ÝÃD1¦p¤U¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 8 Then
    If Target.Row < 4 Then GoTo 99
    If Target.Row > 199 Then GoTo 99
    [K9] = Target.Value
End If
If Target.Column = 15 Then
    If Target.Row < 2 Then GoTo 99
    If Target.Row > 199 Then GoTo 99
    [K11] = Target.Value
End If
99:
End Sub

TOP

¦^´_ 6# samwang
samwang ¤j¤j §A¦n

´ú¸Õ«á¤]§¹¥þ²Å¦X»Ý¨D
°ß¤@³o1¬q¤£¸Ñ
If Target.Row < 4 Then GoTo 99
If Target.Row > 199 Then GoTo 99

GoTo 99³o¨ç·N¤£¸Ñ.¥i½ÐÀ°¸Ñ´b?
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 7# BV7BW

Goto 99 ¨ä¥D­n¬O¸õ¥Xµ{§Ç¡A¨ä¹ê¥i¥H¥Î Exit Sub ´N¦n¤F¡A¤£¥Î Goto 99

TOP

¦^´_ 8# lpk187
ÁÂÁÂlpk187 ¦Ñ®v«ü±Ð
ªí¥Üµ²§ô´`ÀôÂ÷¶}µ{¦¡
ÁÂÁ«ü±Ð
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 9# BV7BW
½Ð°Ñ¦Ò¦¹½g:
https://zh.wikipedia.org/zh-tw/%E9%9D%A2%E6%9D%A1%E5%BC%8F%E4%BB%A3%E7%A0%81

³o¬O¥H«e8¦ì¤¸¹q¸£ªºBASIC»yªk(¨C¦æµ{¦¡«e¦³¦æ¸¹¡A¥i¥H¨Ï¥ÎGOTO¦æ¸¹ªº»yªk)¡A´N¦]¬°Goto¨ÓGoto¥hªº·|³y¦¨°£¿ùªº§xÂZ¡A¦]¦¹¥H«áµ{¦¡³]­p´N´¬±ó³oºØ»yªk¡A§ï¬°µ²ºc¦¡ªº»yªk¦p If Then ¡BSelect Case µ¥¡AÅý°£¿ù§ó®e©ö¡C

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD