Please correct the 2nd code, both for the same worksheet. FIRST CODE WORKING PERFECTLY Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D1")) Is Nothing Then Select Case Range("D1") Case "0.5": Half Case "1": One Case "1.25": OneTwentyFive End Select End If End Sub SECOND CODE NOT WORKING (plz correct the below) Private Sub Change(ByVal Target As Range) If Not Intersect(Target, Range("D2")) Is Nothing Then Select Case Range("D2") Case "9.53": ninepointfivethree End Select End If End Sub

新作

VBAコードの修正が必要

Excel

シードサルマン

水曜日、24月2021

3 返信

7.6K訪問

投票

アンドゥ

同じワークシートの2番目のコードを修正してください。

完全に機能する最初のコード
プライベートサブワークシート_Change（ByValターゲットを範囲として）
交差しない場合（Target、Range（ "D1"））は何もありません
ケース範囲（ "D1"）を選択
ケース「0.5」：半分
ケース「1」：XNUMXつ
ケース「1.25」：OneTwentyFive
選択して終了
終了する場合
End Subの

XNUMX番目のコードが機能していません（plzは以下を修正してください）
Private Sub Change（ByVal Target As Range）
交差しない場合（Target、Range（ "D2"））は何もありません
ケース範囲（ "D2"）を選択
ケース「9.53」：ninepointfivethree
選択して終了
終了する場合
End Subの

アマンダリー

2年前

#2357

投票

アンドゥ

こんにちはsyedsalman、

同じワークシートに対して、次のコードを実行できます。

プライベートサブワークシート_Change（ByValターゲットを範囲として）

交差しない場合（Target、Range（ "D1"））は何もありません
ケース範囲（ "D1"）を選択
ケース「0.5」：半分
ケース「1」：XNUMXつ
ケース「1.25」：OneTwentyFive
選択して終了
終了する場合

交差しない場合（Target、Range（ "D2"））は何もありません
ケース範囲（ "D2"）を選択
ケース「9.53」：ninepointfivethree
選択して終了
終了する場合

End Subの

ワークシートごとに、「」を変更するだけです。Private Sub Change（ByVal Target As Range）「XNUMX番目のコードで」プライベートサブワークシート_Change（ByValターゲットを範囲として）".

してみてください。ご不明な点がございましたら、お気軽にお問い合わせください。

アマンダ