[µo°Ý] ¿ï¾Ü¤U©Ô¦¡²M³æ¦Û°Ê¶ñ¤J

bhsm

½Ð±Ð¹F¤H:
1.        ­YE4=B4¡BF4=C4¡AF5­È¦Û°Ê¶ñ¤JF9
2.        ­YE4=B4¡BF4=C5¡AF5­È¦Û°Ê¶ñ¤JF10
3.        ­YE4=B4¡BF4=C6¡AF5­È¦Û°Ê¶ñ¤JF11
4.        ­YE4=B5¡BF4=C4¡AF5­È¦Û°Ê¶ñ¤JF12
5.        ­YE4=B5¡BF4=C5¡AF5­È¦Û°Ê¶ñ¤JF13
6.        ­YE4=B5¡BF4=C6¡AF5­È¦Û°Ê¶ñ¤JF14
½Ð±ÐVBA©Î¨ç¼Æ¦p¦ó¼g?
·s¼W Microsoft Excel ¤u§@ªí.rar (6.08 KB)

¤U¸ü¦¸¼Æ: 6

2023-4-8 16:39

sillykin

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$4" Or Target.Address = "$F$4" Then
        Select Case Range("E4").Value
            Case "B4"
                Select Case Range("F4").Value
                    Case "C4"
                        Range("F5").Value = Range("F9").Value
                    Case "C5"
                        Range("F5").Value = Range("F10").Value
                    Case "C6"
                        Range("F5").Value = Range("F11").Value
                End Select
            Case "B5"
                Select Case Range("F4").Value
                    Case "C4"
                        Range("F5").Value = Range("F12").Value
                    Case "C5"
                        Range("F5").Value = Range("F13").Value
                    Case "C6"
                        Range("F5").Value = Range("F14").Value
                End Select
        End Select
    End If
End Sub
¸Õ¤@¤U¬Ý¬Ý

bhsm

¦^´_ 2# sillykin
·PÁÂsillykin¤j«ü¾É,§Ú±N±zªºµ{¦¡½X©ñ¦b¤u§@ªí¤¤,¤£ª¾­þ¸Ì¥X¿ù,µLªk¦Û°Ê¶ñ¤J¼Æ­È,·Ð½Ð±z¦A¦¸«ü¾É,ÁÂÁÂ

sillykin

¦^´_ 3# bhsm


   À°±z­×§ï¤F¤@¤U¡A½Ð¸Õ¸Õ¬Ý³o­Óª©¥»¡G

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$4" Or Target.Address = "$F$4" Then
        If Range("E4").Value = "B4" Then
            Select Case Range("F4").Value
                Case "C4"
                    Range("F5").Value = Range("F9").Value
                Case "C5"
                    Range("F5").Value = Range("F10").Value
                Case "C6"
                    Range("F5").Value = Range("F11").Value
            End Select
        ElseIf Range("E4").Value = "B5" Then
            Select Case Range("F4").Value
                Case "C4"
                    Range("F5").Value = Range("F12").Value
                Case "C5"
                    Range("F5").Value = Range("F13").Value
                Case "C6"
                    Range("F5").Value = Range("F14").Value
            End Select
        End If
    End If
End Sub

¥D­nªº§ï°Ê¬O±N²Ä¤@­Ó Select Case §ï¦¨ If...ElseIf...End If¡A¦]¬°±z­n®Ú¾Ú E4 ªº­È¨Ó¤À§O³B²z¤£¦Pªº±¡ªp¡C¥t¥~¡A±z¤]¥i¥H¦Ò¼{¨Ï¥Î¸ê®ÆÅçÃÒ¥\¯à¨Ó«Ø¥ß¤U©Ô¦¡²M³æ¡A³o¼Ë¥i¯à·|§ó²³æ¤@¨Ç¡C

Andy2483

¦^´_ 1# bhsm


    ÁÂÁ½׾Â,ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾ÇÂǦ¹©«½m²ß¦r¨å»PIJµo,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

°õ¦æ«e:

¤U¸ü (35.86 KB)

2023-4-10 09:33

[F4]¿é¤J7 °õ¦æµ²ªG:

¤U¸ü (34.89 KB)

2023-4-10 09:33

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
   If .Address = "$E$4" Or .Address = "$F$4" Then
      Dim Y, i%, j%, T$, S
      Set Y = CreateObject("Scripting.Dictionary")
      For i = 4 To 5
         For j = 4 To 6
            T = Cells(i, 2) & "|" & Cells(j, 3)
            S = Cells(i + j + (3 ^ (i - 4)), 6)
            If Not Y.Exists(T) Then
               Y(T) = S
               ElseIf Y(T) <> S Then
                  Y(T) = "µLªk¿ëÃÑ"
            End If
         Next
      Next
      [F5] = Y([E4] & "|" & [F4])
      If [F5] = "µLªk¿ëÃÑ" Then MsgBox "±Æ¦C²Õ¦X¤l­«½ÆµLªk¿ëÃÑ"
      Set Y = Nothing
   End If
End With
End Sub

bhsm

¦^´_ 4# sillykin
·PÁÂsillykin¤j¦A¦¸«ü¾É,´ú¸Õµ²ªGÁÙ¬OµLªk±N¼Æ­È¶ñ¤JF9~F14¡A¯à§_½Ð±z¥´¶}§ÚªºÀ£ÁYÀɬݬݧڭþ¸Ì·d¿ù¤F¡H

