範囲内の最大値を見つけて他のセルの値に1を加算するVBAコード

この質問は少し奇妙ですが、私の計算ワークシートには本当に必要です。範囲内の最大値を見つけて他のセルの値に1を加算するVBAコード

まず、私は私のVBAコードを共有する要求に基づいて自分の要件を投稿します。しかし、それは非常に不十分に構築されます。

範囲（I11〜I21）で最大値を見つけるVBAコードが必要です。この値をとると、「G2」の他のセルに1（+1）を追加する必要があります。

このコードを取得するのを手伝ってください。あなたの助けに感謝します。ここで

2017-07-25 Sarath kumar

サンプルテーブルを投稿できますか？前と後は最高です – RealCheeseLord

[あなたがこれまで持っているコード]（http://whathaveyoutried.com）を表示するようあなたの質問を編集してください。問題を抱えているコードのアウトライン（ただし、好ましくは[mcve]）を含める必要があります。次に、特定の問題を解決することができます。 [ask]も読んでください。 –

あなたは、単純な1行のソリューションで行く：正確にあなたがしたいんものに応じて

Public Sub TestMe() 
    Range("G2") = WorksheetFunction.Max(Range("I11:I21")) + 1 
End Sub

Public Sub TestMe() 
    Range("G2") = Range("G2") + WorksheetFunction.Max(Range("I11:I21")) + 1 
End Sub

。

出典

2017-07-25 13:52:43 Vityata

こんにちはVityata、迅速な対応に感謝します。それは絶対にうまくいって、私の要求を満たしました。私はまた、将来このコードを使用するためにこのコードから追加の賛成が必要です。このvbaコードでIF文を使用したいと思います。同様に、最大値が範囲G2より大きくない場合は、上記のマクロを起動する必要があります。可能ですか？ –

@Sarathkumar - あなたは大歓迎です。一般的には、質問でVBAコードを共有する方が良いです。あなたが悪いと思うことは重要ではありません。あなたは私の答えを受け入れたものとして選択することができます。 – Vityata

私は、同僚の助けを借りてコードをいっぱいにしたほぼ1ページをマップしました。また、ネットから検索したものも私の学習の一部を使っていました。その方法は大きすぎてここに貼り付けることはできません。しかし、上記のコードでは、私はIF機能を追加しました。今は完全に完璧です。私を助けてくれてありがとう。 Public Sub TestMe（） Range（ "G2"）> WorksheetFunction.Max（範囲（ "I11：I21"））Then 範囲（ "G2"）= WorksheetFunction.Max（範囲（ "I11：I21"））+ 1 End Sub –

私は同僚からの助けを借りてコードの完全なほぼ1ページをマップしました。そしてネットから検索したものも私の学習の一部を使っていました。その方法は大きすぎてここに貼り付けることはできません。しかし、上記のコードでは、私はIF機能を追加しました。今は完全に完璧です。私を助けてくれてありがとう。

Public Sub TestMe() 
If Range("G2") > WorksheetFunction.Max(Range("I11:I21")) Then 
Range("G2") = WorksheetFunction.Max(Range("I11:I21")) + 1 
End Sub

出典

2017-07-25 14:31:22

範囲内の最大値を見つけて他のセルの値に1を加算するVBAコード

答えて

関連する問題