bhsm

¦^´_ 20# Andy2483
ÁÂÁ±zªº¸Ñ»¡¡AVBA¹ê¦b¤Ó°ª²`¤F¡A§Ú´¿¸ÕµÛ¦Û¤v¸Ñ¨M¡A¦ý¬O¯uªº¡¨¤£·|´N¬O¤£·|¡¨¡A¥u¯à¨Ì±zªºµ{¦¡½X¨Ó¸ÕµÛ²z¸Ñ¡A¯uªº«Ü©¯¹B¦³±zªº¤£§[½ç±Ð¡A¦A¦¸²`²`¤@Áù°`¡A¯uªº«ÜÁÂÁ±z¡C

Andy2483

¦^´_ 21# bhsm


        ÁÂÁ«e½ú¦^´_
ÅÞ¿è¬O¥i¥H°V½mªº,¨Ò¦p «pÁy¥Öªº¾Ç¥Í ´N«Ü²Â¾Ç¤F¤Q´X¦~ÁÙ«Ü»{¯uªº¾Ç,¤£©ñ±ó
³o»òÀu½èªº¾Ç²ß¥­¥x«ç±Ë±oÅý ¯uªº¡¨¤£·|´N¬O¤£·|¡¨¦¨¬°¨Æ¹ê©O?
¤@¤Ñ¶i¨B¤@ÂIÂI´N¥i¥H¤F

­ã´£³¡ªL

§Q¥Î index ­È¶ñ¥R//
Private Sub Worksheet_Change(ByVal Target As Range)
Dim j%, k%
With Target
     If .Address <> "$E$4" And .Address <> "$F$4" Then Exit Sub
     j = Abs(([e4] = [b4]) + ([e4] = [b5]) * 4)
     k = Abs(([f4] = [c4]) + ([f4] = [c5]) * 2 + ([f4] = [c6]) * 3)
     If j * k Then [f9].Cells(j + k - 1) = [f5]
End With
End Sub

bhsm

¦^´_ 23# ­ã´£³¡ªL
·PÁ­㴣³¡ªL¤j±Ð¾É¥t¤@ºØ¤è¦¡,±ß½ú¸Õ¤F¸Õ,µLªkÅã¥Ü¼Æ­È,·Ð½Ð±z¦A¦¸«ü¾É,ÁÂÁÂ

­ã´£³¡ªL

¦^´_ 24# bhsm

F5 ¬OªÅªº~~~~~~~~~~~~~~

bhsm

¦^´_ 25# ­ã´£³¡ªL
ÁÂÁ­㴣³¡ªL¤j´£¿ô,¤w¸Ñ¨M,·P®¦

Andy2483

¦^´_ 23# ­ã´£³¡ªL


    ÁÂÁ½׾Â,ÁÂÁ«e½ú«ü¾É
«á¾Ç¾Ç²ß¤ß±o¦p¤U,½Ð«e½ú¦A«ü¾É

'§Q¥Î index ­È¶ñ¥R//
https://learn.microsoft.com/zh-t ... sheetfunction.index
Private Sub Worksheet_Change(ByVal Target As Range)
'¡ô·í¨Ï¥ÎªÌ©Î¥~³¡³sµ²Åܧó¤u§@ªí¤¤ªºÀx¦s®æ®É·|µo¥Í¦¹¨Æ¥ó¡C
Dim j%, k%
'¡ô«Å§iÅܼÆ:(j,k)¬Oµu¾ã¼Æ
With Target
'¡ô¥H¤U¬OÃö©óIJµoªºµ{§Ç
     If .Address <> "$E$4" And .Address <> "$F$4" Then Exit Sub
     '¡ô¦pªGIJµo®æªº¦ì§}¤£¬O "$E$4"¦Ó¥B¤]¤£¬O "$F$4" ´Nµ²§ôµ{¦¡°õ¦æ
     j = Abs(([e4] = [b4]) + ([e4] = [b5]) * 4)
     '¡ô¥Oj³oµu¾ã¼Æ¬O µ´¹ï­È(¥¬ªL­È + ¥¬ªL­È *4)
     '¦pªG[e4] = [b4] ¨ä¥¬ªL­È¬O1,¦A¦pªG[e4] = [b5]¥¬ªL­È¬O0*4=0 ,µ²ªG­È¬O1
     '¦pªG[e4] = [b4] ¨ä¥¬ªL­È¬O0,¦A¦pªG[e4] = [b5]¥¬ªL­È¬O1*4=4 ,µ²ªG­È¬O4
     k = Abs(([f4] = [c4]) + ([f4] = [c5]) * 2 + ([f4] = [c6]) * 3)
     '¡ô¥Ok³oµu¾ã¼Æ¬O µ´¹ï­È(¥¬ªL­È + ¥¬ªL­È *2)+(¥¬ªL­È *3)
     '[f4]=[c4]_¨ä¥¬ªL­È¬O1,[f4]=[c5]_¥¬ªL­È¬O0*2=0,[f4]=[c6]¬O0*3=0,µ²ªG­È¬O1
     '[f4]=[c4]_¨ä¥¬ªL­È¬O0,[f4]=[c5]_¥¬ªL­È¬O1*2=2,[f4]=[c6]¬O0*3=0,µ²ªG­È¬O2
     '[f4]=[c4]_¨ä¥¬ªL­È¬O0,[f4]=[c5]_¥¬ªL­È¬O0*2=0,[f4]=[c6]¬O1*3=3,µ²ªG­È¬O3
     If j * k Then [f9].Cells(j + k - 1) = [f5]
     '¡ô¦pªGjÅܼÆ*kÅܼƤ£¬O 0,´N¥O[f9]¬Û¹ï¦ì¸mÀx¦s®æ­È¬O [f5]
End With
End Sub
µ´¹ï­È¬A©·¸Ìªº­È¬Ý°_¨Ó³£¬O¥¿¼Æ,ÁöµM©|¤£¤F¸Ñ¬°¦ó­n¥[Abs,«á¾Ç¦pªGª¾¹D¤F·|¦^¨Ó¸É¥R
ÁÂÁ«e½ú

bhsm

¦^´_ 27# Andy2483
·PÁÂAndy2483¤j¥[¤W¤¤¤åµù¸Ñ

­ã´£³¡ªL

¦^´_ 27# Andy2483


VBA¤¤ªº True ¶ñ¬° -1, »P¤½¦¡¤¤ªº 1 ¤£¦P

Andy2483

¦^´_ 29# ­ã´£³¡ªL


    ÁÂÁ«e½ú«ü¾É
³o°ÝÃDÀ³¸Ó¬OVBAªº°ò¦,«á¾Ç¤£¨D¬Æ¸Ñ,¤@ª½¿ù»~»{ª¾¤¤¾Ç²ß,ÁÂÁ«e½úªº´£Äâ

Sub TEST()
MsgBox ([A1] = [A1]) + ([B1] = [B1])
End Sub

°õ¦æµ²ªG:

¤U¸ü (79.21 KB)

2023-4-25 14:58

============================================
Sub TEST_1()
MsgBox ([A1] <> [A1]) + ([B1] <> [B1])
End Sub
µ²ªG­È¬O 0