bhsm

¦^´_ 5# Andy2483
·PÁÂAndy2483¤j«ü¾É,§Ú±N±z¼gªºµ{¦¡©ñ¤J¤u§@ªí1¤¤«á,±o¨ìªºµ²ªG¬OF5ªº¤½¦¡³Q²M°£¤F,©Ò¥H¤]µLªk¦Û°Ê¶ñ¤JF9~F14,¤£ª¾§Ú¦b­þ­ÓÀô¸`¥X¿ù,¯à§_½Ð±zÀ°§Ú­×¥¿§ÚªºÀ£ÁYÀÉ?ÁÂÁÂ

Andy2483

¦^´_ 7# bhsm


    ÁÂÁ«e½ú¦^´_
«á¾ÇÂǦ¹©«½m²ß¤½¦¡,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

F9~F14¤½¦¡:
=IFERROR(IF(E$4=INDIRECT("B"&(INT(ROW()/12)+4)),E$4,"")+IF(F$4=INDIRECT("C"&MOD(ROW(),3)+4),F$4,""),"")

¤U¸ü (67.15 KB)

2023-4-10 13:44

PS:5¼Ó¤è®×ªºVBAµ{¦¡½X»Ý§R°£

bhsm

¦^´_ 8# Andy2483
ÁÂÁÂAndy2483¤jªº«ü¾É,¥i¥H¥Î¤F,¦ý¦pªG§Æ±æ§ïÅÜE4©ÎF4®É¤§«eªº¼Æ­È¤]­n«O¯d¸Ó¦p¦ó³B²z?
¨Ò¦p:E4=5¡BF4=9«hF9=14,¦ý¦pªG§ó§ïE4=10,F4=7®É,§Æ±æF9=14³Q«O¯d¤£³Q²M°£±¼,¦P®ÉÅã¥ÜF9=14.F13=17------,½Ð¤£§[«ü±Ð,ÁÂÁÂ

Andy2483

¦^´_ 9# bhsm

¦pªG§Æ±æ§ïÅÜE4©ÎF4®É¤§«eªº¼Æ­È¤]­n«O¯d¸Ó¦p¦ó³B²z?
¨Ò¦p:E4=5¡BF4=9«hF9=14,¦ý¦pªG§ó§ïE4=10,F4=7®É,§Æ±æF9=14³Q«O¯d¤£³Q²M°£±¼,¦P®ÉÅã¥ÜF9=14.F13=17------

    ÁÂÁ«e½ú¦A¦^´_
«á¾ÇÂǦ¹©«¬ã¨sVBA¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
   If .Address = "$E$4" Or .Address = "$F$4" Then
      Dim Y, i%, j%, T$, S, Brr
      Set Y = CreateObject("Scripting.Dictionary")
      Brr = [F9].Resize(6, 1)
      For i = 4 To 5
         For j = 4 To 6
            T = Cells(i, 2) & "|" & Cells(j, 3)
            S = Val(Cells(i, 2)) + Val(Cells(j, 3))
            N = N + 1: Y(T) = S
            If T = [E4] & "|" & [F4] Then Brr(N, 1) = Y(T)
         Next
      Next
      [F9].Resize(6, 1) = Brr
      Set Y = Nothing: Erase Brr
   End If
End With
End Sub