1

私は次のことができるようにしたい：

     D       E                           F
1    P       Q                           pf
2    100     =D2/F2*SIN(ACOS(F2))        =D2/SQRT((D2^2+E2^2))
3    200     =D3/F3*SIN(ACOS(F3))        =D3/SQRT((D3^2+E3^2))
4
5    P       Q                           pf
6    100     =D6/F6*SIN(ACOS(F6))        =D6/SQRT((D7^2+E6^2))
7    200     =D7/F7*SIN(ACOS(F7))        =D7/SQRT((D7^2+E7^2))

つまり、F 列に値を入力すると E 列の値が自動的に入力され、E 列に値を入力すると F 列の値が自動的に入力されるはずです。

#DIV/0!しかし、値を入力する前に ,を表示したくありません。

目的：

  1. 列 D に数値が含まれているかどうかを確認します。
  2. 列列 E または列 F に数値が含まれているかどうかを確認します
  3. 残りの列に入力します

また、一部の行に名前を入力するので、これらは無視する必要があります。方程式を下にドラッグして、そのように達成できることはわかっていますが、繰り返しになりますが、#DIV/0!.

これを行う賢い方法はありますか？エクセル2010を使用しています。

4

1 に答える 1

1
  • VBE ( Visual Basic Editor )を開くALT+F11
  • プロジェクト エクスプローラーで右クリックし、Module
  • 以下のコードを貼り付けます

UDF 関数

Function E()

    Dim D As Range, F As Range
    Set D = ActiveCell.Offset(0, -1): Set F = ActiveCell.Offset(0, 1)
    
    If Len(D) = 0 Or Len(F) = 0 Then E = ""
    If Len(F) > 0 Then
        Dim result As Double
        result = Evaluate("=" & D & "/" & F & "*SIN(ACOS(" & F & "))")
        E = result
    End If
End Function

Function F()
    Dim D As Range, E As Range
    Set D = ActiveCell.Offset(0, -2): Set E = ActiveCell.Offset(0, -1)
    
    If Len(D) = 0 Or Len(E) = 0 Then F = ""
    If Len(E) > 0 Then
        Dim result As Double
        result = Evaluate("=" & D & "/SQRT((" & D & "^2+" & E & "^2))")
        F = result
    End If
End Function
  • スプレッドシートに戻り、新しい数式を入力します
  • Cell E2is now =E()and cell F2is now=F()数式を下にドラッグ

で終わった 結果

アップデート：

挿入と計算を自動化するには

»Project Explorer右クリックSheet1»View Code

以下のコードを挿入します

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 Then
        FillF Target
    ElseIf Target.Column = 6 Then
        FillE Target
    End If
End Sub

ワークシートのコード

Module1あなたが持っているコードを以下のものに置き換えます

Option Explicit

Sub FillF(ByVal Target As Range)
    
    Dim D As Range, E As Range, F As Range

    Set E = Target
    Set D = E.Offset(0, -1)
    Set F = E.Offset(0, 1)
    
    If Not IsError(E) Then
        If Len(E) = 0 Then
            Exit Sub
        ElseIf Len(D) = 0 Then
            Exit Sub
        ElseIf Len(D) > 0 And Len(F) = 0 Then
            F.Formula = "=" & D & "/SQRT((" & D & "^2+" & E & "^2))"
            Exit Sub
        Else
            Exit Sub
        End If
    Else
        F.ClearContents
    End If
    
End Sub

Sub FillE(ByVal Target As Range)
    
    Dim D As Range, E As Range, F As Range
    
    Set F = Target
    Set E = F.Offset(0, -1)
    Set D = F.Offset(0, -2)
    
    If Not IsError(F) Then
        If Len(F) = 0 Then
            Exit Sub
        ElseIf Len(D) = 0 Then
            Exit Sub
        ElseIf Len(D) > 0 And Len(E) = 0 Then
            E.Formula = "=" & D & "/" & F & "*SIN(ACOS(" & F & "))"
            Exit Sub
        Else
            Exit Sub
        End If
    Else
        E.ClearContents
    End If

End Sub

ここで、スプレッドシートに移動し、列 E または F に数値を入力します。他の式が計算され、結果が隣のセルに表示されます。

于 2013-08-16T09:51:43.163 に答える